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

[Peter Denno]

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