added eugtk examples

eugtk/examples/test207.ex

@@ -0,0 +1,33 @@
+
+--# Grid demo
+
+include GtkEngine.e
+
+constant win = create(GtkWindow,{
+    {"title","Grid Demo"},
+    {"border width",10},
+    {"position",GTK_WIN_POS_CENTER}})
+    connect(win,"destroy","Quit")
+    
+constant grid = create(GtkGrid,{
+    {"row homogeneous",TRUE},
+    {"column homogeneous",TRUE},
+    {"row spacing",5},
+    {"column spacing",5}})
+    add(win,grid)
+    
+integer i = 1
+atom id
+
+for y = 1 to 10 do
+    for x = 1 to 10  do
+	id = create(GtkLabel,{
+	    {"text",sprintf("%3d",i)},
+	    {"color",rand(#FFFFFF)}})
+        set(grid,"attach",id,x,y,1,1)
+        i += 1
+    end for
+end for
+
+show_all(win)
+main()