[gtk-cffi-cvs] CVS gtk-cffi/examples

[CVS User rklochkov]

Update of /project/gtk-cffi/cvsroot/gtk-cffi/examples
In directory tiger.common-lisp.net:/tmp/cvs-serv799/examples

Modified Files:
	ex7.lisp 
Log Message:
Changed GtkTreePath representation in lisp. 
It was a pointer, now it is an array to prevent memory leak.


--- /project/gtk-cffi/cvsroot/gtk-cffi/examples/ex7.lisp	2012/05/08 09:38:07	1.5
+++ /project/gtk-cffi/cvsroot/gtk-cffi/examples/ex7.lisp	2012/07/21 19:26:38	1.6
@@ -77,14 +77,13 @@
          (lambda (view event)
            (when (and (eq (gdk-cffi:get-slot event :type) :button-press)
                       (= (the integer (gdk-cffi:get-slot event :button)) 1))
-             (with-path-at-pos view
-                               (round (gdk-cffi:get-slot event :x))
-                               (round (gdk-cffi:get-slot event :y))
-                               (on-click view %path))))
+             (on-click view
+                       (path-at-pos view
+                                    (round (gdk-cffi:get-slot event :x))
+                                    (round (gdk-cffi:get-slot event :y))))))
          (gsignal view :cursor-changed)
          (lambda (view)
-           (with-get-cursor-path view
-                                 (set-bold view (second %path)))))
+           (set-bold view (second (get-cursor view)))))
         
         (setf (property view :enable-grid-lines) :both
               (property view :rules-hint) t)