added eugtk examples

eugtk/examples/test27.ex

@@ -0,0 +1,37 @@
+
+--# SVG vs. other image formats;
+
+include GtkEngine.e
+
+
+sequence docs = """<u><b>SVG images</b></u> can be resized without losing any resolution.
+
+<b>Natural</b> size (90 x 90 px) is shown below left, <b>png</b> sized to 400 x 400 px. is blurry, <b>svg</b> is sharp and clear"""
+
+constant win = create(GtkWindow,"border_width=10,$destroy=Quit")
+
+constant panel = create(GtkBox,"orientation=VERTICAL")
+    add(win,panel)
+
+constant lbl1 = create(GtkLabel)
+    set(lbl1,"markup",docs)
+    add(panel,lbl1)
+
+constant panel2 = create(GtkBox,HORIZONTAL)
+    add(panel,panel2)
+
+-- creating image directly from file results in a 'natural' size image;
+constant img = create(GtkImage,"thumbnails/clown.png")
+    add(panel2,img)
+
+constant pb2 = create(GdkPixbuf,"thumbnails/clown.png",400,400)
+constant img2 = create(GtkImage,pb2)
+    add(panel2,img2)
+
+-- below, we want to enlarge the images to 400px, so we load as pixbufs at size;
+constant pb1 = create(GdkPixbuf,"thumbnails/clown.svg",400,400,1)
+constant img1 = create(GtkImage,pb1)
+    add(panel2,img1)
+
+show_all(win)
+main()