diff options
Diffstat (limited to 'tests/gtk/ex8.nim')
-rwxr-xr-x | tests/gtk/ex8.nim | 32 |
1 files changed, 0 insertions, 32 deletions
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() |