tim Rowledge uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-tpr.222.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-tpr.222 Author: tpr Time: 6 January 2019, 4:17:48.50377 pm UUID: fafb40ab-5f4c-4b83-ad8e-69ae5100c047 Ancestors: ToolBuilder-Morphic-pre.221
Add a 'new directory' button to DirectoryChooser and FileSaver dialogues. The new directory will be a subdirectory of the current directory; the dialogue should update and select the new directory. The position of the button is probably not ideal but can be moved later if we decide this is a facility to keep.
=============== Diff against ToolBuilder-Morphic-pre.221 ===============
Item was added: + ----- Method: DirectoryChooserDialog>>buildButtonsWith: (in category 'toolbuilder') ----- + buildButtonsWith: builder + "add a 'new directory' button to the beginning of the row of buttons" + ^{ builder pluggableButtonSpec new + model: self; + label: 'New Directory' translated; + color: (self userInterfaceTheme get: #buttonColor for: #DialogWindow); + action: #newDirectoryName}, (super buildButtonsWith: builder)!
Item was added: + ----- Method: FileAbstractSelectionDialog>>newDirectoryName (in category 'directory tree') ----- + newDirectoryName + "Create a new directory; will be a subdirectory of the current chosen directory. + If the user input is empty, or if the directory creation fails, fail this method. + Update the directory tree display afterwards and set the current directory to the newly created directory" + |userInput| + userInput := UIManager default request: 'New directory name' translated initialAnswer: 'newDir'. + userInput isEmptyOrNil ifTrue: [^nil]. + + [self directory createDirectory: userInput] ifError:[^nil]. "I hate using ifError: - it's so indiscriminate. Really ought to be a more precise error to catch properly" + + self changed: #rootDirectoryList. + self directory: (self directory / userInput). + self changed: #selectedPath!
Item was added: + ----- Method: FileSaverDialog>>buildButtonsWith: (in category 'toolbuilder') ----- + buildButtonsWith: builder + "add a 'new directory' button to the beginning of the row of buttons" + ^{ builder pluggableButtonSpec new + model: self; + label: 'New Directory' translated; + color: (self userInterfaceTheme get: #buttonColor for: #DialogWindow); + action: #newDirectoryName}, (super buildButtonsWith: builder)!
squeak-dev@lists.squeakfoundation.org