[cells-gtk-cvs] CVS update: root/gtk-ffi/gtk-utilities.lisp

[Peter Denno]

Update of /project/cells-gtk/cvsroot/root/gtk-ffi
In directory common-lisp.net:/tmp/cvs-serv8536/gtk-ffi

Modified Files:
	gtk-utilities.lisp 
Log Message:
Use of event button-release-event for popups, because I have failed to get tree-views to send button-press-event. 
Date: Sat Feb 26 23:44:49 2005
Author: pdenno

Index: root/gtk-ffi/gtk-utilities.lisp
diff -u root/gtk-ffi/gtk-utilities.lisp:1.12 root/gtk-ffi/gtk-utilities.lisp:1.13
--- root/gtk-ffi/gtk-utilities.lisp:1.12	Wed Feb 16 23:31:53 2005
+++ root/gtk-ffi/gtk-utilities.lisp	Sat Feb 26 23:44:48 2005
@@ -85,18 +85,20 @@
   ((widget :pointer-void) (signal (* gdk-event-button)) (data :pointer-void))
   (declare (ignorable data))
   (let ((event (gdk-event-button-type signal)))
-    (when (eql (event-type event) :button_press)
+    (when (or (eql (event-type event) :button_press) 
+              (eql (event-type event) :button_release))
       (when (= (gdk-event-button-button signal) 3)
         (gtk-menu-popup widget nil nil nil nil 3 
           (gdk-event-button-time signal)))))
-  1)
+  0)
 
 (defun gtk-widget-set-popup (widget menu)
   (gtk-signal-connect-swap widget "button-press-event"
-    (let ((cbl (ffx:ff-register-callable 'button-press-event-handler)))
-      #+shhtk (print (list "gtk-widget-set-popup connecting callable" widget cbl))
-      cbl)
-    :data menu))
+                           (ffx:ff-register-callable 'button-press-event-handler)
+                           :data menu)
+  (gtk-signal-connect-swap widget "button-release-event"
+                           (ffx:ff-register-callable 'button-press-event-handler)
+                           :data menu))
 
 (defun gtk-list-store-new (col-types)
   (let ((c-types (ffx:fgn-alloc :int (length col-types))))
@@ -196,8 +198,8 @@
     (t (cast item (as-gtk-type-name cell-type))))
   #+lispworks 
    (case cell-type
-     (:string (fli:convert-from-foreign-string (fli:dereference item)))
-     (t (fli:dereference item)))
+     (:string (fli:convert-from-foreign-string (deref-pointer item)))
+     (t (deref-pointer item)))
    #+cmu
    (case cell-type
      (:string (alien:cast (alien:deref item) c-call:c-string))