20 lines
654 B
Elixir
20 lines
654 B
Elixir
|
|
||
|
|
------------------------------------------------------------------------
|
||
|
|
--# Animated images
|
||
|
|
------------------------------------------------------------------------
|
||
|
|
|
||
|
|
include GtkEngine.e
|
||
|
|
|
||
|
|
constant docs = "<b><u>Animated</u></b> images are easy to use!",
|
||
|
|
win = create(GtkWindow,"size=160x140,border=10,position=1,$destroy=Quit"),
|
||
|
|
panel = add(win,create(GtkBox,"orientation=VERTICAL")),
|
||
|
|
lbl = add(panel,create(GtkLabel,{{"markup",docs}})),
|
||
|
|
img = add(panel,create(GtkImage,"thumbnails/dino_slo.gif"))
|
||
|
|
|
||
|
|
-- note: add() returns the handle of the item that was added,
|
||
|
|
-- so we can nest these calls for compact code
|
||
|
|
|
||
|
|
show_all(win)
|
||
|
|
main()
|
||
|
|
|