mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2025-01-03 09:31:04 +00:00
4325cdcc78
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
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}
|
|
|