added eugtk examples
This commit is contained in:
18
eugtk/examples/glade/colors.ex
Normal file
18
eugtk/examples/glade/colors.ex
Normal file
@@ -0,0 +1,18 @@
|
||||
|
||||
--# XColors program built with Glade
|
||||
|
||||
include GtkEngine.e
|
||||
|
||||
add(builder,canonical_path("~/demos/glade/colors.glade"))
|
||||
|
||||
constant xcolors = canonical_path("~/demos/resources/xcolors.txt")
|
||||
|
||||
TreeView tv = pointer("treeview1")
|
||||
ListStore st = pointer("liststore1")
|
||||
|
||||
sequence names = read_lines(xcolors)
|
||||
set(st,"data",names)
|
||||
|
||||
main()
|
||||
|
||||
|
||||
Reference in New Issue
Block a user