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

View File

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