[squeak-dev] The Trunk: ToolBuilder-Morphic-cmm.210.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Apr 7 20:55:16 UTC 2018
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 ] ] ]!
More information about the Squeak-dev
mailing list
|