Eliot Miranda uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-eem.391.mcz
==================== Summary ====================
Name: Tests-eem.391
Author: eem
Time: 30 December 2017, 4:36:22.607956 pm
UUID: 7fec38f3-876c-485a-ac8c-12d217e5a567
Ancestors: Tests-eem.390
Add an ImageSegment test that checks contexts can be written out.
=============== Diff against Tests-eem.390 ===============
Item was added:
+ ----- Method: ImageSegmentTest>>testContextsShouldBeWritableToaFile (in category 'testing') -----
+ testContextsShouldBeWritableToaFile
+ "This should not throw an exception"
+ NativeImageSegment new
+ copyFromRoots: {thisContext. thisContext copyStack} sizeHint: 100;
+ extract;
+ writeToFile: 'ContextChain';
+ yourself
+
+ "TODO: write assertions showing that something meaningful actually happened."
+
+ "TODO: bring them back in again"!
tim Rowledge uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-tpr.1132.mcz
==================== Summary ====================
Name: Kernel-tpr.1132
Author: tpr
Time: 28 December 2017, 1:03:32.733076 pm
UUID: 819452da-5a97-40d9-8a6a-9f705d64117a
Ancestors: Kernel-eem.1131
Use new file dialog for object saving
=============== Diff against Kernel-eem.1131 ===============
Item was changed:
----- Method: Object>>saveOnFile (in category 'objects from disk') -----
saveOnFile
+ "Ask the user for a filename and save myself on a SmartReferenceStream file. Writes out the version and class structure. The file is fileIn-able. Does not file out the class of the object."
- "Ask the user for a filename and save myself on a SmartReferenceStream file. Writes out the version and class structure. The file is fileIn-able. Does not file out the class of the object. tk 6/26/97 13:48"
| aFileName |
aFileName := self class name asFileName. "do better?"
aFileName := UIManager default
+ saveFilenameRequest: 'File name?' translated initialAnswer: aFileName.
+ aFileName ifNil: [^ Beeper beep].
- request: 'File name?' translated initialAnswer: aFileName.
- aFileName size = 0 ifTrue: [^ Beeper beep].
self saveOnFileNamed: aFileName!
Item was changed:
----- Method: Object>>saveOnFileNamed: (in category 'objects from disk') -----
saveOnFileNamed: filenameString
"Save myself on a SmartReferenceStream file. Writes out the version and class structure. The file is fileIn-able. UniClasses will be filed out."
| fileStream |
+ fileStream := FileStream newFileNamed: filenameString.
- fileStream := FileStream newFileNamed: filenameString asFileName.
fileStream fileOutClass: nil andObject: self. "Puts UniClass definitions out anyway, and closes the stream."!
tim Rowledge uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-tpr.116.mcz
==================== Summary ====================
Name: ToolBuilder-Kernel-tpr.116
Author: tpr
Time: 28 December 2017, 1:01:20.596849 pm
UUID: fee85035-98b7-48f7-bf0e-940635b7ee7d
Ancestors: ToolBuilder-Kernel-tpr.115
Connect UIManager api to new file dialogs
=============== Diff against ToolBuilder-Kernel-tpr.115 ===============
Item was added:
+ ----- Method: UIManager>>chooseFileMatchingSuffixes: (in category 'ui requests') -----
+ chooseFileMatchingSuffixes: suffixList
+ "Let the user choose a file matching the given suffixes"
+ ^self chooseFileMatchingSuffixes: suffixList label: nil!
Item was added:
+ ----- Method: UIManager>>chooseFileMatchingSuffixes:label: (in category 'ui requests') -----
+ chooseFileMatchingSuffixes: suffixList label: labelString
+ "Let the user choose a file matching the given suffixes"
+ ^self subclassResponsibility!
Item was removed:
- ----- Method: UIManager>>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"
- ^self subclassResponsibility!
tim Rowledge uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-tpr.205.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-tpr.205
Author: tpr
Time: 28 December 2017, 12:56:14.095558 pm
UUID: 96e86954-5b18-4e72-805d-2ff7442638b0
Ancestors: ToolBuilder-Morphic-mt.204
Connect directory choosing and file-matching apis to the new file dialogs
=============== Diff against ToolBuilder-Morphic-mt.204 ===============
Item was changed:
----- Method: MorphicUIManager>>chooseDirectory:from: (in category 'ui requests') -----
chooseDirectory: label from: dir
"Let the user choose a directory"
+
+ ^DirectoryChooserDialog openOn: dir label: label!
- ^FileList2 modalFolderSelector: dir!
Item was changed:
----- Method: MorphicUIManager>>chooseFileMatching:label: (in category 'ui requests') -----
chooseFileMatching: patterns label: aString
"Let the user choose a file matching the given patterns"
| result |
+ result := FileChooserDialog openOnPattern: patterns label: aString.
+ ^result!
- result := FileList2 modalFileSelectorForSuffixes: patterns.
- ^result ifNotNil:[result fullName]!
Item was added:
+ ----- Method: MorphicUIManager>>chooseFileMatchingSuffixes:label: (in category 'ui requests') -----
+ chooseFileMatchingSuffixes: suffixList label: aString
+ "Let the user choose a file matching the given suffix list"
+ | result |
+ result := FileChooserDialog openOnSuffixList: suffixList label: aString.
+ ^result!
Item was removed:
- ----- 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
- !
tim Rowledge uploaded a new version of ToolBuilder-MVC to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-MVC-tpr.52.mcz
==================== Summary ====================
Name: ToolBuilder-MVC-tpr.52
Author: tpr
Time: 28 December 2017, 12:50:44.471773 pm
UUID: 0f077096-0525-4ab8-8317-a41a3926d7a9
Ancestors: ToolBuilder-MVC-tpr.51
Add clean empty method for file choosing. Somebody(tm) really ought to make mvc versions of some of thee
=============== Diff against ToolBuilder-MVC-tpr.51 ===============
Item was added:
+ ----- Method: MVCUIManager>>chooseFileMatchingSuffixes:label: (in category 'ui requests') -----
+ chooseFileMatchingSuffixes: suffixList label: aString
+ "Let the user choose a file matching the given suffix list"
+ ^self notYetImplemented!