Update of /project/eclipse/cvsroot/eclipse/themes/microGUI In directory cl-net:/tmp/cvs-serv12329/themes/microGUI Modified Files: theme.lisp Log Message: Fix: theme rework to remove eql specializer on theme name in favor of theme object. --- /project/eclipse/cvsroot/eclipse/themes/microGUI/theme.lisp 2005/05/18 20:42:17 1.6 +++ /project/eclipse/cvsroot/eclipse/themes/microGUI/theme.lisp 2009/11/17 21:17:30 1.7 @@ -73,16 +73,16 @@ (xlib:draw-rectangle window gcontext w 0 pix-w h t)) (draw-centered-text window gcontext item-to-draw :color *white* :x 5)))) -(defmethod repaint ((widget title-bar) (name (eql +microGUI+)) (focus t)) - (declare (ignorable name focus)) +(defmethod repaint ((widget title-bar) (theme microGUI) (focus t)) + (declare (ignorable theme focus)) (with-slots ((frame-style eclipse::frame-style)) (button-master widget) (when (default-style-p frame-style) (redraw-title-bar widget (get-pixmap frame-style :top-blue) (get-pixmap frame-style :top-curves))))) -(defmethod repaint ((widget title-bar) (name (eql +microGUI+)) (focus null)) - (declare (ignorable name focus)) +(defmethod repaint ((widget title-bar) (theme microGUI) (focus null)) + (declare (ignorable theme focus)) (with-slots ((frame-style eclipse::frame-style)) (button-master widget) (when (default-style-p frame-style) (redraw-title-bar widget