Category : Windows 3.X Files
Archive   : ACTTIMS.ZIP
Filename : INTERSEC.CLS

/* class comment */!!

inherit(OwnedObj, #IntersectObj, nil, 2, nil)!!

now(class(IntersectObj))!!

Def new(self, ownerobj, db)
{
^init(new(self:Behavior), ownerobj, db);
}
!!

now(IntersectObj)!!

Def setIntType(self, tmp)
{
data[#int_type] := tmp;
}!!

Def getIntType(self)
{
^data[#int_type];
}!!

Def makeNew(self, info, key)
{
newObj(self);
connectTo(self, info, INFO_TO_KEY);
connectTo(self, key, KEY_TO_INFO);
}
!!

Def init(self, owner, db | tmp)
{
tmp := init(self:ancestor, db, #intersect, INTERSECT);
if class(owner) = InfoObj then
setNum := INFO_TO_KEY;
else
if class(owner) = KeyWordObj then
setNum := KEY_TO_INFO;
else
errorBox("Invalid Owner of Intersect", asString(class(owner)));
^nil;
endif;
endif;
^tmp;
}!!