added eugtk examples

eugtk/examples/glade/gladetest1.ex

@@ -0,0 +1,27 @@
+
+--# Test a few controls built with Glade
+
+include GtkEngine.e
+include GtkFileSelector.e
+
+add(builder,canonical_path("~/demos/glade/gladetest1.glade"))
+
+main()
+
+-----------------------------------------------------------------------
+global function help_me() 
+-----------------------------------------------------------------------
+    Info(,,"About","My fine program!")
+return 1
+end function
+
+-----------------------------------------------------------------------
+global function open_file() 
+-----------------------------------------------------------------------
+    fileselector:filters = {"image"}
+    object newfile = fileselector:Open("*")
+    if sequence(newfile) then
+	set("image1","from file",newfile)
+    end if
+return 1
+end function