30 lines
808 B
Plaintext
30 lines
808 B
Plaintext
|
|
--------------
|
|
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
|