init-ui ( -- )

Vocabulary

ui.private

Inputs

None

Outputs

None

Definition

USING: boxes dlists kernel namespaces ui.gadgets.private
ui.gadgets.worlds ui.gestures vectors ;

IN: ui.private

: init-ui ( -- )
    <box> drag-timer set-global f hand-gadget set-global
    f hand-clicked set-global f hand-world set-global
    f world set-global <dlist> \ graft-queue set-global
    100 <vector> \ layout-queue set-global
    <dlist> \ gesture-queue set-global
    V{ } clone worlds set-global ;