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

repeat buttons: start firing on mouse down

db4
Slava Pestov 2009-02-12 01:39:18 -06:00
parent 1e26d4256a
commit db0c51a3bf
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -66,6 +66,16 @@ M: button-paint draw-interior
M: button-paint draw-boundary M: button-paint draw-boundary
button-paint dup [ draw-boundary ] [ 2drop ] if ; button-paint dup [ draw-boundary ] [ 2drop ] if ;
M: button-paint pen-pref-dim
[
{
[ plain>> pen-pref-dim ]
[ rollover>> pen-pref-dim ]
[ pressed>> pen-pref-dim ]
[ selected>> pen-pref-dim ]
} 2cleave
] [ vmax ] reduce-outputs ;
: align-left ( button -- button ) : align-left ( button -- button )
{ 0 1/2 } >>align ; inline { 0 1/2 } >>align ; inline
@ -95,7 +105,9 @@ M: button-paint draw-boundary
TUPLE: repeat-button < button ; TUPLE: repeat-button < button ;
repeat-button H{ repeat-button H{
{ T{ button-down } [ button-clicked ] }
{ T{ drag } [ button-clicked ] } { T{ drag } [ button-clicked ] }
{ T{ button-up } [ button-update ] }
} set-gestures } set-gestures
: <repeat-button> ( label quot -- button ) : <repeat-button> ( label quot -- button )