mirror of
https://github.com/elliotnunn/mac-rom.git
synced 2024-12-29 07:29:15 +00:00
76 lines
1.6 KiB
OpenEdge ABL
76 lines
1.6 KiB
OpenEdge ABL
|
{
|
||
|
File: ToolIntf.p
|
||
|
|
||
|
As of MPW 3.0, interface files were reorganized to more closely
|
||
|
match "Inside Macintosh" reference books and be more consistant
|
||
|
from language to language.
|
||
|
|
||
|
Interfaces for the Macintosh toolbox calls are now found in the
|
||
|
files included below. This file is provided for compatibility
|
||
|
with old sources.
|
||
|
|
||
|
Pascal Interface to the Macintosh Libraries
|
||
|
Copyright Apple Computer, Inc. 1988
|
||
|
All Rights Reserved
|
||
|
}
|
||
|
|
||
|
{$IFC UNDEFINED UsingIncludes}
|
||
|
{$SETC UsingIncludes := 0}
|
||
|
{$ENDC}
|
||
|
|
||
|
{$IFC NOT UsingIncludes}
|
||
|
UNIT ToolIntf;
|
||
|
INTERFACE
|
||
|
{$ENDC}
|
||
|
|
||
|
{$IFC UNDEFINED UsingToolIntf}
|
||
|
{$SETC UsingToolIntf := 1}
|
||
|
|
||
|
{$I+}
|
||
|
{$SETC ToolIntfIncludes := UsingIncludes}
|
||
|
{$SETC UsingIncludes := 1}
|
||
|
{$IFC UNDEFINED UsingEvents}
|
||
|
{$I $$Shell(PInterfaces)Events.p}
|
||
|
{$ENDC}
|
||
|
{$IFC UNDEFINED UsingControls}
|
||
|
{$I $$Shell(PInterfaces)Controls.p}
|
||
|
{$ENDC}
|
||
|
{$IFC UNDEFINED UsingDesk}
|
||
|
{$I $$Shell(PInterfaces)Desk.p}
|
||
|
{$ENDC}
|
||
|
{$IFC UNDEFINED UsingWindows}
|
||
|
{$I $$Shell(PInterfaces)Windows.p}
|
||
|
{$ENDC}
|
||
|
{$IFC UNDEFINED UsingTextEdit}
|
||
|
{$I $$Shell(PInterfaces)TextEdit.p}
|
||
|
{$ENDC}
|
||
|
{$IFC UNDEFINED UsingDialogs}
|
||
|
{$I $$Shell(PInterfaces)Dialogs.p}
|
||
|
{$ENDC}
|
||
|
{$IFC UNDEFINED UsingFonts}
|
||
|
{$I $$Shell(PInterfaces)Fonts.p}
|
||
|
{$ENDC}
|
||
|
{$IFC UNDEFINED UsingLists}
|
||
|
{$I $$Shell(PInterfaces)Lists.p}
|
||
|
{$ENDC}
|
||
|
{$IFC UNDEFINED UsingMenus}
|
||
|
{$I $$Shell(PInterfaces)Menus.p}
|
||
|
{$ENDC}
|
||
|
{$IFC UNDEFINED UsingResources}
|
||
|
{$I $$Shell(PInterfaces)Resources.p}
|
||
|
{$ENDC}
|
||
|
{$IFC UNDEFINED UsingScrap}
|
||
|
{$I $$Shell(PInterfaces)Scrap.p}
|
||
|
{$ENDC}
|
||
|
{$IFC UNDEFINED UsingToolUtils}
|
||
|
{$I $$Shell(PInterfaces)ToolUtils.p}
|
||
|
{$ENDC}
|
||
|
{$SETC UsingIncludes := ToolIntfIncludes}
|
||
|
|
||
|
{$ENDC} { UsingToolIntf }
|
||
|
|
||
|
{$IFC NOT UsingIncludes}
|
||
|
END.
|
||
|
{$ENDC}
|
||
|
|