<div dir="ltr">We could as well restore an empty MultiNewParagraph in *45Deprecated, then let you becomeForward: each MultiNewParagraph into a NewParagraph<br></div><div class="gmail_extra"><br><br><div class="gmail_quote">
2013/10/3 Bob Arning <span dir="ltr">&lt;<a href="mailto:arning315@comcast.net" target="_blank">arning315@comcast.net</a>&gt;</span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">

  
    
  
  <div bgcolor="#FFFFFF" text="#000000">
    <font face="Georgia">That&#39;s one way. Another is &#39;save morph in file&#39;
      from the metamenu. Question is which Chris used.<br>
      <br>
    </font><div><div class="h5">
    <div>On 10/3/13 6:33 AM, Edgar De Cleene
      wrote:<br>
    </div>
    <blockquote type="cite">
      <pre>

On 10/3/13 6:55 AM, &quot;Bob Arning&quot; <a href="mailto:arning315@comcast.net" target="_blank">&lt;arning315@comcast.net&gt;</a> wrote:

</pre>
      <blockquote type="cite">
        <pre>   One questions is: how were they serialized?
 
 Cheers,
 Bob
 
</pre>
      </blockquote>
      <pre>Here you have how to exchange serialized objects between Squeak, Pharo and
Cuis.

For Pharo 2.0 you need fileIn ReferenceStream logic first.
Drag any .obj into World and you got a Inspector of on it.

!Object methodsFor: &#39;objects from disk&#39; stamp: &#39;edc 9/6/2008 19:40&#39;!
fileOutCompressed

| unzipped zipped buffer aFileName |
aFileName := self class name asFileName.    &quot;do better?&quot;
    aFileName := UIManager default
                request: &#39;File name?&#39; translated initialAnswer: aFileName.
    aFileName size == 0 ifTrue: [^ Beeper beep].
Cursor write
showWhile: [unzipped := RWBinaryOrTextStream on: &#39;&#39;.
unzipped fileOutClass: nil andObject: self.
unzipped reset.
zipped := FileDirectory default newFileNamed: aFileName , &#39;obz&#39;.
zipped binary.
zipped := GZipWriteStream on: zipped.
buffer := ByteArray new: 50000.
&#39;Compressing &#39; , self name
displayProgressAt: Sensor cursorPoint
from: 0
to: unzipped size
during: [:bar | 
[unzipped atEnd]
whileFalse: [bar value: unzipped position.
zipped
nextPutAll: (unzipped nextInto: buffer)].
zipped close.
unzipped close]]! !

!Object methodsFor: &#39;objects from disk&#39; stamp: &#39;edc 6/20/2011 11:41&#39;!
saveOnFileNamed: aString
    &quot;Ask the user for a filename and save myself on a
    ReferenceStream file. Writes out the version and class structure.
    The file is fileIn-able. UniClasses will be filed out.
    This save objects as .obj&quot;
    | aFileName fileStream |
    aString isEmpty
        ifTrue: [^ self error: &#39;name is missing&#39;].
    aFileName := aString , &#39;.obj&#39;.
    fileStream := ReferenceStream fileNamed: aFileName .
    fileStream nextPut: self.
    fileStream close.
    ! !


!Object class methodsFor: &#39;objects from disk&#39; stamp: &#39;edc 6/20/2011 12:16&#39;!
readAndInspect: inputStream
| o rr |
    rr _ ReferenceStream on: inputStream.
    o _ rr next.
    rr close.
    o inspect! !

!Object class methodsFor: &#39;*services-extras&#39; stamp: &#39;edc 2/14/2008 08:24&#39;!
fileReaderServicesForFile: fullName suffix: suffix
    | services |
    services _ OrderedCollection new.
    
    (fullName asLowercase endsWith: &#39;.obj&#39;)
        ifTrue: [ services add: self serviceLoadObject ].
    ^services! !

!Object class methodsFor: &#39;*services-extras&#39; stamp: &#39;edc 7/27/2008 08:11&#39;!
readCompressedObject: aFileStream
    
    self readAndInspect: (MultiByteBinaryOrTextStream with: (GZipReadStream
on: aFileStream) upToEnd) reset! !

!Object class methodsFor: &#39;*services-extras&#39; stamp: &#39;edc 7/27/2008 07:40&#39;!
serviceCompressedObject
    &quot;Answer a service for opening a saved Object&quot;
    ^ (SimpleServiceEntry
        provider: Object
        label: &#39;gz saved Object&#39;
        selector: #readCompressedObject:
        description: &#39;open a gz Object&#39;
        buttonLabel: &#39;object&#39;)
        argumentGetter: [:fileList |
            
            fileList readOnlyStream]! !

!Object class methodsFor: &#39;*services-extras&#39; stamp: &#39;edc 2/14/2008 08:26&#39;!
serviceLoadObject
&quot;Answer a service for opening a saved Object&quot;

    ^ (SimpleServiceEntry
        provider: self
        label: &#39;saved Object&#39;
        selector: #readAndInspect:
        description: &#39;open a Object&#39;
        buttonLabel: &#39;object&#39;)
        argumentGetter: [:fileList | fileList readOnlyStream]! !




</pre>
    </blockquote>
    <br>
  </div></div></div>

<br><br>
<br></blockquote></div><br></div>