The Trunk: ToolBuilder-Morphic-tpr.222.mcz

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)!