44 lines
1.1 KiB
Elixir
44 lines
1.1 KiB
Elixir
|
|
------------------------------------------------------------------------
|
|
--# GtkAspectFrames
|
|
------------------------------------------------------------------------
|
|
|
|
include GtkEngine.e
|
|
|
|
constant docs = `<u><b>Aspect Frames</b></u>
|
|
Frames can auto-adjust to fit the dimensions of object(s) contained.`
|
|
|
|
constant win1 = create(GtkWindow,"position=1,border=10,$destroy=Quit")
|
|
|
|
constant panel1 = create(GtkBox,"orientation=VERTICAL")
|
|
add(win1,panel1)
|
|
|
|
constant panel2 = create(GtkBox,"orientation=HORIZONTAL,spacing=10")
|
|
add(panel1,panel2)
|
|
|
|
constant lbl = create(GtkLabel)
|
|
set(lbl,"markup",docs)
|
|
add(panel1,lbl)
|
|
|
|
constant
|
|
frm1 = create(GtkAspectFrame,"Cow",0,0,0,TRUE),
|
|
frm2 = create(GtkAspectFrame,"Boy",0,0,0,TRUE),
|
|
frm3 = create(GtkAspectFrame,"Mouse",0,0,0,TRUE)
|
|
|
|
add(panel2,{frm1,frm2,frm3})
|
|
|
|
constant
|
|
pix1 = create(GtkImage,"thumbnails/cow2.jpg"),
|
|
pix2 = create(GtkImage,"thumbnails/Jacob.jpg"),
|
|
pix3 = create(GtkImage,"thumbnails/mouse.png")
|
|
set(pix2,"padding",10,10)
|
|
|
|
add(frm1,pix1)
|
|
add(frm2,pix2)
|
|
add(frm3,pix3)
|
|
|
|
show_all(win1)
|
|
main()
|
|
|
|
|