18 lines
350 B
Plaintext
18 lines
350 B
Plaintext
namespace a
|
|
|
|
include GtkEngine.e
|
|
|
|
export constant color = "red"
|
|
|
|
constant win = create(GtkWindow,{ -- this window is NOT exported
|
|
{"name","a:window"}, -- note that this name must include the namespace!
|
|
{"move",200,300},
|
|
{"title","Window A"}})
|
|
|
|
show_all(win)
|
|
|
|
export function clear()
|
|
set(win,"background",#dddddd)
|
|
return 1
|
|
end function
|