diff options
Diffstat (limited to 'packages/univint/src/Lists.pas')
| -rw-r--r-- | packages/univint/src/Lists.pas | 1389 |
1 files changed, 1389 insertions, 0 deletions
diff --git a/packages/univint/src/Lists.pas b/packages/univint/src/Lists.pas new file mode 100644 index 0000000000..ab50da3f9b --- /dev/null +++ b/packages/univint/src/Lists.pas @@ -0,0 +1,1389 @@ +{ + File: HIToolbox/Lists.h + + Contains: List Manager Interfaces. + + Version: HIToolbox-219.4.81~2 + + Copyright: © 1985-2005 by Apple Computer, Inc., all rights reserved + + Bugs?: For bug reports, consult the following page on + the World Wide Web: + + http://www.freepascal.org/bugs.html + +} +{ Pascal Translation Updated: Peter N Lewis, <peter@stairways.com.au>, August 2005 } +{ + Modified for use with Free Pascal + Version 200 + Please report any bugs to <gpc@microbizz.nl> +} + +{$mode macpas} +{$packenum 1} +{$macro on} +{$inline on} +{$CALLING MWPASCAL} + +unit Lists; +interface +{$setc UNIVERSAL_INTERFACES_VERSION := $0342} +{$setc GAP_INTERFACES_VERSION := $0200} + +{$ifc not defined USE_CFSTR_CONSTANT_MACROS} + {$setc USE_CFSTR_CONSTANT_MACROS := TRUE} +{$endc} + +{$ifc defined CPUPOWERPC and defined CPUI386} + {$error Conflicting initial definitions for CPUPOWERPC and CPUI386} +{$endc} +{$ifc defined FPC_BIG_ENDIAN and defined FPC_LITTLE_ENDIAN} + {$error Conflicting initial definitions for FPC_BIG_ENDIAN and FPC_LITTLE_ENDIAN} +{$endc} + +{$ifc not defined __ppc__ and defined CPUPOWERPC} + {$setc __ppc__ := 1} +{$elsec} + {$setc __ppc__ := 0} +{$endc} +{$ifc not defined __i386__ and defined CPUI386} + {$setc __i386__ := 1} +{$elsec} + {$setc __i386__ := 0} +{$endc} + +{$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__} + {$error Conflicting definitions for __ppc__ and __i386__} +{$endc} + +{$ifc defined __ppc__ and __ppc__} + {$setc TARGET_CPU_PPC := TRUE} + {$setc TARGET_CPU_X86 := FALSE} +{$elifc defined __i386__ and __i386__} + {$setc TARGET_CPU_PPC := FALSE} + {$setc TARGET_CPU_X86 := TRUE} +{$elsec} + {$error Neither __ppc__ nor __i386__ is defined.} +{$endc} +{$setc TARGET_CPU_PPC_64 := FALSE} + +{$ifc defined FPC_BIG_ENDIAN} + {$setc TARGET_RT_BIG_ENDIAN := TRUE} + {$setc TARGET_RT_LITTLE_ENDIAN := FALSE} +{$elifc defined FPC_LITTLE_ENDIAN} + {$setc TARGET_RT_BIG_ENDIAN := FALSE} + {$setc TARGET_RT_LITTLE_ENDIAN := TRUE} +{$elsec} + {$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.} +{$endc} +{$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE} +{$setc CALL_NOT_IN_CARBON := FALSE} +{$setc OLDROUTINENAMES := FALSE} +{$setc OPAQUE_TOOLBOX_STRUCTS := TRUE} +{$setc OPAQUE_UPP_TYPES := TRUE} +{$setc OTCARBONAPPLICATION := TRUE} +{$setc OTKERNEL := FALSE} +{$setc PM_USE_SESSION_APIS := TRUE} +{$setc TARGET_API_MAC_CARBON := TRUE} +{$setc TARGET_API_MAC_OS8 := FALSE} +{$setc TARGET_API_MAC_OSX := TRUE} +{$setc TARGET_CARBON := TRUE} +{$setc TARGET_CPU_68K := FALSE} +{$setc TARGET_CPU_MIPS := FALSE} +{$setc TARGET_CPU_SPARC := FALSE} +{$setc TARGET_OS_MAC := TRUE} +{$setc TARGET_OS_UNIX := FALSE} +{$setc TARGET_OS_WIN32 := FALSE} +{$setc TARGET_RT_MAC_68881 := FALSE} +{$setc TARGET_RT_MAC_CFM := FALSE} +{$setc TARGET_RT_MAC_MACHO := TRUE} +{$setc TYPED_FUNCTION_POINTERS := TRUE} +{$setc TYPE_BOOL := FALSE} +{$setc TYPE_EXTENDED := FALSE} +{$setc TYPE_LONGLONG := TRUE} +uses MacTypes,Events,Quickdraw,Controls; + + +{$ALIGN MAC68K} + +type + Cell = Point; + CellPtr = ^Cell; +type + ListBounds = Rect; + ListBoundsPtr = ^ListBounds; + DataArray = packed array [0..32000] of char; +type + DataPtr = ^DataArray; +type + DataHandle = ^DataPtr; +type + ListSearchProcPtr = function( aPtr: Ptr; bPtr: Ptr; aLen: SInt16; bLen: SInt16 ): SInt16; +type + ListClickLoopProcPtr = function: Boolean; +type + ListSearchUPP = ListSearchProcPtr; +type + ListClickLoopUPP = ListClickLoopProcPtr; +type + ListRecPtr = ^ListRec; + ListRec = record + rView: Rect; { in Carbon use Get/SetListViewBounds} + port: GrafPtr; { in Carbon use Get/SetListPort} + indent: Point; { in Carbon use Get/SetListCellIndent} + cellSize: Point; { in Carbon use Get/SetListCellSize} + visible: ListBounds; { in Carbon use GetListVisibleCells} + vScroll: ControlRef; { in Carbon use GetListVerticalScrollBar} + hScroll: ControlRef; { in Carbon use GetListHorizontalScrollBar} + selFlags: SInt8; { in Carbon use Get/SetListSelectionFlags} + lActive: Boolean; { in Carbon use LActivate, GetListActive} + lReserved: SInt8; { not supported in Carbon } + listFlags: SInt8; { in Carbon use Get/SetListFlags } + clikTime: SInt32; { in Carbon use Get/SetListClickTime} + clikLoc: Point; { in Carbon use GetListClickLocation} + mouseLoc: Point; { in Carbon use GetListMouseLocation} + lClickLoop: ListClickLoopUPP; { in Carbon use Get/SetListClickLoop} + lastClick: Cell; { in Carbon use SetListLastClick} + refCon: SInt32; { in Carbon use Get/SetListRefCon} + listDefProc: Handle; { not supported in Carbon } + userHandle: Handle; { in Carbon use Get/SetListUserHandle} + dataBounds: ListBounds; { in Carbon use GetListDataBounds} + cells: DataHandle; { in Carbon use LGet/SetCell} + maxIndex: SInt16; { in Carbon use LGet/SetCell} + cellArray: array [0..0] of SInt16; { in Carbon use LGet/SetCell} + end; +type + ListPtr = ListRecPtr; +type + ListHandle = ^ListPtr; +{ ListRef is obsolete. Use ListHandle. } +type + ListRef = ListHandle; + + +const +{ ListRec.listFlags bits} + lDrawingModeOffBit = 3; + lDoVAutoscrollBit = 1; + lDoHAutoscrollBit = 0; + +const +{ ListRec.listFlags masks} + lDrawingModeOff = 8; + lDoVAutoscroll = 2; + lDoHAutoscroll = 1; + + +const +{ ListRec.selFlags bits} + lOnlyOneBit = 7; + lExtendDragBit = 6; + lNoDisjointBit = 5; + lNoExtendBit = 4; + lNoRectBit = 3; + lUseSenseBit = 2; + lNoNilHiliteBit = 1; + + +const +{ ListRec.selFlags masks} + lOnlyOne = $FFFFFF80; {-128} + lExtendDrag = 64; + lNoDisjoint = 32; + lNoExtend = 16; + lNoRect = 8; + lUseSense = 4; + lNoNilHilite = 2; + + +const +{ LDEF messages} + lInitMsg = 0; + lDrawMsg = 1; + lHiliteMsg = 2; + lCloseMsg = 3; + +{ + StandardIconListCellDataRec is the cell data format for + use with the standard icon list (kListDefStandardIconType). +} +type + StandardIconListCellDataRec = record + iconHandle: Handle; + font: SInt16; + face: SInt16; + size: SInt16; + name: Str255; + end; + StandardIconListCellDataPtr = ^StandardIconListCellDataRec; + + +type + ListDefProcPtr = procedure( lMessage: SInt16; lSelect: Boolean; var lRect: Rect; lCell: Cell; lDataOffset: SInt16; lDataLen: SInt16; lHandle: ListHandle ); +type + ListDefUPP = ListDefProcPtr; +{ + * NewListSearchUPP() + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: available as macro/inline + } +function NewListSearchUPP( userRoutine: ListSearchProcPtr ): ListSearchUPP; external name '_NewListSearchUPP'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + +{ + * NewListClickLoopUPP() + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: available as macro/inline + } +function NewListClickLoopUPP( userRoutine: ListClickLoopProcPtr ): ListClickLoopUPP; external name '_NewListClickLoopUPP'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + +{ + * NewListDefUPP() + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: available as macro/inline + } +function NewListDefUPP( userRoutine: ListDefProcPtr ): ListDefUPP; external name '_NewListDefUPP'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + +{ + * DisposeListSearchUPP() + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: available as macro/inline + } +procedure DisposeListSearchUPP( userUPP: ListSearchUPP ); external name '_DisposeListSearchUPP'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + +{ + * DisposeListClickLoopUPP() + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: available as macro/inline + } +procedure DisposeListClickLoopUPP( userUPP: ListClickLoopUPP ); external name '_DisposeListClickLoopUPP'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + +{ + * DisposeListDefUPP() + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: available as macro/inline + } +procedure DisposeListDefUPP( userUPP: ListDefUPP ); external name '_DisposeListDefUPP'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + +{ + * InvokeListSearchUPP() + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: available as macro/inline + } +function InvokeListSearchUPP( aPtr: Ptr; bPtr: Ptr; aLen: SInt16; bLen: SInt16; userUPP: ListSearchUPP ): SInt16; external name '_InvokeListSearchUPP'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + +{ + * InvokeListClickLoopUPP() + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: available as macro/inline + } +function InvokeListClickLoopUPP( userUPP: ListClickLoopUPP ): Boolean; external name '_InvokeListClickLoopUPP'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + +{ + * InvokeListDefUPP() + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: available as macro/inline + } +procedure InvokeListDefUPP( lMessage: SInt16; lSelect: Boolean; var lRect: Rect; lCell: Cell; lDataOffset: SInt16; lDataLen: SInt16; lHandle: ListHandle; userUPP: ListDefUPP ); external name '_InvokeListDefUPP'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + +const + kListDefProcPtr = 0; + kListDefUserProcType = kListDefProcPtr; + kListDefStandardTextType = 1; + kListDefStandardIconType = 2; + +type + ListDefType = UInt32; + ListDefSpec = record + defType: ListDefType; + case SInt16 of + 0: ( + userProc: ListDefUPP; + ); + end; +type + ListDefSpecPtr = ^ListDefSpec; +{ + * CreateCustomList() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: not available + } +function CreateCustomList( const (*var*) rView: Rect; const (*var*) dataBounds: ListBounds; cellSize: Point; const (*var*) theSpec: ListDefSpec; theWindow: WindowRef; drawIt: Boolean; hasGrow: Boolean; scrollHoriz: Boolean; scrollVert: Boolean; var outList: ListHandle ): OSStatus; external name '_CreateCustomList'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LNew() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +function LNew( const (*var*) rView: Rect; const (*var*) dataBounds: ListBounds; cSize: Point; theProc: SInt16; theWindow: WindowRef; drawIt: Boolean; hasGrow: Boolean; scrollHoriz: Boolean; scrollVert: Boolean ): ListHandle; external name '_LNew'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LDispose() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +procedure LDispose( lHandle: ListHandle ); external name '_LDispose'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LAddColumn() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +function LAddColumn( count: SInt16; colNum: SInt16; lHandle: ListHandle ): SInt16; external name '_LAddColumn'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LAddRow() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +function LAddRow( count: SInt16; rowNum: SInt16; lHandle: ListHandle ): SInt16; external name '_LAddRow'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LDelColumn() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +procedure LDelColumn( count: SInt16; colNum: SInt16; lHandle: ListHandle ); external name '_LDelColumn'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LDelRow() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +procedure LDelRow( count: SInt16; rowNum: SInt16; lHandle: ListHandle ); external name '_LDelRow'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LGetSelect() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +function LGetSelect( next: Boolean; var theCell: Cell; lHandle: ListHandle ): Boolean; external name '_LGetSelect'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LLastClick() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +function LLastClick( lHandle: ListHandle ): Cell; external name '_LLastClick'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LNextCell() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +function LNextCell( hNext: Boolean; vNext: Boolean; var theCell: Cell; lHandle: ListHandle ): Boolean; external name '_LNextCell'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LSearch() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +function LSearch( dataPtr: {const} UnivPtr; dataLen: SInt16; searchProc: ListSearchUPP; var theCell: Cell; lHandle: ListHandle ): Boolean; external name '_LSearch'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LSize() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +procedure LSize( listWidth: SInt16; listHeight: SInt16; lHandle: ListHandle ); external name '_LSize'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LSetDrawingMode() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +procedure LSetDrawingMode( drawIt: Boolean; lHandle: ListHandle ); external name '_LSetDrawingMode'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LScroll() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +procedure LScroll( dCols: SInt16; dRows: SInt16; lHandle: ListHandle ); external name '_LScroll'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LAutoScroll() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +procedure LAutoScroll( lHandle: ListHandle ); external name '_LAutoScroll'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LUpdate() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +procedure LUpdate( theRgn: RgnHandle; lHandle: ListHandle ); external name '_LUpdate'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LActivate() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +procedure LActivate( act: Boolean; lHandle: ListHandle ); external name '_LActivate'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LCellSize() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +procedure LCellSize( cSize: Point; lHandle: ListHandle ); external name '_LCellSize'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LClick() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +function LClick( pt: Point; modifiers: EventModifiers; lHandle: ListHandle ): Boolean; external name '_LClick'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LAddToCell() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +procedure LAddToCell( dataPtr: {const} UnivPtr; dataLen: SInt16; theCell: Cell; lHandle: ListHandle ); external name '_LAddToCell'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LClrCell() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +procedure LClrCell( theCell: Cell; lHandle: ListHandle ); external name '_LClrCell'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LGetCell() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +procedure LGetCell( dataPtr: UnivPtr; var dataLen: SInt16; theCell: Cell; lHandle: ListHandle ); external name '_LGetCell'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LRect() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +procedure LRect( var cellRect: Rect; theCell: Cell; lHandle: ListHandle ); external name '_LRect'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LSetCell() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +procedure LSetCell( dataPtr: {const} UnivPtr; dataLen: SInt16; theCell: Cell; lHandle: ListHandle ); external name '_LSetCell'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LSetSelect() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +procedure LSetSelect( setIt: Boolean; theCell: Cell; lHandle: ListHandle ); external name '_LSetSelect'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LDraw() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +procedure LDraw( theCell: Cell; lHandle: ListHandle ); external name '_LDraw'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * LGetCellDataLocation() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } +procedure LGetCellDataLocation( var offset: SInt16; var len: SInt16; theCell: Cell; lHandle: ListHandle ); external name '_LGetCellDataLocation'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ Routines available in Carbon only} + +{ + * RegisterListDefinition() + * + * Summary: + * Registers a binding between a resource ID and a list definition + * function. + * + * Discussion: + * In the Mac OS 8.x List Manager, a 'ldes' resource can contain an + * embedded LDEF procID that is used by the List Manager as the + * resource ID of an 'LDEF' resource to measure and draw the list. + * Since LDEFs can no longer be packaged as code resources on + * Carbon, the procID can no longer refer directly to an LDEF + * resource. However, using RegisterListDefinition you can instead + * specify a UniversalProcPtr pointing to code in your application + * code fragment. + * + * Mac OS X threading: + * Not thread safe + * + * Parameters: + * + * inResID: + * An LDEF proc ID, as used in a 'ldes' resource. + * + * inDefSpec: + * Specifies the ListDefUPP that should be used for lists with the + * given LDEF procID. + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.5 and later + * Non-Carbon CFM: not available + } +function RegisterListDefinition( inResID: SInt16; inDefSpec: ListDefSpecPtr ): OSStatus; external name '_RegisterListDefinition'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + + +{ + * laddtocell() + * + * Availability: + * Mac OS X: not available + * CarbonLib: not available + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } + + +{ + * lclrcell() + * + * Availability: + * Mac OS X: not available + * CarbonLib: not available + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } + + +{ + * lgetcelldatalocation() + * + * Availability: + * Mac OS X: not available + * CarbonLib: not available + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } + + +{ + * lgetcell() + * + * Availability: + * Mac OS X: not available + * CarbonLib: not available + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } + + +{ + * lnew() + * + * Availability: + * Mac OS X: not available + * CarbonLib: not available + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } + + +{ + * lrect() + * + * Availability: + * Mac OS X: not available + * CarbonLib: not available + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } + + +{ + * lsetcell() + * + * Availability: + * Mac OS X: not available + * CarbonLib: not available + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } + + +{ + * lsetselect() + * + * Availability: + * Mac OS X: not available + * CarbonLib: not available + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } + + +{ + * ldraw() + * + * Availability: + * Mac OS X: not available + * CarbonLib: not available + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } + + +{ + * lclick() + * + * Availability: + * Mac OS X: not available + * CarbonLib: not available + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } + + +{ + * lcellsize() + * + * Availability: + * Mac OS X: not available + * CarbonLib: not available + * Non-Carbon CFM: in InterfaceLib 7.1 and later + } + + + +{ Getters } +{ + * GetListViewBounds() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListViewBounds( list: ListHandle; var view: Rect ): RectPtr; external name '_GetListViewBounds'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * GetListPort() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListPort( list: ListHandle ): CGrafPtr; external name '_GetListPort'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * GetListCellIndent() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListCellIndent( list: ListHandle; var indent: Point ): PointPtr; external name '_GetListCellIndent'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * GetListCellSize() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListCellSize( list: ListHandle; var size: Point ): PointPtr; external name '_GetListCellSize'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * GetListVisibleCells() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListVisibleCells( list: ListHandle; var visible: ListBounds ): ListBoundsPtr; external name '_GetListVisibleCells'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * GetListVerticalScrollBar() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListVerticalScrollBar( list: ListHandle ): ControlRef; external name '_GetListVerticalScrollBar'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * GetListHorizontalScrollBar() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListHorizontalScrollBar( list: ListHandle ): ControlRef; external name '_GetListHorizontalScrollBar'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * GetListActive() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListActive( list: ListHandle ): Boolean; external name '_GetListActive'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * GetListClickTime() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListClickTime( list: ListHandle ): SInt32; external name '_GetListClickTime'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * GetListClickLocation() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListClickLocation( list: ListHandle; var click: Point ): PointPtr; external name '_GetListClickLocation'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * GetListMouseLocation() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListMouseLocation( list: ListHandle; var mouse: Point ): PointPtr; external name '_GetListMouseLocation'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * GetListClickLoop() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListClickLoop( list: ListHandle ): ListClickLoopUPP; external name '_GetListClickLoop'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * GetListRefCon() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListRefCon( list: ListHandle ): SInt32; external name '_GetListRefCon'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * GetListDefinition() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListDefinition( list: ListHandle ): Handle; external name '_GetListDefinition'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * GetListUserHandle() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListUserHandle( list: ListHandle ): Handle; external name '_GetListUserHandle'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * GetListDataBounds() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListDataBounds( list: ListHandle; var bounds: ListBounds ): ListBoundsPtr; external name '_GetListDataBounds'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * GetListDataHandle() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListDataHandle( list: ListHandle ): DataHandle; external name '_GetListDataHandle'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * GetListFlags() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListFlags( list: ListHandle ): OptionBits; external name '_GetListFlags'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * GetListSelectionFlags() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +function GetListSelectionFlags( list: ListHandle ): OptionBits; external name '_GetListSelectionFlags'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ Setters } +{ + * SetListViewBounds() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +procedure SetListViewBounds( list: ListHandle; const (*var*) view: Rect ); external name '_SetListViewBounds'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * SetListPort() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +procedure SetListPort( list: ListHandle; port: CGrafPtr ); external name '_SetListPort'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * SetListCellIndent() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +procedure SetListCellIndent( list: ListHandle; var indent: Point ); external name '_SetListCellIndent'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * SetListClickTime() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +procedure SetListClickTime( list: ListHandle; time: SInt32 ); external name '_SetListClickTime'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * SetListClickLoop() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +procedure SetListClickLoop( list: ListHandle; clickLoop: ListClickLoopUPP ); external name '_SetListClickLoop'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * SetListLastClick() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +procedure SetListLastClick( list: ListHandle; var lastClick: Cell ); external name '_SetListLastClick'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * SetListRefCon() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +procedure SetListRefCon( list: ListHandle; refCon: SInt32 ); external name '_SetListRefCon'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * SetListUserHandle() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +procedure SetListUserHandle( list: ListHandle; userHandle: Handle ); external name '_SetListUserHandle'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * SetListFlags() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +procedure SetListFlags( list: ListHandle; listFlags: OptionBits ); external name '_SetListFlags'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ + * SetListSelectionFlags() + * + * Mac OS X threading: + * Not thread safe + * + * Availability: + * Mac OS X: in version 10.0 and later in Carbon.framework + * CarbonLib: in CarbonLib 1.0 and later + * Non-Carbon CFM: in CarbonAccessors.o 1.0 and later + } +procedure SetListSelectionFlags( list: ListHandle; selectionFlags: OptionBits ); external name '_SetListSelectionFlags'; +(* AVAILABLE_MAC_OS_X_VERSION_10_0_AND_LATER *) + + +{ WARNING: These may go away in a future build. Beware! } +{ + * SetListDefinition() + * + * Availability: + * Mac OS X: not available + * CarbonLib: not available + * Non-Carbon CFM: not available + } + + +{ + * SetListCellSize() + * + * Availability: + * Mac OS X: not available + * CarbonLib: not available + * Non-Carbon CFM: not available + } + + +{ + * SetListHorizontalScrollBar() + * + * Availability: + * Mac OS X: not available + * CarbonLib: not available + * Non-Carbon CFM: not available + } + + +{ + * SetListVerticalScrollBar() + * + * Availability: + * Mac OS X: not available + * CarbonLib: not available + * Non-Carbon CFM: not available + } + + +{ + * SetListVisibleCells() + * + * Availability: + * Mac OS X: not available + * CarbonLib: not available + * Non-Carbon CFM: not available + } + + + + +end. |