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