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

19
eugtk/examples/test10.ex Normal file
View 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()