Update of /project/eclipse/cvsroot/eclipse/themes/brushed-metal In directory cl-net:/tmp/cvs-serv12329/themes/brushed-metal
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/brushed-metal/theme.lisp 2005/05/18 20:42:16 1.6 +++ /project/eclipse/cvsroot/eclipse/themes/brushed-metal/theme.lisp 2009/11/17 21:17:29 1.7 @@ -91,16 +91,16 @@ (multiple-value-bind (width height) (drawable-sizes window) (xlib:draw-rectangle window gcontext 0 0 width height t)))))
-(defmethod repaint ((widget title-bar) (name (eql +brushed-metal+)) (focus t)) - (declare (ignorable name focus)) +(defmethod repaint ((widget title-bar) (theme brushed-metal) (focus t)) + (declare (ignorable theme focus)) (with-slots (frame-style) (button-master widget) (typecase frame-style (default-style (default-draw-on-focus-in widget frame-style)) (transient-style (transient-draw-on-focus-in widget frame-style)))))
-(defmethod repaint ((wget title-bar) (name (eql +brushed-metal+)) (focus null)) - (declare (ignorable name focus)) - (with-slots (frame-style) (button-master wget) +(defmethod repaint ((widget title-bar) (theme brushed-metal) (focus null)) + (declare (ignorable theme focus)) + (with-slots (frame-style) (button-master widget) (typecase frame-style - (default-style (default-draw-on-focus-out wget frame-style)) - (transient-style (xlib:clear-area (widget-window wget)))))) + (default-style (default-draw-on-focus-out widget frame-style)) + (transient-style (xlib:clear-area (widget-window widget))))))