added eugtk examples

2016-11-25 00:33:18 -07:00
parent 87a821e3da
commit c0b98b619e
877 changed files with 96872 additions and 0 deletions
--- a/eugtk/examples/glade/about.e
+++ b/eugtk/examples/glade/about.e
@@ -0,0 +1,15 @@
+namespace about
+
+include GtkEngine.e
+
+add(builder,canonical_path("~/demos/glade/about.glade"))
+
+constant dlg = pointer("about:aboutdialog1")
+
+-----------------------------------------------------------------------
+global function on_help_about_activate() 
+-----------------------------------------------------------------------
+    if get(dlg,"run") then end if
+    set(dlg,"hide")
+return 1
+end function