Tobias Pape uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-topa.799.mcz==================== Summary ====================
Name: Tools-topa.799
Author: topa
Time: 7 March 2018, 10:49:48.272623 pm
UUID: e81a8f85-40fe-4345-8ce5-24bbe57f6fef
Ancestors: Tools-tpr.798
Slight improvement to tim's improvement
=============== Diff against Tools-tpr.798 ===============
Item was changed:
----- Method: ChangeSorter>>fileIntoNewChangeSet (in category 'changeSet menu') -----
fileIntoNewChangeSet
"Obtain a file designation from the user, and file its contents into a
new change set whose name is a function of the filename. Show the
new set and leave the current changeSet unaltered."
- | aNewChangeSet stream fileName |
self okToChange
ifFalse: [^ self].
ChangeSet promptForDefaultChangeSetDirectoryIfNecessary.
- fileName := (FileChooserDialog openOn: ChangeSet defaultChangeSetDirectory) ifNil: [^nil].
- stream := FileStream oldFileNamed: fileName.
- stream ifNil: [^ self].
+ (FileChooserDialog openOn: ChangeSet defaultChangeSetDirectory) ifNotNil:
+ [:fileName |
+ FileStream oldFileNamed: fileName do:
+ [:stream | | localName |
+ localName := FileDirectory localNameFor: fileName.
+ (self class newChangesFromStream: stream named: localName)
+ ifNotNil: [:aNewChangeSet | self showChangeSet: aNewChangeSet]]].!
- aNewChangeSet := self class
- newChangesFromStream: stream
- named: (FileDirectory localNameFor:fileName).
- aNewChangeSet
- ifNotNil: [self showChangeSet: aNewChangeSet]!
Item was changed:
----- Method: FileList class>>openFileDirectly (in category 'instance creation') -----
openFileDirectly
+ (FileChooserDialog openOn: FileDirectory default) ifNotNil:
+ [:fileName | self openEditorOn: (FileStream readOnlyFileNamed: fileName) editString: nil]!
- | fileName |
- (fileName :=FileChooserDialog openOn: FileDirectory default) ifNotNil:
- [self openEditorOn: (FileStream readOnlyFileNamed: fileName) editString: nil]!