added eugtk examples

eugtk/examples/test203.ex

@@ -0,0 +1,74 @@
+
+---------------------------------------------------------------------------------
+--# GtkActionBar
+---------------------------------------------------------------------------------
+
+include GtkEngine.e
+
+constant docs = `<b><u>GtkActionBar</u></b>
+
+GtkActionBar is designed to present contextual actions. It is expected to be 
+displayed below the content and expand horizontally to fill the area.
+
+It allows placing children at the start or the end. In addition, it contains 
+an internal centered box which is centered with respect to the full width of 
+the box, even if the children at either side take up different amounts of space.
+
+`
+requires("3.12","GtkActionBar")
+
+constant win = create(GtkWindow,{
+	{"title","ActionBar"},
+	{"border width",10},
+	{"position",GTK_WIN_POS_CENTER},
+	{"default size",300,300},
+	{"signal","destroy","Quit"}})
+
+constant panel = create(GtkBox,VERTICAL)
+	add(win,panel)
+	
+constant lbl = create(GtkLabel)
+	set(lbl,"markup",docs)
+	add(panel,lbl)
+	
+constant ab = create(GtkActionBar)
+	pack_end(panel,ab)
+	
+constant 
+	tb1 = create(GtkToolButton,"$clicked=Quit"),
+	img1 = create(GdkPixbuf,"gtk-quit",25,25)
+	set(tb1,"icon widget",create(GtkImage,img1))
+	set(tb1,"tooltip markup","<b>Quit</b>")
+	set(ab,"pack start",tb1)
+	
+constant 
+	tb2 = create(GtkToggleToolButton),
+	img2 = create(GdkPixbuf,"thumbnails/dragon.png",25,25)
+	set(tb2,"icon widget",create(GtkImage,img2))
+	set(tb2,"tooltip text","Toggle Button")
+	set(ab,"center widget",tb2)
+	
+constant 
+	tb3 = create(GtkRadioToolButton),
+	img3 = create(GdkPixbuf,"thumbnails/fish.png",25,25)
+	set(tb3,"icon widget",create(GtkImage,img3))
+	set(tb3,"tooltip markup","<small>Goldfish</small>")
+	set(ab,"pack end",tb3)
+	
+constant 
+	tb4 = create(GtkRadioToolButton,tb3),
+	img4 = create(GdkPixbuf,"thumbnails/fish.png",40,40)
+	set(tb4,"icon widget",create(GtkImage,img4))
+	set(tb4,"tooltip text","Porpoise")
+	set(ab,"pack end",tb4)
+	
+constant 
+	tb5 = create(GtkRadioToolButton,tb4),
+	img5 = create(GdkPixbuf,"thumbnails/fish.png",60,60)
+	set(tb5,"icon widget",create(GtkImage,img5))
+	set(tb5,"tooltip markup","<big>Whale</big>")
+	set(ab,"pack end",tb5)
+
+show_all(win)
+main()
+