[mcclim-cvs] CVS mcclim/Looks

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Looks
In directory clnet:/tmp/cvs-serv15597

Modified Files:
	pixie.lisp 
Log Message:
Toggle buttons should have a few pixels spacing between the indicator
and the label.



--- /project/mcclim/cvsroot/mcclim/Looks/pixie.lisp	2008/05/06 20:49:02	1.23
+++ /project/mcclim/cvsroot/mcclim/Looks/pixie.lisp	2008/08/20 01:44:12	1.24
@@ -977,7 +977,7 @@
                         (+ (/ (+ y1 y2) 2) (/ (+ as ds) 2)))
               (draw-toggle-button-indicator pane (toggle-button-indicator-type pane) (gadget-value pane)
                                             tx1 ty1 tx2 ty2)
-              (draw-label* pane (+ tx2 (pane-x-spacing pane)) y1 x2 y2
+              (draw-label* pane (+ tx2 3 (pane-x-spacing pane)) y1 x2 y2
                            :ink (pane-inking-color pane)))))))))
 
 ; Push Button