'$Revision: 30.9 $'
 '
Copyright 1992-2006 Sun Microsystems, Inc. and Stanford University.
See the LICENSE file for license information.
'


 '-- Module body'

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'abstractAnnotationMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | abstractAnnotationMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'abstractEditorMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | abstractEditorMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'acceptCancelPanel' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | acceptCancelPanel).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'addedOrChangedSlotsInModuleMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | 
            addedOrChangedSlotsInModuleMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'antMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | antMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'argRowMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | argRowMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'arrowBodyMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | arrowBodyMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'arrowEndMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | arrowEndMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'atom' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | 
            atom).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'borderPropsMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | borderPropsMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'brightnessRangeMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | brightnessRangeMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'buttonEditorMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | buttonEditorMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'buttonMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | buttonMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'buttonPropsMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | buttonPropsMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'capabilities' -> 'capabilityMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | 
            capabilities capabilityMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'caretMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | caretMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'carpetMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | carpetMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'checkBoxMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | checkBoxMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'checkCircleMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | checkCircleMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'checkMarkMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | checkMarkMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'childrenMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | childrenMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'circleMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | circleMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'clockMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | clockMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'colorChangerMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | colorChangerMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'colorPatchMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | colorPatchMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'colorPickerMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | colorPickerMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'columnMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | columnMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'commentButtonMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | commentButtonMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'commentMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | commentMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'constantLuminanceMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | constantLuminanceMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'constructionPropsMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | constructionPropsMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'copyDownChildrenMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | copyDownChildrenMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'coreSamplerMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | coreSamplerMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'dialogBoxMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | dialogBoxMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'dotMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | dotMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'editorMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | editorMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'editorRowMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | editorRowMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'enumeratedTypeLabelMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | enumeratedTypeLabelMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'enumerationMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | enumerationMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'enumerationMorphElement' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | enumerationMorphElement).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'expanderMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | expanderMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'expanderPushButton' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | expanderPushButton).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'findSlotEnumerationMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | findSlotEnumerationMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'fixedBrightnessInterpolatorMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | fixedBrightnessInterpolatorMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'fixedSaturationInterpolatorMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | fixedSaturationInterpolatorMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'frameMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | frameMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'gasTank' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | 
            gasTank).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'handMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | handMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'hueRangeMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | hueRangeMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'imageMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | imageMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'implementorsMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | implementorsMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'indexOutliner' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | indexOutliner).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'labelMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | labelMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'labelPropsMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | labelPropsMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'leafPointerButton' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | 
            leafPointerButton).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'lineMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | lineMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'messageButtonMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | messageButtonMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'messagesMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | messagesMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'metaMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | metaMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'methodExpanderMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | methodExpanderMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'methodsContainingMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | methodsContainingMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'mirrorEnumerationMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | mirrorEnumerationMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'moduleField' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | moduleField).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> () From: ( | {
         'ModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         morphSaving = bootstrap define: bootstrap stub -> 'globals' -> 'modules' -> 'morphSaving' -> () ToBe: bootstrap addSlotsTo: (
             bootstrap remove: 'comment' From:
             bootstrap remove: 'directory' From:
             bootstrap remove: 'fileInTimeString' From:
             bootstrap remove: 'myComment' From:
             bootstrap remove: 'postFileIn' From:
             bootstrap remove: 'revision' From:
             bootstrap remove: 'subpartNames' From:
             globals modules init copy ) From: bootstrap setObjectAnnotationOf: bootstrap stub -> 'globals' -> 'modules' -> 'morphSaving' -> () From: ( |
             {} = 'ModuleInfo: Creator: globals modules morphSaving.

CopyDowns:
globals modules init. copy 
SlotsToOmit: comment directory fileInTimeString myComment postFileIn revision subpartNames.

\x7fIsComplete: '.
            | ) .
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'morphSaving' -> () From: ( | {
         'ModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         directory <- 'ui2'.
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'morphSaving' -> () From: ( | {
         'ModuleInfo: Module: morphSaving InitialContents: InitializeToExpression: (_CurrentTimeString)\x7fVisibility: public'
        
         fileInTimeString <- _CurrentTimeString.
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'morphSaving' -> () From: ( | {
         'ModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         myComment <- ''.
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'morphSaving' -> () From: ( | {
         'ModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         revision <- '$Revision: 30.9 $'.
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'modules' -> 'morphSaving' -> () From: ( | {
         'ModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: private'
        
         subpartNames <- ''.
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | morph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphFinder' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | morphFinder).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> () From: ( | {
         'Category: ui2\x7fCategory: Saving morphs to a file\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         morphStoreStringBuilder = bootstrap setObjectAnnotationOf: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> () From: ( |
             {} = 'ModuleInfo: Creator: globals morphStoreStringBuilder.
\x7fIsComplete: '.
            | ) .
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> () From: ( | {
         'Category: state\x7fModuleInfo: Module: morphSaving InitialContents: InitializeToExpression: ([])'
        
         failBlock <- [].
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> () From: ( | {
         'Category: state\x7fModuleInfo: Module: morphSaving InitialContents: InitializeToExpression: (0)'
        
         indent <- 0.
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> () From: ( | {
         'Category: state\x7fModuleInfo: Module: morphSaving InitialContents: InitializeToExpression: (dictionary copyRemoveAll)'
        
         morphStructure <- dictionary copyRemoveAll.
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> () From: ( | {
         'ModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         parent* = bootstrap setObjectAnnotationOf: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( |
             {} = 'ModuleInfo: Creator: globals morphStoreStringBuilder parent.
'.
            | ) .
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: utilities\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         append: str = ( |
            | 
            result: result & str.
            self).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: morph state\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         appendActionObjectInSlot: s = ( |
            | 
            "s is a slot in one of my morphs"
            appendAssignmentToSlot: s.
            append: ' ( | ', s first longKey, ' = (', s first contents source, ') | ).\n').
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: utilities\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         appendAssignmentTo: mo = ( |
             is.
            | 
            mo == rootMorph ifTrue: [append: 'root: '. ^ self].
            appendReferenceTo: mo.
            append: ' Put: ').
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: morph state\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         appendAssignmentToSlot: s = ( |
             mo.
            | 
            "s is a slot in one of my morphs"
            "It holds another one of my morphs"
            "append <morphRef foo: <its ref>>"
            mo: s holder reflectee.
            parenthesize: [appendReferenceTo: mo].
            append: ' ', s name, ': ').
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: utilities\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         appendCollectionOfMorphs: v = ( |
             vect.
            | 
            v isEmpty  ifTrue: [ ^ append: v collectionName, ' copyRemoveAll' ].
            vect: v asVector.
            parenthesize: [
              v size = 1  ifTrue: [
                append: vect collectionName, ' copySize: 1 FillingWith: '.
                parenthesize: [appendReferenceTo: vect first].
              ] False: [
                vect do: [|:m. :i| 
                  parenthesize: [ appendReferenceTo: m ].
                  i = vect lastKey ifFalse: [ append: ' & ' ].
                ].
              ].
            ].
            append: ' as', v collectionName capitalize).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: skeleton\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         appendCopyMorph: m = ( |
            | 
            append: m prototypeName, ' copyRemoveAllMorphs').
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: morph state\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         appendCreatorPathInSlot: s = ( |
            | 
            "s is a slot in one of my morphs"
            "append <morphRef foo: <its storeString>>"
            appendAssignmentToSlot: s.
            append: s contents creatorPath shortName.
            append: '.\n').
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: morph state\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         appendMorphCollectionInSlot: s = ( |
             mo.
            | 
            "s is a slot in one of my morphs"
            "It holds another one of my morphs"
            "append <morphRef foo: <its ref>>"
            mo: s holder reflectee.
            appendAssignmentToSlot: s.
            appendCollectionOfMorphs: s contents reflectee.
            append: '.\n').
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: morph state\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         appendMorphInSlot: s = ( |
             mo.
            | 
            "s is a slot in one of my morphs"
            "It holds another one of my morphs"
            "append <morphRef foo: <its ref>>"
            mo: s holder reflectee.
            appendAssignmentToSlot: s.
            s contents reflectee ifNil: [
              ^ append: 'nil.\n'.
            ].
            appendReferenceTo: s contents reflectee.
            append: '.\n').
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: morph state\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         appendMorphState = ( |
            | 
            userQuery   show:  'Saving state of morphs'
                       While: [
              rootMorph allMorphsDo: [|:m. |
                indicate: m While: [ appendStateOfMorph: m ].
              ].
            ].
            self).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: utilities\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         appendReferenceTo: mo = ( |
             is.
            | 
            is: morphStructure at: mo asMirror IfAbsent: [
              mo asMirror creatorPathIfPresent: [|:cp|
                ^ append: cp shortName
              ] IfAbsent: [].
              "no way to preserve ident: hope that is OK"
            ^ append: morphStoreStringBuilder storeStringOf: mo IfFail: failBlock.
            ].
            append: '' copySize: (is size pred max: 0) FillingWith: '('.
            append: 'root'.
            is do: [|:x. :i|  
              append: ' rawMorphs at: ', x printString.
              i = is lastKey ifFalse: [append: ')'].
            ].
            self).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: morph state\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         appendStateOfMorph: m = ( |
            | 
            blockify: [
              append: '" State for: ', m printString, ': "\n\n'.

              m asMirror do: [|:s|
              s isAssignable && [(m slotsToNotFileOut includes: s name) not]
                ifTrue: [  appendStateOfSlot: s ].
              ].
              m appendOtherSlotsOnto: self.
            ]).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: morph state\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         appendStateOfSlot: s = ( |
             con.
             cp.
            | 
            "handle storeString, morph, collection of morphs"
            "xxx optimize!"
            con: s contents.
            case
             if: [ (con lookupKey: 'morphTypeName') size = 1 ]
                 Then: [appendMorphInSlot: s]
             If: [ ((con lookupKey: 'collectionName') size = 1 )
                   && [ con reflectee isEmpty not
                   && [ ((reflect: con reflectee first) lookupKey: 'morphTypeName') size = 1 ]]]
                 Then: [appendMorphCollectionInSlot: s]
             If: [ con creatorPathIfPresent: true IfAbsent: false ]
                 Then: [ appendCreatorPathInSlot: s ]
             If: [ (con size = 1) && [con first isMethod]]
                 Then: [ appendActionObjectInSlot: s ]
             If: [ con isComplete  ]  
                 Then: [ appendStoreStringInSlot: s ]
             Else: [ failMorph: s holder reflectee
                        Reason: 'Slot "', s name, '" does not hold a concrete object']).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: morph state\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         appendStoreStringInSlot: s = ( |
             mo.
            | 
            "s is a slot in one of my morphs"
            "append <morphRef foo: <its storeString>>"
            mo: s holder reflectee.
            appendAssignmentToSlot: s.
            append: s contents reflectee storeStringIfFail: [|:err|
              failMorph: mo
                 Reason: 'Slot "', s name,
                               '" cannot find storeString of contents: ',
                               err.
            ].
            append: '.\n').
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: utilities\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         blockify: blk = ( |
            | 
            "put this in a block to avoid compiler length limits"
            append: '[\n'.
            blk onReturn: [ append: '] value.\n\n' ]).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: morph structure\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         buildMorphStructure = ( |
            | 
            buildMorphStructureOf: rootMorph Prefix: vector).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: morph structure\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         buildMorphStructureOf: morph Prefix: prefixVector = ( |
            | 
            "build dict mapping morph (mirrors for ident) to
             sequence of morph indices"
            morphStructure at: morph asMirror Put: prefixVector.
            morph rawMorphs do: [|:m. :i|
             buildMorphStructureOf: m Prefix: prefixVector copyAddLast: i.
            ].
            self).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: skeleton\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         buildSkeleton = ( |
            | 
            append: 'root: '.
            appendCopyMorph: rootMorph.
            append: '.\n'.
            append: '\n"building skeleton"\n\n'.
            buildSkeletonFor: rootMorph.
            append: '"end of skeleton"\n\n').
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: skeleton\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         buildSkeletonFor: aMorph = ( |
             ms.
            | 
            ms:  aMorph morphs.
            ms isEmpty ifTrue: [^ self].
            blockify: [
              parenthesize: [appendReferenceTo: aMorph].
              ms size = 1 ifTrue: [
                append: 'addMorph: '.
                appendCopyMorph: ms first.
                append: '.\n'.
              ] False: [
                append: ' addAllMorphs: ( '.
                ms doFirst: [|:m|    appendCopyMorph: m ]
                     MiddleLast: [|:m| append: ' & '.  appendCopyMorph: m]
                     IfEmpty: [ error ].
                append: ' ) asList.\n'.
              ].
              ms do: [|:m| buildSkeletonFor: m].
            ].
            self).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: building the string\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         buildStoreString = ( |
            | 
            checkPrototypes.
            buildMorphStructure.
            prolog.
            userQuery   show: 'Building Skeleton'
                       While: [
              indicate: rootMorph While: [ buildSkeleton ].
            ].
            appendMorphState.
            epilog).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: checking\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         checkPrototypes = ( |
            | 
            "ensure that each morph has a valid prototype"
            rootMorph allMorphsDo: [|:m. p. mm. pm|
              p: m prototype.
              mm: m asMirror.
              pm: p asMirror.
              mm = pm ifTrue: [
                failMorph: m 
                   Reason: 'Is a prototype.\n',
                                 'I only do clones'.
              ].
              mm names asSet = pm names asSet  ifFalse: [
                failMorph: m
                   Reason: 'Is not a clone of its prototype.'
              ].
            ].
            self).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: public entry points\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         copy = ( |
            | 
            resend.copy morphStructure: morphStructure copy).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: public entry points\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         defaultFileName = './myMorph.self'.
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: building the string\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         epilog = ( |
            | 
            indent: indent pred.
            append: 'root ] value\n').
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: utilities\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         failMorph: mo Reason: r = ( |
             sf.
            | 
            sf: indicate: mo.
            ( userQuery
              askYesNo: 'Filing out failed on morph:\n',
                        mo printString, '\n',
                        r, '.\nDebug?'
            ) ifTrue: [error: mo printString, ' ', r]
               False: [sf delete. failBlock value: r, '\n', mo printString]).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: utilities\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         indicate: morph = ( |
            | 
            morphFinder copy select: morph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: utilities\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         indicate: morph While: blk = ( |
             f.
            | 
            f: indicate: morph.
            blk onReturn: [f safelyDo: [ f delete]]).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: public entry points\x7fModuleInfo: Module: morphSaving InitialContents: InitializeToExpression: (\'\')\x7fVisibility: public'
        
         lastFileName <- ''.
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'ModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         parent* = bootstrap stub -> 'traits' -> 'clonable' -> ().
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: utilities\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         parenthesize: blk = ( |
            | 
            append: '( '.
            blk value.
            append: ' )').
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: building the string\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         prolog = ( |
            | 
            append: '"$', 'Revision: ', '$"\n'.
            append: '[ | root |\n'.
            indent: indent succ).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: public entry points\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         statePrintString = ( |
            | 
            'on ', rootMorph printString).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> 'parent' -> () From: ( | {
         'Category: public entry points\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         storeStringOf: root IfFail: fb = ( |
            | 
            [ | :returningFb |
              ((
              copy rootMorph: root) 
              failBlock: returningFb)
              buildStoreString
              result flatString
            ] value: [|:err| ^ fb value: err]).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> () From: ( | {
         'Category: state\x7fModuleInfo: Module: morphSaving InitialContents: InitializeToExpression: (collector copyFirst: \'\')'
        
         result <- collector copyFirst: ''.
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'morphStoreStringBuilder' -> () From: ( | {
         'Category: state\x7fModuleInfo: Module: morphSaving InitialContents: InitializeToExpression: (nil \"morph copy\")\x7fVisibility: private'
        
         rootMorph.
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'movieMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | movieMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'nonpluggableOutliner' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | 
            nonpluggableOutliner).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'notifyingCommentMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | notifyingCommentMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'objectAnnotationMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | objectAnnotationMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'objectPushButton' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | objectPushButton).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'optionalMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | optionalMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'outliner' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | outliner).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'outlinerHeader' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | outlinerHeader).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'outlinerLeafPointerTailMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | 
            outlinerLeafPointerTailMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'paletteMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | paletteMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'penMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | penMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'pointerHeadMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot'
        
         prototype = ( |
            | pointerHeadMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'pointerMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | 
            pointerMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'pointerTailMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | 
            pointerTailMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'polygonMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | polygonMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'propertiesSheetMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | propertiesSheetMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'proxyMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | proxyMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'pushButton' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | pushButton).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'radarDisplayMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | radarDisplayMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'radarView' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | radarView).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'radioButton' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | radioButton).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'referencesMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | referencesMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'repMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | repMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'resizingPropsMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | resizingPropsMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'rgbInterpolatorMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | rgbInterpolatorMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'rowMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | rowMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'saturationRangeMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | saturationRangeMorph).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'screenEdge' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | screenEdge).
        } | ) 

 bootstrap addSlotsTo: bootstrap stub -> 'globals' -> 'selectionInListMorph' -> () From: ( | {
         'Category: filing out\x7fModuleInfo: Module: morphSaving InitialContents: FollowSlot\x7fVisibility: public'
        
         prototype = ( |
            | selectionInListMorph).
        } | ) 

 bootstrap addSlotsTo: b…