{ 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, , August 2005 } { Modified for use with Free Pascal Version 210 Please report any bugs to } {$mode macpas} {$packenum 1} {$macro on} {$inline on} {$calling mwpascal} unit Lists; interface {$setc UNIVERSAL_INTERFACES_VERSION := $0342} {$setc GAP_INTERFACES_VERSION := $0210} {$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.