16 lines
404 B
Plaintext
16 lines
404 B
Plaintext
|
namespace about
|
||
|
|
|
||
|
|
include GtkEngine.e
|
||
|
|
|
||
|
|
add(builder,canonical_path("~/demos/glade/about.glade"))
|
||
|
|
|
||
|
|
constant dlg = pointer("about:aboutdialog1")
|
||
|
|
|
||
|
|
-----------------------------------------------------------------------
|
||
|
|
global function on_help_about_activate()
|
||
|
|
-----------------------------------------------------------------------
|
||
|
|
if get(dlg,"run") then end if
|
||
|
|
set(dlg,"hide")
|
||
|
|
return 1
|
||
|
|
end function
|