Update of /project/eclipse/cvsroot/eclipse/themes/Step In directory cl-net:/tmp/cvs-serv12329/themes/Step 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/Step/theme.lisp 2005/05/18 20:42:16 1.6 +++ /project/eclipse/cvsroot/eclipse/themes/Step/theme.lisp 2009/11/17 21:17:29 1.7 @@ -41,8 +41,8 @@ (:right ("side")) (:left ("side")))))) -(defmethod repaint ((widget title-bar) (name (eql +Step+)) (focus t)) - (declare (ignorable name focus)) +(defmethod repaint ((widget title-bar) (theme Step) (focus t)) + (declare (ignorable theme focus)) (with-slots ((window eclipse::window) (item-to-draw eclipse::item-to-draw) (gcontext eclipse::gcontext) @@ -54,8 +54,8 @@ (xlib:draw-rectangle window gcontext 0 0 width height t))))) (draw-centered-text window gcontext item-to-draw :color *white*))) -(defmethod repaint ((widget title-bar) (name (eql +Step+)) (focus null)) - (declare (ignorable name focus)) +(defmethod repaint ((widget title-bar) (theme Step) (focus null)) + (declare (ignorable theme focus)) (with-slots ((window eclipse::window) (item-to-draw eclipse::item-to-draw) (gcontext eclipse::gcontext)) widget