added eugtk examples

eugtk/examples/test32.ex

@@ -0,0 +1,45 @@
+
+-------------------------------------------------------------------------------------------
+--# Info dialogs; Numerous options allow customization
+-------------------------------------------------------------------------------------------
+
+include GtkEngine.e
+
+constant win = create(GtkWindow,
+    "title=`Gtk Dialog`,size=200x100,border_width=10,position=1,$destroy=Quit")
+
+constant tux = create(GdkPixbuf,"thumbnails/BabyTux.png")
+    set(win,"icon",tux)
+    
+constant panel = create(GtkBox,"orientation=VERTICAL")
+    add(win,panel)
+
+constant lbl = create(GtkLabel,"markup=Click OK to open a <b><u>Custom Dialog</u></b>")
+    add(panel,lbl)
+
+constant box = create(GtkButtonBox)
+    set(box,"layout",GTK_BUTTONBOX_EDGE)
+    pack(panel,-box)
+
+    add(box,create(GtkButton,"gtk-quit","Quit"))
+    add(box,create(GtkButton,"gtk-ok",_("Foo")))
+
+show_all(win)
+main()
+
+-----------------------------------------------------------------------------
+function Foo() -- use markup, custom button, and custom image in Info dialog;
+-----------------------------------------------------------------------------
+Info(win,
+    "About Penguins",
+    "\n<big><i>Penguins</i></big>",
+	`<small><span color='blue'>
+	(1) They eat little-bitty fish
+	(2) They live far, far away
+	(3) They aren't as small as you might think!
+	</span></small>`,{{"face-cool#_OK"}},tux,tux)
+return 1
+end function
+
+
+