diff options
Diffstat (limited to 'examples/gtk/ex7.nim')
-rw-r--r-- | examples/gtk/ex7.nim | 46 |
1 files changed, 0 insertions, 46 deletions
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() - |