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