[mcclim-cvs] CVS mcclim/Backends/gtkairo

[dlichteblau]

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