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