[Eclipse-cvs] CVS eclipse/themes/microGUI

[ihatchondo]

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