UI listener fix
parent
c0f4e37427
commit
e2f3888389
|
@ -3,13 +3,14 @@
|
|||
USING: arrays ui.gadgets
|
||||
ui.gadgets.viewports ui.gadgets.frames ui.gadgets.grids
|
||||
ui.gadgets.theme ui.gadgets.sliders ui.gestures kernel math
|
||||
namespaces sequences models combinators math.vectors ;
|
||||
namespaces sequences models combinators math.vectors
|
||||
tuples ;
|
||||
IN: ui.gadgets.scrollers
|
||||
|
||||
TUPLE: scroller viewport x y follows ;
|
||||
|
||||
: find-scroller ( gadget -- scroller/f )
|
||||
[ scroller? ] find-parent ;
|
||||
[ [ scroller? ] is? ] find-parent ;
|
||||
|
||||
: scroll-up-page scroller-y -1 swap slide-by-page ;
|
||||
|
||||
|
|
|
@ -6,7 +6,8 @@ kernel models namespaces parser quotations sequences ui.commands
|
|||
ui.gadgets ui.gadgets.editors ui.gadgets.labelled
|
||||
ui.gadgets.panes ui.gadgets.buttons ui.gadgets.scrollers
|
||||
ui.gadgets.tracks ui.gestures ui.operations vocabs words
|
||||
prettyprint listener debugger threads boxes concurrency.flags ;
|
||||
prettyprint listener debugger threads boxes concurrency.flags
|
||||
math arrays ;
|
||||
IN: ui.tools.listener
|
||||
|
||||
TUPLE: listener-gadget input output stack ;
|
||||
|
@ -23,9 +24,19 @@ TUPLE: listener-gadget input output stack ;
|
|||
: <listener-input> ( listener -- gadget )
|
||||
listener-gadget-output <pane-stream> <interactor> ;
|
||||
|
||||
TUPLE: input-scroller ;
|
||||
|
||||
: <input-scroller> ( interactor -- scroller )
|
||||
<scroller>
|
||||
input-scroller construct-empty
|
||||
[ set-gadget-delegate ] keep ;
|
||||
|
||||
M: input-scroller pref-dim*
|
||||
drop { 0 100 } ;
|
||||
|
||||
: listener-input, ( -- )
|
||||
g <listener-input> g-> set-listener-gadget-input
|
||||
<scroller> "Input" <labelled-gadget> f track, ;
|
||||
<input-scroller> "Input" <labelled-gadget> f track, ;
|
||||
|
||||
: welcome. ( -- )
|
||||
"If this is your first time with Factor, please read the " print
|
||||
|
|
Loading…
Reference in New Issue