auto-position ( win loc -- )

Vocabulary

ui.backend.gtk2

Inputs

win	an object
loc	an object

Outputs

None

Definition

USING: gtk2.ffi kernel sequences ui ui.private ;

IN: ui.backend.gtk2

: auto-position ( win loc -- )
    dup { 0 0 } = [
        drop dup window topmost-window =
        GTK_WIN_POS_CENTER GTK_WIN_POS_NONE ?
        gtk_window_set_position
    ] [ first2 gtk_window_move ] if ;