on-button-press ( win event user-data -- ? )
Gtk-based UI backend

Prev:	on-key-press/release ( win event user-data -- ? )
Next:	on-button-release ( win event user-data -- ? )

Vocabulary
ui.backend.gtk2

Inputs

win	an object
event	an object
user-data	an object

Outputs

?

an object

Definition

USING: accessors combinators gdk2.ffi kernel ui.backend.x11.keys
ui.gestures ui.private ;

IN: ui.backend.gtk2

:: on-button-press ( win event user-data -- ? )
    win window :> world event type>> GDK_BUTTON_PRESS = [
        event button>> {
            { 8 [ ] }
            { 9 [ ] }
            [
                event event-modifiers swap <button-down>
                event event-loc world send-button-down
            ]
        } case
    ] when t ;