[Eclipse-cvs] CVS eclipse/themes/CoolClean

[ihatchondo]

Update of /project/eclipse/cvsroot/eclipse/themes/CoolClean
In directory cl-net:/tmp/cvs-serv12329/themes/CoolClean

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/CoolClean/theme.lisp	2005/05/18 20:42:15	1.6
+++ /project/eclipse/cvsroot/eclipse/themes/CoolClean/theme.lisp	2009/11/17 21:17:29	1.7
@@ -48,8 +48,8 @@
       (:right ("right"))
       (:left ("left"))))))
 
-(defmethod repaint ((widget title-bar) (name (eql +CoolClean+)) (focus t))
-  (declare (ignorable name focus))
+(defmethod repaint ((widget title-bar) (theme CoolClean) (focus t))
+  (declare (ignorable theme focus))
   (with-slots ((window eclipse::window)
 	       (item-to-draw eclipse::item-to-draw)
 	       (gcontext eclipse::gcontext)
@@ -61,8 +61,8 @@
 	    (xlib:draw-rectangle window gcontext 0 0 width height t)))))
     (draw-centered-text window gcontext item-to-draw :color *white* :x 5)))
 
-(defmethod repaint ((widget title-bar) (name (eql +CoolClean+)) (focus null))
-  (declare (ignorable name focus))
+(defmethod repaint ((widget title-bar) (theme CoolClean) (focus null))
+  (declare (ignorable theme focus))
   (with-slots ((window eclipse::window)
 	       (item-to-draw eclipse::item-to-draw)
 	       (gcontext eclipse::gcontext)) widget