set-cursor ( win cursor -- )

Vocabulary

ui.backend.gtk2

Inputs

win	an object
cursor	an object

Outputs

None

Definition

USING: destructors gdk2.ffi gtk2.ffi kernel ;

IN: ui.backend.gtk2

: set-cursor ( win cursor -- )
    [
        [ gtk_widget_get_window ] dip
        gdk_cursor_new &gdk_cursor_unref gdk_window_set_cursor
    ] with-destructors ;