21 lines
544 B
Nim
21 lines
544 B
Nim
|
|
import
|
|
glib2, gtk2
|
|
|
|
proc destroy(widget: pGtkWidget, data: pgpointer){.cdecl.} =
|
|
gtk_main_quit()
|
|
|
|
var
|
|
window: PGtkWidget
|
|
button: PGtkWidget
|
|
|
|
gtk_nimrod_init()
|
|
window = gtk_window_new(GTK_WINDOW_TOPLEVEL)
|
|
button = gtk_button_new_with_label("Click me")
|
|
gtk_container_set_border_width(GTK_CONTAINER(Window), 5)
|
|
gtk_container_add(GTK_Container(window), button)
|
|
discard gtk_signal_connect(GTKOBJECT(window), "destroy",
|
|
GTK_SIGNAL_FUNC(destroy), nil)
|
|
gtk_widget_show(button)
|
|
gtk_widget_show(window)
|
|
gtk_main()
|