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

[Peter Denno]

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

Modified Files:
	menus.lisp 
Log Message:
owner slot on menu object -- useful for situation like popup menus, where the menu isn't in the kids hierarchy.
Date: Wed Feb 16 23:22:01 2005
Author: pdenno

Index: root/cells-gtk/menus.lisp
diff -u root/cells-gtk/menus.lisp:1.7 root/cells-gtk/menus.lisp:1.8
--- root/cells-gtk/menus.lisp:1.7	Sat Feb 12 15:53:18 2005
+++ root/cells-gtk/menus.lisp	Wed Feb 16 23:22:01 2005
@@ -140,7 +140,7 @@
   () () ())
 
 (def-widget menu (menu-shell)
-  ()
+  ((owner :initarg :owner :accessor owner :initform (c-in nil)))
   (title)
   ())