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

ui no longer depends on *.lib

db4
Slava Pestov 2008-04-05 07:57:51 -05:00
parent b886718609
commit f94596af57
2 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
extra/ui/gestures/gestures.factor
View File

@ -2,9 +2,8 @@
! See http://factorcode.org/license.txt for BSD license.
USING: arrays assocs kernel math models namespaces
sequences words strings system hashtables math.parser
math.vectors classes.tuple classes ui.gadgets combinators.lib
boxes
calendar alarms symbols ;
math.vectors classes.tuple classes ui.gadgets boxes
calendar alarms symbols combinators ;
IN: ui.gestures
: set-gestures ( class hash -- ) "gestures" set-word-prop ;
@ -188,11 +187,12 @@ SYMBOL: drag-timer
: multi-click? ( button -- ? )
{
[ multi-click-timeout? ]
[ multi-click-button? ]
[ multi-click-position? ]
[ multi-click-position? ]
} && nip ;
{ [ multi-click-timeout? not ] [ f ] }
{ [ multi-click-button? not ] [ f ] }
{ [ multi-click-position? not ] [ f ] }
{ [ multi-click-position? not ] [ f ] }
{ [ t ] [ t ] }
} cond nip ;
: update-click# ( button -- )
global [

5
extra/ui/tools/interactor/interactor.factor
View File

@ -3,7 +3,7 @@
USING: arrays assocs combinators continuations documents
hashtables io io.styles kernel math
math.vectors models namespaces parser prettyprint quotations
sequences sequences.lib strings threads listener
sequences strings threads listener
classes.tuple ui.commands ui.gadgets ui.gadgets.editors
ui.gadgets.presentations ui.gadgets.worlds ui.gestures
definitions boxes calendar concurrency.flags ui.tools.workspace
@ -105,7 +105,8 @@ M: interactor model-changed
] curry "input" suspend ;
M: interactor stream-readln
[ interactor-yield ] keep interactor-finish ?first ;
[ interactor-yield ] keep interactor-finish
dup [ first ] when ;
: interactor-call ( quot interactor -- )
dup interactor-busy? [