Factor Documentation | Home | Glossary |
factorcode.org
handle-gesture ( gesture gadget -- ? )
Factor handbook > UI framework > Implementing new gadgets > UI gestures
Prev:set-gestures ( class hash -- )
Next:gesture>string ( gesture -- string/f )


Vocabulary
ui.gestures

Inputs and outputs
gesturea gesture
gadgetthe receiver of the gesture
?a boolean


Generic word contract
Handles a gesture sent to a gadget.

Outputs f if the gesture was handled, and t if the gesture should be passed on to the gadget's parent.

The default implementation looks at the "gestures" word property of each superclass of the gadget's class.

Notes
Methods should be defined on this word if you desire to handle an arbitrary set of gestures. To define handlers for a fixed set, it is easier to use set-gestures. If you define a method on handle-gesture, you should also override handles-gesture?.

See also
propagate-gesture, handles-gesture?, set-gestures

Definition
IN: ui.gestures

GENERIC: handle-gesture ( gesture gadget -- ? )


Methods
USING: accessors combinators combinators.short-circuit generic
kernel ui.gadgets.glass ui.gestures ui.tools.browser ;

M: browser-gadget handle-gesture
{
{
[ over key-gesture? not ]
[
M\ browser-gadget handle-gesture
(call-next-method)
]
}
{
[ dup popup>> ]
[
{
[ pass-to-popup ]
[
M\ browser-gadget handle-gesture
(call-next-method)
]
} 2&&
]
}
[ M\ browser-gadget handle-gesture (call-next-method) ]
} cond ;


USING: generic kernel ui.commands ui.gadgets.glass ui.gestures
ui.tools.listener.completion ;

M: completion-popup handle-gesture
2dup completion-gesture
[ [ nip hide-glass ] [ invoke-command ] 2bi* f ] [
drop
M\ completion-popup handle-gesture (call-next-method)
] if* ;


USING: accessors gesture-logger io kernel prettyprint ui.gadgets
ui.gestures ;

M: gesture-logger handle-gesture
over T{ button-down } = [ dup request-focus ] when stream>>
[ . ] with-output-stream* t ;


USING: accessors circular combinators.short-circuit generic
kernel minesweeper sequences ui.gestures ;

M: grid-gadget handle-gesture
over
{ [ key-down? ] [ sym>> length 1 = ] [ sym>> " " = not ] }
1&&
[ 2dup [ sym>> first ] [ hint?>> ] bi* circular-push ] when
M\ grid-gadget handle-gesture (call-next-method) ;


USING: accessors combinators combinators.short-circuit generic
kernel ui.gadgets.glass ui.gestures ui.tools.listener ;

M: interactor handle-gesture
{
{
[ over key-gesture? not ]
[ M\ interactor handle-gesture (call-next-method) ]
}
{
[ dup popup>> ]
[
{
[ pass-to-popup ]
[
M\ interactor handle-gesture
(call-next-method)
]
} 2&&
]
}
{
[ dup token-model>> value>> ]
[
{
[ interactor-operation ]
[
M\ interactor handle-gesture
(call-next-method)
]
} 2&&
]
}
[ M\ interactor handle-gesture (call-next-method) ]
} cond ;


USING: game.input.demos.key-caps kernel ui.gestures ;

M: key-caps-gadget handle-gesture
drop [ key-down? ] [ key-up? ] bi or not ;


USING: accessors assocs combinators kernel key-handlers
ui.gestures ;

M: key-handler handle-gesture
[ handlers>> at ] keep swap
[ ( gadget -- ) call-effect f ] [ drop t ] if* ;


USING: combinators generic kernel ui.gadgets.menus
ui.gadgets.menus.private ui.gestures ;

M: menu-button handle-gesture
[
{
{ [ over mouse-enter? ] [ nip activate-item ] }
{ [ over mouse-leave? ] [ nip inactivate-item ] }
[ 2drop ]
} cond
] 2keep M\ menu-button handle-gesture (call-next-method) ;


USING: combinators kernel ui.gestures ;

M: object handle-gesture
[ nip ] [ get-gesture-handler ] 2bi dup
[ ( gadget -- ) call-effect f ] [ 2drop t ] if ;


USING: combinators.short-circuit generic kernel
ui.gadgets.search-tables ui.gestures ;

M: search-field handle-gesture
over key-gesture? [
{
[ pass-to-table ]
[
M\ search-field handle-gesture
(call-next-method)
]
} 2&&
] [ M\ search-field handle-gesture (call-next-method) ] if ;


USING: accessors combinators combinators.short-circuit kernel
snake-game.ui ui ui.gestures ;

M: snake-gadget handle-gesture
swap dup key-down? [
sym>> {
{ [ dup quit-key? ] [ drop close-window ] }
{ [ dup pause-key? ] [ drop toggle-game-pause ] }
{ [ dup new-game-key? ] [ drop start-new-game ] }
[
key-dir [
swap snake-game>> dup
{ ~quotation~ ~quotation~ } 1&&
[ next-turn-dir<< ] [ 2drop ] if
] [ drop ] if*
]
} cond
] [ 2drop ] if f ;


USING: combinators generic kernel ui.gadgets.worlds ui.gestures
;

M: world handle-gesture
2dup M\ world handle-gesture (call-next-method) [
{
{
[ over specific-button-up? ]
[ drop generalize-gesture f ]
}
{
[ over specific-button-down? ]
[ drop generalize-gesture f ]
}
{
[ over specific-drag? ]
[ drop generalize-gesture f ]
}
[ 2drop t ]
} cond
] [ 2drop f ] if ;