11 lines
212 B
Text
11 lines
212 B
Text
|
include GtkEngine.e
|
||
|
|
|
||
|
|
constant win = create(GtkWindow)
|
||
|
|
connect(win,"destroy",quit)
|
||
|
|
set(win,"title","Simple Window")
|
||
|
|
set(win,"default size",300,100)
|
||
|
|
set(win,"position",GTK_WIN_POS_CENTER)
|
||
|
|
|
||
|
|
show_all(win)
|
||
|
|
main()
|