added eugtk examples
This commit is contained in:
19
eugtk/examples/test10.ex
Normal file
19
eugtk/examples/test10.ex
Normal file
@@ -0,0 +1,19 @@
|
||||
|
||||
------------------------------------------------------------------------
|
||||
--# 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()
|
||||
|
||||
Reference in New Issue
Block a user