Methods: | Source: | Variables: |
---|---|---|
[All Methods | Documented Methods | Hide Methods] | [Display Source | Hide Source] | [Show Variables | Hide Variables] |
::xotcl::Object
::xowiki::clipboard
::xotcl::Object create ::xowiki::clipboard
Methods
proc add
::1182087 proc add ids { set clipboard [ad_get_client_property xowiki clipboard] eval lappend clipboard $ids ad_set_client_property xowiki clipboard [lsort -unique $clipboard] }
proc clear
::1182087 proc clear {} { ad_set_client_property xowiki clipboard "" }
proc get
::1182087 proc get {} { return [ad_get_client_property xowiki clipboard] }
proc is_empty
::1182087 proc is_empty {} { expr {[my size] < 1} }
proc size
::1182087 proc size {} { set clipboard [ad_get_client_property xowiki clipboard] return [llength $clipboard] }
Methods: | Source: | Variables: |
---|---|---|
[All Methods | Documented Methods | Hide Methods] | [Display Source | Hide Source] | [Show Variables | Hide Variables] |