The Inbox: Morphic-hjh.1450.mcz

> A new version of Morphic was added to project The Inbox:
> http://source.squeak.org/inbox/Morphic-hjh.1450.mcz
>
> ==================== Summary ====================
>
> Name: Morphic-hjh.1450
> Author: hjh
> Time: 13 June 2018, 2:54:03.222528 am
> UUID: f05f675d-069a-41f7-8133-b55161c7752b
> Ancestors: Morphic-dtl.1449
>
> Fix comment on method Morph>>saveOnFile:
>
> SmartRefStream, not SmartReferenceStream.
>
> =============== Diff against Morphic-dtl.1449 ===============
>
> Item was changed:
>   ----- Method: Morph>>saveOnFile (in category 'fileIn/out') -----
>   saveOnFile
> + "Ask the user for a filename and save myself on a SmartRefStream file.
> Writes out the version and class structure.  The file is fileIn-able.
> UniClasses will be filed out."
> - "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.
>  UniClasses will be filed out."
>   | aFileName |
>   aFileName := ('my {1}.morph' translated format: {self class name})
> asFileName. "do better?"
>   aFileName := UIManager default saveFilenameRequest: 'File name?'
> translated
>   initialAnswer: aFileName.
>   aFileName ifNil: [^ Beeper beep].
>
>   self allMorphsDo: [:m | m prepareToBeSaved].
>
>   self saveOnFileNamed: aFileName!
>
>
>

>
> On Wed, 13 Jun 2018 00:54:35 0000, [hidden email]
> <[hidden email]> wrote:
> > A new version of Morphic was added to project The Inbox:
> > http://source.squeak.org/inbox/Morphic-hjh.1450.mcz
> >
> > ==================== Summary ====================
> >
> > Name: Morphic-hjh.1450
> > Author: hjh
> > Time: 13 June 2018, 2:54:03.222528 am
> > UUID: f05f675d-069a-41f7-8133-b55161c7752b
> > Ancestors: Morphic-dtl.1449
> >
> > Fix comment on method Morph>>saveOnFile:
> >
> > SmartRefStream, not SmartReferenceStream.
> >
> > =============== Diff against Morphic-dtl.1449 ===============
> >
> > Item was changed:
> >   ----- Method: Morph>>saveOnFile (in category 'fileIn/out') -----
> >   saveOnFile
> > + "Ask the user for a filename and save myself on a SmartRefStream file.
> > Writes out the version and class structure.  The file is fileIn-able.
> > UniClasses will be filed out."
> > - "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.
> >  UniClasses will be filed out."
> >   | aFileName |
> >   aFileName := ('my {1}.morph' translated format: {self class name})
> > asFileName. "do better?"
> >   aFileName := UIManager default saveFilenameRequest: 'File name?'
> > translated
> >   initialAnswer: aFileName.
> >   aFileName ifNil: [^ Beeper beep].
> >
> >   self allMorphsDo: [:m | m prepareToBeSaved].
> >
> >   self saveOnFileNamed: aFileName!
> >
> >
> >
>