[bug,vw75] SUnitTools.pcl load failure

During loading of SUnitTools.pcl I get a walkback.

ClassOrganizer>>classify:under: is called with nil in both arguments...

R
-

Unhandled exception: Message not understood: #asSymbol
UndefinedObject(Object)>>doesNotUnderstand:
ClassOrganizer>>classify:under:
SUnit.TestCase
class(ClassDescription)>>justAddSelectorUnsafe:withMethod:category:
optimized [] in CodeReader>>installExtensionsInSystem
Array(SequenceableCollection)>>do:
CodeReader>>installExtensionsInSystem
optimized [] in CodeReader>>installInSystem
BlockClosure>>ifCurtailed:
CodeReader>>installInSystem
optimized [] in CodeComponent>>loadFrom:using:
BlockClosure>>on:do:
Parcel class(CodeComponent class)>>handleCodeReaderSignalsDo:for:
Parcel(CodeComponent)>>loadFrom:using:
Parcel(CodeComponent)>>loadFrom:
optimized [] in [] in [] in Parcel class>>loadParcelCachedFrom:
BlockClosure>>on:do:
optimized [] in [] in Parcel class>>loadParcelCachedFrom:
BlockClosure>>on:do:
[] in Parcel class>>loadParcelCachedFrom:
BlockClosure>>ensure:
Parcel class>>loadParcelCachedFrom:
[] in Parcel class>>ensureLoadedParcel:withVersion:for:
optimized [] in Parcel class>>cachedParcelFileInfoIn:for:do:
OrderedCollection>>do:
Parcel class>>cachedParcelFileInfoIn:for:do:
Parcel class>>ensureLoadedParcel:withVersion:for:
[] in Parcel class>>loadParcelByName:
Parcel class>>withFileCachesDo:
Parcel class>>loadParcelByName:
optimized [] in [] in UndefinedObject>>unboundMethod
Array(SequenceableCollection)>>do:
optimized [] in UndefinedObject>>unboundMethod
BlockClosure>>ensure:
Parcel class>>withFileCachesDo:
UndefinedObject>>unboundMethod
UndefinedObject(Object)>>performMethod:arguments:
UndefinedObject(Object)>>performMethod:
TextEditorController(ParagraphEditor)>>evaluateCompiled:
optimized [] in ParagraphEditor>>evaluateSelection
BlockClosure>>ensure:
Cursor>>showWhile:
TextEditorController(ParagraphEditor)>>evaluateSelection
optimized [] in ParagraphEditor>>doIt
BlockClosure>>on:do:
TextEditorController(ParagraphEditor)>>doIt
WorkspacePage>>doIt
Workbook(AbstractWorkspace)>>smalltalkDoIt
WinXPMenuBarButtonController(MenuBarButtonController)>>dispatchMenuSymbol:
WinXPMenuBarButtonController(MenuBarButtonController)>>dispatchMenuSelection:
optimized [] in [] in
MenuBarButtonView>>processShortcutKeyEventAsMenuItemAccessor:
BlockClosure>>ensure:
optimized [] in
MenuBarButtonView>>processShortcutKeyEventAsMenuItemAccessor:
BlockClosure>>on:do:
WinXPMenuBarButtonView(MenuBarButtonView)>>processShortcutKeyEventAsMenuItemAccessor:
[] in WinXPMenuBar(MenuBar)>>processShortcutKeyEventInMenuBar:
OrderedCollection>>do:
WinXPMenuBar(MenuBar)>>processShortcutKeyEventInMenuBar:
KeyboardProcessor>>processShortcutKeyEvent:
KeyboardProcessor>>processKeyboardEvent:
KeyboardProcessor>>processKeyboardEvent:for:
EventDispatcher>>dispatchEvent:
KeyPressedEvent(Event)>>dispatch
KeyPressedEvent(Event)>>dispatchForWindowManager:
optimized [] in WindowManager>>safelyDispatchForWindowManager:
BlockClosure>>on:do:
WindowManager>>safelyDispatchForWindowManager:
WindowManager>>processNextEvent
optimized [] in [] in WindowManager>>newProcess
BlockClosure>>on:do:
optimized [] in WindowManager>>newProcess
BlockClosure>>on:do:
optimized [] in Process class>>forBlock:priority:

----------------------------------------------------------------------
UndefinedObject(Object)>>doesNotUnderstand:
Receiver:
    an UndefinedObject
Arguments:
    aMessage = a Message with selector: #asSymbol and arguments: #()
Temporaries:
    excpt = a MessageNotUnderstood
    resumeValue = nil
Context PC = 25

----------------------------------------------------------------------
ClassOrganizer>>classify:under:
Receiver:
    a ClassOrganizer
Instance Variables:
    globalComment = 12018594
    categoryArray = an Array[8]
    categoryStops = an Array[8]
    elementArray = an Array[29]
Arguments:
    element = nil
    heading = nil
Temporaries:
    catIndex = nil
    elemIndex = nil
    realHeading = nil
    newList = nil
    i = nil
Context PC = 4

----------------------------------------------------------------------
SUnit.TestCase
class(ClassDescription)>>justAddSelectorUnsafe:withMethod:category:
Receiver:
    a SUnit.TestCase class
