[mcclim-cvs] CVS mcclim/Backends/gtkairo

[dlichteblau]

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

Modified Files:
	gadgets.lisp 
Log Message:
Oops, gtkairo broke non-native label panes when loaded:

	* gadgets.lisp ((ALLOCATE-SPACE LABEL-PANE)): Specialize on
        GTK-LABEL-PANE only.


--- /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gadgets.lisp	2006/12/03 08:09:06	1.15
+++ /project/mcclim/cvsroot/mcclim/Backends/gtkairo/gadgets.lisp	2006/12/20 12:01:36	1.16
@@ -544,7 +544,7 @@
 	(gtk_widget_destroy widget)
 	(setf (native-widget gadget) nil)))))
 
-(defmethod allocate-space ((pane label-pane) width height)
+(defmethod allocate-space ((pane gtk-label-pane) width height)
   (when (sheet-children pane)
     (move-sheet (first (sheet-children pane)) 0 0)
     (allocate-space (first (sheet-children pane))