added eugtk examples

eugtk/examples/test117.ex

@@ -0,0 +1,37 @@
+
+----------------------------------------------------------------
+--# GtkGrid
+----------------------------------------------------------------
+
+include GtkEngine.e
+
+sequence position = { -- these are the tooltips to attach to buttons
+	`add(grid,btn[1])`,
+	`set(grid,"attach",btn[2],1,0,2,1)`,
+	`set(grid,"attach next to",btn[3],btn[1],BOTTOM,1,2)`,
+	`set(grid,"attach next to",btn[4],btn[3],RIGHT,2,1)`,
+	`set(grid,"attach",btn[5],1,2,1,1)`,
+	`set(grid,"attach next to",btn[6],btn[5],RIGHT,1,1)`
+}
+
+constant win = create(GtkWindow,"position=1,$destroy=Quit")
+
+constant grid = create(GtkGrid)
+    add(win,grid)
+
+object btn = repeat(0,6)
+    for i = 1 to 6 do
+	btn[i] = create(GtkButton,sprintf("Button %d",i))
+	set(btn[i],"tooltip text",position[i])
+    end for
+	
+    add(grid,btn[1])
+    set(grid,{
+	{"attach",btn[2],1,0,2,1},
+	{"attach next to",btn[3],btn[1],BOTTOM,1,2},
+	{"attach next to",btn[4],btn[3],RIGHT,2,1},
+	{"attach",btn[5],1,2,1,1},
+	{"attach next to",btn[6],btn[5],RIGHT,1,1}})
+
+show_all(win)
+main()