Update of /project/mcclim/cvsroot/mcclim/Backends/gtkairo In directory clnet:/tmp/cvs-serv20228

Modified Files: gadgets.lisp Log Message: Fix gsharp startup crash reported by "C Y":

* gadgets.lisp (realize-native-widget :around): Don't call gadget-active-p unless it's actually a gadget.

--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gadgets.lisp 2006/11/26 17:54:08 1.14 +++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gadgets.lisp 2006/12/03 08:09:06 1.15 @@ -587,7 +587,8 @@

(defmethod realize-native-widget :around ((gadget native-widget-mixin)) (let ((widget (call-next-method))) - (gtk_widget_set_sensitive widget (if (gadget-active-p gadget) 1 0)) + (when (typep gadget 'gadget) + (gtk_widget_set_sensitive widget (if (gadget-active-p gadget) 1 0))) widget))

(defmethod activate-gadget :after ((gadget native-widget-mixin))