tim Rowledge uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-tpr.198.mcz

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

Name: ToolBuilder-Morphic-tpr.198
Author: tpr
Time: 10 November 2017, 4:29:04.518411 pm
UUID: fb6e05e6-8817-4dfc-b152-8fa5bfac720b
Ancestors: ToolBuilder-Morphic-mt.197

Morphic access to FileChooser/Saver Dialogs

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

Item was added:
+ ----- Method: MorphicToolBuilder>>buildPluggableMultiColumnList: (in category 'widgets required') -----
+ buildPluggableMultiColumnList: aSpec
+ 	| widget listClass getIndex setIndex |
+ 	aSpec getSelected ifNil:[
+ 		listClass := self multiColumnListClass.
+ 		getIndex := aSpec getIndex.
+ 		setIndex := aSpec setIndex.
+ 	] ifNotNil:[self error: 'not yet'.
+ 		listClass := self listByItemClass.
+ 		getIndex := aSpec getSelected.
+ 		setIndex := aSpec setSelected.
+ 	].
+ 	widget := listClass on: aSpec model
+ 				list: aSpec list
+ 				selected: getIndex
+ 				changeSelected: setIndex
+ 				menu: aSpec menu
+ 				keystroke: aSpec keyPress.
+ 	self register: widget id: aSpec name.
+ 	
+ "	widget
+ 		dragItemSelector: aSpec dragItem;
+ 		dropItemSelector: aSpec dropItem;
+ 		wantsDropSelector: aSpec dropAccept;
+ 		dragStartedSelector: aSpec dragStarted."
+ 
+ 	self setListPropertiesFor: widget spec: aSpec.
+ 	^widget!

Item was added:
+ ----- Method: MorphicToolBuilder>>multiColumnListClass (in category 'widget classes') -----
+ multiColumnListClass
+ 	^ PluggableMultiColumnListMorph!

Item was added:
+ ----- 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
+ !