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

ui.gadgets.buttons: simplify.

db4
John Benediktsson 2015-07-14 15:43:58 -07:00
parent 1431c33f1f
commit ed98332263
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -25,17 +25,17 @@ TUPLE: button < border pressed? selected? quot tooltip ;
: mouse-clicked? ( gadget -- ? ) : mouse-clicked? ( gadget -- ? )
hand-clicked get-global child? ; hand-clicked get-global child? ;
: button-pressed? ( button -- ? )
{ [ mouse-clicked? ] [ button-rollover? ] } 1&&
buttons-down? and ;
PRIVATE> PRIVATE>
: button-update ( button -- ) : button-update ( button -- )
dup dup button-pressed? >>pressed? relayout-1 ;
{ [ mouse-clicked? ] [ button-rollover? ] } 1&&
buttons-down? and
>>pressed?
relayout-1 ;
: button-enter ( button -- ) : button-enter ( button -- )
dup dup tooltip>> [ swap show-status ] [ drop ] if* button-update ; dup tooltip>> [ over show-status ] when* button-update ;
: button-leave ( button -- ) : button-leave ( button -- )
[ hide-status ] [ button-update ] bi ; [ hide-status ] [ button-update ] bi ;