added eugtk examples

eugtk/examples/test105.ex

@@ -0,0 +1,41 @@
+
+-----------------------------------------------------------------------
+--# Customizing built-in dialog boxes
+-- Here we change the default behavior of the Info() box,
+-- but the same options can be set to override the defaults
+-- for the other built-in dialogs, such as Question or Error...
+----------------------------------------------------------------------
+
+include GtkEngine.e
+    
+Info(0,"Info Box1","Primary Text","<i>Secondary</i> Text")
+--[1] parent window or null
+--[2] dialog title or empty for default title
+--[3] first line (automatically made bold if secondary text exists)
+--[4] secondary text, can be marked up if desired
+
+-- All parameters are optional, but dialogs won't make much sense without
+-- at least parameter[3]
+
+-- [5] is the button set to override default button(s);
+Info(0,"Info Box3","Changing Buttons","use yes/no buttons",GTK_BUTTONS_YES_NO)
+--------------------------------------------------------------^ button id, see GtkEnums
+
+-- [6] is an image to use in place of the default dialog icon;
+Info(0,"Info Box2","Dialog Icon","Change to Question icon",,"dialog-question")
+----------------------------------------------------------^ icon name
+
+-- [7] is an image to use in place of the default titlebar icon; 
+constant img = create(GtkImage,"~/demos/thumbnails/BabyTux.gif")
+Info(0,"Info Box4","Titlebar Icon","Titlebar icon from a file",,,img)
+-------------------------------------------------------^ custom icon image
+
+-- Primary and Secondary text can use markup to set style and colors
+-- Below we use markup to make a fancy Info dialog;
+
+Info(0,"Info Box5",
+	"<span font='URW Chancery L 24'><b>Hello World</b></span>",
+	"<span font='URW Chancery L 12'>We can be as fancy as we like here,\n" &
+	"with multi-line text,\n<span color='red'>colors</span>, <u>underlined,</u> etc.</span>")
+
+