steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix recent visual regression

db4
Slava Pestov 2008-09-01 02:52:25 -05:00
parent 9a5f3cd606
commit 41fa05a639
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
basis/ui/gadgets/buttons/buttons.factor
View File

@ -67,9 +67,12 @@ M: button-paint draw-interior
M: button-paint draw-boundary M: button-paint draw-boundary
button-paint draw-boundary ; button-paint draw-boundary ;
: align-left ( button -- button )
{ 0 1/2 } >>align ; inline
: roll-button-theme ( button -- button ) : roll-button-theme ( button -- button )
f black <solid> dup f <button-paint> >>boundary f black <solid> dup f <button-paint> >>boundary
{ 0 1/2 } >>align ; inline align-left ; inline
: <roll-button> ( label quot -- button ) : <roll-button> ( label quot -- button )
<button> roll-button-theme ; <button> roll-button-theme ;
@ -141,7 +144,8 @@ TUPLE: checkbox < button ;
<checkmark> label-on-right checkbox-theme <checkmark> label-on-right checkbox-theme
[ model>> toggle-model ] [ model>> toggle-model ]
checkbox new-button checkbox new-button
swap >>model ; swap >>model
align-left ;
M: checkbox model-changed M: checkbox model-changed
swap model-value over (>>selected?) relayout-1 ; swap model-value over (>>selected?) relayout-1 ;
@ -179,7 +183,8 @@ TUPLE: radio-control < button value ;
[ [ value>> ] keep set-control-value ] [ [ value>> ] keep set-control-value ]
radio-control new-button radio-control new-button
swap >>model swap >>model
swap >>value ; inline swap >>value
align-left ; inline
M: radio-control model-changed M: radio-control model-changed
swap model-value swap model-value