diff options
author | fowlmouth <phowl.mouth@gmail.com> | 2013-12-01 21:15:48 -0600 |
---|---|---|
committer | fowlmouth <phowl.mouth@gmail.com> | 2013-12-01 21:15:48 -0600 |
commit | ee520689d7e79f87078e3a764db182f647ac612a (patch) | |
tree | 80d044c21336353c878eb3b64a3c7447c90d2b76 /examples | |
parent | 944b4685b9cff18fc865e4c16d2bce9bf89e29c0 (diff) | |
download | Nim-ee520689d7e79f87078e3a764db182f647ac612a.tar.gz |
removed gtk2
Diffstat (limited to 'examples')
-rw-r--r-- | examples/gtk/ex1.nim | 14 | ||||
-rw-r--r-- | examples/gtk/ex2.nim | 22 | ||||
-rw-r--r-- | examples/gtk/ex3.nim | 34 | ||||
-rw-r--r-- | examples/gtk/ex4.nim | 29 | ||||
-rw-r--r-- | examples/gtk/ex5.nim | 24 | ||||
-rw-r--r-- | examples/gtk/ex6.nim | 50 | ||||
-rw-r--r-- | examples/gtk/ex7.nim | 46 | ||||
-rw-r--r-- | examples/gtk/ex8.nim | 29 | ||||
-rw-r--r-- | examples/gtk/ex9.nim | 49 |
9 files changed, 0 insertions, 297 deletions
diff --git a/examples/gtk/ex1.nim b/examples/gtk/ex1.nim deleted file mode 100644 index deabffa3e..000000000 --- a/examples/gtk/ex1.nim +++ /dev/null @@ -1,14 +0,0 @@ -import - cairo, glib2, gtk2 - -proc destroy(widget: pWidget, data: pgpointer) {.cdecl.} = - main_quit() - -var - window: pWidget -nimrod_init() -window = window_new(WINDOW_TOPLEVEL) -discard signal_connect(window, "destroy", - SIGNAL_FUNC(ex1.destroy), nil) -show(window) -main() diff --git a/examples/gtk/ex2.nim b/examples/gtk/ex2.nim deleted file mode 100644 index fab64cef5..000000000 --- a/examples/gtk/ex2.nim +++ /dev/null @@ -1,22 +0,0 @@ - -import - glib2, gtk2 - -proc destroy(widget: pWidget, data: pgpointer){.cdecl.} = - main_quit() - -var - window: PWidget - button: PWidget - -nimrod_init() -window = window_new(WINDOW_TOPLEVEL) -button = button_new("Click me") -set_border_width(PContainer(Window), 5) -add(PContainer(window), button) -discard signal_connect(window, "destroy", - SIGNAL_FUNC(ex2.destroy), nil) -show(button) -show(window) -main() - diff --git a/examples/gtk/ex3.nim b/examples/gtk/ex3.nim deleted file mode 100644 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() - diff --git a/examples/gtk/ex4.nim b/examples/gtk/ex4.nim deleted file mode 100644 index 2964042de..000000000 --- a/examples/gtk/ex4.nim +++ /dev/null @@ -1,29 +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) -var Maintable = table_new(6, 6, True) - -proc AddToTable(Widget: PWidget, Left, Right, Top, Bottom: guint) = - attach_defaults(MainTable, Widget, Left, right, top, bottom) - -show(MainTable) -AddToTable(newbutton("1,1 At 1,1"), 1, 2, 1, 2) -AddToTable(newbutton("2,2 At 3,1"), 3, 5, 1, 3) -AddToTable(newbutton("4,1 At 4,1"), 1, 5, 4, 5) # Put all in window -set_border_width(Window, 5) -add(window, maintable) -discard signal_connect(window, "destroy", - SignalFunc(ex4.destroy), nil) -show(window) -main() - diff --git a/examples/gtk/ex5.nim b/examples/gtk/ex5.nim deleted file mode 100644 index 841ebc681..000000000 --- a/examples/gtk/ex5.nim +++ /dev/null @@ -1,24 +0,0 @@ - -import - glib2, gtk2 - -proc destroy(widget: pWidget, data: pgpointer){.cdecl.} = - main_quit() - -proc widgetDestroy(w: PWidget) {.cdecl.} = - destroy(w) - -nimrod_init() -var window = window_new(WINDOW_TOPLEVEL) -var button = button_new("Click me") -set_border_width(Window, 5) -add(window, button) -discard signal_connect(window, "destroy", - SIGNAL_FUNC(ex5.destroy), nil) -discard signal_connect_object(button, "clicked", - SIGNAL_FUNC(widgetDestroy), - window) -show(button) -show(window) -main() - diff --git a/examples/gtk/ex6.nim b/examples/gtk/ex6.nim deleted file mode 100644 index 7374b19cd..000000000 --- a/examples/gtk/ex6.nim +++ /dev/null @@ -1,50 +0,0 @@ - -import - glib2, gtk2 - -type - TButtonSignalState = object - Obj: gtk2.PObject - SignalID: int32 - Disable: bool - - PButtonSignalState = ptr TButtonSignalState - -proc destroy(widget: pWidget, data: pgpointer){.cdecl.} = - main_quit() - -proc widgetDestroy(w: PWidget) {.cdecl.} = destroy(w) - -proc disablesignal(widget: pWidget, data: pgpointer){.cdecl.} = - var s = cast[PButtonSignalState](Data) - if s.Disable: - signal_handler_block(s.Obj, s.SignalID) - else: - signal_handler_unblock(s.Obj, s.SignalID) - s.disable = not s.disable - -var - QuitState: TButtonSignalState - -nimrod_init() -var window = window_new(WINDOW_TOPLEVEL) -var quitbutton = button_new("Quit program") -var disablebutton = button_new("Disable button") -var windowbox = vbox_new(TRUE, 10) -pack_start(windowbox, disablebutton, True, false, 0) -pack_start(windowbox, quitbutton, True, false, 0) -set_border_width(Window, 10) -add(window, windowbox) -discard signal_connect(window, "destroy", SIGNAL_FUNC(ex6.destroy), nil) -QuitState.Obj = QuitButton -quitState.SignalID = signal_connect_object(QuitState.Obj, "clicked", - SIGNAL_FUNC(widgetDestroy), window).int32 -QuitState.Disable = True -discard signal_connect(disablebutton, "clicked", - SIGNAL_FUNC(disablesignal), addr(QuitState)) -show(quitbutton) -show(disablebutton) -show(windowbox) -show(window) -main() - diff --git a/examples/gtk/ex7.nim b/examples/gtk/ex7.nim deleted file mode 100644 index 852d80a41..000000000 --- a/examples/gtk/ex7.nim +++ /dev/null @@ -1,46 +0,0 @@ - -import - gdk2, glib2, gtk2 - -proc destroy(widget: pWidget, data: pgpointer){.cdecl.} = - main_quit() - -const - Inside: cstring = "Mouse is over label" - OutSide: cstring = "Mouse is not over label" - -var - OverLabel: bool - -nimrod_init() -var window = window_new(gtk2.WINDOW_TOPLEVEL) -var stackbox = vbox_new(TRUE, 10) -var box1 = event_box_new() -var label1 = label_new("Move mouse over label") -add(box1, label1) -var box2 = event_box_new() -var label2 = label_new(OutSide) -add(box2, label2) -pack_start(stackbox, box1, TRUE, TRUE, 0) -pack_start(stackbox, box2, TRUE, TRUE, 0) -set_border_width(Window, 5) -add(window, stackbox) -discard signal_connect(window, "destroy", - SIGNAL_FUNC(ex7.destroy), nil) -overlabel = False - - -proc ChangeLabel(P: PWidget, Event: gdk2.PEventCrossing, - Data: var bool){.cdecl.} = - if not Data: set_text(Label1, Inside) - else: set_text(Label2, Outside) - Data = not Data - - -discard signal_connect(box1, "enter_notify_event", - SIGNAL_FUNC(ChangeLabel), addr(Overlabel)) -discard signal_connect(box1, "leave_notify_event", - SIGNAL_FUNC(ChangeLabel), addr(Overlabel)) -show_all(window) -main() - diff --git a/examples/gtk/ex8.nim b/examples/gtk/ex8.nim deleted file mode 100644 index 242a15393..000000000 --- a/examples/gtk/ex8.nim +++ /dev/null @@ -1,29 +0,0 @@ - -import - glib2, gtk2 - -proc destroy(widget: pWidget, data: pgpointer){.cdecl.} = - main_quit() - -nimrod_init() -var window = window_new(WINDOW_TOPLEVEL) -var stackbox = vbox_new(TRUE, 10) -var label1 = label_new("Red label text") -var labelstyle = copy(get_style(label1)) -LabelStyle.fg[STATE_NORMAL].pixel = 0 -LabelStyle.fg[STATE_NORMAL].red = -1'i16 -LabelStyle.fg[STATE_NORMAL].blue = 0'i16 -LabelStyle.fg[STATE_NORMAL].green = 0'i16 -set_style(label1, labelstyle) -# Uncomment this to see the effect of setting the default style. -# set_default_style(labelstyle) -var label2 = label_new("Black label text") -pack_start(stackbox, label1, TRUE, TRUE, 0) -pack_start(stackbox, label2, TRUE, TRUE, 0) -set_border_width(Window, 5) -add(window, stackbox) -discard signal_connect(window, "destroy", - SIGNAL_FUNC(ex8.destroy), nil) -show_all(window) -main() - diff --git a/examples/gtk/ex9.nim b/examples/gtk/ex9.nim deleted file mode 100644 index 1481e6be1..000000000 --- a/examples/gtk/ex9.nim +++ /dev/null @@ -1,49 +0,0 @@ - -import - gdk2, glib2, gtk2 - -proc destroy(widget: pWidget, data: pgpointer){.cdecl.} = - main_quit() - -const - Inside: cstring = "Mouse is over label" - OutSide: cstring = "Mouse is not over label" - -var - OverButton: bool - -nimrod_init() -var window = window_new(gtk2.WINDOW_TOPLEVEL) -var stackbox = vbox_new(TRUE, 10) -var button1 = button_new("Move mouse over button") -var buttonstyle = copy(get_style(Button1)) -ButtonStyle.bg[STATE_PRELIGHT].pixel = 0 -ButtonStyle.bg[STATE_PRELIGHT].red = -1'i16 -ButtonStyle.bg[STATE_PRELIGHT].blue = 0'i16 -ButtonStyle.bg[STATE_PRELIGHT].green = 0'i16 -set_style(button1, buttonstyle) -var button2 = button_new() -var ALabel = label_new(Outside) - - -proc ChangeLabel(P: PWidget, Event: gdk2.PEventCrossing, - Data: var bool){.cdecl.} = - if Not Data: set_text(ALabel, Inside) - else: set_text(ALabel, Outside) - Data = Not Data - - -add(button2, ALAbel) -pack_start(stackbox, button1, TRUE, TRUE, 0) -pack_start(stackbox, button2, TRUE, TRUE, 0) -set_border_width(Window, 5) -add(window, stackbox) -discard signal_connect(window, "destroy", - SIGNAL_FUNC(ex9.destroy), nil) -overbutton = False -discard signal_connect(button1, "enter_notify_event", - SIGNAL_FUNC(ChangeLabel), addr(OverButton)) -discard signal_connect(button1, "leave_notify_event", - SIGNAL_FUNC(ChangeLabel), addr(OverButton)) -show_all(window) -main() |