Here are the three uses I find in a VMMaker image. Clearly none is vital but it would be nice to have a rewrite that doesn't use StandardFileMenu for the B3D one. I think Marcel is right to suggest 60Deprecated as its final resting place. Deprecated code can be unloaded in the short term and discarded in the long. Do we have a policy on how long deprecated packages stay in trunk?
'From Squeak5.3alpha of 2 January 2019 [latest update: #18337] on 8 January 2019 at 11:11:33 am'!
!B3DSceneExplorerMorph methodsFor: 'actions'!
openThreeDSFile
| menu result newFileString myScene |
menu := StandardFileMenu oldFileMenu: (FileDirectory default) withPattern: '*.3ds'.
result := menu startUpWithCaption: 'Select 3DS model file ...'.
result ifNotNil: [
newFileString := (result directory pathName),(result directory pathNameDelimiter asString),(result name).
myScene := (B3DScene withoutQuestionsFrom3DS: (ThreeDSParser parseFileNamed: newFileString)).
self scene: myScene].! !
!VMMakerTool methodsFor: 'configurations' stamp: 'ar 3/10/2002 15:05'!
loadConfig
| fileResult file |
fileResult := (StandardFileMenu oldFileMenu: FileDirectory default withPattern: '*.config')
startUpWithCaption: 'Select VMMaker configuration...'.
fileResult
ifNotNil: [file := fileResult directory fullNameFor: fileResult name.
[vmMaker := VMMaker forConfigurationFile: file.
vmMaker logger: logger.
vmMaker platformDirectory]
on: Error
do: [self inform: 'Possible problem with path settings or platform name?'].
self updateAllViews]! !
!VMMakerTool methodsFor: 'configurations' stamp: 'rww 9/23/2001 14:17'!
saveConfig
"write info about the current configuration to a file."
| fileResult file |
fileResult := (StandardFileMenu newFileMenu: FileDirectory default withPattern: '*.config')
startUpWithCaption: 'Save VMMaker configuration...'.
fileResult ifNotNil: [
('*.config' match: fileResult name)
ifFalse: [fileResult name: (fileResult name, '.config')].
file := fileResult directory fullNameFor: fileResult name.
vmMaker saveConfigurationTo: file].
! !
Locked
