Highlight rollover buttons when clicked

2008-11-21 18:55:24 -06:00 · 2008-11-21 18:55:24 -06:00 · 985aca75ba
parent 4d7c6fe48b
commit 985aca75ba
1 changed files with 1 additions and 0 deletions
--- a/basis/ui/gadgets/buttons/buttons.factor
+++ b/basis/ui/gadgets/buttons/buttons.factor
@ -71,6 +71,7 @@ M: button-paint draw-boundary

 : roll-button-theme ( button -- button )
    f black <solid> dup f <button-paint> >>boundary
+    f f pressed-gradient f <button-paint> >>interior
    align-left ; inline

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