Thank you Tim,

The reference is
http://files.squeak.org/etoys/6.0beta/Etoys6.0beta-7605-32bit/

(not file.squeak.org)
--Hannes

On 8/31/16, Tim Felgentreff <timfelgentreff at gmail.com> wrote:
> Hi,
>
> I would recommend to look at the slightly cleaned up project export code in
> the Etoys 6 package (file.squeak.org/etoys). You can export plain morphic
> projects just fine in that package. However, all SystemWindows except
> workspaces are currently explicitly ignored.
>
> As far as saving is concerned, the QuickGuides simply use a special
> exporter (for book morphs), rather than the Project exporter.
>
> cheers,
> Tim
>
>
>
> On Wed, 31 Aug 2016 at 09:16 H. Hirzel <hannes.hirzel at gmail.com> wrote:
>
>> The class comment of QuickGuideMorph. It refers to the place where the
>> exported SISS files of the projects are stored. The Squeakland image
>> contains many examples of SISS files.
>>
>> ----------------------------------------------------
>>
>>
>> A BookMorph that holds QuickGuides.
>>
>> World
>> an AlignmentMorph (the flap)
>> an AlignmentMorph
>> a QuickGuideMorph  (one page per guide, 54 pages.
>>                 Page may be a stub if guide not in)
>> a QuickGuideHolderMorph
>> a BookMorph (4 pages)
>> a PasteUpMorph (a page)
>>
>> QuickGuides are stored in Contents/Resources/QuickGuides/
>> or by language in Contents/Resources/locale/<id>/QuickGuides/
>> (see guidePath)
>>
>> Categories = OrderedCollection of {catKey. catTitle}
>>         where catKey appears at the start of a file name 'Menu'
>>         catTitle may be UTF-8 full name.
>> PagesForCategory dictionary of (catKey -> list).  list has elements
>> {guideName. guideTitle}.  guideName is last part of a file name and
>> guideTitle may be in UTF-8.
>>
>> On 8/31/16, H. Hirzel <hannes.hirzel at gmail.com> wrote:
>> > An entry point for reading about SISS in the Squeakland Etoys 5.0 image
>> >
>> > QuickGuideMorph>>
>> >
>> > convertProjectsWithBooksToSISSIn: dir to: outDir
>> >
>> >       | p book |
>> >       dir fileNames do: [:f |
>> >               (f endsWith: '.pr') ifTrue: [
>> >                       p _ ProjectLoading loadName: f stream: (dir
>> readOnlyFileNamed: f)
>> > fromDirectory: dir withProjectView: nil.
>> >                       book _ p world submorphs detect: [:b | b
>> isMemberOf: BookMorph]
>> > ifNone: [nil].
>> >                       book ifNotNil: [
>> >                               book hidePageControls.
>> >                               book storeAsDataStreamNamed: (outDir
>> fullNameFor: (f copyUpTo:
>> > $.), '.sexp.data.gz').
>> >                       ].
>> >                       p okToChangeSilently.
>> >               ].
>> >       ].
>> >
>> > On 8/31/16, H. Hirzel <hannes.hirzel at gmail.com> wrote:
>> >> Hello
>> >>
>> >> I understand that the SISS serialisation format has been used in the
>> >> Etoys 5.0 image to store quick guides. It is a plain text format.
>> >>
>> >> What does SISS stand for?
>> >>
>> >> Browsing the Etoys 5.0 image .....
>> >>
>> >> To use SISS classes need to implement a method
>> >>
>> >>    sissExportSpecification
>> >>
>> >>
>> >> For example for Workspace it is
>> >>
>> >>
>> >> sissExportSpecification
>> >>
>> >>      ^ #(('contents' #sissGetContents)
>> >>              ('bindings' #bindings)
>> >>              ('acceptDroppedMorphs' #acceptsDroppingMorphForReference)
>> >>      )
>> >>
>> >>
>> >> And a method
>> >>
>> >> sissWriteValue
>> >>
>> >> Morph >> sissWriteValue
>> >> sissWriteValue
>> >>
>> >>      self prepareToBeSaved.
>> >>
>> >>
>> >> or
>> >>
>> >> Object>>sissWriteValue
>> >> sissWriteValue
>> >>      "Override if you wish"
>> >>
>> >>      ^self
>> >>
>> >>
>> >> PasteUpMorph>>sissWriteValue
>> >> sissWriteValue
>> >>      "Override if you wish"
>> >>
>> >>      | new |
>> >>      self prepareToBeSaved.
>> >>      new _ self clone.
>> >>      new privateSubmorphs: (submorphs reject: [:e |
>> >>              (e isKindOf: SolidSugarSuppliesTab)
>> >>                      or: [(e isKindOf: Viewer)
>> >>                              or: [(e isKindOf: SugarNavTab)
>> >>                                      or: [((e isKindOf: SystemWindow)
>> and: [(e model isKindOf: Workspace)
>> >> not])
>> >>                                              or: [(e isMemberOf:
>> FlapTab) and: [e isGlobalFlap]]]]]]).
>> >>      new instVarNamed: 'presenter' put: nil.
>> >>      new instVarNamed: 'worldState' put: nil.
>> >>      new privateExtension: self extension copy.
>> >>      new extension removeOtherProperties.
>> >>      self extension otherProperties keysDo: [:sym |
>> >>              (#(commandKeySelectors lastKeystroke locked) includes:
>> sym) ifFalse: [
>> >>                      new setProperty: sym toValue: (self extension
>> valueOfProperty: sym)
>> >>              ].
>> >>      ].
>> >>
>> >>      ^ new.
>> >>
>> >>
>> >>
>> >> Form>>
>> >> sissWriteValue
>> >>
>> >>      SISSDictionaryForScanning reduceFormDepth ifTrue: [
>> >>              ^ (self asFormOfDepth: 8) hibernate.
>> >>      ].
>> >>      ^ self hibernate.
>> >>
>> >>
>> >>
>> >>
>> >>
>> >> An example of the format
>> >>
>> >> MSExpParser test1
>> >>
>> >>         | str1 str2 str3 |
>> >>         str1 _ '(script :name "testscript1:" :type "Player" :player
>> >> "12"
>> >>                 (parameter :name "parameter" :type "Number" :position
>> >> "1")
>> >>                 (sequence
>> >>                         (loop :type "repeat"
>> >>                                 (initial (literal :value "0"))
>> >>                                 (increment (literal :value "1"))
>> >>                                 (test (send :type "Number"
>> >>                 (selector :selector "+")
>> >>                 (send :type "Number"
>> >>                         (selector :getter "x")
>> >>                         (literal :type "Player" :value "self"))
>> >>                 (literal :type "Number" :value "1")))
>> >>                                 (sequence
>> >>                                         (assign :type "Number"
>> >> :updating "Incr:" :property "x"
>> >>                                                 (literal :type
>> >> "Player" :value "4")
>> >>                                                 (send :type "Number"
>> >>                                                         (selector
>> >> :selector
>> >> "+")
>> >>                                                         (literal :type
>> >> "Number" :value "244.0")
>> >>                                                         (literal :type
>> >> "Number" :value "1")))))))'.
>> >>
>> >>
>> >>
>> >> I understand that the SISS format has been used successfully in the
>> >> Etoys image to store quick guide projects.
>> >>
>> >> As far as Project saving is concerned it there a  difference between
>> >> Etoy Quick guide projects and regular Squeak Morphic projects?
>> >>
>> >> Where can I find more information on the SISS format?
>> >>
>> >> Regards
>> >>
>> >> Hannes
>> >>
>> >
>>
>>
>