connect-user-input-signals ( win -- )

Vocabulary

ui.backend.gtk2

Inputs

win

an object

Outputs

None

Definition

USING: gtk2.ffi threads ;

IN: ui.backend.gtk2

:: connect-user-input-signals ( win -- )
    win "motion-notify-event"
    [ on-motion yield ] GtkWidget:motion-notify-event
    connect-signal win "leave-notify-event"
    [ on-leave yield ] GtkWidget:leave-notify-event
    connect-signal win "button-press-event"
    [ on-button-press yield ] GtkWidget:button-press-event
    connect-signal win "button-release-event"
    [ on-button-release yield ] GtkWidget:button-release-event
    connect-signal win "scroll-event"
    [ on-scroll yield ] GtkWidget:scroll-event connect-signal
    win "key-press-event"
    [ on-key-press/release yield ] GtkWidget:key-press-event
    connect-signal win "key-release-event"
    [ on-key-press/release yield ] GtkWidget:key-release-event
    connect-signal win "focus-in-event"
    [ on-focus-in yield ] GtkWidget:focus-in-event
    connect-signal win "focus-out-event"
    [ on-focus-out yield ] GtkWidget:focus-out-event
    connect-signal ;