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