run-gesture-logger ( -- )

Vocabulary

gesture-logger

Inputs

None

Outputs

None

Definition

USING: accessors kernel ui ui.gadgets.panes ui.gadgets.scrollers
;

IN: gesture-logger

: run-gesture-logger ( -- )
    [
        <pane> t >>scrolls? dup <scroller>
        { 450 500 } >>pref-dim "Gesture log" open-window
        <pane-stream> <gesture-logger> "Gesture input"
        open-window
    ] with-ui ;