     <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 ;

    [ [ value>> ] keep set-control-value ]
    radio-control new-button
        swap >>model
        swap >>value ; inline

M: radio-control model-changed
    swap model-value

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
    align-left ; inline

: <roll-button> ( label quot -- button )
    <button> roll-button-theme ;
