diff options
Diffstat (limited to 'tests/gtk')
-rwxr-xr-x | tests/gtk/ex1.nim | 14 | ||||
-rwxr-xr-x | tests/gtk/ex2.nim | 21 | ||||
-rwxr-xr-x | tests/gtk/ex3.nim | 39 | ||||
-rwxr-xr-x | tests/gtk/ex4.nim | 31 | ||||
-rwxr-xr-x | tests/gtk/ex5.nim | 24 | ||||
-rwxr-xr-x | tests/gtk/ex6.nim | 52 | ||||
-rwxr-xr-x | tests/gtk/ex7.nim | 43 | ||||
-rwxr-xr-x | tests/gtk/ex8.nim | 32 | ||||
-rwxr-xr-x | tests/gtk/ex9.nim | 47 |
9 files changed, 0 insertions, 303 deletions
diff --git a/tests/gtk/ex1.nim b/tests/gtk/ex1.nim deleted file mode 100755 index aa3ed2f66..000000000 --- a/tests/gtk/ex1.nim +++ /dev/null @@ -1,14 +0,0 @@ -import - cairo, glib2, gtk2 - -proc destroy(widget: pGtkWidget, data: pgpointer) {.cdecl.} = - gtk_main_quit() - -var - window: pGtkWidget -gtk_nimrod_init() -window = gtk_window_new(GTK_WINDOW_TOPLEVEL) -discard gtk_signal_connect(GTKOBJECT(window), "destroy", - GTK_SIGNAL_FUNC(destroy), nil) -gtk_widget_show(window) -gtk_main() diff --git a/tests/gtk/ex2.nim b/tests/gtk/ex2.nim deleted file mode 100755 index 80ff6f104..000000000 --- a/tests/gtk/ex2.nim +++ /dev/null @@ -1,21 +0,0 @@ - -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() diff --git a/tests/gtk/ex3.nim b/tests/gtk/ex3.nim deleted file mode 100755 index 460b1e4dc..000000000 --- a/tests/gtk/ex3.nim +++ /dev/null @@ -1,39 +0,0 @@ - -import - glib2, gtk2 - -proc newbutton(ALabel: cstring): PGtkWidget = - Result = gtk_button_new_with_label(ALabel) - gtk_widget_show(result) - -proc destroy(widget: pGtkWidget, data: pgpointer){.cdecl.} = - gtk_main_quit() - -var - window, totalbox, hbox, vbox: PgtkWidget - -gtk_nimrod_init() -window = gtk_window_new(GTK_WINDOW_TOPLEVEL) # Box to divide window in 2 halves: -totalbox = gtk_vbox_new(true, 10) -gtk_widget_show(totalbox) # A box for each half of the screen: -hbox = gtk_hbox_new(false, 5) -gtk_widget_show(hbox) -vbox = gtk_vbox_new(true, 5) -gtk_widget_show(vbox) # Put boxes in their halves -gtk_box_pack_start(GTK_BOX(totalbox), hbox, true, true, 0) -gtk_box_pack_start(GTK_BOX(totalbox), vbox, true, true, 0) # Now fill boxes with buttons. - # Horizontal box -gtk_box_pack_start(GTK_BOX(hbox), newbutton("Button 1"), false, false, 0) -gtk_box_pack_start(GTK_BOX(hbox), newbutton("Button 2"), false, false, 0) -gtk_box_pack_start(GTK_BOX(hbox), newbutton("Button 3"), false, false, 0) # - # Vertical box -gtk_box_pack_start(GTK_BOX(vbox), newbutton("Button A"), true, true, 0) -gtk_box_pack_start(GTK_BOX(vbox), newbutton("Button B"), true, true, 0) -gtk_box_pack_start(GTK_BOX(vbox), newbutton("Button C"), true, true, 0) # Put - # totalbox in window -gtk_container_set_border_width(GTK_CONTAINER(Window), 5) -gtk_container_add(GTK_Container(window), totalbox) -discard gtk_signal_connect(GTKOBJECT(window), "destroy", - GTK_SIGNAL_FUNC(destroy), nil) -gtk_widget_show(window) -gtk_main() diff --git a/tests/gtk/ex4.nim b/tests/gtk/ex4.nim deleted file mode 100755 index a387da972..000000000 --- a/tests/gtk/ex4.nim +++ /dev/null @@ -1,31 +0,0 @@ - -import - glib2, gtk2 - -proc newbutton(ALabel: cstring): PGtkWidget = - Result = gtk_button_new_with_label(ALabel) - gtk_widget_show(result) - -proc destroy(widget: pGtkWidget, data: pgpointer){.cdecl.} = - gtk_main_quit() - -var - window, maintable: PgtkWidget - -proc AddToTable(Widget: PGtkWidget, Left, Right, Top, Bottom: guint) = - gtk_table_attach_defaults(GTK_TABLE(MainTable), Widget, Left, right, top, - bottom) - -gtk_nimrod_init() -window = gtk_window_new(GTK_WINDOW_TOPLEVEL) -Maintable = gtk_table_new(6, 6, True) -gtk_widget_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 -gtk_container_set_border_width(GTK_CONTAINER(Window), 5) -gtk_container_add(GTK_Container(window), maintable) -discard gtk_signal_connect(GTKOBJECT(window), "destroy", - GTK_SIGNAL_FUNC(destroy), nil) -gtk_widget_show(window) -gtk_main() diff --git a/tests/gtk/ex5.nim b/tests/gtk/ex5.nim deleted file mode 100755 index 3a5b076c6..000000000 --- a/tests/gtk/ex5.nim +++ /dev/null @@ -1,24 +0,0 @@ - -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) -discard gtk_signal_connect_object(GTKOBJECT(button), "clicked", - GTK_SIGNAL_FUNC(gtk_widget_destroy), - GTKOBJECT(window)) -gtk_widget_show(button) -gtk_widget_show(window) -gtk_main() diff --git a/tests/gtk/ex6.nim b/tests/gtk/ex6.nim deleted file mode 100755 index 5f18786fe..000000000 --- a/tests/gtk/ex6.nim +++ /dev/null @@ -1,52 +0,0 @@ - -import - glib2, gtk2 - -type - TButtonSignalState = record - Obj: PgtkObject - SignalID: int32 - Disable: bool - - PButtonSignalState = ptr TButtonSignalState - -proc destroy(widget: pGtkWidget, data: pgpointer){.cdecl.} = - gtk_main_quit() - -proc disablesignal(widget: pGtkWidget, data: pgpointer){.cdecl.} = - if PButtonSignalState(Data).Disable: - gtk_signal_handler_block(PButtonSignalState(Data).Obj, SignalID) - else: - gtk_signal_handler_unblock(PButtonSignalState(Data).Obj, SignalID) - PButtonSignalState(Data).disable = not PButtonSignalState(Data).disable - -var - window: PGtkWidget - quitbutton: PGtkWidget - disablebutton: PGTKWidget - windowbox: PGTKWidget - quitsignal: guint - QuitState: TButtonSignalState - -gtk_nimrod_init() -window = gtk_window_new(GTK_WINDOW_TOPLEVEL) -quitbutton = gtk_button_new_with_label("Quit program") -disablebutton = gtk_button_new_with_label("Disable button") -windowbox = gtk_vbox_new(TRUE, 10) -gtk_box_pack_start(GTK_BOX(windowbox), disablebutton, True, false, 0) -gtk_box_pack_start(GTK_BOX(windowbox), quitbutton, True, false, 0) -gtk_container_set_border_width(GTK_CONTAINER(Window), 10) -gtk_container_add(GTK_Container(window), windowbox) -gtk_signal_connect(GTKOBJECT(window), "destroy", - GTK_SIGNAL_FUNC(destroy), nil) -QuitState.Obj = GTKObject(QuitButton) -SignalID = gtk_signal_connect_object(QuitState.Obj, "clicked", GTK_SIGNAL_FUNC( - gtk_widget_destroy), GTKOBJECT(window)) -QuitState.Disable = True -discard gtk_signal_connect(GTKOBJECT(disablebutton), "clicked", - GTK_SIGNAL_FUNC(disablesignal), addr(QuitState)) -gtk_widget_show(quitbutton) -gtk_widget_show(disablebutton) -gtk_widget_show(windowbox) -gtk_widget_show(window) -gtk_main() diff --git a/tests/gtk/ex7.nim b/tests/gtk/ex7.nim deleted file mode 100755 index 53890d1e1..000000000 --- a/tests/gtk/ex7.nim +++ /dev/null @@ -1,43 +0,0 @@ - -import - gdk2, glib2, gtk2 - -proc destroy(widget: pGtkWidget, data: pgpointer){.cdecl.} = - gtk_main_quit() - -const - Inside: cstring = "Mouse is over label" - OutSide: cstring = "Mouse is not over label" - -var - OverLabel: bool - window, box1, box2, stackbox, label1, Label2: PGtkWidget - -proc ChangeLabel(P: PGtkWidget, Event: PGdkEventCrossing, - Data: var bool){.cdecl.} = - if not Data: gtk_label_set_text(GTKLABEL(Label2), Inside) - else: gtk_label_set_text(GTKLABEL(Label2), Outside) - Data = not Data - -gtk_nimrod_init() -window = gtk_window_new(GTK_WINDOW_TOPLEVEL) -stackbox = gtk_vbox_new(TRUE, 10) -box1 = gtk_event_box_new() -label1 = gtk_label_new("Move mouse over label") -gtk_container_add(GTK_CONTAINER(box1), label1) -box2 = gtk_event_box_new() -label2 = gtk_label_new(OutSide) -gtk_container_add(GTK_CONTAINER(box2), label2) -gtk_box_pack_start(GTK_BOX(stackbox), box1, TRUE, TRUE, 0) -gtk_box_pack_start(GTK_BOX(stackbox), box2, TRUE, TRUE, 0) -gtk_container_set_border_width(GTK_CONTAINER(Window), 5) -gtk_container_add(GTK_Container(window), stackbox) -discard gtk_signal_connect(GTKOBJECT(window), "destroy", - GTK_SIGNAL_FUNC(destroy), nil) -overlabel = False -discard gtk_signal_connect(GTKOBJECT(box1), "enter_notify_event", - GTK_SIGNAL_FUNC(ChangeLabel), addr(Overlabel)) -discard gtk_signal_connect(GTKOBJECT(box1), "leave_notify_event", - GTK_SIGNAL_FUNC(ChangeLabel), addr(Overlabel)) -gtk_widget_show_all(window) -gtk_main() diff --git a/tests/gtk/ex8.nim b/tests/gtk/ex8.nim deleted file mode 100755 index acbba2258..000000000 --- a/tests/gtk/ex8.nim +++ /dev/null @@ -1,32 +0,0 @@ - -import - glib2, gtk2 - -proc destroy(widget: pGtkWidget, data: pgpointer){.cdecl.} = - gtk_main_quit() - -var - window, stackbox, label1, Label2: PGtkWidget - labelstyle: pgtkstyle - -gtk_nimrod_init() -window = gtk_window_new(GTK_WINDOW_TOPLEVEL) -stackbox = gtk_vbox_new(TRUE, 10) -label1 = gtk_label_new("Red label text") -labelstyle = gtk_style_copy(gtk_widget_get_style(label1)) -LabelStyle.fg[GTK_STATE_NORMAL].pixel = 0 -LabelStyle.fg[GTK_STATE_NORMAL].red = 0x0000FFFF -LabelStyle.fg[GTK_STATE_NORMAL].blue = 0 -LabelStyle.fg[GTK_STATE_NORMAL].green = 0 -gtk_widget_set_style(label1, labelstyle) # Uncomment this to see the effect of setting the default style. - # - # gtk_widget_set_default_style(labelstyle) -label2 = gtk_label_new("Black label text") -gtk_box_pack_start(GTK_BOX(stackbox), label1, TRUE, TRUE, 0) -gtk_box_pack_start(GTK_BOX(stackbox), label2, TRUE, TRUE, 0) -gtk_container_set_border_width(GTK_CONTAINER(Window), 5) -gtk_container_add(GTK_Container(window), stackbox) -discard gtk_signal_connect(GTKOBJECT(window), "destroy", - GTK_SIGNAL_FUNC(destroy), nil) -gtk_widget_show_all(window) -gtk_main() diff --git a/tests/gtk/ex9.nim b/tests/gtk/ex9.nim deleted file mode 100755 index ce2f73862..000000000 --- a/tests/gtk/ex9.nim +++ /dev/null @@ -1,47 +0,0 @@ - -import - gdk2, glib2, gtk2 - -proc destroy(widget: pGtkWidget, data: pgpointer){.cdecl.} = - gtk_main_quit() - -const - Inside: cstring = "Mouse is over label" - OutSide: cstring = "Mouse is not over label" - -var - window, button1, Button2, Alabel, stackbox: PGtkWidget - buttonstyle: pgtkstyle - OverButton: bool - -proc ChangeLabel(P: PGtkWidget, Event: PGdkEventCrossing, Data: var bool){.cdecl.} = - if Not Data: gtk_label_set_text(GTKLABEL(ALabel), Inside) - else: gtk_label_set_text(GTKLABEL(ALabel), Outside) - Data = Not Data - -gtk_nimrod_init() -window = gtk_window_new(GTK_WINDOW_TOPLEVEL) -stackbox = gtk_vbox_new(TRUE, 10) -button1 = gtk_button_new_with_label("Move mouse over button") -buttonstyle = gtk_style_copy(gtk_widget_get_style(Button1)) -ButtonStyle.bg[GTK_STATE_PRELIGHT].pixel = 0 -ButtonStyle.bg[GTK_STATE_PRELIGHT].red = 0x0000FFFF'i16 -ButtonStyle.bg[GTK_STATE_PRELIGHT].blue = 0'i16 -ButtonStyle.bg[GTK_STATE_PRELIGHT].green = 0'i16 -gtk_widget_set_style(button1, buttonstyle) -button2 = gtk_button_new() -ALabel = gtk_label_new(Outside) -gtk_container_add(GTK_CONTAINER(button2), ALAbel) -gtk_box_pack_start(GTK_BOX(stackbox), button1, TRUE, TRUE, 0) -gtk_box_pack_start(GTK_BOX(stackbox), button2, TRUE, TRUE, 0) -gtk_container_set_border_width(GTK_CONTAINER(Window), 5) -gtk_container_add(GTK_Container(window), stackbox) -discard gtk_signal_connect(GTKOBJECT(window), "destroy", - GTK_SIGNAL_FUNC(destroy), nil) -overbutton = False -discard gtk_signal_connect(GTKOBJECT(button1), "enter_notify_event", - GTK_SIGNAL_FUNC(ChangeLabel), addr(OverButton)) -discard gtk_signal_connect(GTKOBJECT(button1), "leave_notify_event", - GTK_SIGNAL_FUNC(ChangeLabel), addr(OverButton)) -gtk_widget_show_all(window) -gtk_main() |