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

    { T{ button-up } [ button-update ] }
} set-gestures

: <repeat-button> ( label quot -- button )
    #! Button that calls the quotation every 100ms as long as
    #! the mouse is held down.
    repeat-button new-button border-button-theme ;

: new-button ( label quot class -- button )
    [ swap >label ] dip new-border swap >>quot ; inline

: <button> ( label quot: ( button -- ) -- button )
    button new-button ;

TUPLE: button-pen
