From VisualWorks®, 7.6 of February 1, 2008 on February 1, 2008 at 12:28:14 pm (Dialog confirm: 'You are filing-in a Parcel source file!\\While this is possible it will not have\the same effect as loading the parcel.\None of the Parcel''s prerequisites will\be loaded and none of its load actions\will be performed.\\Are you sure you want to file-in?' withCRs) ifFalse: [self error: 'Parcel file-in abandoned. Choose terminate or close.'] <class> <name>MacToolBox</name> <environment>OS</environment> <super>External.ExternalInterface</super> <private>false</private> none <imports> OS.MacToolBoxDictionary.* </imports> <category>MacInterfaces-Basic</category> <attributes> <includeFiles></includeFiles> <includeDirectories></includeDirectories> <libraryFiles><item>InterfaceLib</item></libraryFiles> <libraryDirectories></libraryDirectories> false full <package>MacExtra</package> </attributes> </class> <class> <name>MacAliasManager</name> <environment>OS</environment> <super>OS.MacToolBox</super> <private>false</private> none <imports> OS.MacAliasManagerDictionary.* </imports> <category>MacInterfaces-AppleEvents</category> <attributes> <includeFiles></includeFiles> <includeDirectories></includeDirectories> <libraryFiles></libraryFiles> <libraryDirectories></libraryDirectories> false full <package>MacExtra</package> </attributes> </class> <class> <name>MacEnvironmentBrowser</name> <environment>Tools</environment> <super>UI.ApplicationModel</super> <private>false</private> none envVarList envVarValue oldSelection <imports></imports> <category>MacTools</category> <attributes> <package>MacExtra</package> </attributes> </class> <comment> Tools.MacEnvironmentBrowser
This class implements a browser for environment variables on the Macintosh. Instance Variables: envVarList <SelectionInList> list of existing environment variables envVarValue <String> value of a selected environment variable
</comment> <class> <name>AppleEventDescriptor</name> <environment>OS</environment> <super>Core.Object</super> <private>false</private> none desc <imports></imports> <category>MacInterfaces-AppleEvents</category> <attributes> <package>MacExtra</package> </attributes> </class> <class> <name>MacAppLaunchInterface</name> <environment>OS</environment> <super>External.ExternalInterface</super> <private>false</private> none <imports> OS.MacAppLaunchInterfaceDictionary.* </imports> <category>OS-Mac</category> <attributes> <includeFiles><item>Files.h</item> <item>Processes.h</item></includeFiles> <includeDirectories><item>HD:CIncludes:</item></includeDirectories> <libraryFiles><item>InterfaceLib</item></libraryFiles> <libraryDirectories></libraryDirectories> false full <package>MacExtra</package> </attributes> </class> <comment> OS.MacAppLaunchInterface
This class provides a way to launch other applications on a PowerMacintosh. The typical usage would be: LaunchAppInterface launchApp: 'Hard disk:Applications:My Application'.
</comment> <class> <name>MacAEManager</name> <environment>OS</environment> <super>OS.MacToolBox</super> <private>false</private> none <imports> OS.MacAEManagerDictionary.* </imports> <category>MacInterfaces-AppleEvents</category> <attributes> <includeFiles></includeFiles> <includeDirectories></includeDirectories> <libraryFiles></libraryFiles> <libraryDirectories></libraryDirectories> false full <package>MacExtra</package> </attributes> </class> <class> <name>SoundManager</name> <environment>OS</environment> <super>Core.Object</super> <private>false</private> none <imports></imports> <category>OS-Mac-Support</category> <attributes> <package>MacExtra</package> </attributes> </class> <comment> OS.SoundManager
SoundManager allows the Advanced Macintosh/Smalltalk programmer to use the Macintosh Sound Manager Utilities to enumerate and play available sounds from either the System file or a named file containing sound resources.
</comment> <methods> OS.MacToolBox <category>types</category>
Boolean <C: typedef unsigned char Boolean>
FSSpec <C: typedef struct { short vRefNum; long parID; char name[64]; } FSSpec>
Handle <C: typedef Ptr *Handle>
OSErr <C: typedef short OSErr>
OSType <C: typedef unsigned long OSType>
Ptr <C: typedef char * Ptr>
</methods> <methods> OS.MacToolBox <category>aux procedures</category>
getHandleData: handle | p size data | handle isNull ifTrue: [^nil]. self HLock: handle. p := handle contents. size := self GetHandleSize: handle. data := ByteArray new: size. p copyAt: 0 to: data size: size startingAt: 1. self HUnlock: handle. ^data
getHandleData: handle as: class | data | data := self getHandleData: handle. ^data == nil ifFalse: [data changeClassToThatOf: class basicNew]
OSTypeFrom: aString | str t | str := IOAccessor convertStringForPlatform: aString. t := UninterpretedBytes new: 4. t replaceBytesFrom: 1 to: (4 min: str size) with: str startingAt: 1. ^t unsignedLongAt: 1
</methods> <methods> OS.MacAliasManager <category>types</category>
AliasHandle <C: typedef AliasRecord ** AliasHandle>
AliasRecord <C: typedef struct { OSType userType; unsigned short aliasSize; char aliasData[0]; } AliasRecord>
</methods> <methods> OS.MacAliasManager <category>utilities</category>
aliasFromPath: aString "MacAliasManager new aliasFromPath: 'Festplatte:MPW:Interfaces:CIncludes'" | alias result | alias := self Handle malloc. [result := self NewAliasMinimalFromFullPath: aString size string: (String defaultPlatformClass fromString: aString) zone: nil server: nil alias: alias. result = 0 ifFalse: [self error: 'NewAlias: error ' , result printString]] ifCurtailed: [alias contents isNull ifFalse: [self DisposeHandle: alias contents]. alias free. alias := nil]. alias == nil ifFalse: [result := self getHandleData: alias contents. self DisposeHandle: alias contents. alias free. alias := result]. ^alias
</methods> <methods> Tools.MacEnvironmentBrowser <category>actions</category>
cancel "Reset the selected variable to the value in the preferences file." self changedListSelection
changeSelection "Set the selected environment variable to the new value in envVarValue." | sel | (sel := envVarList selection) notNil ifTrue: [SystemUtils setEnvironmentVariable: sel value: envVarValue value. self disableButtons]
deleteSelection "Delete the selected environment variable from the preferences file. Ignore changes in the envVarValue field." | sel | (sel := envVarList selection) notNil ifTrue: [PowerMacSystemSupport deleteEnvironmentVariableNamed: sel. envVarValue value: ''. self disableButtons]. self updateList
newVariable "Create a new environment variable by asking the user for its name." | res | res := Dialog request: 'Enter a name for a new environment variable:' initialAnswer: 'NEWVAR'. res notNil ifTrue: [SystemUtils setEnvironmentVariable: res value: '< no value yet >']. self updateList. envVarList selection: res
</methods> <methods> Tools.MacEnvironmentBrowser <category>private</category>
changedListSelection "If the user selects something in the envVarList, this method is invoked via 'onChangeSend:' mechanism. So look for changes in the envVarValue field, react when something is present, otherwise display the value of the now selected environment variable." | save | envVarValue retractInterestsFor: self. (self builder componentAt: #changeButton) isEnabled ifTrue: [(Dialog confirm: 'Do you wish to discard those changes?') ifFalse: [envVarList selectionIndexHolder retractInterestsFor: self. save := envVarValue value. envVarList selection: oldSelection. envVarValue value: save. envVarList selectionIndexHolder onChangeSend: #changedListSelection to: self. envVarValue onChangeSend: #enableButtons to: self. ^self]]. envVarList selection isNil ifTrue: [envVarValue value: ''] ifFalse: [envVarValue value: (SystemUtils getEnvironmentVariable: (oldSelection := envVarList selection))]. envVarValue onChangeSend: #enableButtons to: self. self disableButtons
disableButtons "Disable the cancel and change button." | b | b := self builder. (b componentAt: #cancleButton) disable. (b componentAt: #changeButton) disable
enableButtons "Enable the cancel and change button." | b | b := self builder. (b componentAt: #cancleButton) enable. (b componentAt: #changeButton) enable
updateList "Read all environment variables from the preferences file and display them in the list." envVarList list: PowerMacSystemSupport getAllEnvironmentVariableNames
</methods> <methods> Tools.MacEnvironmentBrowser <category>aspects</category>
envVarList "This method was generated by UIDefiner. Any edits made here may be lost whenever methods are automatically defined. The initialization provided below may have been preempted by an initialize method." ^envVarList isNil ifTrue: [envVarList := SelectionInList new] ifFalse: [envVarList]
envVarValue "This method was generated by UIDefiner. Any edits made here may be lost whenever methods are automatically defined. The initialization provided below may have been preempted by an initialize method." ^envVarValue isNil ifTrue: [envVarValue := String new asValue] ifFalse: [envVarValue]
</methods> <methods> Tools.MacEnvironmentBrowser <category>interface opening</category>
postOpenWith: aBuilder "Set up all dependencies for envarList and envVarValue and fill the list with values." envVarList selectionIndexHolder onChangeSend: #changedListSelection to: self. (aBuilder componentAt: #valueField) widget controller continuousAccept: true. envVarValue onChangeSend: #enableButtons to: self. self disableButtons. self updateList
</methods> <methods> Tools.MacEnvironmentBrowser <category>initialize release</category>
release "Get rid of the DependencyTransformers." envVarList selectionIndexHolder retractInterestsFor: self. envVarValue retractInterestsFor: self.
</methods> <methods> OS.AppleEventDescriptor <category>ae functions</category>
addDesc: aDescriptor ^self addDesc: aDescriptor at: 0
addDesc: aDescriptor at: index | result | result := self manager AEPutDesc: desc index: index desc: aDescriptor desc. result = 0 ifFalse: [self error: #AEPutDesc code: result]
asDescList | newList | newList := self class new createList addDesc: self. self release. ^newList
createAliasDescFor: aString "self new createAliasDescFor: 'Festplatte:'" | alias | alias := MacAliasManager new aliasFromPath: aString. self createDesc: 'alis' data: alias
createAppleEvent: class id: id target: target returnID: returnID transactionID: transactionID "| t ev | t := self new createDesc: 'sign' data: 'MACS'. ev := self new createAppleEvent: 'core' id: 'odoc' target: t returnID: nil transactionID: nil. t release. ev" | m result | m := self manager. result := m AECreateAppleEvent: (m OSTypeFrom: class) id: (m OSTypeFrom: id) target: target desc returnID: (returnID == nil ifTrue: [-1] ifFalse: [returnID]) transactionID: (transactionID == nil ifTrue: [0] ifFalse: [transactionID]) event: desc. result = 0 ifFalse: [self error: #AECreateAppleEvent code: result]
createDesc: type data: data "self new createDesc: 'TEXT' data: 'This is a simple string.'" | m result d | m := self manager. d := data copyToHeap. result := m AECreateDesc: (m OSTypeFrom: type) data: d dataSize: data sizeInBytes into: desc. d free. result = 0 ifFalse: [desc free. desc := nil. self error: #AECreateDesc code: result]
createList | result | result := self manager AECreateList: nil size: 0 isRecord: 0 into: desc. result = 0 ifFalse: [self error: #AECreateList code: result]
getParamDesc: keyword type: expectedType | m result error | m := self manager. result := self class new. result desc beGarbageCollectable. error := m AEGetParamDesc: desc keyword: (m OSTypeFrom: keyword) type: (m OSTypeFrom: expectedType) desc: result desc. error = 0 ifFalse: [self error: #AEGetParamDesc code: error]. ^result
putParamDesc: aDescriptor keyword: keyword | m result | m := self manager. result := m AEPutParamDesc: desc keyword: (m OSTypeFrom: keyword) desc: aDescriptor desc. result = 0 ifFalse: [self error: #AEPutParamDesc code: result]
send | reply result | reply := AppleEventDescriptor new. reply desc beGarbageCollectable. result := self manager AESend: desc reply: reply desc sendMode: 3 + 48 + 64 sendPriority: 0 timeOut: -1 idleProc: nil filterProc: nil. result = 0 ifFalse: [reply release. self error: #AESend code: result]. ^reply
sendNoWait | reply result | reply := AppleEventDescriptor new. result := self manager AESend: desc reply: reply desc sendMode: 1 + 48 + 64 sendPriority: 0 timeOut: -1 idleProc: nil filterProc: nil. reply release. result = 0 ifFalse: [self error: #AESend code: result]. ^nil
</methods> <methods> OS.AppleEventDescriptor <category>accessing</category>
data | handle | desc == nil ifTrue: [^nil]. handle := desc memberAt: #dataHandle. ^self manager getHandleData: handle
dataString ^self data changeClassToThatOf: (String defaultPlatformClass new)
desc ^desc
descriptorType | bytes | bytes := UninterpretedBytes new: 4. bytes unsignedLongAt: 1 put: (desc memberAt: #descriptorType). ^bytes stringAt: 1
</methods> <methods> OS.AppleEventDescriptor <category>error handling</category>
error: aSymbol code: aNumber self error: 'Error in ', aSymbol, ', code: ', aNumber printString
</methods> <methods> OS.AppleEventDescriptor <category>initialize-release</category>
initialize desc := self manager AEDesc malloc
release desc == nil ifFalse: [self manager AEDisposeDesc: desc. desc free. desc := nil]
</methods> <methods> OS.AppleEventDescriptor <category>private</category>
manager ^MacAEManager new
</methods> <methods> OS.AppleEventDescriptor <category>printing</category>
printOn: aStream | size d | super printOn: aStream. desc == nil ifTrue: [^aStream nextPutAll: ' (released)']. d := self descriptorType. d = '' ifTrue: [^aStream nextPutAll: ' (uninitialized)']. size := self manager GetHandleSize: (desc memberAt: #dataHandle). aStream space; print: d; space; print: size
</methods> <methods> OS.AppleEventDescriptor class <category>instance creation</category>
new ^super new initialize
</methods> <methods> OS.MacAppLaunchInterface <category>structs</category>
__AppParameters <C: struct __AppParameters { EventRecord theMsgEvent; unsigned long eventRefCon, messageLength; }>
__EventRecord <C: struct __EventRecord { EventKind what; UInt32 message, when; Point where; EventModifiers modifiers; }>
__FSSpec <C: struct __FSSpec { short vRefNum; long parID; Str63 name; }>
__LaunchParamBlockRec <C: struct __LaunchParamBlockRec { unsigned long reserved1; unsigned short reserved2, launchBlockID; unsigned long launchEPBLength; unsigned short launchFileFlags; LaunchFlags launchControlFlags; FSSpecPtr launchAppSpec; ProcessSerialNumber launchProcessSN; unsigned long launchPreferredSize, launchMinimumSize, launchAvailableSize; AppParametersPtr launchAppParameters; }>
__Point <C: struct __Point { short v, h; }>
__ProcessSerialNumber <C: struct __ProcessSerialNumber { unsigned long highLongOfPSN, lowLongOfPSN; }>
</methods> <methods> OS.MacAppLaunchInterface <category>types</category>
AppParametersPtr <C: typedef struct __AppParameters * AppParametersPtr>
ConstStr255Param <C: typedef const unsigned char * ConstStr255Param>
ConstStr63Param <C: typedef ConstStr255Param ConstStr63Param>
EventKind <C: typedef UInt16 EventKind>
EventModifiers <C: typedef UInt16 EventModifiers>
EventRecord <C: typedef struct __EventRecord EventRecord>
FSSpec <C: typedef struct __FSSpec FSSpec>
FSSpecPtr <C: typedef FSSpec * FSSpecPtr>
LaunchFlags <C: typedef unsigned short LaunchFlags>
LaunchParamBlockRec <C: typedef struct __LaunchParamBlockRec LaunchParamBlockRec>
LaunchPBPtr <C: typedef struct __LaunchParamBlockRec * LaunchPBPtr>
OSErr <C: typedef short OSErr>
Point <C: typedef struct __Point Point>
ProcessSerialNumber <C: typedef struct __ProcessSerialNumber ProcessSerialNumber>
Str63 <C: typedef unsigned char Str63[64]>
UInt16 <C: typedef unsigned short UInt16>
UInt32 <C: typedef unsigned long UInt32>
</methods> <methods> OS.MacAppLaunchInterface <category>utilities</category>
launchApp: fullPathName | fsp fn err fstr lbp farr| fsp := self FSSpec gcMalloc. lbp := self LaunchParamBlockRec gcMalloc. farr := (MacOSFilename named: fullPathName) primResolvePath. fstr := (farr at: 1) asByteArray. fn := self Str63 gcMalloc. fn at: 0 put: fstr size. "put the size in it" 1 to: fstr size do: [:i | fn at: i put: (fstr at: i)]. err := self FSMakeFSSpec: (farr at: 2) with: (farr at: 3) with: fn with: fsp. err ~~ 0 ifTrue: [self error: 'FSMakeSpec returned ', err printString. ]. lbp memberAt: #reserved1 put: 0. lbp memberAt: #reserved2 put: 0. lbp memberAt: #launchBlockID put: 16r4C43. "extendedBlock = ((unsigned)'LC')" lbp memberAt: #launchEPBLength put: 32. "extendedBlockLen = (sizeof(LaunchParamBlockRec) - 12)" lbp memberAt: #launchFileFlags put: 0. lbp memberAt: #launchControlFlags put: 16r4800. "launchContinue + launchNoFileFlags" lbp memberAt: #launchAppSpec put: fsp. lbp memberAt: #launchAppParameters put: nil. err := self LaunchApplication: lbp. err ~~ 0 ifTrue: [self error: 'LaunchApplication returned ', err printString.].
</methods> <methods> OS.MacAppLaunchInterface class <category>private</category>
isPowerMac: platformArray "Returns #true if this platform is a PowerMac. platformArray is in the form returned by (ExternalInterface class currentPlatform) " ^ (platformArray at: 1) == #mac and: [ | stream | stream := (platformArray at: 2) readStream. stream skipThrough: Character space; skipThrough: Character space; skipThrough: Character space. stream peek == $P].
</methods> <methods> OS.MacAppLaunchInterface class <category>class initialization</category>
installOn: platformArray super installOn: platformArray. (self isPowerMac: platformArray) ifTrue: [| ifc macLayout | ifc := self new. "macLayout is appropriate for 68K processors and PowerMac struct typedefs that use #pragma options align=mac68k" macLayout := CStructureLayout macLayout. ifc FSSpec typeDo: macLayout. ifc LaunchParamBlockRec typeDo: macLayout. "and maybe more???" ]
</methods> <methods> OS.MacAppLaunchInterface class <category>utilities</category>
launchApp: fullPathName ^self new launchApp: fullPathName
</methods> <methods> OS.MacAEManager <category>types</category>
AEAddressDesc <C: typedef AEDesc AEAddressDesc>
AEDesc <C: typedef struct { OSType descriptorType; Handle dataHandle; } AEDesc>
AEDescList <C: typedef AEDesc AEDescList>
AppleEvent <C: typedef AEDesc AppleEvent>
</methods> <methods> OS.MacAEManager class <category>utilities</category>
finderOpen: aString "Send aString containing a full path to a document or application to the Finder, which tries to start the document with its creator application, or the application described by aString." "MacAEManager finderOpen: 'Spare:Programme:SimpleText'" "MacAEManager finderOpen: 'Festplatte:Programme:Microsoft Office 98:Microsoft Word'" ^self sendOpen: aString to: 'MACS'
finderPrint: aString "Send aString to the Finder, which should try to print the document described by aString." "MacAEManager finderPrint: 'Festplatte:Test'" ^self sendPrint: aString to: 'MACS'
sendOpen: aString to: signature "Send aString containing a full path to a document to an application identified via signature. Please use this method only if you know some details about AppleEvents. The signature of an application SOMETIMES is the same four character code as the creator code for a file. For example, 'MACS' is the signature of the Finder, 'GKON' for the popular GraphicConverter, 'TVOD' for the MoviePlayer, or 'ttxt' for the SimpleText text editor. Use this method when you want to open a document with a specific application. REMEMBER: This application has to be up and running! If the application is not found, the Finder will report an error, which is invisible to the VisualWorks image!" "MacAEManager sendOpen: 'rolishd:Programme:CDeveloper:VW30a:image:Test.txt' to: 'ttxt'" ^self sendOpen: aString to: signature id: 'odoc'
</methods> <methods> OS.MacAEManager class <category>private</category>
sendOpen: aString to: signature id: id "PRIVATE: Really send aString to an application identified via signature, and use the id for the AppleEvent. Please use this method only if you know some details about AppleEvents." "MacAEManager sendOpen: 'Festplatte:Test' to: 'MACS' id: 'odoc'" | target event alias | event := AppleEventDescriptor new. target := AppleEventDescriptor new. alias := AppleEventDescriptor new. ^ [target createDesc: 'sign' data: signature. alias createAliasDescFor: aString. event createAppleEvent: 'aevt' id: id target: target returnID: nil transactionID: nil. event putParamDesc: alias keyword: '----'. event sendNoWait] ensure: [target release. event release. alias release]
sendPrint: aString to: signature "PRIVATE: Really send aString describing a document to an application identified via signature. Please use this method only if you know some details about AppleEvents." ^self sendOpen: aString to: signature id: 'pdoc'
</methods> <methods> OS.SoundManager class <category>accessing</category>
enumerateSoundsFrom: aFileOrNil "The argument is a MacFilename or nil, with nil pointing to the MacOS system sounds. Returns an OrderedCollection of Strings of the names of sounds. Some sounds return empty names and are removed from this list." "SoundManager enumerateSoundsFrom: nil" | col | col := OrderedCollection new. (self primEnumerateSoundsFrom: aFileOrNil) do: [:e | e isEmpty ifFalse: [col add: (MacString fromBytes: e) asByteString]]. ^col
playLocalSoundWithID: aNumber "The argument is the ID of a Sound Resource contained in the VisualWorks ObjectEngine. Currently, only resource number 9000 is available, but feel free to add your own ones using ResEdit. Returns true or false. RW Georg Heeg 1998" "SoundManager playLocalSoundWithID: 9000 " ^self primPlayLocalSoundWithID: aNumber
playSoundFrom: aFileOrNil sound: aString "The argument aFileOrNil is a MacFilename or nil, with nil pointing to the MacOS System sounds. aString should be the identifier for a sound in aFileOrNil. Returns true or false." "SoundManager playSoundFrom: nil sound: 'Bing'" "(SoundManager enumerateSoundsFrom: nil) do: [ :sndName| SoundManager playSoundFrom: nil sound: sndName]" ^self primPlaySoundFrom: aFileOrNil sound: aString
</methods> <methods> OS.SoundManager class <category>primitives</category>
primEnumerateSoundsFrom: aFileOrNil " argument is a MacFilename or nil. Returns an array of Strings of the names of sounds" "(SoundManager primEnumerateSoundsFrom: nil) collect: [ :e | e asString] " <primitive: 772> ^self primitiveFailed
primPlayLocalSoundWithID: aNumber "The argument is the ID of a Sound Resource contained in the VisualWorks ObjectEngine. Currently, only resource number 9000 is available, but feel free to add your own ones using ResEdit. Returns true or false. RW Georg Heeg 1998" "SoundManager playLocalSoundWithID: 9000 " <primitive: 774 > ^self primitiveFailed
primPlaySoundFrom: aFileOrNil sound: aString "The argument aFileOrNil is a MacFilename or nil, with nil pointing to the MacOS Sounds. aString should be the identifier for a sound in aFileOrNil. Returns true or false." "SoundManager playSoundFrom: nil sound: 'Bing'" "((SoundManager enumerateSoundsFrom: nil) collect: [ :e | e asString]) do: [ :sndName| sndName = '' ifFalse:[ SoundManager playSoundFrom: nil sound: sndName]]" <primitive: 773 > ^self primitiveFailed
</methods> <methods> OS.MacFilename <category>utilities</category>
setAsDefaultApp "Set the receiver as the default application to handle files with the receiver's creator type. Fail if the receiver does not represent an application." <primitive: 753 errorCode: error> error handleErrorFor: self
</methods> <methods> Tools.MacEnvironmentBrowser class <category>interface specs</category>
windowSpec "UIPainter new openOnClass: self andSelector: #windowSpec" <resource: #canvas> ^#(#{UI.FullSpec} #window: #(#{UI.WindowSpec} #label: 'Mac Environment Browser' #bounds: #(#{Graphics.Rectangle} 264 213 649 522 ) #isEventDriven: true ) #component: #(#{UI.SpecCollection} #collection: #( #(#{UI.SequenceViewSpec} #layout: #(#{UI.LayoutFrame} 7 0 24 0 30 0.5 30 0.5 ) #model: #envVarList #useModifierKeys: true #selectionType: #highlight ) #(#{UI.InputFieldSpec} #layout: #(#{UI.LayoutFrame} 5 0 60 0.5 -5 1 89 0.5 ) #name: #valueField #model: #envVarValue ) #(#{UI.ActionButtonSpec} #layout: #(#{UI.LayoutFrame} -50 0.333333 0 0.851133 40 0.333333 61 0.75 ) #name: #changeButton #model: #changeSelection #label: 'Change' #defaultable: true ) #(#{UI.ActionButtonSpec} #layout: #(#{UI.LayoutFrame} 50 0.5 -92 0.5 -20 1 -60 0.5 ) #name: #deleteButton #model: #deleteSelection #label: 'Delete' #defaultable: true ) #(#{UI.ActionButtonSpec} #layout: #(#{UI.LayoutFrame} -40 0.666666 0 0.851133 50 0.666666 61 0.75 ) #name: #cancleButton #model: #cancel #label: 'Cancel' #isDefault: true #defaultable: true ) #(#{UI.LabelSpec} #layout: #(#{Core.Point} 4 4 ) #label: 'Environment Variable Names:' ) #(#{UI.LabelSpec} #layout: #(#{UI.LayoutOrigin} 5 0 40 0.5 ) #label: 'Value of Selection:' ) #(#{UI.ActionButtonSpec} #layout: #(#{UI.LayoutFrame} 51 0.5 -54 0.5 -19 1 -22 0.5 ) #name: #newButton #model: #newVariable #label: 'New ...' #defaultable: true ) ) ) )
</methods> <methods> OS.MacToolBox <category>procedures</category>
CurResFile <C: pascal short CurResFile(void)>
DisposeHandle: h <C: pascal void DisposeHandle(Handle h)>
Gestalt: arg1 with: arg2 <C: pascal int Gestalt(int arg1, int * arg2)> ^self externalAccessFailed
GetHandleSize: h <C: pascal long GetHandleSize(Handle h)>
HLock: h <C: pascal OSErr HLock(Handle h)>
HUnlock: h <C: pascal OSErr HUnlock(Handle h)>
NewHandle: size <C: pascal Handle NewHandle(long size)>
SetFractEnable: arg "MacToolBox new SetFractEnable: 1" <C: pascal void SetFractEnable(short arg)>
</methods> <methods> OS.MacAliasManager <category>procedures</category>
NewAliasMinimalFromFullPath: fullPathLength string: fullPath zone: zoneName server: serverName alias: alias <C: pascal OSErr NewAliasMinimalFromFullPath( short fullPathLength, char * fullPath, char * zoneName, char * serverName, AliasHandle * alias)>
ResolveAliasFrom: fromFile alias: alias target: target wasChanged: wasChanged <C: pascal OSErr ResolveAlias( const FSSpec *fromFile, AliasHandle alias, FSSpec *target, Boolean *wasChanged)>
</methods> <methods> OS.MacAppLaunchInterface <category>procedures</category>
FSMakeFSSpec: vRefNum with: dirID with: fileName with: spec <C: pascal OSErr FSMakeFSSpec(short vRefNum, long dirID, ConstStr255Param fileName, FSSpec * spec) > " = {0x70, 0x1, 0xAA, 0x52} " ^self externalAccessFailed
LaunchApplication: LaunchParams <C: pascal OSErr LaunchApplication(LaunchPBPtr LaunchParams) > " = {0xA9, 0xF2} " ^self externalAccessFailed
</methods> <methods> OS.MacAEManager <category>procedures</category>
AECreateAppleEvent: theAEEventClass id: theAEEventID target: target returnID: returnID transactionID: transactionID event: result <C: pascal OSErr AECreateAppleEvent( OSType theAEEventClass, OSType theAEEventID, const AEAddressDesc *target, short returnID, long transactionID, AppleEvent *result)>
AECreateDesc: typeCode data: dataPtr dataSize: dataSize into: result <C: pascal OSErr AECreateDesc( OSType typeCode, const void *dataPtr, long dataSize, AEDesc *result)>
AECreateList: factoringPtr size: factoredSize isRecord: isRecord into: resultList <C: pascal OSErr AECreateList( Ptr factoringPtr, long factoredSize, Boolean isRecord, AEDescList *resultList)>
AEDisposeDesc: theAEDesc <C: pascal OSErr AEDisposeDesc(AEDesc *theAEDesc)>
AEGetParamDesc: theAppleEvent keyword: theAEKeyword type: desiredType desc: theAEDesc <C: pascal OSErr AEGetParamDesc( const AppleEvent *theAppleEvent, OSType theAEKeyword, OSType desiredType, AEDesc *theAEDesc)>
AEPutDesc: theAEDescList index: index desc: theAEDesc <C: pascal OSErr AEPutDesc( const AEDescList *theAEDescList, long index, const AEDesc *theAEDesc)>
AEPutParamDesc: theAppleEvent keyword: theAEKeyword desc: theAEDesc <C: pascal OSErr AEPutParamDesc( const AppleEvent *theAppleEvent, OSType theAEKeyword, const AEDesc *theAEDesc)>
AEPutParamPtr: theAppleEvent keyword: theAEKeyword typeCode: typeCode data: dataPtr size: dataSize <C: pascal OSErr AEPutParamPtr( const AppleEvent *theAppleEvent, OSType theAEKeyword, OSType typeCode, const void *dataPtr, long dataSize)>
AEPutPtr: theAEDescList index: index typeCode: typeCode data: dataPtr size: dataSize <C: pascal OSErr AEPutPtr( const AEDescList *theAEDescList, long index, OSType typeCode, const void *dataPtr, long dataSize)>
AESend: theAppleEvent reply: reply sendMode: sendMode sendPriority: sendPriority timeOut: timeOutInTicks idleProc: idleProc filterProc: filterProc <C: pascal OSErr AESend( const AppleEvent *theAppleEvent, AppleEvent *reply, long sendMode, long sendPriority, long timeOutInTicks, Ptr idleProc, Ptr filterProc)>
</methods> "Imported Classes:" self error: 'Attempting to file-in parcel imports. Choose terminate or close' <class> <name>Object</name> <environment>Core</environment> <super></super> <private>false</private> none <imports></imports> <category>Kernel-Objects</category> <attributes> <package>Kernel-Objects</package> </attributes> </class> <class> <name>ExternalInterface</name> <environment>External</environment> <super>Core.Object</super> <private>false</private> none includeFiles includeDirectories libraryFiles libraryDirectories virtual optimizationLevel <imports> private Kernel.OpcodePool.* </imports> <category>External-Interface</category> <attributes> <package>External-Interface</package> </attributes> </class> <class> <name>ApplicationModel</name> <environment>UI</environment> <super>UI.Model</super> <private>false</private> none builder uiSession eventHandlers savedWindowInformation <imports></imports> <category>UIBuilder-Framework</category> <attributes> <package>UIBuilder-Framework</package> </attributes> </class> <class> <name>MacFilename</name> <environment>OS</environment> <super>OS.Filename</super> <private>false</private> none <imports></imports> <category>OS-Mac</category> <attributes> <package>OS-Mac</package> </attributes> </class>