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

Highlight rollover buttons when clicked

db4
Slava Pestov 2008-11-21 18:55:24 -06:00
parent 4d7c6fe48b
commit 985aca75ba
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -71,6 +71,7 @@ M: button-paint draw-boundary
: 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
f f pressed-gradient f <button-paint> >>interior
align-left ; inline align-left ; inline
: <roll-button> ( label quot -- button ) : <roll-button> ( label quot -- button )