32 lines
430 B
Plaintext
32 lines
430 B
Plaintext
IMAGE hello2
|
|
|
|
EXTERNAL olib
|
|
EXTERNAL hwim
|
|
|
|
INCLUDE hwimman.g
|
|
|
|
CLASS hellows wserv
|
|
window server active object
|
|
{
|
|
REPLACE ws_dyn_init
|
|
}
|
|
|
|
CLASS hellobw bwin
|
|
bordered window
|
|
{
|
|
REPLACE wn_init
|
|
REPLACE wn_draw
|
|
REPLACE wn_set
|
|
PROPERTY
|
|
{
|
|
UWORD isbye;
|
|
}
|
|
}
|
|
|
|
CLASS hellocm comman
|
|
command manager
|
|
{
|
|
ADD com_hello
|
|
ADD com_bye
|
|
}
|