added eugtk examples
This commit is contained in:
20
eugtk/examples/glade/test11.ex
Normal file
20
eugtk/examples/glade/test11.ex
Normal file
@@ -0,0 +1,20 @@
|
||||
|
||||
--# Glade version of test11.ex
|
||||
|
||||
include GtkEngine.e
|
||||
|
||||
add(builder,"~/demos/glade/test11.glade")
|
||||
|
||||
main()
|
||||
|
||||
-----------------------------------------------
|
||||
global function on_button_clicked(Button self)
|
||||
-----------------------------------------------
|
||||
switch get(self,"name") do
|
||||
case "left" then set("label1","justify",GTK_JUSTIFY_LEFT)
|
||||
case "center" then set("label1","justify",GTK_JUSTIFY_CENTER)
|
||||
case "right" then set("label1","justify",GTK_JUSTIFY_RIGHT)
|
||||
end switch
|
||||
return 1
|
||||
end function
|
||||
|
||||
Reference in New Issue
Block a user