configure-window-controls ( win controls -- )

Vocabulary

ui.backend.gtk2

Inputs

win	an object
controls	an object

Outputs

None

Definition

USING: gdk2.ffi gtk2.ffi kernel math math.bitwise ;

IN: ui.backend.gtk2

: configure-window-controls ( win controls -- )
    [ set-window-hint ] [
        [ gtk_widget_get_window ] dip
        window-controls>decor-flags symbols>flags
        GDK_DECOR_BORDER bitor gdk_window_set_decorations
    ] [
        [ gtk_widget_get_window ] dip
        window-controls>func-flags symbols>flags
        GDK_FUNC_MOVE bitor gdk_window_set_functions
    ] 2tri ;