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

Modified Files: test-textview.lisp Log Message: New stuff to demonstrate GTK Treeview populate-popup. Date: Sat Feb 26 23:20:20 2005 Author: pdenno

Index: root/cells-gtk/test-gtk/test-textview.lisp diff -u root/cells-gtk/test-gtk/test-textview.lisp:1.1 root/cells-gtk/test-gtk/test-textview.lisp:1.2 --- root/cells-gtk/test-gtk/test-textview.lisp:1.1 Fri Nov 19 00:40:14 2004 +++ root/cells-gtk/test-gtk/test-textview.lisp Sat Feb 26 23:20:19 2005 @@ -9,4 +9,15 @@ (mk-scrolled-window :kids (list (mk-text-view - :buffer (c? (buffer (upper self test-textview))))))))) + :buffer (c? (buffer (upper self test-textview))) + #+libcellsgtk :populate-popup + #+libcellsgtk + (c? + (def-populate-adds + (:menu-item :label "My menu item" + :owner self + :on-activate + (callback (w e d) + (show-message (format nil "My menu item says = ~A" + (owner self))))))))))))) +