mirror of
https://github.com/elliotnunn/sys7.1-doc-wip.git
synced 2024-06-12 14:29:29 +00:00
150 lines
4.0 KiB
OpenEdge ABL
150 lines
4.0 KiB
OpenEdge ABL
{
|
|
File: IconUtilsPriv.p
|
|
|
|
Contains: Private Pascal Interface for color icon plotting utilities
|
|
|
|
Written by: Nick Kledzik
|
|
|
|
Copyright: © 1990-1992 by Apple Computer, Inc., all rights reserved.
|
|
|
|
Change History (most recent first):
|
|
|
|
<13> 3/20/92 DC Added UpdateIconGlobals to private interfaces
|
|
<12> 3/19/92 DC Changed the printerPortCache field in the GlobalIconData
|
|
structure so that the structure would not change (and Radius
|
|
products will not break)
|
|
<11> 3/17/92 DC Exported all definitions to Icons.p except get and set icon
|
|
device, SetLabel and internal data structures.
|
|
<10> 10/29/91 DC Conditionalized last change to protect CubeE
|
|
<9> 8/30/91 DC Added printerPortCache to the globals to allow improved printing
|
|
case check.
|
|
<8> 8/28/91 JSM Cleanup header.
|
|
<7> 1/8/91 JDR (dba) Removing private Icon Utilities routines.
|
|
<6> 11/19/90 DC ngk - Moved System Icon ID's from private to public
|
|
<5> 9/15/90 DC changed setlabel to live here
|
|
<4> 9/6/90 DC Fixed the definition of icon global structure for selected cluts
|
|
<3> 7/25/90 DC Added ExpandMem structure for parallelism with IconUtilsPriv.h
|
|
<2> 7/23/90 DC brought up to date with IconUtilsPriv.p
|
|
<1> 6/6/90 ngk first checked in
|
|
<0+> 6/6/90 ngk Added generic icon ID definitions
|
|
}
|
|
|
|
{$IFC UNDEFINED UsingIncludes}
|
|
{$SETC UsingIncludes := 0}
|
|
{$ENDC}
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
UNIT IconUtilsPriv;
|
|
INTERFACE
|
|
{$ENDC}
|
|
|
|
{$IFC UNDEFINED UsingIconUtilsPriv}
|
|
{$SETC UsingIconUtilsPriv := 1}
|
|
|
|
{$I+}
|
|
{$SETC IconUtilsPrivIncludes := UsingIncludes}
|
|
{$SETC UsingIncludes := 1}
|
|
{$IFC UNDEFINED UsingIcons}
|
|
{$I Icons.p}
|
|
{$ENDC}
|
|
{$SETC UsingIncludes := IconUtilsPrivIncludes}
|
|
|
|
|
|
CONST
|
|
|
|
genericIconBase = -4000;
|
|
popupMenuSymbolResource = -3990;
|
|
standalonePopupMenuSymbolResource = -3986;
|
|
|
|
genericMailboxIconResource = -3987; {excise from 7.0}
|
|
genericLetterIconResource = -3988; {excise from 7.0}
|
|
|
|
{ IconType's }
|
|
largeIcon1 = 0;
|
|
largeIcon4 = 1;
|
|
largeIcon8 = 2;
|
|
smallIcon1 = 3;
|
|
smallIcon4 = 4;
|
|
smallIcon8 = 5;
|
|
miniIcon1 = 6;
|
|
miniIcon4 = 7;
|
|
miniIcon8 = 8;
|
|
aCIcon = 128;
|
|
|
|
IconSpace = miniIcon8 + 1;
|
|
IconDepthSpace = smallIcon1 - largeIcon1;
|
|
IconSizeSpace = IconSpace DIV IconDepthSpace;
|
|
|
|
transformMask = $03;
|
|
labelShift = $08;
|
|
labelMask = $0F00;
|
|
Labels = 8;
|
|
Sets = 8;
|
|
|
|
TYPE
|
|
IconType = INTEGER;
|
|
|
|
IconSuiteHandle = ^IconSuitePtr;
|
|
IconSuitePtr = ^IconSuite;
|
|
IconSuite = RECORD
|
|
isTag: INTEGER; { 0=>suite, 1=>cache }
|
|
isLabel: INTEGER;
|
|
table: ARRAY [0..IconSpace-1] OF Handle;
|
|
END;
|
|
|
|
IconCacheHandle = ^IconCachePtr;
|
|
IconCachePtr = ^IconCache;
|
|
IconCache = RECORD
|
|
theSuite: IconSuite;
|
|
userPtr: Ptr;
|
|
userMethod: IconGetter;
|
|
END;
|
|
|
|
DeviceCheck = RECORD
|
|
theDevice: GDHandle;
|
|
theSeed: LONGINT;
|
|
checkMask: LONGINT;
|
|
checkResults: LONGINT;
|
|
disabledCheckMask: LONGINT;
|
|
disabledCheckResults: LONGINT;
|
|
END;
|
|
|
|
Strings = ARRAY[0..Labels-1] OF Handle;
|
|
|
|
GlobalIconDataHandle = ^GlobalIconDataPtr;
|
|
GlobalIconDataPtr = ^GlobalIconData;
|
|
GlobalIconData = RECORD
|
|
labelStrings: Strings;
|
|
seeds: ARRAY [0..((Labels*Sets)-1)] OF LONGINT;
|
|
colorTables: ARRAY [0..((Labels*Sets)-1)] OF CTabHandle;
|
|
originals: ARRAY [0..1] OF CTabHandle;
|
|
labelColors: ARRAY [0..Labels-1] OF RGBColor;
|
|
indexLists: ARRAY [0..1] OF Handle;
|
|
virtualScreen: GDHandle;
|
|
deviceListSize: LONGINT;
|
|
deviceCheckList: ARRAY[0..0] OF DeviceCheck;
|
|
END;
|
|
|
|
|
|
PROCEDURE SetIconDevice(theScreen: GDHandle);
|
|
INLINE $303C, $0218, $ABC9;
|
|
|
|
PROCEDURE GetIconDevice(VAR theScreen: GDHandle);
|
|
INLINE $303C, $0220, $ABC9;
|
|
|
|
|
|
FUNCTION SetLabel(labelNumber: INTEGER; labelColor: RGBColor;
|
|
labelString: Str255): OSErr;
|
|
INLINE $303C, $050C, $ABC9;
|
|
|
|
{$IFC TheFuture}
|
|
FUNCTION UpdateIconGlobals: OSErr;
|
|
INLINE $303C, $0021, $ABC9;
|
|
{$ENDC}
|
|
|
|
{$ENDC} { UsingIconUtilsPriv }
|
|
|
|
{$IFC NOT UsingIncludes}
|
|
END.
|
|
{$ENDC}
|