Update of /project/cells-gtk/cvsroot/root/gtk-ffi In directory common-lisp.net:/tmp/cvs-serv8415/gtk-ffi
Modified Files: gtk-list-tree.lisp Log Message: Declaration of foreign functions for tree store path manipulation. Date: Sat Feb 26 23:38:50 2005 Author: pdenno
Index: root/gtk-ffi/gtk-list-tree.lisp diff -u root/gtk-ffi/gtk-list-tree.lisp:1.1 root/gtk-ffi/gtk-list-tree.lisp:1.2 --- root/gtk-ffi/gtk-list-tree.lisp:1.1 Mon Dec 6 21:03:00 2004 +++ root/gtk-ffi/gtk-list-tree.lisp Sat Feb 26 23:38:50 2005 @@ -61,6 +61,24 @@ int) (gtk-tree-view-get-selection ((tree-view c-pointer)) c-pointer) + (gtk-tree-view-get-path-at-pos ((tree-view c-pointer) + (x int) + (y int) + (path c-pointer) + (column c-pointer) + (cell-x c-pointer) + (cell-y c-pointer)) + boolean) + (gtk-tree-view-widget-to-tree-coords ((tree-view c-pointer) + (wx int) + (wy int) + (tx c-pointer) + (ty c-pointer))) + (gtk-tree-view-tree-to-widget-coords ((tree-view c-pointer) + (wx int) + (wy int) + (tx c-pointer) + (ty c-pointer)))
;;tree-model (gtk-tree-model-get ((tree-model c-pointer) @@ -76,6 +94,8 @@ ;;tree-path (gtk-tree-path-new-from-string ((path c-string)) c-pointer) + (gtk-tree-path-to-string ((path c-pointer)) + c-string) (gtk-tree-path-free ((path c-pointer)))
;;tree-selection @@ -146,4 +166,7 @@ (gtk-cell-renderer-toggle-new () c-pointer) (gtk-cell-renderer-pixbuf-new () - c-pointer)) \ No newline at end of file + c-pointer) + (gtk-cell-renderer-set-fixed-size ((cell c-pointer) + (width int) + (height int))))