Index: openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	9 Jun 2010 12:53:28 -0000	1.13
+++ openacs-4/packages/xowiki/tcl/xowiki-utility-procs.tcl	28 Jun 2010 11:22:20 -0000	1.14
@@ -8,6 +8,33 @@
 
 namespace eval ::xowiki {
 
+  #
+  # Simple clipboard functionality
+  #
+  ::xotcl::Object create clipboard
+  clipboard proc add {ids} {
+    set clipboard [ad_get_client_property xowiki clipboard]
+    eval lappend clipboard $ids
+    ad_set_client_property xowiki clipboard [lsort -unique $clipboard]
+  }
+  clipboard proc clear {} {
+    ad_set_client_property xowiki clipboard ""
+  }
+  clipboard proc get {} {
+    return [ad_get_client_property xowiki clipboard]
+  }
+  clipboard proc is_empty {} {
+    expr {[my size] < 1}
+  }
+  clipboard proc size {} {
+    set clipboard [ad_get_client_property xowiki clipboard]
+    return [llength $clipboard]
+  }
+
+  #
+  #
+  # Helper for tidying up HTML
+  #
   ::xotcl::Object create tidy
   tidy proc clean {text} {
     if {[[::xo::cc package_id] get_parameter tidy 0]