added eugtk examples
This commit is contained in:
29
eugtk/examples/glade/help.e
Normal file
29
eugtk/examples/glade/help.e
Normal file
@@ -0,0 +1,29 @@
|
||||
|
||||
--------------
|
||||
namespace help -- used by main.ex
|
||||
--------------
|
||||
|
||||
include GtkEngine.e
|
||||
|
||||
ifdef WINDOWS then
|
||||
add(builder,"help.glade")
|
||||
elsedef
|
||||
add(builder,"~/demos/glade/help.glade")
|
||||
end ifdef
|
||||
|
||||
-- About window1 is designed completely in Glade, all we need to do
|
||||
-- here is to show or hide it as appropriate;
|
||||
|
||||
-----------------------------------------------------------------------
|
||||
export function show(atom ctl, atom data)
|
||||
-----------------------------------------------------------------------
|
||||
set("help:window1","visible",TRUE)
|
||||
return 1
|
||||
end function
|
||||
|
||||
-----------------------------------------------------------------------
|
||||
export function close(atom ctl, atom data)
|
||||
-----------------------------------------------------------------------
|
||||
set("help:window1","visible",FALSE)
|
||||
return 1
|
||||
end function
|
||||
Reference in New Issue
Block a user