[Pkg] The Trunk: ToolBuilder-Morphic-cmm.210.mcz

[commits at source.squeak.org]

Chris Muller uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-cmm.210.mcz

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

Name: ToolBuilder-Morphic-cmm.210
Author: cmm
Time: 7 April 2018, 3:54:49.043193 pm
UUID: 72fd894c-8465-4889-b0af-604220f410c8
Ancestors: ToolBuilder-Morphic-cmm.209

FileSaverDialog support default names with no extension.  Allows saving files without an extension.

=============== Diff against ToolBuilder-Morphic-cmm.209 ===============

Item was changed:
  ----- Method: FileSaverDialog>>selectFilename: (in category 'filename') -----
  selectFilename: aText 
  	"The user has entered a potential filename in the text field.  Check it against the current pattern; if it is ok we can accept it and then if it is a file in the current list, highlight it.  If it would not match the pattern, alert the user."
  	fileName := aText asString.
  	^ self selectExistingFilename
  		ifTrue:
  			[ self changed: #fileListIndex.
  			true ]
  		ifFalse:
  			[ suffixList size = 1
  				ifTrue:
  					[ fileName := fileName , '.' , suffixList first.
  					true ]
  				ifFalse:
  					[ suffixList
  						at:
  							(UIManager default
  								chooseFrom: suffixList
  								title: 'Please choose the type of file to save.')
  						ifPresent:
  							[ : choice | fileName := fileName , '.' , choice.
  							true ]
  						ifAbsent:
+ 							[ suffixList isEmpty or:
+ 								[ UIManager default inform: 'WARNING:  File not saved!!  A filename matching one of ' , patternList asArray asString , ' patterns is required.'.
+ 								false ] ] ] ]!
- 							[ fileName := nil.
- 							UIManager default inform: 'WARNING:  File not saved!!  A filename matching one of ' , patternList asArray asString , ' patterns is required.'.
- 							false ] ] ]!