anchor.diff:    (clipboard clipboard)
     (pixbuf gdk:pixbuf))
   
  -(defun clipboard-set (clipboard object)
  -  (etypecase object
  -    (string (clipboard-set-text clipboard object))
  -    #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
  -    (gdk:pixbuf (clipboard-set-image clipboard object))))
  +(defgeneric clipboard-set (clipboard object))
  +
  +(defmethod clipboard-set ((clipboard clipboard) (text string))
  +  (clipboard-set-text clipboard text))
  +
  +#?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
  +(defmethod clipboard-set ((clipboard clipboard) (image gdk:pixbuf))
  +  (clipboard-set-image clipboard image))
   
   (define-callback-marshal %clipboard-receive-callback nil 
    ((:ignore clipboard) selection-data))
  
positive.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: gtkselection.lisp,v 1.11 2007-12-12 15:47:29 espen Exp $
  
  
  (in-package "GTK")
  
negative.code:   (%clipboard-clear-callback callback)
    ((register-user-data (cons get-func clear-func)) unsigned-int))
  
  (defun clipboard-set-content (clipboard targets get-func &optional clear-func)
    (%clipboard-set-with-data clipboard (ensure-target-table targets) 
     get-func (or clear-func #'(lambda ()))))
  
  