hello-world-main ( -- )

Vocabulary

gtk2-samples.hello-world

Inputs

None

Outputs

None

Definition

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

IN: gtk2-samples.hello-world

:: hello-world-main ( -- )
    f f gtk_init
    hello-world-win :> window window "destroy" utf8 string>alien
    [ 2drop gtk_main_quit ] GtkObject:destroy f g_signal_connect
    drop window gtk_widget_show_all gtk_main ;