diff options
Diffstat (limited to 'examples/gtk/ex3.nim')
-rwxr-xr-x | examples/gtk/ex3.nim | 34 |
1 files changed, 0 insertions, 34 deletions
diff --git a/examples/gtk/ex3.nim b/examples/gtk/ex3.nim deleted file mode 100755 index 3b39c07ce..000000000 --- a/examples/gtk/ex3.nim +++ /dev/null @@ -1,34 +0,0 @@ - -import - glib2, gtk2 - -proc newbutton(ALabel: cstring): PWidget = - Result = button_new(ALabel) - show(result) - -proc destroy(widget: pWidget, data: pgpointer){.cdecl.} = - main_quit() - -nimrod_init() -var window = window_new(WINDOW_TOPLEVEL) # Box to divide window in 2 halves: -var totalbox = vbox_new(true, 10) -show(totalbox) # A box for each half of the screen: -var hbox = hbox_new(false, 5) -show(hbox) -var vbox = vbox_new(true, 5) -show(vbox) # Put boxes in their halves -pack_start(totalbox, hbox, true, true, 0) -pack_start(totalbox, vbox, true, true, 0) # Now fill boxes with buttons. - -pack_start(hbox, newbutton("Button 1"), false, false, 0) -pack_start(hbox, newbutton("Button 2"), false, false, 0) -pack_start(hbox, newbutton("Button 3"), false, false, 0) # Vertical box -pack_start(vbox, newbutton("Button A"), true, true, 0) -pack_start(vbox, newbutton("Button B"), true, true, 0) -pack_start(vbox, newbutton("Button C"), true, true, 0) # Put totalbox in window -set_border_width(PCONTAINER(Window), 5) -add(PContainer(window), totalbox) -discard signal_connect(window, "destroy", SIGNAL_FUNC(ex3.destroy), nil) -show(window) -main() - |