added eugtk examples

eugtk/examples/test175.ex

@@ -0,0 +1,57 @@
+
+-------------------------------------------------------------------------------
+--# GtkRadioToolButtons
+-------------------------------------------------------------------------------
+
+include GtkEngine.e
+
+constant docs = `<u><b>RadioToolButtons</b></u>
+Choose 1 of several options. Click buttons above.
+`
+constant win = create(GtkWindow,"size=200x50,position=1,border=10,$destroy=Quit")
+
+constant panel = create(GtkBox,VERTICAL)
+    add(win,panel)
+
+constant bar = create(GtkToolbar)
+    pack(panel,bar)
+
+--note: 1st param to first radio button is null to start a new button group;
+constant 
+    tb1 = create(GtkRadioToolButton,0,"-","Show","Clown"), -- no caption;
+    img1 = create(GdkPixbuf,"thumbnails/clown.png",25,25)
+    set(tb1,"icon widget",create(GtkImage,img1))
+
+
+--note: 1st param to next radio button is the handle of the prev. button;
+constant 
+    tb2 = create(GtkRadioToolButton,tb1,"-","Show","Dragon"),
+    img2 = create(GdkPixbuf,"thumbnails/dragon.png",25,25)
+    set(tb2,"icon widget",create(GtkImage,img2))
+
+constant 
+    tb3 = create(GtkRadioToolButton,tb2,"-","Show","Fish"),
+    img3 = create(GdkPixbuf,"thumbnails/fish.png",25,25)
+    set(tb3,"icon widget",create(GtkImage,img3))
+    
+    add(bar,{tb1,tb2,tb3})
+
+constant lbl1 = create(GtkLabel)
+    set(lbl1,"markup",docs)
+    add(panel,lbl1)
+
+constant lbl2 = create(GtkLabel,{
+    {"font","italic 32"},
+    {"color","red"}})
+    add(panel,lbl2)
+   
+show_all(win) 
+main()
+
+----------------------------------------------
+global function Show(atom ctl, object name)
+----------------------------------------------
+    name = unpack(name)
+    set(lbl2,"markup",name)
+return 1
+end function