33 lines
552 B
Plaintext
33 lines
552 B
Plaintext
subclass GroupMember of Obj
|
|
{
|
|
scratch = $0
|
|
pModule = $ffff ; -1
|
|
pLine = $ffff ; -1
|
|
pName = string_0042 ; ""
|
|
pServID = $0
|
|
|
|
init()
|
|
dispose()
|
|
servIDEquals()
|
|
}
|
|
|
|
subclass GroupList of Set
|
|
{
|
|
scratch = $0
|
|
pModule = $ffff ; -1
|
|
pLine = $ffff ; -1
|
|
elements = $0
|
|
size = $0
|
|
nextNode = $0
|
|
pLeader = $0
|
|
|
|
add()
|
|
delete()
|
|
findByServID()
|
|
}
|
|
|
|
string_0042 = ""
|
|
string_0043 = "GroupMember"
|
|
string_004f = "GroupList"
|
|
|