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