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))