[Eclipse-cvs] CVS eclipse/themes/Step

[ihatchondo]

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