mirror of
https://github.com/elliotnunn/BuildCubeE.git
synced 2024-09-28 11:54:37 +00:00
33 lines
828 B
OpenEdge ABL
33 lines
828 B
OpenEdge ABL
|
{
|
||
|
|
File: ObjIntf.p
|
||
|
|
|
||
|
|
Pascal Interface to the Macintosh Libraries
|
||
|
|
Copyright Apple Computer, Inc. 1986 - 1988
|
||
|
|
All rights reserved.
|
||
|
|
}
|
||
|
|
|
||
|
|
UNIT ObjIntf;
|
||
|
|
|
||
|
|
INTERFACE
|
||
|
|
|
||
|
|
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;
|
||
|
|
|
||
|
|
|
||
|
|
END.
|