31 lines
507 B
Plaintext
31 lines
507 B
Plaintext
LIBRARY ws$txt
|
|
|
|
EXTERNAL olib
|
|
|
|
INCLUDE p_std.h
|
|
INCLUDE p_object.h
|
|
INCLUDE olib.g
|
|
INCLUDE appman.g
|
|
|
|
CLASS txtsave active
|
|
NB Must be first class in DYL
|
|
{
|
|
REPLACE destroy
|
|
REPLACE ao_init
|
|
REPLACE ao_queue
|
|
REPLACE ao_run
|
|
REPLACE ao_abrun
|
|
CONSTANTS
|
|
{
|
|
CHAR_CR 13
|
|
TXTSAVE_BUFFER_LEN 256
|
|
}
|
|
PROPERTY
|
|
{
|
|
UINT ntags;
|
|
UINT curtag;
|
|
UINT pos;
|
|
TEXT buf[TXTSAVE_BUFFER_LEN];
|
|
}
|
|
}
|