supermario/base/SuperMarioProj.1994-02-09/Interfaces/PInterfaces/ObjIntf.p
2019-06-29 23:17:50 +08:00

57 lines
1.2 KiB
OpenEdge ABL

{
File: ObjIntf.p
Pascal Interface to the Macintosh Libraries
Copyright Apple Computer, Inc. 1986 - 1991
All rights reserved.
This file is used in these builds: ROM System
Change History (most recent first):
<2> 8/8/91 JL Updated copyright. Standardized header.
To Do:
}
{$IFC UNDEFINED UsingIncludes}
{$SETC UsingIncludes := 0}
{$ENDC}
{$IFC NOT UsingIncludes}
UNIT ObjIntf;
INTERFACE
{$ENDC}
{$IFC UNDEFINED UsingObjIntf}
{$SETC UsingObjIntf := 1}
TYPE
TObject = OBJECT
FUNCTION ShallowClone: TObject;
{Lowest level method for copying an object; should not be overridden
except in very unusual cases. Simply calls HandToHand to copy
the object data.}
FUNCTION Clone: TObject;
{Defaults to calling ShallowClone; can be overridden to copy objects
refered to by fields.}
PROCEDURE ShallowFree;
{Lowest level method for freeing an object; should not be overridden
except in very unusual cases. Simply calls DisposHandle to
free the object data.}
PROCEDURE Free;
{Defaults to calling ShallowFree; can be overridden to free objects
refered to by fields.}
END;
{$ENDC} { UsingObjIntf }
{$IFC NOT UsingIncludes}
END.
{$ENDC}