tim Rowledge uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-tpr.205.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-tpr.205 Author: tpr Time: 28 December 2017, 12:56:14.095558 pm UUID: 96e86954-5b18-4e72-805d-2ff7442638b0 Ancestors: ToolBuilder-Morphic-mt.204
Connect directory choosing and file-matching apis to the new file dialogs
=============== Diff against ToolBuilder-Morphic-mt.204 ===============
Item was changed: ----- Method: MorphicUIManager>>chooseDirectory:from: (in category 'ui requests') ----- chooseDirectory: label from: dir "Let the user choose a directory" + + ^DirectoryChooserDialog openOn: dir label: label! - ^FileList2 modalFolderSelector: dir!
Item was changed: ----- Method: MorphicUIManager>>chooseFileMatching:label: (in category 'ui requests') ----- chooseFileMatching: patterns label: aString "Let the user choose a file matching the given patterns" | result | + result := FileChooserDialog openOnPattern: patterns label: aString. + ^result! - result := FileList2 modalFileSelectorForSuffixes: patterns. - ^result ifNotNil:[result fullName]!
Item was added: + ----- Method: MorphicUIManager>>chooseFileMatchingSuffixes:label: (in category 'ui requests') ----- + chooseFileMatchingSuffixes: suffixList label: aString + "Let the user choose a file matching the given suffix list" + | result | + result := FileChooserDialog openOnSuffixList: suffixList label: aString. + ^result!
Item was removed: - ----- Method: MorphicUIManager>>filenameSaverRequest:initialAnswer: (in category 'ui requests') ----- - filenameSaverRequest: queryString initialAnswer: defaultAnswer - "Open a FileSaverDialog to ask for a place and filename to use for saving a file. The initial suggestion for the filename is defaultAnswer but the user may choose any existing file or type in a new name entirely" - "Note that this is a trulyawful message name but I can't think of a better one right now" - ^FileSaverDialog openOnInitialFilename: defaultAnswer - !