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.11 2007-12-12 15:47:29 espen Exp $
  +;; $Id: gtkselection.lisp,v 1.12 2007-12-13 14:29:59 espen Exp $
   
   
   (in-package "GTK")
  
positive.code: 
  #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.6.0")
  (progn
    (defbinding target-list-add-text-targets (target-list info &optional writable-p) nil
      (target-list target-list)
      (info unsigned-int)
      (writable-p boolean))
    
    (defbinding target-list-add-image-targets (target-list info &optional writable-p) nil
      (target-list target-list)
      (info unsigned-int)
      (writable-p boolean))
  
    (defbinding target-list-add-uri-targets (target-list info &optional writable-p) nil
      (target-list target-list)
      (info unsigned-int)
      (writable-p boolean)))
  
  (defbinding target-list-remove (target-list target) nil
  
negative.code:   (target-list target-list)
    ((gdk:atom-intern target) gdk:atom)
    (flags target-flags)
    ((or info 0) unsigned-int))
  
  (defbinding target-list-add-table (target-list targets) nil
    (target-list target-list)
  