---

::xotcl::Object ::xowiki::clipboard

::xotcl::Object create ::xowiki::clipboard

Methods

• proc add

  ::xowiki::policy5 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

  ::xowiki::policy5 proc clear {} {
      ad_set_client_property xowiki clipboard ""
    }
  

• proc get

  ::xowiki::policy5 proc get {} {
      return [ad_get_client_property xowiki clipboard]
    }
  

• proc is_empty

  ::xowiki::policy5 proc is_empty {} {
      expr {[my size] < 1}
    }
  

• proc size

  ::xowiki::policy5 proc size {} {
      set clipboard [ad_get_client_property xowiki clipboard]
      return [llength $clipboard]
    }
  

---