diff options
| author | Zahary Karadjov <zahary@gmail.com> | 2013-12-09 00:26:04 +0200 |
|---|---|---|
| committer | Zahary Karadjov <zahary@gmail.com> | 2013-12-09 00:26:04 +0200 |
| commit | 95a6e01ea8f7409e205455c42a3db9b399b3e353 (patch) | |
| tree | f7e3270dd7e631365f1b4ab777464320f6a6352b /examples/gtk/ex7.nim | |
| parent | de3b7cd413e02498c0ee5554f55f9c92d2baa9ab (diff) | |
| parent | 7e9f158494315abff712110a23f1d5ceb3df4206 (diff) | |
| download | Nim-95a6e01ea8f7409e205455c42a3db9b399b3e353.tar.gz | |
Merge branch 'master' of github.com:Araq/Nimrod into upstream
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() - |