added eugtk examples

eugtk/examples/test56.ex

@@ -0,0 +1,44 @@
+
+------------------------------------------------------------------
+--# GtkVolumeButton
+------------------------------------------------------------------
+
+include GtkEngine.e
+
+constant docs = `
+<b><u>GtkVolumeButton</u></b>
+
+Pop-up slider to change sound volume. Shows a speaker icon 
+which varies its appearance corresponding to the volume setting.
+This demo is <i>not</i> connected to the computer's sound system,
+so will not actually change the volume.
+`
+constant win = create(GtkWindow,
+	"size=300x100,border_width=10,position=1,keep above=1,$destroy=Quit")
+
+constant panel = create(GtkBox,"orientation=VERTICAL")
+	add(win,panel)
+
+constant img = create(GtkImage,"thumbnails/emblem-sound.png")
+	add(panel,img)
+	
+constant lbl = create(GtkLabel,{
+	{"markup",docs}})
+	add(panel,lbl)
+
+constant btnbox = create(GtkButtonBox)
+	add(panel,btnbox)
+
+constant btn = create(GtkVolumeButton,"size=6,value=.5,$value-changed=Update")
+	add(btnbox,btn)
+	
+show_all(win)
+main()
+
+------------------------------------------------
+global function Update()
+------------------------------------------------
+	printf(1,"%2.2f\n",get(btn,"value"))
+return 1
+end function
+