18 lines
357 B
Plaintext
18 lines
357 B
Plaintext
|
namespace b
|
||
|
|
|
||
|
|
include GtkEngine.e
|
||
|
|
|
||
|
|
export constant color = "green"
|
||
|
|
|
||
|
|
constant win = create(GtkWindow,{ -- not this window is NOT exported.
|
||
|
|
{"name","b:window"}, -- you must include the namespace as part of name
|
||
|
|
{"move",400,700},
|
||
|
|
{"title","Window B"}})
|
||
|
|
|
||
|
|
show_all(win)
|
||
|
|
|
||
|
|
export function clear()
|
||
|
|
set(win,"background",#dddddd)
|
||
|
|
return 1
|
||
|
|
end function
|