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

[Peter Denno]

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

Modified Files:
	widgets.lisp 
Log Message:
def-c-output on event-box, slot popup should have been wrapped in a (when new-value ...)
Date: Mon Feb 14 23:46:20 2005
Author: pdenno

Index: root/cells-gtk/widgets.lisp
diff -u root/cells-gtk/widgets.lisp:1.8 root/cells-gtk/widgets.lisp:1.9
--- root/cells-gtk/widgets.lisp:1.8	Sat Feb 12 16:02:56 2005
+++ root/cells-gtk/widgets.lisp	Mon Feb 14 23:46:19 2005
@@ -392,7 +392,8 @@
   :above-child t)
 
 (def-c-output popup ((self event-box))
-  (setf (fm-parent new-value) self))
+  (when new-value
+    (setf (fm-parent new-value) self)))
 
 (def-c-output visible-window ((self event-box))
   (gtk-event-box-set-visible-window (id self) new-value))