added eugtk examples

eugtk/examples/test71.ex

@@ -0,0 +1,54 @@
+
+--------------------------------------------------------------------------------------
+--# Icon Themes
+-- GTK comes with a large number of named icons. Run ~/demos/examples/icons.ex
+-- to see them, organized by category.
+--------------------------------------------------------------------------------------
+
+include GtkEngine.e
+
+constant docs = format(`<u><b>Themed Icons</b></u>
+Enter an icon name and click OK 
+or hit &lt;enter&gt;.
+
+Icon names can be found in the file
+<a href='FILE://[]'>themeicons.txt</a>
+`,{canonical_path(locate_file("resources/themeicons.txt"))})
+
+object selected_icon = valid_icon_name(
+    {"face-cool","face-glasses","face-laugh","gtk-ok"})
+
+constant win = create(GtkWindow,"position=1,border_width=10,$destroy=Quit")
+
+constant panel = create(GtkBox,VERTICAL)
+    add(win,panel)
+
+constant img = create(GtkImage) 
+    set(img,"from icon name",selected_icon,GTK_ICON_SIZE_DIALOG)
+    add(panel,img)
+   
+constant lbl = create(GtkLabel)
+    set(lbl,"markup",docs)
+    add(panel,lbl)
+
+constant inp = create(GtkEntry,{{"text",selected_icon}})
+    connect(inp,"activate","Foo")
+    add(panel,inp)
+
+constant btnbox = create(GtkButtonBox,"margin top=5")
+    pack(panel,-btnbox)
+
+constant btn1 = create(GtkButton,"gtk-quit","Quit")
+constant btn2 = create(GtkButton,"gtk-apply","Foo")	
+    add(btnbox,{btn1,btn2})
+
+show_all(win)
+main()
+
+--------------------------------------------------
+global function Foo()
+--------------------------------------------------
+    set(img,"from icon name",get(inp,"text"),GTK_ICON_SIZE_DIALOG)
+return 1
+end function
+