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

ui: Fix circular dependency.

clean-linux-x86-64
Doug Coleman 2019-07-28 19:59:56 -05:00
parent 338acc8843
commit 97b848a045
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/gadgets/editors/editors.factor
View File

@ -21,10 +21,6 @@ TUPLE: editor < line-gadget
preedit-selection-mode?
preedit-underlines ;
GENERIC: preedit? ( gadget -- ? )
M: gadget preedit? drop f ;
M: editor preedit? preedit-start>> [ t ] [ f ] if ;
<PRIVATE

6
basis/ui/gestures/gestures.factor
View File

@ -3,7 +3,7 @@
USING: accessors arrays ascii assocs boxes calendar classes columns
combinators combinators.short-circuit deques fry kernel make math
math.order math.parser math.vectors namespaces sequences sets system
timers ui.gadgets ui.gadgets.private words locals ui.gadgets.editors ;
timers ui.gadgets ui.gadgets.private words locals ;
IN: ui.gestures
: get-gesture-handler ( gesture gadget -- quot )
@ -63,6 +63,10 @@ M: propagate-key-gesture-tuple send-queued-gesture
[ gesture>> ] [ world>> world-focus ] bi
[ handle-gesture ] with each-parent drop ;
GENERIC: preedit? ( gadget -- ? )
M: gadget preedit? drop f ;
:: propagate-key-gesture ( gesture world -- )
world world-focus preedit? [
gesture world \ propagate-key-gesture-tuple queue-gesture