opengl-win ( -- window )

Vocabulary

gtk2-samples.opengl

Inputs

None

Outputs

window

an object

Definition

USING: alien.strings gdk2.gl.ffi gobject.ffi gtk2.ffi
gtk2.gl.ffi io.encodings.utf8 kernel ;

IN: gtk2-samples.opengl

:: opengl-win ( -- window )
    GTK_WINDOW_TOPLEVEL gtk_window_new :> window window
    [ "OpenGL" utf8 string>alien gtk_window_set_title ]
    [ 200 200 gtk_window_set_default_size ]
    [ GTK_WIN_POS_CENTER gtk_window_set_position ] tri
    GDK_GL_MODE_RGBA gdk_gl_config_new_by_mode :> gl-config
    window gl-config f t GDK_GL_RGBA_TYPE
    gtk_widget_set_gl_capability drop
    window "configure-event" utf8 string>alien
    [ on-configure ] GtkWidget:configure-event f
    g_signal_connect drop
    window "expose-event" utf8 string>alien
    [ on-expose ] GtkWidget:expose-event f g_signal_connect drop
    window ;