added eugtk examples

This commit is contained in:
2016-11-25 00:33:18 -07:00
parent 87a821e3da
commit c0b98b619e
877 changed files with 96872 additions and 0 deletions

33
eugtk/examples/test37.ex Normal file
View File

@@ -0,0 +1,33 @@
--------------------------------------------------------------------------------------
--# GtkGrid; overlaying items
--------------------------------------------------------------------------------------
include GtkEngine.e
constant docs = ` <b><u>GtkGrid</u></b>
lets you position items manually,
even overlapping, if you want.
`
constant win = create(GtkWindow,
"size=100x100,border_width=10,position=1,$destroy=Quit")
constant lbl = create(GtkLabel,{{"markup",docs}})
constant img3 = create(GtkImage,"thumbnails/BabyTux.png")
constant img1 = create(GtkImage,"thumbnails/dino_slo.gif")
constant img4 = create(GtkImage,"thumbnails/clown.png")
constant grid = add(win,create(GtkGrid))
set(grid,{
{"row spacing",2},
{"column spacing",2},
{"attach",lbl,1,1,4,5},
{"attach",img3,1,1,1,1},
{"attach",img1,4,4,1,4},
{"attach",img4,2,5,4,3}})
show_all(win)
main()