set-window-hint ( win controls -- )

Vocabulary

ui.backend.gtk2

Inputs

win	an object
controls	an object

Outputs

None

Definition

USING: combinators gdk2.ffi gtk2.ffi kernel sequences
ui.gadgets.worlds ;

IN: ui.backend.gtk2

: set-window-hint ( win controls -- )
    {
        {
            [ dialog-window over member-eq? ]
            [ drop GDK_WINDOW_TYPE_HINT_DIALOG ]
        }
        {
            [ small-title-bar over member-eq? ]
            [ drop GDK_WINDOW_TYPE_HINT_UTILITY ]
        }
        [ drop GDK_WINDOW_TYPE_HINT_NORMAL ]
    } cond gtk_window_set_type_hint ;