mirror of
https://github.com/elliotnunn/supermario.git
synced 2024-11-25 09:30:50 +00:00
57 lines
1.2 KiB
OpenEdge ABL
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}
|
||
|
|
|