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

Modified Files: widgets.lisp Log Message: Removed def-c-output method on event-box. I added it two versions ago, but it is the wrong approach to the problem. Date: Wed Feb 16 23:24:08 2005 Author: pdenno

Index: root/cells-gtk/widgets.lisp diff -u root/cells-gtk/widgets.lisp:1.9 root/cells-gtk/widgets.lisp:1.10 --- root/cells-gtk/widgets.lisp:1.9 Mon Feb 14 23:46:19 2005 +++ root/cells-gtk/widgets.lisp Wed Feb 16 23:24:07 2005 @@ -310,7 +310,7 @@ (trc nil "VISIBLE" (md-name self) new-value) (force-output)) (if new-value (gtk-widget-show (id self)) - (gtk-widget-hide (id self)))) + (gtk-widget-hide (id self))))

(def-c-output tooltip ((self widget)) (when new-value @@ -390,10 +390,6 @@ (above-child) () :above-child t) - -(def-c-output popup ((self event-box)) - (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))