gtktree

It'd be great if the following two patches were applied to
gtktree.lisp.  The first one fixes a bug in %LIST-STORE-INSERT-AFTER,
while the second provides ICON-VIEW-ENABLE-MODEL-DRAG-SOURCE,
ICON-VIEW-ENABLE-MODEL-DRAG-DEST, which I happen to need.

Cheers,

-- 
walter pelissero
http://www.pelissero.de



Index: gtktree.lisp
===================================================================
RCS file: /cvsroot/clg/clg/gtk/gtktree.lisp,v
retrieving revision 1.27
diff -c -r1.27 gtktree.lisp
*** gtktree.lisp	10 May 2007 20:20:05 -0000	1.27
--- gtktree.lisp	12 Jul 2007 11:40:26 -0000
***************
*** 181,188 ****
    (when data (setf (tree-model-row-data store iter) data))
    iter)
  
! (defbinding %list-store-insert-after 
!     (list-store &optional sibling (tree-iter (make-instance 'tree-iter))) nil
    (list-store list-store)
    (tree-iter tree-iter)
    (sibling (or null tree-iter)))
--- 181,187 ----
    (when data (setf (tree-model-row-data store iter) data))
    iter)
  
! (defbinding %list-store-insert-after () nil
    (list-store list-store)
    (tree-iter tree-iter)
    (sibling (or null tree-iter)))
***************
*** 1083,1100 ****
      (start-path tree-path :out)
      (end-path tree-path :out))
  
! ;;   (defbinding icon-view-enable-model-drag-source () nil
! ;;     (icon-view icon-view)
! ;;     (start-button-mask gdk:modifier-type)
! ;;     (targets (vector target-entry))
! ;;     ((length targets) unsigned-int)
! ;;     (actions gdk:drag-action))
! 
! ;;   (defbinding icon-view-enable-model-drag-dest () nil
! ;;     (icon-view icon-view)
! ;;     (targets (vector target-entry))
! ;;     ((length targets) unsigned-int)
! ;;     (actions gdk:drag-action))
  
    (defbinding icon-view-unset-model-drag-source () nil
      (icon-view icon-view))
--- 1082,1099 ----
      (start-path tree-path :out)
      (end-path tree-path :out))
  
!   (defbinding icon-view-enable-model-drag-source () nil
!     (icon-view icon-view)
!     (start-button-mask gdk:modifier-type)
!     (targets (vector (inlined target-entry)))
!     ((length targets) unsigned-int)
!     (actions gdk:drag-action))
! 
!   (defbinding icon-view-enable-model-drag-dest () nil
!     (icon-view icon-view)
!     (targets (vector (inlined target-entry)))
!     ((length targets) unsigned-int)
!     (actions gdk:drag-action))
  
    (defbinding icon-view-unset-model-drag-source () nil
      (icon-view icon-view))



-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/