Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.279.mcz

==================== Summary ====================

Name: ToolBuilder-Morphic-mt.279
Author: mt
Time: 25 November 2021, 11:31:27.232354 am
UUID: 403c22fe-935b-ed4e-8cfb-556e842edd38
Ancestors: ToolBuilder-Morphic-mt.278

Fixes a minor issue in our file-saver dialog where a fully qualified path was not selected correctly via

Project uiManager saveFilenameRequest: someLabel initialAnswer:fullFilePath

=============== Diff against ToolBuilder-Morphic-mt.278 ===============

Item was changed:
  ----- Method: FileSaverDialog class>>openOn:initialFilename:label: (in category 'instance creation') -----
  openOn: aDirectory initialFilename: aString label: labelString
  	"Open a modal dialog to save a file. Start the dialog with aDirectory selected
  	and aString as the suggested file name. Set the user message to labelString.
  	Note that we set the directory after the initialFilename becuase we want a
  	specific directory and not neccesarily the directory of the file"
  
  	"FileSaverDialog openOn: FileDirectory default initialFilename: 'aSuggestedFileName' label: 'Select a flie and do something with it' "
  
  	^self new
- 		initialFilename: aString;
  		directory: aDirectory;
+ 		initialFilename: aString; "Might include a path and thus override aDirectory."
  		message: labelString;
  		getUserResponse
  
  	!

Item was changed:
  ----- Method: MorphicUIManager>>edit:label:shouldStyle:accept: (in category 'ui requests') -----
  edit: aText label: labelString shouldStyle: aBoolean accept: anAction
+ 	"Open an editor on the given string/text. Note that we do not send #open but #new to avoid any default actions to be configured."
- 	"Open an editor on the given string/text"
  
  	| workspace |
  	workspace := Workspace new
  		shouldStyle: aBoolean;
+ 		acceptContents: aText;
- 		acceptContents:  aText;
  		acceptAction: anAction.
  	^ workspace openLabel: (labelString ifNil: [workspace labelString])!