[cells-gtk-cvs] CVS root/cells-gtk/test-gtk

[pdenno]

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

Modified Files:
	test-buttons.lisp 
Log Message:
Test continueable errors

--- /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk/test-buttons.lisp	2004/12/06 20:04:17	1.3
+++ /project/cells-gtk/cvsroot/root/cells-gtk/test-gtk/test-buttons.lisp	2006/02/16 18:19:41	1.4
@@ -24,6 +24,9 @@
 				:tooltip "Click ....."
 				:on-clicked (callback (widget event data)
 						      (incf (nclics (upper self test-buttons)))))
+		     (mk-button :label "Continuable error"
+				:on-clicked (callback (widget event data)
+						      (error 'gtk-continuable-error :text "Oops!")))
 		     (mk-toggle-button :md-name :toggled-button
 				       :markup (c? (with-markup (:foreground (if (md-value self) :red :blue))
 						     "_Toggled Button")))