anchor.diff:  ;; 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.12 2007-12-13 14:29:59 espen Exp $
  +;; $Id: gtkselection.lisp,v 1.13 2007-12-13 14:34:41 espen Exp $
   
   
   (in-package "GTK")
  
positive.code:   (declare (ignore clipboard))
    (funcall (cdr (find-user-data callback-ids))))
  
  ;; Deprecated, use clipboard-set-content
  (defbinding clipboard-set-with-data (clipboard targets get-func clear-func) boolean
    (clipboard clipboard)
    (targets (vector (inlined target-entry)))
  
negative.code:   (%clipboard-clear-callback callback)
    ((register-user-data (cons get-func clear-func)) unsigned-int))
  
  (defun clipboard-set-contents (clipboard targets get-func &optional clear-func)
    (%clipboard-set-with-data clipboard (ensure-target-table targets) 
     get-func (or clear-func #'(lambda ()))))
  
  