Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1210.mcz
==================== Summary ====================
Name: Tools-ct.1210 Author: ct Time: 1 June 2023, 7:20:32.797571 pm UUID: 9ecd5608-fe57-1743-af79-ff1f8a29efab Ancestors: Tools-ct.1209
Replaces hardcoded class names with self.
=============== Diff against Tools-ct.1209 ===============
Item was changed: ----- Method: PluggableFileList class>>checkExistingFileValidateBlock (in category 'validateBlocks') ----- checkExistingFileValidateBlock
^[:theDirectory :theFileName :theNewFiles | (theNewFiles includes: theFileName) or: + [(self okToOverwrite: theFileName)]].! - [(PluggableFileList okToOverwrite: theFileName)]].!
Item was changed: ----- Method: PluggableFileList class>>existingFileValidateBlock (in category 'validateBlocks') ----- existingFileValidateBlock
^[:theDirectory :theFileName :theNewFiles | (theNewFiles includes: theFileName) or: + [(self okToOverwrite: theFileName)]].! - [(PluggableFileList okToOverwrite: theFileName)]].!
Item was changed: ----- Method: PluggableFileList class>>getFilePathNameDialog (in category 'instance creation') ----- getFilePathNameDialog
^(self new) + validateBlock: self alwaysValidateBlock; - validateBlock: PluggableFileList alwaysValidateBlock; yourself!
Item was changed: ----- Method: PluggableFileList class>>getFilePathNameDialogWithExistenceCheck (in category 'instance creation') ----- getFilePathNameDialogWithExistenceCheck
^(self new) prompt: 'Select New File:'; + validateBlock: self checkExistingFileValidateBlock; - validateBlock: PluggableFileList checkExistingFileValidateBlock; yourself!
Item was changed: ----- Method: PluggableFileList class>>getFolderDialog (in category 'instance creation') ----- getFolderDialog
^(self new) prompt: 'Select a Folder'; + fileFilterBlock: self allFoldersFileFilter; + canAcceptBlock: self alwaysAcceptBlock; + resultBlock: self directoryResultBlock; + validateBlock: self alwaysValidateBlock; - fileFilterBlock: PluggableFileList allFoldersFileFilter; - canAcceptBlock: PluggableFileList alwaysAcceptBlock; - resultBlock: PluggableFileList directoryResultBlock; - validateBlock: PluggableFileList alwaysValidateBlock; yourself!
Item was changed: ----- Method: PluggableFileList>>initialize (in category 'initialize-release') ----- initialize
super initialize. prompt := 'Select File'. directory := FileDirectory default. newFiles := OrderedCollection new. + fileFilterBlock := self class allFilesAndFoldersFileFilter. + canAcceptBlock := self class fileNameSelectedAcceptBlock. + resultBlock := self class pathNameResultBlock. + validateBlock := self class checkExistingFileValidateBlock. - fileFilterBlock := PluggableFileList allFilesAndFoldersFileFilter. - canAcceptBlock := PluggableFileList fileNameSelectedAcceptBlock. - resultBlock := PluggableFileList pathNameResultBlock. - validateBlock := PluggableFileList checkExistingFileValidateBlock. !
squeak-dev@lists.squeakfoundation.org