opengl-main ( -- )

Vocabulary

gtk-samples.opengl

Inputs

None

Outputs

None

Definition

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

IN: gtk-samples.opengl

:: opengl-main ( -- )
    f f gtk_init f f gtk_gl_init
    opengl-win :> window window "destroy" utf8 string>alien
    [ 2drop gtk_main_quit ] GtkObject:destroy f f 0
    g_signal_connect_data drop window gtk_widget_show_all
    gtk_main ;