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.2 2006-02-06 14:02:17 espen Exp $
  +;; $Id: gtkselection.lisp,v 1.3 2006-02-08 21:58:49 espen Exp $
   
   
   (in-package "GTK")
  
positive.code:   ((length targets) int))
    
  (defmethod initialize-instance ((target-list target-list) &key targets)
    (setf  
     (slot-value target-list 'location) 
     (%target-list-new targets))
    (call-next-method))
  
  (defbinding target-list-add (target-list targets &optional flags info) nil
    (target-list target-list)
    (target gdk:atom)
    (flags unsigned-int)
  
negative.code: (defbinding selection-data-targets-include-text-p (selection-data) boolean
    (selection-data selection-data))
  
  (defbinding selection-remove-all () boolean
    (widget widget))
  
  
  