Instance Variables:
    superclass = Object
    methodDict = a MethodDictionary[30]
    format = 16385
    subclasses = an Array[4]
    instanceVariables = an Array[1]
    organization = ('announcements' #announceCancel: #announceError:
#announceFailure: #announcePass)
('comparing' #= #hash)
('running' #debug #doTestCycle #run)
('accessing' #assert: #broken #cancel #cancel: #deny: #method #resources
#selector #should: #should:raise: #shouldnt: #shouldnt:raise:
#signalFailure:)
('private' #assertBlock:raises: #performTest #setTestSelector:)
('initialize-release' #setUp #tearDown)
('converting' #asDefinition)
('backwards compatibility' #assert:description:)

    name = #TestCase
    classPool = a NameSpaceOfClass[2]
    environment = a NameSpace[17]
Arguments:
    selector = nil
    compiledMethod = CompiledMethod SUnit.TestCase>>unboundMethod
    cat = nil
Temporaries:
    method = CompiledMethod SUnit.TestCase>>unboundMethod
Context PC = 16

----------------------------------------------------------------------
optimized [] in CodeReader>>installExtensionsInSystem
Receiver:
    an UndefinedObject
Arguments:
    mir = SUnit.TestCase>>nil
Temporaries:
    class = SUnit.TestCase
    sel = nil
    .overrides = an OrderedCollection[5]
    .classesToBeNotified = an IdentityDictionary[4]
Context PC = 31

----------------------------------------------------------------------
Array(SequenceableCollection)>>do:
Receiver:
    an Array
Arguments:
    aBlock = BlockClosure [] in CodeReader>>installExtensionsInSystem
Temporaries:
    i = 65
Context PC = 19

----------------------------------------------------------------------
CodeReader>>installExtensionsInSystem
Receiver:
    a CodeReader
Instance Variables:
    stream = a CodeReaderStream on
'\\soops.intern\shares\VwHomes\vw7.5\contributed\SUnitTools.pcl'
    pointer = 1873
    format = 17
    parcelName = 'SUnitToo(ls)'
    versionString = '48'
    dateString = 'April 9, 2007'
    timeString = '12:17:15 pm'
    numNamedObjects = 0
    numClasses = 3
    numExtensionMethods = 96
    definedObjects = an Array[0]
    definedBindings = an IdentityDictionary[2]
    definedExternals = an IdentityDictionary[0]
    classes = an Array[3]
    classSelectors = an Array[3]
    categories = an Array[3]
    packageEnvironment = a NameSpace[2]
    packageUndeclared = a NameSpace[2]
    extensionMethods = an Array[96]
    objectSpaceSize = 1872
    objectSpace = an Array[1872]
    symbolNum = 498
    twoByteSymbolNum = 0
    stringNum = 73
    twoByteStringNum = 0
    byteArrayNum = 225
    floatNum = 19
    doubleNum = 0
    fixedNum = 0
    largePositiveNum = 152
    largeNegativeNum = 0
    mclassNum = 31
    mclassclassNum = 10
    refNamObjNum = 6
    scopeZonesNum = 21
    defObjOrganizerNum = 0
    classOrganizerNum = 6
    arbClassNum = 11
    arbObjectNum = 783
    messageSendIndices = an Interval[0]
    properties = an IdentityDictionary[16]
    userStringsNum = 18
    namedObjects = a Dictionary[0]
    namedObjectsNum = 0
    postLoadObjects = nil
    streamDir = a PortableFilename('$(VISUALWORKS)\contributed')
    sourceFile = 'SUnitTools.pst'
    hideSource = false
    importMaps = an IdentityDictionary[1]
    overriddenExtensions = nil
    versionSelectionBlock = BlockClosure [] in [] in
CodeReader>>compileActions:
    warningSuppressionBlock = BlockClosure [] in [] in
CodeReader>>compileActions:
    preReadBlock = nil
    currentSuperclass = Refactory.Browser.CodeTool
    mustRecompile = false
    lateOperations = an OrderedCollection[3]
    updates = nil
    tempSourceFile = nil
Temporaries:
    classesToBeNotified = an IdentityDictionary[4]
    overrides = an OrderedCollection[5]
Context PC = 24

----------------------------------------------------------------------
optimized [] in CodeReader>>installInSystem
Receiver:
    an UndefinedObject
Temporaries:
    needToRealign = false
    classesToBeNotified = nil
    .self = a CodeReader
Context PC = 72

----------------------------------------------------------------------
BlockClosure>>ifCurtailed:
Receiver:
    a BlockClosure
Instance Variables:
    method = CompiledBlock [] in CodeReader>>installInSystem
    outerContext = nil
    copiedValues = a CodeReader
Arguments:
    terminationBlock = BlockClosure [] in CodeReader>>installInSystem
Context PC = 4

----------------------------------------------------------------------
CodeReader>>installInSystem
Receiver:
    a CodeReader
Instance Variables:
    stream = a CodeReaderStream on
'\\soops.intern\shares\VwHomes\vw7.5\contributed\SUnitTools.pcl'
    pointer = 1873
    format = 17
    parcelName = 'SUnitToo(ls)'
    versionString = '48'
    dateString = 'April 9, 2007'
    timeString = '12:17:15 pm'
    numNamedObjects = 0
    numClasses = 3
    numExtensionMethods = 96
    definedObjects = an Array[0]
    definedBindings = an IdentityDictionary[2]
    definedExternals = an IdentityDictionary[0]
    classes = an Array[3]
    classSelectors = an Array[3]
    categories = an Array[3]
    packageEnvironment = a NameSpace[2]
    packageUndeclared = a NameSpace[2]
    extensionMethods = an Array[96]
    objectSpaceSize = 1872
    objectSpace = an Array[1872]
    symbolNum = 498
    twoByteSymbolNum = 0
    stringNum = 73
    twoByteStringNum = 0
    byteArrayNum = 225
    floatNum = 19
    doubleNum = 0
    fixedNum = 0
    largePositiveNum = 152
    largeNegativeNum = 0
    mclassNum = 31
    mclassclassNum = 10
    refNamObjNum = 6
    scopeZonesNum = 21
    defObjOrganizerNum = 0
    classOrganizerNum = 6
    arbClassNum = 11
    arbObjectNum = 783
    messageSendIndices = an Interval[0]
    properties = an IdentityDictionary[16]
    userStringsNum = 18
    namedObjects = a Dictionary[0]
    namedObjectsNum = 0
    postLoadObjects = nil
    streamDir = a PortableFilename('$(VISUALWORKS)\contributed')
    sourceFile = 'SUnitTools.pst'
    hideSource = false
    importMaps = an IdentityDictionary[1]
    overriddenExtensions = nil
    versionSelectionBlock = BlockClosure [] in [] in
CodeReader>>compileActions:
    warningSuppressionBlock = BlockClosure [] in [] in
CodeReader>>compileActions:
    preReadBlock = nil
    currentSuperclass = Refactory.Browser.CodeTool
    mustRecompile = false
    lateOperations = an OrderedCollection[3]
    updates = nil
    tempSourceFile = nil
Context PC = 11

----------------------------------------------------------------------
optimized [] in CodeComponent>>loadFrom:using:
Receiver:
    an UndefinedObject
Temporaries:
    .aCodeReader = a CodeReader
Context PC = 5

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
    a BlockClosure
Instance Variables:
    method = CompiledBlock [] in CodeComponent>>loadFrom:using:
    outerContext = nil
    copiedValues = a CodeReader
Arguments:
    anExceptionSelector = CodeStorageError
    handlerBlock = BlockClosure [] in CodeComponent
class>>handleCodeReaderSignalsDo:for:
Context PC = 18

----------------------------------------------------------------------
Parcel class(CodeComponent class)>>handleCodeReaderSignalsDo:for:
Receiver:
    a Parcel class
Instance Variables:
    superclass = CodeComponent
    methodDict = a MethodDictionary[231]
    format = 16393
    subclasses = nil
    instanceVariables = an Array[7]
    organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #pundleName #summary #toolListIcon #version #version:
#versionString)
('copying' #postCopy)
('printing' #displayString #listEntry #printOn: #putStatsOn:)
('change management' #addBinding:in: #addBinding:in:attributes:
#addClass: #addClass:attributes: #addDoIt: #addNameSpace:
#addNameSpace:attributes: #addSelector:class:
#addSelector:class:attributes: #changeBinding:in:
#changeBinding:in:attributes: #changeClass: #changeClass:attributes:
#changeNameSpace: #changeNameSpace:attributes: #changeSelector:class:
#changeSelector:class:attributes: #changeSelector:class:documentation:
#changeSelector:class:protocol: #commentClass: #commentNameSpace:
#relocateBinding:from:to: #relocateClass:from:to:
#relocateNameSpace:from:to: #removeBinding:in: #removeClass:
#removeDoIt: #removeEntiretyOfClass: #removeNameSpace:
#removeSelector:class: #renameBinding:in:as: #renameClass:as:
#renameNameSpace:as: #reorganizeClass: #reorganizeClassData:
#reorganizeNameSpace:)
('editing' #addChangeSet: #addChangesToChangeList:
#addClassAndAllSelectors: #addClasses: #addClassesAndAllSelectors:
#addEntiretyOfClass: #addEntiretyOfClasses: #addName:in: #addNames:in:
#addObject: #addObject:named: #addSelector:forClass:
#addSelector:toClass: #addSelectors:forClass: #addStatic:to: #cleanse
#discard #empty #removeChangeSet: #removeClasses:
#removeEntiretyOfClasses: #removeName:in: #removeNames:in:
#removeObject: #removeSelector:forClass: #removeSelectors:forClass:
#removeStatic:from: #undefineClass: #update:with:from:)
('ui' #fileOutAsFor: #saveParcelDialogFor:
#saveParcelDialogFor:preOpen:preSave: #uiForEmpty #uiForRename)
('load/unload' #abortLoadBecause: #abortSaveBecause:
#abortUnloadBecause: #createOrFindExpression #fileIntoFrom: #fileOutOn:
#packageEnvironment #packageUndeclared
#parcelOutOn:withSource:hideOnLoad:republish:backup:
#prerequisitesForLoading #remove #unload)
('queries' #allCallsOn: #allImplementorsOf: #classesAndSelectorsDo:
#containsSelectors:forClass: #danglingReferencesIfUnloadedDo:
#definedAndExtendedClasses #definedBindings #definedBindingsDo:
#definedBindingsFor: #definedClasses #definedClassesDo:
#definedNamesFor: #definedNameSpaces #definedObjects #definedObjectsDo:
#definedOrExtendedClassNamesFor: #definedProtocolsFor:
#definedSelectorsFor: #definedSelectorsFor:andProtocol:
#definedStaticReferences #definedThings #definesClass:
#definesClassOrNameSpace: #definesName:in: #definesObject:
#definesOrExtendsBehavior: #definesOrExtendsClass:
#definesSelector:forClass: #extendedBehaviors #extendedClasses
#extendsBehavior: #extendsClass: #extendsObject: #extensionsDo:
#externalMethodsUsedExclusively #getCategoriesOfClasses
#getChildrenObjects #loadedPrerequisites #methodsDo: #namedObjects
#overridesDo: #unparceledMethodsOfDefinedClasses)
('change set compatibility' #addOtherChange: #addPropertyChange:
#atClass:includes: #atName:includes: #atSelector:class: #changedClasses
#propertyChanged: #propertyChanged:value:)
('testing' #hasCodeOverriddenByOtherParcels
#hasDanglingReferencesIfUnloaded #hasExtendedClasses
#hasExtendedNameSpaces #hasExtensions #hasItselfBeenModified
#hasOverriddenCode #hasUninstalledCode #isDirty #isEmpty #isLoaded
#isParcel #isSaveable #notEmpty)
('private' #adviseManager #checkedActionMethod:
#definedClassesExcludedSelectors #definedClassExcludedSelectors:
#extensionMethods #forPackage:do: #installUninstalledBindings
#installUninstalledClasses #installUninstalledMethods #manager
#markAsClean #markAsDirty #markNotModified #nonMetaClassOf:
#performAction: #postLoad: #setActionMethod:class:selector:
#unloadLogged: #unloadSource #unloadSourceSafely: #writeDefinition:on:
#writeMethods:on: #writeRemovalScriptOn:)
('private-selectors' #classesThatHaveBindings #classesThatHaveSelectors
#hasBindingsFor: #hasSelectorsFor: #objectsThatHaveBindings #selectorsAt:)
('actions' #executeActionBlock:for:)
('overrides' #comparesTo: #overriddenClass: #overriddenNameSpace:
#overriddenSelector:class: #overriddenStatic:in: #reinstalledClass:
#reinstalledNameSpace: #reinstalledSelector:class:
#reinstalledStatic:in: #removeOverriddenClass:
#removeOverriddenNameSpace: #removeOverriddenSelector:class:
#removeOverriddenStatic:nameSpace:)
('store-utilities' #classOfDbRecord #relatedPackage #relatedParcel)
('store' #asDBRecord #asPackage #asPackageNamed:
#checkPrerequisiteNamed:withVersion:requiredVersion: #copyPropertiesTo:
#moveContentsTo: #traceVersion #traceVersionString)
('private-load/unload' #addSpecialItemsFrom: #doComponentLoadedActions
#doComponentUpdatingActions: #putStoredPropertiesIn:
#queryLoaded:ifLoadedAndOK:ifFail: #removeClass:unloaded:
#removeNameSpace:unloaded: #runClassExtensionPostLoadMethods
#setParcelPropertyFrom:)
('converting' #asParcel)
('private-editing'
#addChangesFor:instanceSelectors:classSelectors:to:bindings:source:)
('Refactoring Browser' #allClassesAndNameSpaces #isUnparceledParcel
#textForItem)

    name = #Parcel
    classPool = a NameSpaceOfClass[2]
    environment = a NameSpace[249]
    parcels = a List[211]
    classParcelMap = nil
    parcelFileInfoCache = a Dictionary[834]
    parcelFileDirectoryCache = a Dictionary[30]
    dependents = a Store.PundleAccess
Arguments:
    aBlock = BlockClosure [] in CodeComponent>>loadFrom:using:
    componentSource = a
PortableFilename('$(VISUALWORKS)\contributed\SUnitTools.pcl')
Temporaries:
    acceptAbsentClassImports = false
    componentName = '$(VISUALWORKS)\contributed\SUnitTools.pcl'
Context PC = 22

----------------------------------------------------------------------
Parcel(CodeComponent)>>loadFrom:using:
Receiver:
    a Parcel
Instance Variables:
    name = nil
    properties = an IdentityDictionary[1]
    definedObjects = an IdentitySet[0]
    definedClasses = an IdentitySet[0]
    definedBindings = an IdentityDictionary[0]
    classSelectors = an IdentityDictionary[0]
    namedObjects = a Dictionary[0]
    dirty = false
    loaded = false
Arguments:
    aSource = a
PortableFilename('$(VISUALWORKS)\contributed\SUnitTools.pcl')
    aCodeReader = a CodeReader
Context PC = 36

----------------------------------------------------------------------
Parcel(CodeComponent)>>loadFrom:
Receiver:
    a Parcel
Instance Variables:
    name = nil
    properties = an IdentityDictionary[1]
    definedObjects = an IdentitySet[0]
    definedClasses = an IdentitySet[0]
    definedBindings = an IdentityDictionary[0]
    classSelectors = an IdentityDictionary[0]
    namedObjects = a Dictionary[0]
    dirty = false
    loaded = false
Arguments:
    aSource = a
PortableFilename('$(VISUALWORKS)\contributed\SUnitTools.pcl')
Context PC = 7

----------------------------------------------------------------------
optimized [] in [] in [] in Parcel class>>loadParcelCachedFrom:
Receiver:
    an UndefinedObject
Temporaries:
    loadedParcel = Parcel parcelNamed: nil
    .aStringOrFilename = a
PortableFilename('$(VISUALWORKS)\contributed\SUnitTools.pcl')
Context PC = 7

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
    a BlockClosure
Instance Variables:
    method = CompiledBlock [] in [] in [] in Parcel
class>>loadParcelCachedFrom:
    outerContext = nil
    copiedValues = an Array[2]
Arguments:
    anExceptionSelector = QueryNotification
    handlerBlock = BlockClosure [] in [] in [] in Parcel
class>>loadParcelCachedFrom:
Context PC = 18

----------------------------------------------------------------------
optimized [] in [] in Parcel class>>loadParcelCachedFrom:
Receiver:
    an UndefinedObject
Temporaries:
    loadedParcel = Parcel parcelNamed: nil
    .aStringOrFilename = a
PortableFilename('$(VISUALWORKS)\contributed\SUnitTools.pcl')
    .loadTag = #parcel->'$(VISUALWORKS)\contributed\SUnitTools.pcl'
    .self = Parcel
Context PC = 16

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
    a BlockClosure
Instance Variables:
    method = CompiledBlock [] in [] in Parcel class>>loadParcelCachedFrom:
    outerContext = nil
    copiedValues = an Array[4]
Arguments:
    anExceptionSelector = Parcel abortedActionSignal
    handlerBlock = BlockClosure [] in [] in Parcel
class>>loadParcelCachedFrom:
Context PC = 18

----------------------------------------------------------------------
[] in Parcel class>>loadParcelCachedFrom:
Receiver:
    a Parcel class
Instance Variables:
    superclass = CodeComponent
    methodDict = a MethodDictionary[231]
    format = 16393
    subclasses = nil
    instanceVariables = an Array[7]
    organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #pundleName #summary #toolListIcon #version #version:
#versionString)
('copying' #postCopy)
('printing' #displayString #listEntry #printOn: #putStatsOn:)
('change management' #addBinding:in: #addBinding:in:attributes:
#addClass: #addClass:attributes: #addDoIt: #addNameSpace:
#addNameSpace:attributes: #addSelector:class:
#addSelector:class:attributes: #changeBinding:in:
#changeBinding:in:attributes: #changeClass: #changeClass:attributes:
#changeNameSpace: #changeNameSpace:attributes: #changeSelector:class:
#changeSelector:class:attributes: #changeSelector:class:documentation:
#changeSelector:class:protocol: #commentClass: #commentNameSpace:
#relocateBinding:from:to: #relocateClass:from:to:
#relocateNameSpace:from:to: #removeBinding:in: #removeClass:
#removeDoIt: #removeEntiretyOfClass: #removeNameSpace:
#removeSelector:class: #renameBinding:in:as: #renameClass:as:
#renameNameSpace:as: #reorganizeClass: #reorganizeClassData:
#reorganizeNameSpace:)
('editing' #addChangeSet: #addChangesToChangeList:
#addClassAndAllSelectors: #addClasses: #addClassesAndAllSelectors:
#addEntiretyOfClass: #addEntiretyOfClasses: #addName:in: #addNames:in:
#addObject: #addObject:named: #addSelector:forClass:
#addSelector:toClass: #addSelectors:forClass: #addStatic:to: #cleanse
#discard #empty #removeChangeSet: #removeClasses:
#removeEntiretyOfClasses: #removeName:in: #removeNames:in:
#removeObject: #removeSelector:forClass: #removeSelectors:forClass:
#removeStatic:from: #undefineClass: #update:with:from:)
('ui' #fileOutAsFor: #saveParcelDialogFor:
#saveParcelDialogFor:preOpen:preSave: #uiForEmpty #uiForRename)
('load/unload' #abortLoadBecause: #abortSaveBecause:
#abortUnloadBecause: #createOrFindExpression #fileIntoFrom: #fileOutOn:
#packageEnvironment #packageUndeclared
#parcelOutOn:withSource:hideOnLoad:republish:backup:
#prerequisitesForLoading #remove #unload)
('queries' #allCallsOn: #allImplementorsOf: #classesAndSelectorsDo:
#containsSelectors:forClass: #danglingReferencesIfUnloadedDo:
#definedAndExtendedClasses #definedBindings #definedBindingsDo:
#definedBindingsFor: #definedClasses #definedClassesDo:
#definedNamesFor: #definedNameSpaces #definedObjects #definedObjectsDo:
#definedOrExtendedClassNamesFor: #definedProtocolsFor:
#definedSelectorsFor: #definedSelectorsFor:andProtocol:
#definedStaticReferences #definedThings #definesClass:
#definesClassOrNameSpace: #definesName:in: #definesObject:
#definesOrExtendsBehavior: #definesOrExtendsClass:
#definesSelector:forClass: #extendedBehaviors #extendedClasses
#extendsBehavior: #extendsClass: #extendsObject: #extensionsDo:
#externalMethodsUsedExclusively #getCategoriesOfClasses
#getChildrenObjects #loadedPrerequisites #methodsDo: #namedObjects
#overridesDo: #unparceledMethodsOfDefinedClasses)
('change set compatibility' #addOtherChange: #addPropertyChange:
#atClass:includes: #atName:includes: #atSelector:class: #changedClasses
#propertyChanged: #propertyChanged:value:)
('testing' #hasCodeOverriddenByOtherParcels
#hasDanglingReferencesIfUnloaded #hasExtendedClasses
#hasExtendedNameSpaces #hasExtensions #hasItselfBeenModified
#hasOverriddenCode #hasUninstalledCode #isDirty #isEmpty #isLoaded
#isParcel #isSaveable #notEmpty)
('private' #adviseManager #checkedActionMethod:
#definedClassesExcludedSelectors #definedClassExcludedSelectors:
#extensionMethods #forPackage:do: #installUninstalledBindings
#installUninstalledClasses #installUninstalledMethods #manager
#markAsClean #markAsDirty #markNotModified #nonMetaClassOf:
#performAction: #postLoad: #setActionMethod:class:selector:
#unloadLogged: #unloadSource #unloadSourceSafely: #writeDefinition:on:
#writeMethods:on: #writeRemovalScriptOn:)
('private-selectors' #classesThatHaveBindings #classesThatHaveSelectors
#hasBindingsFor: #hasSelectorsFor: #objectsThatHaveBindings #selectorsAt:)
('actions' #executeActionBlock:for:)
('overrides' #comparesTo: #overriddenClass: #overriddenNameSpace:
#overriddenSelector:class: #overriddenStatic:in: #reinstalledClass:
#reinstalledNameSpace: #reinstalledSelector:class:
#reinstalledStatic:in: #removeOverriddenClass:
#removeOverriddenNameSpace: #removeOverriddenSelector:class:
#removeOverriddenStatic:nameSpace:)
('store-utilities' #classOfDbRecord #relatedPackage #relatedParcel)
('store' #asDBRecord #asPackage #asPackageNamed:
#checkPrerequisiteNamed:withVersion:requiredVersion: #copyPropertiesTo:
#moveContentsTo: #traceVersion #traceVersionString)
('private-load/unload' #addSpecialItemsFrom: #doComponentLoadedActions
#doComponentUpdatingActions: #putStoredPropertiesIn:
#queryLoaded:ifLoadedAndOK:ifFail: #removeClass:unloaded:
#removeNameSpace:unloaded: #runClassExtensionPostLoadMethods
#setParcelPropertyFrom:)
('converting' #asParcel)
('private-editing'
#addChangesFor:instanceSelectors:classSelectors:to:bindings:source:)
('Refactoring Browser' #allClassesAndNameSpaces #isUnparceledParcel
#textForItem)

    name = #Parcel
    classPool = a NameSpaceOfClass[2]
    environment = a NameSpace[249]
    parcels = a List[211]
    classParcelMap = nil
    parcelFileInfoCache = a Dictionary[834]
    parcelFileDirectoryCache = a Dictionary[30]
    dependents = a Store.PundleAccess
Temporaries:
    loadedParcel = Parcel parcelNamed: nil
    .aStringOrFilename = a
PortableFilename('$(VISUALWORKS)\contributed\SUnitTools.pcl')
    .loadTag = #parcel->'$(VISUALWORKS)\contributed\SUnitTools.pcl'
    .self = Parcel
Context PC = 20

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
    a BlockClosure
Instance Variables:
    method = CompiledBlock [] in Parcel class>>loadParcelCachedFrom:
    outerContext = Parcel class>>loadParcelCachedFrom:
    copiedValues = an Array[4]
Arguments:
    aBlock = BlockClosure [] in Parcel class>>loadParcelCachedFrom:
Temporaries:
    result = nil
Context PC = 4

----------------------------------------------------------------------
Parcel class>>loadParcelCachedFrom:
Receiver:
    a Parcel class
Instance Variables:
    superclass = CodeComponent
    methodDict = a MethodDictionary[231]
    format = 16393
    subclasses = nil
    instanceVariables = an Array[7]
    organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #pundleName #summary #toolListIcon #version #version:
#versionString)
('copying' #postCopy)
('printing' #displayString #listEntry #printOn: #putStatsOn:)
('change management' #addBinding:in: #addBinding:in:attributes:
#addClass: #addClass:attributes: #addDoIt: #addNameSpace:
#addNameSpace:attributes: #addSelector:class:
#addSelector:class:attributes: #changeBinding:in:
#changeBinding:in:attributes: #changeClass: #changeClass:attributes:
#changeNameSpace: #changeNameSpace:attributes: #changeSelector:class:
#changeSelector:class:attributes: #changeSelector:class:documentation:
#changeSelector:class:protocol: #commentClass: #commentNameSpace:
#relocateBinding:from:to: #relocateClass:from:to:
#relocateNameSpace:from:to: #removeBinding:in: #removeClass:
#removeDoIt: #removeEntiretyOfClass: #removeNameSpace:
#removeSelector:class: #renameBinding:in:as: #renameClass:as:
#renameNameSpace:as: #reorganizeClass: #reorganizeClassData:
#reorganizeNameSpace:)
('editing' #addChangeSet: #addChangesToChangeList:
#addClassAndAllSelectors: #addClasses: #addClassesAndAllSelectors:
#addEntiretyOfClass: #addEntiretyOfClasses: #addName:in: #addNames:in:
#addObject: #addObject:named: #addSelector:forClass:
#addSelector:toClass: #addSelectors:forClass: #addStatic:to: #cleanse
#discard #empty #removeChangeSet: #removeClasses:
#removeEntiretyOfClasses: #removeName:in: #removeNames:in:
#removeObject: #removeSelector:forClass: #removeSelectors:forClass:
#removeStatic:from: #undefineClass: #update:with:from:)
('ui' #fileOutAsFor: #saveParcelDialogFor:
#saveParcelDialogFor:preOpen:preSave: #uiForEmpty #uiForRename)
('load/unload' #abortLoadBecause: #abortSaveBecause:
#abortUnloadBecause: #createOrFindExpression #fileIntoFrom: #fileOutOn:
#packageEnvironment #packageUndeclared
#parcelOutOn:withSource:hideOnLoad:republish:backup:
#prerequisitesForLoading #remove #unload)
('queries' #allCallsOn: #allImplementorsOf: #classesAndSelectorsDo:
#containsSelectors:forClass: #danglingReferencesIfUnloadedDo:
#definedAndExtendedClasses #definedBindings #definedBindingsDo:
#definedBindingsFor: #definedClasses #definedClassesDo:
#definedNamesFor: #definedNameSpaces #definedObjects #definedObjectsDo:
#definedOrExtendedClassNamesFor: #definedProtocolsFor:
#definedSelectorsFor: #definedSelectorsFor:andProtocol:
#definedStaticReferences #definedThings #definesClass:
#definesClassOrNameSpace: #definesName:in: #definesObject:
#definesOrExtendsBehavior: #definesOrExtendsClass:
#definesSelector:forClass: #extendedBehaviors #extendedClasses
#extendsBehavior: #extendsClass: #extendsObject: #extensionsDo:
#externalMethodsUsedExclusively #getCategoriesOfClasses
#getChildrenObjects #loadedPrerequisites #methodsDo: #namedObjects
#overridesDo: #unparceledMethodsOfDefinedClasses)
('change set compatibility' #addOtherChange: #addPropertyChange:
#atClass:includes: #atName:includes: #atSelector:class: #changedClasses
#propertyChanged: #propertyChanged:value:)
('testing' #hasCodeOverriddenByOtherParcels
#hasDanglingReferencesIfUnloaded #hasExtendedClasses
#hasExtendedNameSpaces #hasExtensions #hasItselfBeenModified
#hasOverriddenCode #hasUninstalledCode #isDirty #isEmpty #isLoaded
#isParcel #isSaveable #notEmpty)
('private' #adviseManager #checkedActionMethod:
#definedClassesExcludedSelectors #definedClassExcludedSelectors:
#extensionMethods #forPackage:do: #installUninstalledBindings
#installUninstalledClasses #installUninstalledMethods #manager
#markAsClean #markAsDirty #markNotModified #nonMetaClassOf:
#performAction: #postLoad: #setActionMethod:class:selector:
#unloadLogged: #unloadSource #unloadSourceSafely: #writeDefinition:on:
#writeMethods:on: #writeRemovalScriptOn:)
('private-selectors' #classesThatHaveBindings #classesThatHaveSelectors
#hasBindingsFor: #hasSelectorsFor: #objectsThatHaveBindings #selectorsAt:)
('actions' #executeActionBlock:for:)
('overrides' #comparesTo: #overriddenClass: #overriddenNameSpace:
#overriddenSelector:class: #overriddenStatic:in: #reinstalledClass:
#reinstalledNameSpace: #reinstalledSelector:class:
#reinstalledStatic:in: #removeOverriddenClass:
#removeOverriddenNameSpace: #removeOverriddenSelector:class:
#removeOverriddenStatic:nameSpace:)
('store-utilities' #classOfDbRecord #relatedPackage #relatedParcel)
('store' #asDBRecord #asPackage #asPackageNamed:
#checkPrerequisiteNamed:withVersion:requiredVersion: #copyPropertiesTo:
#moveContentsTo: #traceVersion #traceVersionString)
('private-load/unload' #addSpecialItemsFrom: #doComponentLoadedActions
#doComponentUpdatingActions: #putStoredPropertiesIn:
#queryLoaded:ifLoadedAndOK:ifFail: #removeClass:unloaded:
#removeNameSpace:unloaded: #runClassExtensionPostLoadMethods
#setParcelPropertyFrom:)
('converting' #asParcel)
('private-editing'
#addChangesFor:instanceSelectors:classSelectors:to:bindings:source:)
('Refactoring Browser' #allClassesAndNameSpaces #isUnparceledParcel
#textForItem)

    name = #Parcel
    classPool = a NameSpaceOfClass[2]
    environment = a NameSpace[249]
    parcels = a List[211]
    classParcelMap = nil
    parcelFileInfoCache = a Dictionary[834]
    parcelFileDirectoryCache = a Dictionary[30]
    dependents = a Store.PundleAccess
Arguments:
    aStringOrFilename = a
PortableFilename('$(VISUALWORKS)\contributed\SUnitTools.pcl')
Temporaries:
    loadedParcel = Parcel parcelNamed: nil
    loadTag = #parcel->'$(VISUALWORKS)\contributed\SUnitTools.pcl'
Context PC = 46

----------------------------------------------------------------------
[] in Parcel class>>ensureLoadedParcel:withVersion:for:
Receiver:
    a Parcel class
Instance Variables:
    superclass = CodeComponent
    methodDict = a MethodDictionary[231]
    format = 16393
    subclasses = nil
    instanceVariables = an Array[7]
    organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #pundleName #summary #toolListIcon #version #version:
#versionString)
('copying' #postCopy)
('printing' #displayString #listEntry #printOn: #putStatsOn:)
('change management' #addBinding:in: #addBinding:in:attributes:
#addClass: #addClass:attributes: #addDoIt: #addNameSpace:
#addNameSpace:attributes: #addSelector:class:
#addSelector:class:attributes: #changeBinding:in:
#changeBinding:in:attributes: #changeClass: #changeClass:attributes:
#changeNameSpace: #changeNameSpace:attributes: #changeSelector:class:
#changeSelector:class:attributes: #changeSelector:class:documentation:
#changeSelector:class:protocol: #commentClass: #commentNameSpace:
#relocateBinding:from:to: #relocateClass:from:to:
#relocateNameSpace:from:to: #removeBinding:in: #removeClass:
#removeDoIt: #removeEntiretyOfClass: #removeNameSpace:
#removeSelector:class: #renameBinding:in:as: #renameClass:as:
#renameNameSpace:as: #reorganizeClass: #reorganizeClassData:
#reorganizeNameSpace:)
('editing' #addChangeSet: #addChangesToChangeList:
#addClassAndAllSelectors: #addClasses: #addClassesAndAllSelectors:
#addEntiretyOfClass: #addEntiretyOfClasses: #addName:in: #addNames:in:
#addObject: #addObject:named: #addSelector:forClass:
#addSelector:toClass: #addSelectors:forClass: #addStatic:to: #cleanse
#discard #empty #removeChangeSet: #removeClasses:
#removeEntiretyOfClasses: #removeName:in: #removeNames:in:
#removeObject: #removeSelector:forClass: #removeSelectors:forClass:
#removeStatic:from: #undefineClass: #update:with:from:)
('ui' #fileOutAsFor: #saveParcelDialogFor:
#saveParcelDialogFor:preOpen:preSave: #uiForEmpty #uiForRename)
('load/unload' #abortLoadBecause: #abortSaveBecause:
#abortUnloadBecause: #createOrFindExpression #fileIntoFrom: #fileOutOn:
#packageEnvironment #packageUndeclared
#parcelOutOn:withSource:hideOnLoad:republish:backup:
#prerequisitesForLoading #remove #unload)
('queries' #allCallsOn: #allImplementorsOf: #classesAndSelectorsDo:
#containsSelectors:forClass: #danglingReferencesIfUnloadedDo:
#definedAndExtendedClasses #definedBindings #definedBindingsDo:
#definedBindingsFor: #definedClasses #definedClassesDo:
#definedNamesFor: #definedNameSpaces #definedObjects #definedObjectsDo:
#definedOrExtendedClassNamesFor: #definedProtocolsFor:
#definedSelectorsFor: #definedSelectorsFor:andProtocol:
#definedStaticReferences #definedThings #definesClass:
#definesClassOrNameSpace: #definesName:in: #definesObject:
#definesOrExtendsBehavior: #definesOrExtendsClass:
#definesSelector:forClass: #extendedBehaviors #extendedClasses
#extendsBehavior: #extendsClass: #extendsObject: #extensionsDo:
#externalMethodsUsedExclusively #getCategoriesOfClasses
#getChildrenObjects #loadedPrerequisites #methodsDo: #namedObjects
#overridesDo: #unparceledMethodsOfDefinedClasses)
('change set compatibility' #addOtherChange: #addPropertyChange:
#atClass:includes: #atName:includes: #atSelector:class: #changedClasses
#propertyChanged: #propertyChanged:value:)
('testing' #hasCodeOverriddenByOtherParcels
#hasDanglingReferencesIfUnloaded #hasExtendedClasses
#hasExtendedNameSpaces #hasExtensions #hasItselfBeenModified
#hasOverriddenCode #hasUninstalledCode #isDirty #isEmpty #isLoaded
#isParcel #isSaveable #notEmpty)
('private' #adviseManager #checkedActionMethod:
#definedClassesExcludedSelectors #definedClassExcludedSelectors:
#extensionMethods #forPackage:do: #installUninstalledBindings
#installUninstalledClasses #installUninstalledMethods #manager
#markAsClean #markAsDirty #markNotModified #nonMetaClassOf:
#performAction: #postLoad: #setActionMethod:class:selector:
#unloadLogged: #unloadSource #unloadSourceSafely: #writeDefinition:on:
#writeMethods:on: #writeRemovalScriptOn:)
('private-selectors' #classesThatHaveBindings #classesThatHaveSelectors
#hasBindingsFor: #hasSelectorsFor: #objectsThatHaveBindings #selectorsAt:)
('actions' #executeActionBlock:for:)
('overrides' #comparesTo: #overriddenClass: #overriddenNameSpace:
#overriddenSelector:class: #overriddenStatic:in: #reinstalledClass:
#reinstalledNameSpace: #reinstalledSelector:class:
#reinstalledStatic:in: #removeOverriddenClass:
#removeOverriddenNameSpace: #removeOverriddenSelector:class:
#removeOverriddenStatic:nameSpace:)
('store-utilities' #classOfDbRecord #relatedPackage #relatedParcel)
('store' #asDBRecord #asPackage #asPackageNamed:
#checkPrerequisiteNamed:withVersion:requiredVersion: #copyPropertiesTo:
#moveContentsTo: #traceVersion #traceVersionString)
('private-load/unload' #addSpecialItemsFrom: #doComponentLoadedActions
#doComponentUpdatingActions: #putStoredPropertiesIn:
#queryLoaded:ifLoadedAndOK:ifFail: #removeClass:unloaded:
#removeNameSpace:unloaded: #runClassExtensionPostLoadMethods
#setParcelPropertyFrom:)
('converting' #asParcel)
('private-editing'
#addChangesFor:instanceSelectors:classSelectors:to:bindings:source:)
('Refactoring Browser' #allClassesAndNameSpaces #isUnparceledParcel
#textForItem)

    name = #Parcel
    classPool = a NameSpaceOfClass[2]
    environment = a NameSpace[249]
    parcels = a List[211]
    classParcelMap = nil
    parcelFileInfoCache = a Dictionary[834]
    parcelFileDirectoryCache = a Dictionary[30]
    dependents = a Store.PundleAccess
Arguments:
    info = a Dictionary[7]
    filename = a
PortableFilename('$(VISUALWORKS)\contributed\SUnitTools.pcl')
Temporaries:
    found = true
    .parcelName = 'SUnitToo(ls)'
    .codeReaderOrNil = nil
    .versionString = '48'
    .self = Parcel
Context PC = 67

----------------------------------------------------------------------
optimized [] in Parcel class>>cachedParcelFileInfoIn:for:do:
Receiver:
    an UndefinedObject
Arguments:
    aFilename = a
PortableFilename('$(VISUALWORKS)\contributed\SUnitTools.pcl')
Temporaries:
    info = a Dictionary[7]
    .self = Parcel
    .reader = a CodeReader
    .aBlock = BlockClosure [] in Parcel
class>>ensureLoadedParcel:withVersion:for:
Context PC = 49

----------------------------------------------------------------------
OrderedCollection>>do:
Receiver:
    an OrderedCollection
Instance Variables:
    firstIndex = 1
    lastIndex = 94
Arguments:
    aBlock = BlockClosure [] in Parcel class>>cachedParcelFileInfoIn:for:do:
Temporaries:
    index = 76
Context PC = 17

----------------------------------------------------------------------
Parcel class>>cachedParcelFileInfoIn:for:do:
Receiver:
    a Parcel class
Instance Variables:
    superclass = CodeComponent
    methodDict = a MethodDictionary[231]
    format = 16393
    subclasses = nil
    instanceVariables = an Array[7]
    organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #pundleName #summary #toolListIcon #version #version:
#versionString)
('copying' #postCopy)
('printing' #displayString #listEntry #printOn: #putStatsOn:)
('change management' #addBinding:in: #addBinding:in:attributes:
#addClass: #addClass:attributes: #addDoIt: #addNameSpace:
#addNameSpace:attributes: #addSelector:class:
#addSelector:class:attributes: #changeBinding:in:
#changeBinding:in:attributes: #changeClass: #changeClass:attributes:
#changeNameSpace: #changeNameSpace:attributes: #changeSelector:class:
#changeSelector:class:attributes: #changeSelector:class:documentation:
#changeSelector:class:protocol: #commentClass: #commentNameSpace:
#relocateBinding:from:to: #relocateClass:from:to:
#relocateNameSpace:from:to: #removeBinding:in: #removeClass:
#removeDoIt: #removeEntiretyOfClass: #removeNameSpace:
#removeSelector:class: #renameBinding:in:as: #renameClass:as:
#renameNameSpace:as: #reorganizeClass: #reorganizeClassData:
#reorganizeNameSpace:)
('editing' #addChangeSet: #addChangesToChangeList:
#addClassAndAllSelectors: #addClasses: #addClassesAndAllSelectors:
#addEntiretyOfClass: #addEntiretyOfClasses: #addName:in: #addNames:in:
#addObject: #addObject:named: #addSelector:forClass:
#addSelector:toClass: #addSelectors:forClass: #addStatic:to: #cleanse
#discard #empty #removeChangeSet: #removeClasses:
#removeEntiretyOfClasses: #removeName:in: #removeNames:in:
#removeObject: #removeSelector:forClass: #removeSelectors:forClass:
#removeStatic:from: #undefineClass: #update:with:from:)
('ui' #fileOutAsFor: #saveParcelDialogFor:
#saveParcelDialogFor:preOpen:preSave: #uiForEmpty #uiForRename)
('load/unload' #abortLoadBecause: #abortSaveBecause:
#abortUnloadBecause: #createOrFindExpression #fileIntoFrom: #fileOutOn:
#packageEnvironment #packageUndeclared
#parcelOutOn:withSource:hideOnLoad:republish:backup:
#prerequisitesForLoading #remove #unload)
('queries' #allCallsOn: #allImplementorsOf: #classesAndSelectorsDo:
#containsSelectors:forClass: #danglingReferencesIfUnloadedDo:
#definedAndExtendedClasses #definedBindings #definedBindingsDo:
#definedBindingsFor: #definedClasses #definedClassesDo:
#definedNamesFor: #definedNameSpaces #definedObjects #definedObjectsDo:
#definedOrExtendedClassNamesFor: #definedProtocolsFor:
#definedSelectorsFor: #definedSelectorsFor:andProtocol:
#definedStaticReferences #definedThings #definesClass:
#definesClassOrNameSpace: #definesName:in: #definesObject:
#definesOrExtendsBehavior: #definesOrExtendsClass:
#definesSelector:forClass: #extendedBehaviors #extendedClasses
#extendsBehavior: #extendsClass: #extendsObject: #extensionsDo:
#externalMethodsUsedExclusively #getCategoriesOfClasses
#getChildrenObjects #loadedPrerequisites #methodsDo: #namedObjects
#overridesDo: #unparceledMethodsOfDefinedClasses)
('change set compatibility' #addOtherChange: #addPropertyChange:
#atClass:includes: #atName:includes: #atSelector:class: #changedClasses
#propertyChanged: #propertyChanged:value:)
('testing' #hasCodeOverriddenByOtherParcels
#hasDanglingReferencesIfUnloaded #hasExtendedClasses
#hasExtendedNameSpaces #hasExtensions #hasItselfBeenModified
#hasOverriddenCode #hasUninstalledCode #isDirty #isEmpty #isLoaded
#isParcel #isSaveable #notEmpty)
('private' #adviseManager #checkedActionMethod:
#definedClassesExcludedSelectors #definedClassExcludedSelectors:
#extensionMethods #forPackage:do: #installUninstalledBindings
#installUninstalledClasses #installUninstalledMethods #manager
#markAsClean #markAsDirty #markNotModified #nonMetaClassOf:
#performAction: #postLoad: #setActionMethod:class:selector:
#unloadLogged: #unloadSource #unloadSourceSafely: #writeDefinition:on:
#writeMethods:on: #writeRemovalScriptOn:)
('private-selectors' #classesThatHaveBindings #classesThatHaveSelectors
#hasBindingsFor: #hasSelectorsFor: #objectsThatHaveBindings #selectorsAt:)
('actions' #executeActionBlock:for:)
('overrides' #comparesTo: #overriddenClass: #overriddenNameSpace:
#overriddenSelector:class: #overriddenStatic:in: #reinstalledClass:
#reinstalledNameSpace: #reinstalledSelector:class:
#reinstalledStatic:in: #removeOverriddenClass:
#removeOverriddenNameSpace: #removeOverriddenSelector:class:
#removeOverriddenStatic:nameSpace:)
('store-utilities' #classOfDbRecord #relatedPackage #relatedParcel)
('store' #asDBRecord #asPackage #asPackageNamed:
#checkPrerequisiteNamed:withVersion:requiredVersion: #copyPropertiesTo:
#moveContentsTo: #traceVersion #traceVersionString)
('private-load/unload' #addSpecialItemsFrom: #doComponentLoadedActions
#doComponentUpdatingActions: #putStoredPropertiesIn:
#queryLoaded:ifLoadedAndOK:ifFail: #removeClass:unloaded:
#removeNameSpace:unloaded: #runClassExtensionPostLoadMethods
#setParcelPropertyFrom:)
('converting' #asParcel)
('private-editing'
#addChangesFor:instanceSelectors:classSelectors:to:bindings:source:)
('Refactoring Browser' #allClassesAndNameSpaces #isUnparceledParcel
#textForItem)

    name = #Parcel
    classPool = a NameSpaceOfClass[2]
    environment = a NameSpace[249]
    parcels = a List[211]
    classParcelMap = nil
    parcelFileInfoCache = a Dictionary[834]
    parcelFileDirectoryCache = a Dictionary[30]
    dependents = a Store.PundleAccess
Arguments:
    aDirectory = a PortableFilename('$(VISUALWORKS)\contributed')
    parcelName = 'SUnitToo(ls)'
    aBlock = BlockClosure [] in Parcel
class>>ensureLoadedParcel:withVersion:for:
Temporaries:
    parcelFiles = an OrderedCollection[94]
    likelyFile = nil
    reader = a CodeReader
Context PC = 55

----------------------------------------------------------------------
Parcel class>>ensureLoadedParcel:withVersion:for:
Receiver:
    a Parcel class
Instance Variables:
    superclass = CodeComponent
    methodDict = a MethodDictionary[231]
    format = 16393
    subclasses = nil
    instanceVariables = an Array[7]
    organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #pundleName #summary #toolListIcon #version #version:
#versionString)
('copying' #postCopy)
('printing' #displayString #listEntry #printOn: #putStatsOn:)
('change management' #addBinding:in: #addBinding:in:attributes:
#addClass: #addClass:attributes: #addDoIt: #addNameSpace:
#addNameSpace:attributes: #addSelector:class:
#addSelector:class:attributes: #changeBinding:in:
#changeBinding:in:attributes: #changeClass: #changeClass:attributes:
#changeNameSpace: #changeNameSpace:attributes: #changeSelector:class:
#changeSelector:class:attributes: #changeSelector:class:documentation:
#changeSelector:class:protocol: #commentClass: #commentNameSpace:
#relocateBinding:from:to: #relocateClass:from:to:
#relocateNameSpace:from:to: #removeBinding:in: #removeClass:
#removeDoIt: #removeEntiretyOfClass: #removeNameSpace:
#removeSelector:class: #renameBinding:in:as: #renameClass:as:
#renameNameSpace:as: #reorganizeClass: #reorganizeClassData:
#reorganizeNameSpace:)
('editing' #addChangeSet: #addChangesToChangeList:
#addClassAndAllSelectors: #addClasses: #addClassesAndAllSelectors:
#addEntiretyOfClass: #addEntiretyOfClasses: #addName:in: #addNames:in:
#addObject: #addObject:named: #addSelector:forClass:
#addSelector:toClass: #addSelectors:forClass: #addStatic:to: #cleanse
#discard #empty #removeChangeSet: #removeClasses:
#removeEntiretyOfClasses: #removeName:in: #removeNames:in:
#removeObject: #removeSelector:forClass: #removeSelectors:forClass:
#removeStatic:from: #undefineClass: #update:with:from:)
('ui' #fileOutAsFor: #saveParcelDialogFor:
#saveParcelDialogFor:preOpen:preSave: #uiForEmpty #uiForRename)
('load/unload' #abortLoadBecause: #abortSaveBecause:
#abortUnloadBecause: #createOrFindExpression #fileIntoFrom: #fileOutOn:
#packageEnvironment #packageUndeclared
#parcelOutOn:withSource:hideOnLoad:republish:backup:
#prerequisitesForLoading #remove #unload)
('queries' #allCallsOn: #allImplementorsOf: #classesAndSelectorsDo:
#containsSelectors:forClass: #danglingReferencesIfUnloadedDo:
#definedAndExtendedClasses #definedBindings #definedBindingsDo:
#definedBindingsFor: #definedClasses #definedClassesDo:
#definedNamesFor: #definedNameSpaces #definedObjects #definedObjectsDo:
#definedOrExtendedClassNamesFor: #definedProtocolsFor:
#definedSelectorsFor: #definedSelectorsFor:andProtocol:
#definedStaticReferences #definedThings #definesClass:
#definesClassOrNameSpace: #definesName:in: #definesObject:
#definesOrExtendsBehavior: #definesOrExtendsClass:
#definesSelector:forClass: #extendedBehaviors #extendedClasses
#extendsBehavior: #extendsClass: #extendsObject: #extensionsDo:
#externalMethodsUsedExclusively #getCategoriesOfClasses
#getChildrenObjects #loadedPrerequisites #methodsDo: #namedObjects
#overridesDo: #unparceledMethodsOfDefinedClasses)
('change set compatibility' #addOtherChange: #addPropertyChange:
#atClass:includes: #atName:includes: #atSelector:class: #changedClasses
#propertyChanged: #propertyChanged:value:)
('testing' #hasCodeOverriddenByOtherParcels
#hasDanglingReferencesIfUnloaded #hasExtendedClasses
#hasExtendedNameSpaces #hasExtensions #hasItselfBeenModified
#hasOverriddenCode #hasUninstalledCode #isDirty #isEmpty #isLoaded
#isParcel #isSaveable #notEmpty)
('private' #adviseManager #checkedActionMethod:
#definedClassesExcludedSelectors #definedClassExcludedSelectors:
#extensionMethods #forPackage:do: #installUninstalledBindings
#installUninstalledClasses #installUninstalledMethods #manager
#markAsClean #markAsDirty #markNotModified #nonMetaClassOf:
#performAction: #postLoad: #setActionMethod:class:selector:
#unloadLogged: #unloadSource #unloadSourceSafely: #writeDefinition:on:
#writeMethods:on: #writeRemovalScriptOn:)
('private-selectors' #classesThatHaveBindings #classesThatHaveSelectors
#hasBindingsFor: #hasSelectorsFor: #objectsThatHaveBindings #selectorsAt:)
('actions' #executeActionBlock:for:)
('overrides' #comparesTo: #overriddenClass: #overriddenNameSpace:
#overriddenSelector:class: #overriddenStatic:in: #reinstalledClass:
#reinstalledNameSpace: #reinstalledSelector:class:
#reinstalledStatic:in: #removeOverriddenClass:
#removeOverriddenNameSpace: #removeOverriddenSelector:class:
#removeOverriddenStatic:nameSpace:)
('store-utilities' #classOfDbRecord #relatedPackage #relatedParcel)
('store' #asDBRecord #asPackage #asPackageNamed:
#checkPrerequisiteNamed:withVersion:requiredVersion: #copyPropertiesTo:
#moveContentsTo: #traceVersion #traceVersionString)
('private-load/unload' #addSpecialItemsFrom: #doComponentLoadedActions
#doComponentUpdatingActions: #putStoredPropertiesIn:
#queryLoaded:ifLoadedAndOK:ifFail: #removeClass:unloaded:
#removeNameSpace:unloaded: #runClassExtensionPostLoadMethods
#setParcelPropertyFrom:)
('converting' #asParcel)
('private-editing'
#addChangesFor:instanceSelectors:classSelectors:to:bindings:source:)
('Refactoring Browser' #allClassesAndNameSpaces #isUnparceledParcel
#textForItem)

    name = #Parcel
    classPool = a NameSpaceOfClass[2]
    environment = a NameSpace[249]
    parcels = a List[211]
    classParcelMap = nil
    parcelFileInfoCache = a Dictionary[834]
    parcelFileDirectoryCache = a Dictionary[30]
    dependents = a Store.PundleAccess
Arguments:
    parcelName = 'SUnitToo(ls)'
    versionString = '48'
    codeReaderOrNil = nil
Temporaries:
    aDirectoryOrNil = nil
    parcelOrPundle = nil
    dirs = an OrderedCollection[32]
    found = true
    i = 22
    dirName = a PortableFilename('$(VISUALWORKS)\contributed')
    dir = a PortableFilename('$(VISUALWORKS)\contributed')
Context PC = 133

----------------------------------------------------------------------
[] in Parcel class>>loadParcelByName:
Receiver:
    a Parcel class
Instance Variables:
    superclass = CodeComponent
    methodDict = a MethodDictionary[231]
    format = 16393
    subclasses = nil
    instanceVariables = an Array[7]
    organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #pundleName #summary #toolListIcon #version #version:
#versionString)
('copying' #postCopy)
('printing' #displayString #listEntry #printOn: #putStatsOn:)
('change management' #addBinding:in: #addBinding:in:attributes:
#addClass: #addClass:attributes: #addDoIt: #addNameSpace:
#addNameSpace:attributes: #addSelector:class:
#addSelector:class:attributes: #changeBinding:in:
#changeBinding:in:attributes: #changeClass: #changeClass:attributes:
#changeNameSpace: #changeNameSpace:attributes: #changeSelector:class:
#changeSelector:class:attributes: #changeSelector:class:documentation:
#changeSelector:class:protocol: #commentClass: #commentNameSpace:
#relocateBinding:from:to: #relocateClass:from:to:
#relocateNameSpace:from:to: #removeBinding:in: #removeClass:
#removeDoIt: #removeEntiretyOfClass: #removeNameSpace:
#removeSelector:class: #renameBinding:in:as: #renameClass:as:
#renameNameSpace:as: #reorganizeClass: #reorganizeClassData:
#reorganizeNameSpace:)
('editing' #addChangeSet: #addChangesToChangeList:
#addClassAndAllSelectors: #addClasses: #addClassesAndAllSelectors:
#addEntiretyOfClass: #addEntiretyOfClasses: #addName:in: #addNames:in:
#addObject: #addObject:named: #addSelector:forClass:
#addSelector:toClass: #addSelectors:forClass: #addStatic:to: #cleanse
#discard #empty #removeChangeSet: #removeClasses:
#removeEntiretyOfClasses: #removeName:in: #removeNames:in:
#removeObject: #removeSelector:forClass: #removeSelectors:forClass:
#removeStatic:from: #undefineClass: #update:with:from:)
('ui' #fileOutAsFor: #saveParcelDialogFor:
#saveParcelDialogFor:preOpen:preSave: #uiForEmpty #uiForRename)
('load/unload' #abortLoadBecause: #abortSaveBecause:
#abortUnloadBecause: #createOrFindExpression #fileIntoFrom: #fileOutOn:
#packageEnvironment #packageUndeclared
#parcelOutOn:withSource:hideOnLoad:republish:backup:
#prerequisitesForLoading #remove #unload)
('queries' #allCallsOn: #allImplementorsOf: #classesAndSelectorsDo:
#containsSelectors:forClass: #danglingReferencesIfUnloadedDo:
#definedAndExtendedClasses #definedBindings #definedBindingsDo:
#definedBindingsFor: #definedClasses #definedClassesDo:
#definedNamesFor: #definedNameSpaces #definedObjects #definedObjectsDo:
#definedOrExtendedClassNamesFor: #definedProtocolsFor:
#definedSelectorsFor: #definedSelectorsFor:andProtocol:
#definedStaticReferences #definedThings #definesClass:
#definesClassOrNameSpace: #definesName:in: #definesObject:
#definesOrExtendsBehavior: #definesOrExtendsClass:
#definesSelector:forClass: #extendedBehaviors #extendedClasses
#extendsBehavior: #extendsClass: #extendsObject: #extensionsDo:
#externalMethodsUsedExclusively #getCategoriesOfClasses
#getChildrenObjects #loadedPrerequisites #methodsDo: #namedObjects
#overridesDo: #unparceledMethodsOfDefinedClasses)
('change set compatibility' #addOtherChange: #addPropertyChange:
#atClass:includes: #atName:includes: #atSelector:class: #changedClasses
#propertyChanged: #propertyChanged:value:)
('testing' #hasCodeOverriddenByOtherParcels
#hasDanglingReferencesIfUnloaded #hasExtendedClasses
#hasExtendedNameSpaces #hasExtensions #hasItselfBeenModified
#hasOverriddenCode #hasUninstalledCode #isDirty #isEmpty #isLoaded
#isParcel #isSaveable #notEmpty)
('private' #adviseManager #checkedActionMethod:
#definedClassesExcludedSelectors #definedClassExcludedSelectors:
#extensionMethods #forPackage:do: #installUninstalledBindings
#installUninstalledClasses #installUninstalledMethods #manager
#markAsClean #markAsDirty #markNotModified #nonMetaClassOf:
#performAction: #postLoad: #setActionMethod:class:selector:
#unloadLogged: #unloadSource #unloadSourceSafely: #writeDefinition:on:
#writeMethods:on: #writeRemovalScriptOn:)
('private-selectors' #classesThatHaveBindings #classesThatHaveSelectors
#hasBindingsFor: #hasSelectorsFor: #objectsThatHaveBindings #selectorsAt:)
('actions' #executeActionBlock:for:)
('overrides' #comparesTo: #overriddenClass: #overriddenNameSpace:
#overriddenSelector:class: #overriddenStatic:in: #reinstalledClass:
#reinstalledNameSpace: #reinstalledSelector:class:
#reinstalledStatic:in: #removeOverriddenClass:
#removeOverriddenNameSpace: #removeOverriddenSelector:class:
#removeOverriddenStatic:nameSpace:)
('store-utilities' #classOfDbRecord #relatedPackage #relatedParcel)
('store' #asDBRecord #asPackage #asPackageNamed:
#checkPrerequisiteNamed:withVersion:requiredVersion: #copyPropertiesTo:
#moveContentsTo: #traceVersion #traceVersionString)
('private-load/unload' #addSpecialItemsFrom: #doComponentLoadedActions
#doComponentUpdatingActions: #putStoredPropertiesIn:
#queryLoaded:ifLoadedAndOK:ifFail: #removeClass:unloaded:
#removeNameSpace:unloaded: #runClassExtensionPostLoadMethods
#setParcelPropertyFrom:)
('converting' #asParcel)
('private-editing'
#addChangesFor:instanceSelectors:classSelectors:to:bindings:source:)
('Refactoring Browser' #allClassesAndNameSpaces #isUnparceledParcel
#textForItem)

    name = #Parcel
    classPool = a NameSpaceOfClass[2]
    environment = a NameSpace[249]
    parcels = a List[211]
    classParcelMap = nil
    parcelFileInfoCache = a Dictionary[834]
    parcelFileDirectoryCache = a Dictionary[30]
    dependents = a Store.PundleAccess
Temporaries:
    .self = Parcel
    .aString = 'SUnitToo(ls)'
    parcelAndVersion = 'SUnitToo(ls)'->'48'
Context PC = 27

----------------------------------------------------------------------
Parcel class>>withFileCachesDo:
Receiver:
    a Parcel class
Instance Variables:
    superclass = CodeComponent
    methodDict = a MethodDictionary[231]
    format = 16393
    subclasses = nil
    instanceVariables = an Array[7]
    organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #pundleName #summary #toolListIcon #version #version:
#versionString)
('copying' #postCopy)
('printing' #displayString #listEntry #printOn: #putStatsOn:)
('change management' #addBinding:in: #addBinding:in:attributes:
#addClass: #addClass:attributes: #addDoIt: #addNameSpace:
#addNameSpace:attributes: #addSelector:class:
#addSelector:class:attributes: #changeBinding:in:
#changeBinding:in:attributes: #changeClass: #changeClass:attributes:
#changeNameSpace: #changeNameSpace:attributes: #changeSelector:class:
#changeSelector:class:attributes: #changeSelector:class:documentation:
#changeSelector:class:protocol: #commentClass: #commentNameSpace:
#relocateBinding:from:to: #relocateClass:from:to:
#relocateNameSpace:from:to: #removeBinding:in: #removeClass:
#removeDoIt: #removeEntiretyOfClass: #removeNameSpace:
#removeSelector:class: #renameBinding:in:as: #renameClass:as:
#renameNameSpace:as: #reorganizeClass: #reorganizeClassData:
#reorganizeNameSpace:)
('editing' #addChangeSet: #addChangesToChangeList:
#addClassAndAllSelectors: #addClasses: #addClassesAndAllSelectors:
#addEntiretyOfClass: #addEntiretyOfClasses: #addName:in: #addNames:in:
#addObject: #addObject:named: #addSelector:forClass:
#addSelector:toClass: #addSelectors:forClass: #addStatic:to: #cleanse
#discard #empty #removeChangeSet: #removeClasses:
#removeEntiretyOfClasses: #removeName:in: #removeNames:in:
#removeObject: #removeSelector:forClass: #removeSelectors:forClass:
#removeStatic:from: #undefineClass: #update:with:from:)
('ui' #fileOutAsFor: #saveParcelDialogFor:
#saveParcelDialogFor:preOpen:preSave: #uiForEmpty #uiForRename)
('load/unload' #abortLoadBecause: #abortSaveBecause:
#abortUnloadBecause: #createOrFindExpression #fileIntoFrom: #fileOutOn:
#packageEnvironment #packageUndeclared
#parcelOutOn:withSource:hideOnLoad:republish:backup:
#prerequisitesForLoading #remove #unload)
('queries' #allCallsOn: #allImplementorsOf: #classesAndSelectorsDo:
#containsSelectors:forClass: #danglingReferencesIfUnloadedDo:
#definedAndExtendedClasses #definedBindings #definedBindingsDo:
#definedBindingsFor: #definedClasses #definedClassesDo:
#definedNamesFor: #definedNameSpaces #definedObjects #definedObjectsDo:
#definedOrExtendedClassNamesFor: #definedProtocolsFor:
#definedSelectorsFor: #definedSelectorsFor:andProtocol:
#definedStaticReferences #definedThings #definesClass:
#definesClassOrNameSpace: #definesName:in: #definesObject:
#definesOrExtendsBehavior: #definesOrExtendsClass:
#definesSelector:forClass: #extendedBehaviors #extendedClasses
#extendsBehavior: #extendsClass: #extendsObject: #extensionsDo:
#externalMethodsUsedExclusively #getCategoriesOfClasses
#getChildrenObjects #loadedPrerequisites #methodsDo: #namedObjects
#overridesDo: #unparceledMethodsOfDefinedClasses)
('change set compatibility' #addOtherChange: #addPropertyChange:
#atClass:includes: #atName:includes: #atSelector:class: #changedClasses
#propertyChanged: #propertyChanged:value:)
('testing' #hasCodeOverriddenByOtherParcels
#hasDanglingReferencesIfUnloaded #hasExtendedClasses
#hasExtendedNameSpaces #hasExtensions #hasItselfBeenModified
#hasOverriddenCode #hasUninstalledCode #isDirty #isEmpty #isLoaded
#isParcel #isSaveable #notEmpty)
('private' #adviseManager #checkedActionMethod:
#definedClassesExcludedSelectors #definedClassExcludedSelectors:
#extensionMethods #forPackage:do: #installUninstalledBindings
#installUninstalledClasses #installUninstalledMethods #manager
#markAsClean #markAsDirty #markNotModified #nonMetaClassOf:
#performAction: #postLoad: #setActionMethod:class:selector:
#unloadLogged: #unloadSource #unloadSourceSafely: #writeDefinition:on:
#writeMethods:on: #writeRemovalScriptOn:)
('private-selectors' #classesThatHaveBindings #classesThatHaveSelectors
#hasBindingsFor: #hasSelectorsFor: #objectsThatHaveBindings #selectorsAt:)
('actions' #executeActionBlock:for:)
('overrides' #comparesTo: #overriddenClass: #overriddenNameSpace:
#overriddenSelector:class: #overriddenStatic:in: #reinstalledClass:
#reinstalledNameSpace: #reinstalledSelector:class:
#reinstalledStatic:in: #removeOverriddenClass:
#removeOverriddenNameSpace: #removeOverriddenSelector:class:
#removeOverriddenStatic:nameSpace:)
('store-utilities' #classOfDbRecord #relatedPackage #relatedParcel)
('store' #asDBRecord #asPackage #asPackageNamed:
#checkPrerequisiteNamed:withVersion:requiredVersion: #copyPropertiesTo:
#moveContentsTo: #traceVersion #traceVersionString)
('private-load/unload' #addSpecialItemsFrom: #doComponentLoadedActions
#doComponentUpdatingActions: #putStoredPropertiesIn:
#queryLoaded:ifLoadedAndOK:ifFail: #removeClass:unloaded:
#removeNameSpace:unloaded: #runClassExtensionPostLoadMethods
#setParcelPropertyFrom:)
('converting' #asParcel)
('private-editing'
#addChangesFor:instanceSelectors:classSelectors:to:bindings:source:)
('Refactoring Browser' #allClassesAndNameSpaces #isUnparceledParcel
#textForItem)

    name = #Parcel
    classPool = a NameSpaceOfClass[2]
    environment = a NameSpace[249]
    parcels = a List[211]
    classParcelMap = nil
    parcelFileInfoCache = a Dictionary[834]
    parcelFileDirectoryCache = a Dictionary[30]
    dependents = a Store.PundleAccess
Arguments:
    aBlock = BlockClosure [] in Parcel class>>loadParcelByName:
Context PC = 23

----------------------------------------------------------------------
Parcel class>>loadParcelByName:
Receiver:
    a Parcel class
Instance Variables:
    superclass = CodeComponent
    methodDict = a MethodDictionary[231]
    format = 16393
    subclasses = nil
    instanceVariables = an Array[7]
    organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #pundleName #summary #toolListIcon #version #version:
#versionString)
('copying' #postCopy)
('printing' #displayString #listEntry #printOn: #putStatsOn:)
('change management' #addBinding:in: #addBinding:in:attributes:
#addClass: #addClass:attributes: #addDoIt: #addNameSpace:
#addNameSpace:attributes: #addSelector:class:
#addSelector:class:attributes: #changeBinding:in:
#changeBinding:in:attributes: #changeClass: #changeClass:attributes:
#changeNameSpace: #changeNameSpace:attributes: #changeSelector:class:
#changeSelector:class:attributes: #changeSelector:class:documentation:
#changeSelector:class:protocol: #commentClass: #commentNameSpace:
#relocateBinding:from:to: #relocateClass:from:to:
#relocateNameSpace:from:to: #removeBinding:in: #removeClass:
#removeDoIt: #removeEntiretyOfClass: #removeNameSpace:
#removeSelector:class: #renameBinding:in:as: #renameClass:as:
#renameNameSpace:as: #reorganizeClass: #reorganizeClassData:
#reorganizeNameSpace:)
('editing' #addChangeSet: #addChangesToChangeList:
#addClassAndAllSelectors: #addClasses: #addClassesAndAllSelectors:
#addEntiretyOfClass: #addEntiretyOfClasses: #addName:in: #addNames:in:
#addObject: #addObject:named: #addSelector:forClass:
#addSelector:toClass: #addSelectors:forClass: #addStatic:to: #cleanse
#discard #empty #removeChangeSet: #removeClasses:
#removeEntiretyOfClasses: #removeName:in: #removeNames:in:
#removeObject: #removeSelector:forClass: #removeSelectors:forClass:
#removeStatic:from: #undefineClass: #update:with:from:)
('ui' #fileOutAsFor: #saveParcelDialogFor:
#saveParcelDialogFor:preOpen:preSave: #uiForEmpty #uiForRename)
('load/unload' #abortLoadBecause: #abortSaveBecause:
#abortUnloadBecause: #createOrFindExpression #fileIntoFrom: #fileOutOn:
#packageEnvironment #packageUndeclared
#parcelOutOn:withSource:hideOnLoad:republish:backup:
#prerequisitesForLoading #remove #unload)
('queries' #allCallsOn: #allImplementorsOf: #classesAndSelectorsDo:
#containsSelectors:forClass: #danglingReferencesIfUnloadedDo:
#definedAndExtendedClasses #definedBindings #definedBindingsDo:
#definedBindingsFor: #definedClasses #definedClassesDo:
#definedNamesFor: #definedNameSpaces #definedObjects #definedObjectsDo:
#definedOrExtendedClassNamesFor: #definedProtocolsFor:
#definedSelectorsFor: #definedSelectorsFor:andProtocol:
#definedStaticReferences #definedThings #definesClass:
#definesClassOrNameSpace: #definesName:in: #definesObject:
#definesOrExtendsBehavior: #definesOrExtendsClass:
#definesSelector:forClass: #extendedBehaviors #extendedClasses
#extendsBehavior: #extendsClass: #extendsObject: #extensionsDo:
#externalMethodsUsedExclusively #getCategoriesOfClasses
#getChildrenObjects #loadedPrerequisites #methodsDo: #namedObjects
#overridesDo: #unparceledMethodsOfDefinedClasses)
('change set compatibility' #addOtherChange: #addPropertyChange:
#atClass:includes: #atName:includes: #atSelector:class: #changedClasses
#propertyChanged: #propertyChanged:value:)
('testing' #hasCodeOverriddenByOtherParcels
#hasDanglingReferencesIfUnloaded #hasExtendedClasses
#hasExtendedNameSpaces #hasExtensions #hasItselfBeenModified
#hasOverriddenCode #hasUninstalledCode #isDirty #isEmpty #isLoaded
#isParcel #isSaveable #notEmpty)
('private' #adviseManager #checkedActionMethod:
#definedClassesExcludedSelectors #definedClassExcludedSelectors:
#extensionMethods #forPackage:do: #installUninstalledBindings
#installUninstalledClasses #installUninstalledMethods #manager
#markAsClean #markAsDirty #markNotModified #nonMetaClassOf:
#performAction: #postLoad: #setActionMethod:class:selector:
#unloadLogged: #unloadSource #unloadSourceSafely: #writeDefinition:on:
#writeMethods:on: #writeRemovalScriptOn:)
('private-selectors' #classesThatHaveBindings #classesThatHaveSelectors
#hasBindingsFor: #hasSelectorsFor: #objectsThatHaveBindings #selectorsAt:)
('actions' #executeActionBlock:for:)
('overrides' #comparesTo: #overriddenClass: #overriddenNameSpace:
#overriddenSelector:class: #overriddenStatic:in: #reinstalledClass:
#reinstalledNameSpace: #reinstalledSelector:class:
#reinstalledStatic:in: #removeOverriddenClass:
#removeOverriddenNameSpace: #removeOverriddenSelector:class:
#removeOverriddenStatic:nameSpace:)
('store-utilities' #classOfDbRecord #relatedPackage #relatedParcel)
('store' #asDBRecord #asPackage #asPackageNamed:
#checkPrerequisiteNamed:withVersion:requiredVersion: #copyPropertiesTo:
#moveContentsTo: #traceVersion #traceVersionString)
('private-load/unload' #addSpecialItemsFrom: #doComponentLoadedActions
#doComponentUpdatingActions: #putStoredPropertiesIn:
#queryLoaded:ifLoadedAndOK:ifFail: #removeClass:unloaded:
#removeNameSpace:unloaded: #runClassExtensionPostLoadMethods
#setParcelPropertyFrom:)
('converting' #asParcel)
('private-editing'
#addChangesFor:instanceSelectors:classSelectors:to:bindings:source:)
('Refactoring Browser' #allClassesAndNameSpaces #isUnparceledParcel
#textForItem)

    name = #Parcel
    classPool = a NameSpaceOfClass[2]
    environment = a NameSpace[249]
    parcels = a List[211]
    classParcelMap = nil
    parcelFileInfoCache = a Dictionary[834]
    parcelFileDirectoryCache = a Dictionary[30]
    dependents = a Store.PundleAccess
Arguments:
    aString = 'SUnitToo(ls)'
Temporaries:
    parcelAndVersion = 'SUnitToo(ls)'->'48'
    stringName = 'SUnitToo(ls)'
    nameWithExtension = 'SUnitToo(ls).pcl'
    explicitLoaded = nil
Context PC = 56

----------------------------------------------------------------------
optimized [] in [] in UndefinedObject>>unboundMethod
Receiver:
    an UndefinedObject
Arguments:
    name = 'SUnitToo(ls)'
Context PC = 16

----------------------------------------------------------------------
Array(SequenceableCollection)>>do:
Receiver:
    an Array
Arguments:
    aBlock = BlockClosure [] in [] in UndefinedObject>>unboundMethod
Temporaries:
    i = 145
Context PC = 19

----------------------------------------------------------------------
optimized [] in UndefinedObject>>unboundMethod
Receiver:
    an UndefinedObject
Context PC = 5

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
    a BlockClosure
Instance Variables:
    method = CompiledBlock [] in UndefinedObject>>unboundMethod
    outerContext = nil
    copiedValues = an Array[0]
Arguments:
    aBlock = BlockClosure [] in Parcel class>>withFileCachesDo:
Temporaries:
    result = nil
Context PC = 4

----------------------------------------------------------------------
Parcel class>>withFileCachesDo:
Receiver:
    a Parcel class
Instance Variables:
    superclass = CodeComponent
    methodDict = a MethodDictionary[231]
    format = 16393
    subclasses = nil
    instanceVariables = an Array[7]
    organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #pundleName #summary #toolListIcon #version #version:
#versionString)
('copying' #postCopy)
('printing' #displayString #listEntry #printOn: #putStatsOn:)
('change management' #addBinding:in: #addBinding:in:attributes:
#addClass: #addClass:attributes: #addDoIt: #addNameSpace:
#addNameSpace:attributes: #addSelector:class:
#addSelector:class:attributes: #changeBinding:in:
#changeBinding:in:attributes: #changeClass: #changeClass:attributes:
#changeNameSpace: #changeNameSpace:attributes: #changeSelector:class:
#changeSelector:class:attributes: #changeSelector:class:documentation:
#changeSelector:class:protocol: #commentClass: #commentNameSpace:
#relocateBinding:from:to: #relocateClass:from:to:
#relocateNameSpace:from:to: #removeBinding:in: #removeClass:
#removeDoIt: #removeEntiretyOfClass: #removeNameSpace:
#removeSelector:class: #renameBinding:in:as: #renameClass:as:
#renameNameSpace:as: #reorganizeClass: #reorganizeClassData:
#reorganizeNameSpace:)
('editing' #addChangeSet: #addChangesToChangeList:
#addClassAndAllSelectors: #addClasses: #addClassesAndAllSelectors:
#addEntiretyOfClass: #addEntiretyOfClasses: #addName:in: #addNames:in:
#addObject: #addObject:named: #addSelector:forClass:
#addSelector:toClass: #addSelectors:forClass: #addStatic:to: #cleanse
#discard #empty #removeChangeSet: #removeClasses:
#removeEntiretyOfClasses: #removeName:in: #removeNames:in:
#removeObject: #removeSelector:forClass: #removeSelectors:forClass:
#removeStatic:from: #undefineClass: #update:with:from:)
('ui' #fileOutAsFor: #saveParcelDialogFor:
#saveParcelDialogFor:preOpen:preSave: #uiForEmpty #uiForRename)
('load/unload' #abortLoadBecause: #abortSaveBecause:
#abortUnloadBecause: #createOrFindExpression #fileIntoFrom: #fileOutOn:
#packageEnvironment #packageUndeclared
#parcelOutOn:withSource:hideOnLoad:republish:backup:
#prerequisitesForLoading #remove #unload)
('queries' #allCallsOn: #allImplementorsOf: #classesAndSelectorsDo:
#containsSelectors:forClass: #danglingReferencesIfUnloadedDo:
#definedAndExtendedClasses #definedBindings #definedBindingsDo:
#definedBindingsFor: #definedClasses #definedClassesDo:
#definedNamesFor: #definedNameSpaces #definedObjects #definedObjectsDo:
#definedOrExtendedClassNamesFor: #definedProtocolsFor:
#definedSelectorsFor: #definedSelectorsFor:andProtocol:
#definedStaticReferences #definedThings #definesClass:
#definesClassOrNameSpace: #definesName:in: #definesObject:
#definesOrExtendsBehavior: #definesOrExtendsClass:
#definesSelector:forClass: #extendedBehaviors #extendedClasses
#extendsBehavior: #extendsClass: #extendsObject: #extensionsDo:
#externalMethodsUsedExclusively #getCategoriesOfClasses
#getChildrenObjects #loadedPrerequisites #methodsDo: #namedObjects
#overridesDo: #unparceledMethodsOfDefinedClasses)
('change set compatibility' #addOtherChange: #addPropertyChange:
#atClass:includes: #atName:includes: #atSelector:class: #changedClasses
#propertyChanged: #propertyChanged:value:)
('testing' #hasCodeOverriddenByOtherParcels
#hasDanglingReferencesIfUnloaded #hasExtendedClasses
#hasExtendedNameSpaces #hasExtensions #hasItselfBeenModified
#hasOverriddenCode #hasUninstalledCode #isDirty #isEmpty #isLoaded
#isParcel #isSaveable #notEmpty)
('private' #adviseManager #checkedActionMethod:
#definedClassesExcludedSelectors #definedClassExcludedSelectors:
#extensionMethods #forPackage:do: #installUninstalledBindings
#installUninstalledClasses #installUninstalledMethods #manager
#markAsClean #markAsDirty #markNotModified #nonMetaClassOf:
#performAction: #postLoad: #setActionMethod:class:selector:
#unloadLogged: #unloadSource #unloadSourceSafely: #writeDefinition:on:
#writeMethods:on: #writeRemovalScriptOn:)
('private-selectors' #classesThatHaveBindings #classesThatHaveSelectors
#hasBindingsFor: #hasSelectorsFor: #objectsThatHaveBindings #selectorsAt:)
('actions' #executeActionBlock:for:)
('overrides' #comparesTo: #overriddenClass: #overriddenNameSpace:
#overriddenSelector:class: #overriddenStatic:in: #reinstalledClass:
#reinstalledNameSpace: #reinstalledSelector:class:
#reinstalledStatic:in: #removeOverriddenClass:
#removeOverriddenNameSpace: #removeOverriddenSelector:class:
#removeOverriddenStatic:nameSpace:)
('store-utilities' #classOfDbRecord #relatedPackage #relatedParcel)
('store' #asDBRecord #asPackage #asPackageNamed:
#checkPrerequisiteNamed:withVersion:requiredVersion: #copyPropertiesTo:
#moveContentsTo: #traceVersion #traceVersionString)
('private-load/unload' #addSpecialItemsFrom: #doComponentLoadedActions
#doComponentUpdatingActions: #putStoredPropertiesIn:
#queryLoaded:ifLoadedAndOK:ifFail: #removeClass:unloaded:
#removeNameSpace:unloaded: #runClassExtensionPostLoadMethods
#setParcelPropertyFrom:)
('converting' #asParcel)
('private-editing'
#addChangesFor:instanceSelectors:classSelectors:to:bindings:source:)
('Refactoring Browser' #allClassesAndNameSpaces #isUnparceledParcel
#textForItem)

    name = #Parcel
    classPool = a NameSpaceOfClass[2]
    environment = a NameSpace[249]
    parcels = a List[211]
    classParcelMap = nil
    parcelFileInfoCache = a Dictionary[834]
    parcelFileDirectoryCache = a Dictionary[30]
    dependents = a Store.PundleAccess
Arguments:
    aBlock = BlockClosure [] in UndefinedObject>>unboundMethod
Context PC = 20

----------------------------------------------------------------------
UndefinedObject>>unboundMethod
Receiver:
    an UndefinedObject
Context PC = 4

----------------------------------------------------------------------
UndefinedObject(Object)>>performMethod:arguments:
Receiver:
    an UndefinedObject
Arguments:
    method = AnnotatedMethod UndefinedObject>>unboundMethod
    args = an Array[0]
Context PC = 5

----------------------------------------------------------------------
UndefinedObject(Object)>>performMethod:
Receiver:
    an UndefinedObject
Arguments:
    method = AnnotatedMethod UndefinedObject>>unboundMethod
Context PC = 5

----------------------------------------------------------------------
TextEditorController(ParagraphEditor)>>evaluateCompiled:
Receiver:
    a TextEditorController
Instance Variables:
    model = a PluggableAdaptor
    view = a TextEditorView
    sensor = a TranslatingSensor
    menuHolder = a ValueHolder on: a Menu
    performer = a WorkspacePage
    beginTypeInIndex = nil
    anchorIndex = 530
    emphasisHere = nil
    dispatchTable = a DispatchTable
    charComposer = a CharacterComposer
    textHasChanged = true
    feelPolicy = a Win95FeelPolicy
    supportCodeEditingFeels = true
    localMenuItems = an Array[20]
    extendingDown = true
    keyboardProcessor = a KeyboardProcessor
    keyboardHook = nil
    readOnly = false
    accepted = false
    autoAccept = false
    continuousAccept = false
    tabMeansNextField = true
    tabRequiresControl = true
    dispatcher = an UIDispatcher
    selectable = false
Arguments:
    aMethod = AnnotatedMethod UndefinedObject>>unboundMethod
Temporaries:
    context = nil
Context PC = 13

----------------------------------------------------------------------
optimized [] in ParagraphEditor>>evaluateSelection
Receiver:
    an UndefinedObject
Temporaries:
    .self = a TextEditorController
    .code = AnnotatedMethod UndefinedObject>>unboundMethod
Context PC = 7

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
    a BlockClosure
Instance Variables:
    method = CompiledBlock [] in ParagraphEditor>>evaluateSelection
    outerContext = nil
    copiedValues = an Array[2]
Arguments:
    aBlock = BlockClosure [] in Cursor>>showWhile:
Temporaries:
    result = nil
Context PC = 4

----------------------------------------------------------------------
Cursor>>showWhile:
Receiver:
    a Cursor
Instance Variables:
    errorCode = 0
    handle = 4
    image = Depth1Image(extent: 16@16 depth: 1)
    mask = Depth1Image(extent: 16@16 depth: 1)
    hotSpot = 1@1
    name = 'xeq'
Arguments:
    aBlock = BlockClosure [] in ParagraphEditor>>evaluateSelection
Temporaries:
    oldcursor = Cursor normal
Context PC = 23

----------------------------------------------------------------------
TextEditorController(ParagraphEditor)>>evaluateSelection
Receiver:
    a TextEditorController
Instance Variables:
    model = a PluggableAdaptor
    view = a TextEditorView
    sensor = a TranslatingSensor
    menuHolder = a ValueHolder on: a Menu
    performer = a WorkspacePage
    beginTypeInIndex = nil
    anchorIndex = 530
    emphasisHere = nil
    dispatchTable = a DispatchTable
    charComposer = a CharacterComposer
    textHasChanged = true
    feelPolicy = a Win95FeelPolicy
    supportCodeEditingFeels = true
    localMenuItems = an Array[20]
    extendingDown = true
    keyboardProcessor = a KeyboardProcessor
    keyboardHook = nil
    readOnly = false
    accepted = false
    autoAccept = false
    continuousAccept = false
    tabMeansNextField = true
    tabRequiresControl = true
    dispatcher = an UIDispatcher
    selectable = false
Temporaries:
    code = AnnotatedMethod UndefinedObject>>unboundMethod
    result = nil
Context PC = 14

----------------------------------------------------------------------
optimized [] in ParagraphEditor>>doIt
Receiver:
    an UndefinedObject
Temporaries:
    .self = a TextEditorController
Context PC = 6

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
    a BlockClosure
Instance Variables:
    method = CompiledBlock [] in ParagraphEditor>>doIt
    outerContext = nil
    copiedValues = a TextEditorController
Arguments:
    anExceptionSelector = CompilationError
    handlerBlock = BlockClosure [] in ParagraphEditor>>doIt
Context PC = 18

----------------------------------------------------------------------
TextEditorController(ParagraphEditor)>>doIt
Receiver:
    a TextEditorController
Instance Variables:
    model = a PluggableAdaptor
    view = a TextEditorView
    sensor = a TranslatingSensor
    menuHolder = a ValueHolder on: a Menu
    performer = a WorkspacePage
    beginTypeInIndex = nil
    anchorIndex = 530
    emphasisHere = nil
    dispatchTable = a DispatchTable
    charComposer = a CharacterComposer
    textHasChanged = true
    feelPolicy = a Win95FeelPolicy
    supportCodeEditingFeels = true
    localMenuItems = an Array[20]
    extendingDown = true
    keyboardProcessor = a KeyboardProcessor
    keyboardHook = nil
    readOnly = false
    accepted = false
    autoAccept = false
    continuousAccept = false
    tabMeansNextField = true
    tabRequiresControl = true
    dispatcher = an UIDispatcher
    selectable = false
Context PC = 20

----------------------------------------------------------------------
WorkspacePage>>doIt
Receiver:
    a WorkspacePage
Instance Variables:
    dependents = a PluggableAdaptor
    builder = an UIBuilder
    uiSession = nil
    eventHandlers = nil
    workspace = a Workbook
    label = an UserMessage('Page 1', #Page1, #dialogs)
    verboseLabel = nil
    filename = nil
    fileTimestamp = nil
    textModel = a PluggableAdaptor
    unacceptedText = nil
    savedSelection = nil
    savedFileTimestamp = nil
    textModelOverride = nil
Context PC = 16

----------------------------------------------------------------------
Workbook(AbstractWorkspace)>>smalltalkDoIt
Receiver:
    a Workbook
Instance Variables:
    dependents = an ApplicationWindow 2190
    builder = an UIBuilder
    uiSession = a ControlManager
    eventHandlers = nil
    locals = a WorkspaceVariablePool[4]
    importAll = true
    specificImports = an Array[3]
    importSummaryHolder = a ValueHolder on: 'All'
    pageExplanationHolder = a ValueHolder on: 'Text or Smalltalk code'
    statusBarVisible = true
    encodingChannel = a ValueHolder on: #Source
    menuBarHolder = a ValueHolder on: a Menu
    pageHolder = a SelectionInList
    lastInstalledPage = a WorkspacePage
Context PC = 5

----------------------------------------------------------------------
WinXPMenuBarButtonController(MenuBarButtonController)>>dispatchMenuSymbol:
Receiver:
    a WinXPMenuBarButtonController
Instance Variables:
    model = nil
    view = a WinXPMenuBarButtonView
    sensor = a TranslatingSensor
    highlightOnOpen = false
Arguments:
    menuSelection = #smalltalkDoIt
Context PC = 38

----------------------------------------------------------------------
WinXPMenuBarButtonController(MenuBarButtonController)>>dispatchMenuSelection:
Receiver:
    a WinXPMenuBarButtonController
Instance Variables:
    model = nil
    view = a WinXPMenuBarButtonView
    sensor = a TranslatingSensor
    highlightOnOpen = false
Arguments:
    menuSelection = #smalltalkDoIt
Context PC = 21

----------------------------------------------------------------------
optimized [] in [] in
MenuBarButtonView>>processShortcutKeyEventAsMenuItemAccessor:
Receiver:
    an UndefinedObject
Temporaries:
    .self = a WinXPMenuBarButtonView
    .theValue = #smalltalkDoIt
Context PC = 12

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
    a BlockClosure
Instance Variables:
    method = CompiledBlock [] in [] in
MenuBarButtonView>>processShortcutKeyEventAsMenuItemAccessor:
    outerContext = nil
    copiedValues = an Array[2]
Arguments:
    aBlock = BlockClosure [] in [] in
MenuBarButtonView>>processShortcutKeyEventAsMenuItemAccessor:
Temporaries:
    result = nil
Context PC = 4

----------------------------------------------------------------------
optimized [] in
MenuBarButtonView>>processShortcutKeyEventAsMenuItemAccessor:
Receiver:
    an UndefinedObject
Temporaries:
    .self = a WinXPMenuBarButtonView
    .theValue = #smalltalkDoIt
Context PC = 14

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
    a BlockClosure
Instance Variables:
    method = CompiledBlock [] in
MenuBarButtonView>>processShortcutKeyEventAsMenuItemAccessor:
    outerContext = nil
    copiedValues = an Array[2]
Arguments:
    anExceptionSelector = VetoAction
    handlerBlock = BlockClosure [] in
MenuBarButtonView>>processShortcutKeyEventAsMenuItemAccessor:
Context PC = 18

----------------------------------------------------------------------
WinXPMenuBarButtonView(MenuBarButtonView)>>processShortcutKeyEventAsMenuItemAccessor:
Receiver:
    a WinXPMenuBarButtonView
Instance Variables:
    container = nil
    eventHandlers = nil
    model = nil
    controller = nil
    properties = nil
    state = a WidgetState
    isInTransition = true
    latestValue = nil
    referenceValue = true
    label = Label for 'Smalltalk'
    textStyle = a VariableSizeTextAttributes
    helpText = nil
    menuHolder = a Menu
    menuBar = a WinXPMenuBar
    accessChar = 1
    flyingOver = false
Arguments:
    aKeyboardEvent = a KeyPressedEvent
Temporaries:
    theMenu = a Menu
    matchingMenuItem = a MenuItem 'Do it'
    theValue = #smalltalkDoIt
    selector = nil
Context PC = 55

----------------------------------------------------------------------
[] in WinXPMenuBar(MenuBar)>>processShortcutKeyEventInMenuBar:
Receiver:
    a WinXPMenuBar
Instance Variables:
    container = a MenuBarWrapper on: a WinXPMenuBar
    eventHandlers = nil
    components = an OrderedCollection[5]
    preferredBounds = 0@0 corner: 201@20
    leftSpace = 0
    spaceBetweenItems = 0
    extraSpaceTop = 0
    extraSpaceBottom = 0
    extraSpaceBetweenLines = 0
    menuChannel = a ValueHolder on: a Menu
    performer = a Workbook
    menuButtons = an OrderedCollection[5]
    nextMenuButton = nil
    lastMousePosition = nil
Arguments:
    each = a WinXPMenuBarButtonView
Temporaries:
    .aKeyboardEvent = a KeyPressedEvent
Context PC = 10

----------------------------------------------------------------------
OrderedCollection>>do:
Receiver:
    an OrderedCollection
Instance Variables:
    firstIndex = 1
    lastIndex = 5
Arguments:
    aBlock = BlockClosure [] in MenuBar>>processShortcutKeyEventInMenuBar:
Temporaries:
    index = 3
Context PC = 17

----------------------------------------------------------------------
WinXPMenuBar(MenuBar)>>processShortcutKeyEventInMenuBar:
Receiver:
    a WinXPMenuBar
Instance Variables:
    container = a MenuBarWrapper on: a WinXPMenuBar
    eventHandlers = nil
    components = an OrderedCollection[5]
    preferredBounds = 0@0 corner: 201@20
    leftSpace = 0
    spaceBetweenItems = 0
    extraSpaceTop = 0
    extraSpaceBottom = 0
    extraSpaceBetweenLines = 0
    menuChannel = a ValueHolder on: a Menu
    performer = a Workbook
    menuButtons = an OrderedCollection[5]
    nextMenuButton = nil
    lastMousePosition = nil
Arguments:
    aKeyboardEvent = a KeyPressedEvent
Context PC = 20

----------------------------------------------------------------------
KeyboardProcessor>>processShortcutKeyEvent:
Receiver:
    a KeyboardProcessor
Instance Variables:
    keyboardConsumers = an OrderedCollection[2]
    currentConsumer = a TextEditorController
    default = nil
    cancel = nil
    keyboardHook = nil
    focusIsShifting = false
    currentConsumerChannel = nil
    acceptOnControlChange = false
    menuBar = a WinXPMenuBar
Arguments:
    aKeyEvent = a KeyPressedEvent
Temporaries:
    theCurrentConsumer = a TextEditorController
    index = nil
    controller = nil
Context PC = 28

----------------------------------------------------------------------
KeyboardProcessor>>processKeyboardEvent:
Receiver:
    a KeyboardProcessor
Instance Variables:
    keyboardConsumers = an OrderedCollection[2]
    currentConsumer = a TextEditorController
    default = nil
    cancel = nil
    keyboardHook = nil
    focusIsShifting = false
    currentConsumerChannel = nil
    acceptOnControlChange = false
    menuBar = a WinXPMenuBar
Arguments:
    aKeyboardEvent = a KeyPressedEvent
Temporaries:
    theCurrentConsumer = nil
Context PC = 8

----------------------------------------------------------------------
KeyboardProcessor>>processKeyboardEvent:for:
Receiver:
    a KeyboardProcessor
Instance Variables:
    keyboardConsumers = an OrderedCollection[2]
    currentConsumer = a TextEditorController
    default = nil
    cancel = nil
    keyboardHook = nil
    focusIsShifting = false
    currentConsumerChannel = nil
    acceptOnControlChange = false
    menuBar = a WinXPMenuBar
Arguments:
    keyboardEvent = a KeyPressedEvent
    aController = an ApplicationStandardSystemController
Temporaries:
    ev = a KeyPressedEvent
Context PC = 26

----------------------------------------------------------------------
EventDispatcher>>dispatchEvent:
Receiver:
    an EventDispatcher
Instance Variables:
    windowController = an ApplicationStandardSystemController
    currentMouseConsumer = nil
    grabbingMouse = false
    keyboardProcessor = a KeyboardProcessor
    lastControlObject = a TextEditorController
    trapList = nil
    state = nil
    repairDamageWhenDebugging = true
    flushQueueAfterError = true
    distributeEventsWhenDebugging = true
    dragDropInProgress = false
    dragDropTracker = nil
    dispatchUnknownEvents = false
Arguments:
    event = a KeyPressedEvent
Temporaries:
    objectWantingControl = nil
    targetKeyboardProcessor = a KeyboardProcessor
Context PC = 82

----------------------------------------------------------------------
KeyPressedEvent(Event)>>dispatch
Receiver:
    a KeyPressedEvent
Instance Variables:
    time = nil
    initiator = an EventDispatcher
    window = an ApplicationWindow 2190
    state = nil
    keyCharacter = $ "16r0004"
    metaState = 2
    alternativeKeyCharacter = nil
Context PC = 16

----------------------------------------------------------------------
KeyPressedEvent(Event)>>dispatchForWindowManager:
Receiver:
    a KeyPressedEvent
Instance Variables:
    time = nil
    initiator = an EventDispatcher
    window = an ApplicationWindow 2190
    state = nil
    keyCharacter = $ "16r0004"
    metaState = 2
    alternativeKeyCharacter = nil
Arguments:
    aWinMgr = a WindowManager
Context PC = 4

----------------------------------------------------------------------
optimized [] in WindowManager>>safelyDispatchForWindowManager:
Receiver:
    an UndefinedObject
Temporaries:
    .event = a KeyPressedEvent
    .self = a WindowManager
Context PC = 6

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
    a BlockClosure
Instance Variables:
    method = CompiledBlock [] in
WindowManager>>safelyDispatchForWindowManager:
    outerContext = nil
    copiedValues = an Array[2]
Arguments:
    anExceptionSelector = BadControllerError
    handlerBlock = BlockClosure [] in
WindowManager>>safelyDispatchForWindowManager:
Context PC = 18

----------------------------------------------------------------------
WindowManager>>safelyDispatchForWindowManager:
Receiver:
    a WindowManager
Instance Variables:
    windows = an OrderedCollection[3]
    activeController = nil
    interruptLock = false
    outstandingMetaOrDamage = false
    openInProgress = false
    eventQueue = an EventQueue
    baseProcess = a Process in Semaphore>>wait
    dontFilterEvents = false
Arguments:
    event = a KeyPressedEvent
Context PC = 13

----------------------------------------------------------------------
WindowManager>>processNextEvent
Receiver:
    a WindowManager
Instance Variables:
    windows = an OrderedCollection[3]
    activeController = nil
    interruptLock = false
    outstandingMetaOrDamage = false
    openInProgress = false
    eventQueue = an EventQueue
    baseProcess = a Process in Semaphore>>wait
    dontFilterEvents = false
Temporaries:
    event = a KeyPressedEvent
Context PC = 9

----------------------------------------------------------------------
optimized [] in [] in WindowManager>>newProcess
Receiver:
    an UndefinedObject
Temporaries:
    .self = a WindowManager
Context PC = 13

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
    a BlockClosure
Instance Variables:
    method = CompiledBlock [] in [] in WindowManager>>newProcess
    outerContext = nil
    copiedValues = a WindowManager
Arguments:
    anExceptionSelector = TerminateException
    handlerBlock = BlockClosure [] in [] in WindowManager>>newProcess
Context PC = 18

----------------------------------------------------------------------
optimized [] in WindowManager>>newProcess
Receiver:
    an UndefinedObject
Temporaries:
    .self = a WindowManager
Context PC = 15

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
    a BlockClosure
Instance Variables:
    method = CompiledBlock [] in WindowManager>>newProcess
    outerContext = nil
    copiedValues = a WindowManager
Arguments:
    anExceptionSelector = TerminateException
    handlerBlock = BlockClosure [] in [] in Process
class>>forBlock:priority:
Context PC = 18

----------------------------------------------------------------------
optimized [] in Process class>>forBlock:priority:
Receiver:
    an UndefinedObject
Temporaries:
    .aBlock = BlockClosure [] in WindowManager>>newProcess
Context PC = 9