[vwnc] Parcel loading bug

Hi

I have a parcel that extends the class definitions of a few
BGOK classes. Two of the classes have a superclass/subclass
relationship. When I try to load the parcel I sometimes get
the follwing exception.

Unhandled exception: Subscript out of bounds:

OrderedCollection(Object)>>subscriptBoundsErrorFor:index:
OrderedCollection>>at:
CodeRegenerator>>pushInst:
optimized [] in InstructionStream
class>>initializeXMisc:numberOfExtensions:combinationRule:
CodeRegenerator(InstructionStream)>>interpretNextInstructionFor:
CodeRegenerator>>run
CodeRegenerator>>execute
optimized [] in BehaviorBuilderRecord>>copyMethodsInto:
MethodDictionary>>keysAndValuesDo:
BG_PieChartView class(Behavior)>>selectorsAndMethodsDo:
ClassBuilderRecord(BehaviorBuilderRecord)>>copyMethodsInto:
ClassBuilderRecord(BehaviorBuilderRecord)>>constructCopy
optimized [] in [] in [] in ClassBuilder>>reviseSystemSilently
Dictionary>>do:
optimized [] in [] in ClassBuilder>>reviseSystemSilently
BlockClosure>>ensure:
Cursor>>showWhile:
optimized [] in ClassBuilder>>reviseSystemSilently
BlockClosure>>on:do:
optimized [] in SystemUtils class>>modifySystem:
BlockClosure>>ensure:
SystemUtils class>>modifySystem:
ClassBuilder>>reviseSystemSilently
ClassBuilder>>reviseSystem
BG_GriddedChartView class(Class)>>redefineFrom:map:
CodeReader>>relocateOrReplaceName:from:to:map:
optimized [] in [] in CodeReader>>installBindingsInSystem
optimized [] in CodeReader>>shadow:of:do:
OrderedCollection>>do:
CodeReader>>shadow:of:do:
optimized [] in CodeReader>>shadow:of:do:
OrderedCollection>>do:
CodeReader>>shadow:of:do:
optimized [] in CodeReader>>installBindingsInSystem
BlockClosure>>on:do:
optimized [] in SystemUtils class>>modifySystem:
BlockClosure>>ensure:
SystemUtils class>>modifySystem:
CodeReader>>installBindingsInSystem
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:
optimized [] in [] in Parcel class>>loadParcelFrom:
BlockClosure>>ensure:
Parcel class>>withFileCachesDo:
optimized [] in Parcel class>>loadParcelFrom:
Cursor>>showWhile:
Parcel class>>loadParcelFrom:
optimized [] in [] in Tools.FileTools.FileBrowser>>loadParcel
optimized [] in [] in Notice class>>show:while:
BlockClosure>>ensure:
Cursor>>showWhile:
optimized [] in Notice class>>show:while:
BlockClosure>>ensure:
Notice class>>show:while:
optimized [] in Tools.FileTools.FileBrowser>>loadParcel
Tools.FileTools.FileBrowser>>withSelectedFilenameDo:
Tools.FileTools.FileBrowser>>loadParcel
SequenceController>>dispatchMenuSymbol:
SequenceController>>dispatchMenuSelection:
SequenceController(ControllerWithMenu)>>processMenu:at:centered:
SequenceController(ControllerWithMenu)>>processMenuAt:centered:
SequenceController(ControllerWithMenu)>>yellowButtonPressedEvent:
SequenceController>>yellowButtonPressedEvent:
YellowButtonPressedEvent>>dispatchTo:
SequenceController(ControllerWithMenu)>>handleEvent:
EventDispatcher>>dispatch:to:
EventDispatcher>>dispatchEvent:
YellowButtonPressedEvent(Event)>>dispatch
YellowButtonPressedEvent(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:

----------------------------------------------------------------------
OrderedCollection(Object)>>subscriptBoundsErrorFor:index:
Receiver:
        an OrderedCollection
Instance Variables:
        firstIndex = 1
        lastIndex = 25
Arguments:
        selector = #at:
        index = 27
Context PC = 9

----------------------------------------------------------------------
OrderedCollection>>at:
Receiver:
        an OrderedCollection
Instance Variables:
        firstIndex = 1
        lastIndex = 25
Arguments:
        anInteger = 27
Context PC = 30

----------------------------------------------------------------------
CodeRegenerator>>pushInst:
Receiver:
        a CodeRegenerator
Instance Variables:
        method = CompiledMethod BG_PieChartView>>preserveColorOrder
        pc = 3
        parent = nil
        codeGenerator = a RecodeStream
        labels = nil
        lastPC = 1
        locals = an OrderedCollection[0]
        stack = an OrderedCollection[0]
        copiedValues = nil
        canCopy = nil
        oldInstVarNames = an OrderedCollection[25]
        pcStack = an OrderedCollection[1]
        pcLabels = an Array[6]
        repressNextPop = false
Arguments:
        index = 26
Context PC = 16

----------------------------------------------------------------------
optimized [] in InstructionStream
class>>initializeXMisc:numberOfExtensions:combinationRule:
Receiver:
        an UndefinedObject
Arguments:
        client = a CodeRegenerator
        method = CompiledMethod BG_PieChartView>>preserveColorOrder
        x1 = 26
Context PC = 4

----------------------------------------------------------------------
CodeRegenerator(InstructionStream)>>interpretNextInstructionFor:
Receiver:
        a CodeRegenerator
Instance Variables:
        method = CompiledMethod BG_PieChartView>>preserveColorOrder
        pc = 3
        parent = nil
        codeGenerator = a RecodeStream
        labels = nil
        lastPC = 1
        locals = an OrderedCollection[0]
        stack = an OrderedCollection[0]
        copiedValues = nil
        canCopy = nil
        oldInstVarNames = an OrderedCollection[25]
        pcStack = an OrderedCollection[1]
        pcLabels = an Array[6]
        repressNextPop = false
Arguments:
        client = a CodeRegenerator
Temporaries:
        byte = 208
        x1 = 26
        x2 = nil
        code = BlockClosure [] in InstructionStream
class>>initializeXMisc:numberOfExtensions:combinationRule:
        e1 = 0
        e2 = 0
        numExt = 0
        ext = nil
        decode = 1
Context PC = 168

----------------------------------------------------------------------
CodeRegenerator>>run
Receiver:
        a CodeRegenerator
Instance Variables:
        method = CompiledMethod BG_PieChartView>>preserveColorOrder
        pc = 3
        parent = nil
        codeGenerator = a RecodeStream
        labels = nil
        lastPC = 1
        locals = an OrderedCollection[0]
        stack = an OrderedCollection[0]
        copiedValues = nil
        canCopy = nil
        oldInstVarNames = an OrderedCollection[25]
        pcStack = an OrderedCollection[1]
        pcLabels = an Array[6]
        repressNextPop = false
Temporaries:
        fs = 12
        list = nil
        merge = nil
        i = nil
Context PC = 103

----------------------------------------------------------------------
CodeRegenerator>>execute
Receiver:
        a CodeRegenerator
Instance Variables:
        method = CompiledMethod BG_PieChartView>>preserveColorOrder
        pc = 3
        parent = nil
        codeGenerator = a RecodeStream
        labels = nil
        lastPC = 1
        locals = an OrderedCollection[0]
        stack = an OrderedCollection[0]
        copiedValues = nil
        canCopy = nil
        oldInstVarNames = an OrderedCollection[25]
        pcStack = an OrderedCollection[1]
        pcLabels = an Array[6]
        repressNextPop = false
Temporaries:
        result = nil
Context PC = 7

----------------------------------------------------------------------
optimized [] in BehaviorBuilderRecord>>copyMethodsInto:
Receiver:
        an UndefinedObject
Arguments:
        sel = #preserveColorOrder
        oldMethod = CompiledMethod BG_PieChartView>>preserveColorOrder
Temporaries:
        .self = {UI.BG_PieChartView}
        .names = an OrderedCollection[25]
        method = CompiledMethod a descendent of BehaviorShell>>unboundMethod
        .methodDictionary = a MethodDictionary[15]
Context PC = 13

----------------------------------------------------------------------
MethodDictionary>>keysAndValuesDo:
Receiver:
        a MethodDictionary
Arguments:
        aBlock = BlockClosure [] in BehaviorBuilderRecord>>copyMethodsInto:
Temporaries:
        index = 31
Context PC = 25

----------------------------------------------------------------------
BG_PieChartView class(Behavior)>>selectorsAndMethodsDo:
Receiver:
        a BG_PieChartView class
Instance Variables:
        superclass = BG_GriddedChartView
        methodDict = a MethodDictionary[40]
        format = 16409
        subclasses = nil
        instanceVariables = an Array[6]
        organization = ('accessing' #gridType #preserveColorOrder
#preserveColorOrder: #sortSlices #sortSlices:)
('exploding' #explode #explode:)
('shape' #beCircle #beEllipse #isEllipse)
('private' #compose #composeData #composeGrid #composeLegend:
#displayLabel:angle:offset:alignment:on:at: #legendSize #sortedValues)
('private-data-transformation' #dataFromDescriptions #lookFromDescriptions)
('private-default-model' #defaultDescriptorsFor: #defaultModelFor:)
('legend' #legend:)
('data' #dataAdjacent #dataAdjacentWithLine #dataBelow #dataBelowWithLine)
('labels' #doughnutLabel #doughnutLabel: #doughnutLabelStyle)
('displaying' #createChartLabels #displayAxisOn: #displayChartLabelsOn:
#displayDataOn: #displayGridLinesOn: #displayLegendOn:
#displayLegendSymbol:in:on: #displayPlotOn:)
('grid' #transpose)
('initialize-release' #initialize #newGraphicsDevice:)

        name = #BG_PieChartView
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[611]
Arguments:
        aBlock = BlockClosure [] in BehaviorBuilderRecord>>copyMethodsInto:
Context PC = 5

----------------------------------------------------------------------
ClassBuilderRecord(BehaviorBuilderRecord)>>copyMethodsInto:
Receiver:
        a ClassBuilderRecord
Instance Variables:
        instVarNames = an Array[6]
        instVarMap = nil
        newClass = a descendent of BehaviorShell
        oldSuperclass = {UI.BG_GriddedChartView}
        superclass = {UI.BG_GriddedChartView}
        targetClass = BG_PieChartView
        archive = nil
        newSubclassList = nil
        oldSubclassList = nil
        metaclass = BG_PieChartView class
        behaviorType = #none
        category = nil
        classVariables = nil
        poolNames = nil
        importString = nil
        private = nil
        attributes = nil
        actualOldSuper = BG_GriddedChartView
        varsRemoved = nil
        varsAdded = nil
Arguments:
        methodDictionary = a MethodDictionary[15]
Temporaries:
        names = an OrderedCollection[25]
        method = CompiledMethod a descendent of BehaviorShell>>unboundMethod
Context PC = 20

----------------------------------------------------------------------
ClassBuilderRecord(BehaviorBuilderRecord)>>constructCopy
Receiver:
        a ClassBuilderRecord
Instance Variables:
        instVarNames = an Array[6]
        instVarMap = nil
        newClass = a descendent of BehaviorShell
        oldSuperclass = {UI.BG_GriddedChartView}
        superclass = {UI.BG_GriddedChartView}
        targetClass = BG_PieChartView
        archive = nil
        newSubclassList = nil
        oldSubclassList = nil
        metaclass = BG_PieChartView class
        behaviorType = #none
        category = nil
        classVariables = nil
        poolNames = nil
        importString = nil
        private = nil
        attributes = nil
        actualOldSuper = BG_GriddedChartView
        varsRemoved = nil
        varsAdded = nil
Temporaries:
        map = an OrderedCollection[9]
        md = a MethodDictionary[15]
        i = 10
        i2 = 9
Context PC = 71

----------------------------------------------------------------------
optimized [] in [] in [] in ClassBuilder>>reviseSystemSilently
Receiver:
        an UndefinedObject
Arguments:
        record = {UI.BG_PieChartView}
Context PC = 3

----------------------------------------------------------------------
Dictionary>>do:
Receiver:
        a Dictionary
Instance Variables:
        tally = 12
Arguments:
        aBlock = BlockClosure [] in [] in [] in
ClassBuilder>>reviseSystemSilently
Temporaries:
        index = 2
        elem = 'UI.BG_PieChartView'->{UI.BG_PieChartView}
Context PC = 32

----------------------------------------------------------------------
optimized [] in [] in ClassBuilder>>reviseSystemSilently
Receiver:
        an UndefinedObject
Temporaries:
        queue = an OrderedCollection[0]
        map = a Dictionary[12]
        next = {UI.BG_BandChartView}
        removedMethods = an OrderedCollection[0]
Context PC = 8

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

----------------------------------------------------------------------
Cursor>>showWhile:
Receiver:
        a Cursor
Instance Variables:
        errorCode = 0
        handle = 615
        image = Depth1Image(extent: 16@16 depth: 1)
        mask = Depth1Image(extent: 16@16 depth: 1)
        hotSpot = 0@0
        name = 'read'
Arguments:
        aBlock = BlockClosure [] in [] in ClassBuilder>>reviseSystemSilently
Temporaries:
        oldcursor = Cursor wait
Context PC = 23

----------------------------------------------------------------------
optimized [] in ClassBuilder>>reviseSystemSilently
Receiver:
        an UndefinedObject
Temporaries:
        .self = a ClassBuilder
        queue = an OrderedCollection[0]
        map = a Dictionary[12]
        next = {UI.BG_BandChartView}
        removedMethods = an OrderedCollection[0]
Context PC = 91

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in ClassBuilder>>reviseSystemSilently
        outerContext = nil
        copiedValues = an Array[2]
Arguments:
        anExceptionSelector = a Signal nil
        handlerBlock = BlockClosure [] in [] in SystemUtils
class>>modifySystem:
Context PC = 18

----------------------------------------------------------------------
optimized [] in SystemUtils class>>modifySystem:
Receiver:
        an UndefinedObject
Temporaries:
        .aBlock = BlockClosure [] in ClassBuilder>>reviseSystemSilently
        .self = SystemUtils
Context PC = 9

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

----------------------------------------------------------------------
SystemUtils class>>modifySystem:
Receiver:
        a SystemUtils class
Instance Variables:
        superclass = Object
        methodDict = a MethodDictionary[0]
        format = 16384
        subclasses = nil
        instanceVariables = nil
        organization =
        name = #SystemUtils
        classPool = a NameSpaceOfClass[3]
        environment = a NameSpace[221]
        linkState = a Signal nil
Arguments:
        aBlock = BlockClosure [] in ClassBuilder>>reviseSystemSilently
Temporaries:
        linkHere = false
Context PC = 16

----------------------------------------------------------------------
ClassBuilder>>reviseSystemSilently
Receiver:
        a ClassBuilder
Instance Variables:
        records = an Array[1]
Temporaries:
        queue = an OrderedCollection[0]
        map = a Dictionary[12]
        next = {UI.BG_BandChartView}
        removedMethods = an OrderedCollection[0]
Context PC = 11

----------------------------------------------------------------------
ClassBuilder>>reviseSystem
Receiver:
        a ClassBuilder
Instance Variables:
        records = an Array[1]
Temporaries:
        result = nil
Context PC = 8

----------------------------------------------------------------------
BG_GriddedChartView class(Class)>>redefineFrom:map:
Receiver:
        a BG_GriddedChartView class
Instance Variables:
        superclass = BG_ChartView
        methodDict = a MethodDictionary[79]
        format = 16403
        subclasses = an Array[3]
        instanceVariables = an Array[10]
        organization = ('data' #data #data: #dataInside #dataLocation
#dataOutside #dataStyle #hideData #isDataVisible #isPercentage
#isZeroSuppress)
('model accessing' #model:)
('displaying' #displayAxisOn: #displayDataOn: #displayGridLinesOn:
#displayLegendOn: #displayLegendSymbol:in:on: #displayOn: #displayPlotOn:)
('private-default-model' #defaultDescriptors #defaultDescriptorsFor:
#defaultModelFor: #defaultNbrOfPoints #defaultNbrOfSeries
#defaultPointFor:column:range: #defaultRange
#defaultRangeFromScale:andNumberOfSeries: #useDefaultDescriptors)
('legend' #hideLegend #isLegendHorizontal #isLegendInside #isLegendVisible
#legend #legend: #legendAlignment #legendAlignment: #legendFrame
#legendInside #legendLocation #legendLocation: #legendOutside #legendStyle)
('private' #bottomMargin #compose #composeGrid #composeLabels:
#composeLegend: #composeLegendFrame: #composeSortIndex: #dataRangeMatrix
#defaultDataAngle #isDataOutside #labelsSize #leftMargin #legendSize #rates:
#rightMargin #roundedRates: #sortedValues #topMargin)
('sorting' #other #other:)
('grid' #grid #transpose #transposed)
('labels' #labels #labels: #labelsStyle)
('private-data-transformation' #basicCollection #dataFromDescriptions
#lookFromDescriptions #setChartLooksFrom:)
('initialize-release' #initialize #newGraphicsDevice: #release)
('accessing' #descriptors #descriptors: #gridType)
('updating' #getNewData #update:with:from:)

        name = #BG_GriddedChartView
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[611]
Arguments:
        aBehavior = UI.BG_GriddedChartView
        map = an IdentityDictionary[7]
Temporaries:
        builder = a ClassBuilder
        sup = BG_ChartView
Context PC = 125

----------------------------------------------------------------------
CodeReader>>relocateOrReplaceName:from:to:map:
Receiver:
        a CodeReader
Instance Variables:
        stream = a CodeReaderStream on
'c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl'
        pointer = 809
        format = 16
        parcelName = 'MiosoftBGOKExtensions'
        versionString = ''
        dateString = 'April 23, 2008'
        timeString = '11:26:41 am'
        numNamedObjects = 0
        numClasses = 7
        numExtensionMethods = 37
        definedObjects = an Array[0]
        definedBindings = an IdentityDictionary[0]
        definedExternals = an IdentityDictionary[0]
        classes = an Array[7]
        classSelectors = an Array[7]
        categories = an Array[7]
        packageEnvironment = a NameSpace[2]
        packageUndeclared = a NameSpace[0]
        extensionMethods = an Array[37]
        objectSpaceSize = 808
        objectSpace = an Array[808]
        symbolNum = 367
        twoByteSymbolNum = 0
        stringNum = 11
        twoByteStringNum = 0
        byteArrayNum = 80
        floatNum = 54
        doubleNum = 0
        fixedNum = 0
        largePositiveNum = 0
        largeNegativeNum = 0
        mclassNum = 28
        mclassclassNum = 0
        refNamObjNum = 1
        scopeZonesNum = 12
        defObjOrganizerNum = 0
        classOrganizerNum = 14
        arbClassNum = 6
        arbObjectNum = 193
        messageSendIndices = an Interval[0]
        properties = an IdentityDictionary[7]
        userStringsNum = 3
        namedObjects = a Dictionary[0]
        namedObjectsNum = 0
        postLoadObjects = nil
        streamDir = a LogicalFilename('c:\miocon\bin\MachineController')
        sourceFile = 'MiosoftBGOKExtensions.pst'
        hideSource = false
        importMaps = an IdentityDictionary[4]
        overriddenExtensions = nil
        versionSelectionBlock = BlockClosure [] in [] in
CodeReader>>compileActions:
        warningSuppressionBlock = BlockClosure [] in [] in
CodeReader>>compileActions:
        preReadBlock = nil
        currentSuperclass = UI.ChartingAxisSpec
        mustRecompile = false
        lateOperations = an OrderedCollection[1]
        updates = nil
        tempSourceFile = nil
Arguments:
        symbol = #BG_GriddedChartView
        fromNameSpace = a NameSpace[2]
        toNameSpace = a NameSpace[611]
        map = an IdentityDictionary[7]
Temporaries:
        newBinding = (VariableBinding key: #BG_GriddedChartView)
        newThing = UI.BG_GriddedChartView
        oldThing = BG_GriddedChartView
Context PC = 116

----------------------------------------------------------------------
optimized [] in [] in CodeReader>>installBindingsInSystem
Receiver:
        an UndefinedObject
Arguments:
        shadow = a NameSpace[2]
        env = a NameSpace[611]
        binding = (VariableBinding key: #BG_GriddedChartView)
Temporaries:
        cat = #'Business Graphics-Charts'
        .self = a CodeReader
        map = an IdentityDictionary[7]
Context PC = 51

----------------------------------------------------------------------
optimized [] in CodeReader>>shadow:of:do:
Receiver:
        an UndefinedObject
Arguments:
        nm = #BG_GriddedChartView
Temporaries:
        bnd = (VariableBinding key: #BG_GriddedChartView)
        .shadow = a NameSpace[2]
        .self = a CodeReader
        .env = a NameSpace[611]
        .aBlock = BlockClosure [] in [] in
CodeReader>>installBindingsInSystem
Context PC = 34

----------------------------------------------------------------------
OrderedCollection>>do:
Receiver:
        an OrderedCollection
Instance Variables:
        firstIndex = 1
        lastIndex = 7
Arguments:
        aBlock = BlockClosure [] in CodeReader>>shadow:of:do:
Temporaries:
        index = 6
Context PC = 17

----------------------------------------------------------------------
CodeReader>>shadow:of:do:
Receiver:
        a CodeReader
Instance Variables:
        stream = a CodeReaderStream on
'c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl'
        pointer = 809
        format = 16
        parcelName = 'MiosoftBGOKExtensions'
        versionString = ''
        dateString = 'April 23, 2008'
        timeString = '11:26:41 am'
        numNamedObjects = 0
        numClasses = 7
        numExtensionMethods = 37
        definedObjects = an Array[0]
        definedBindings = an IdentityDictionary[0]
        definedExternals = an IdentityDictionary[0]
        classes = an Array[7]
        classSelectors = an Array[7]
        categories = an Array[7]
        packageEnvironment = a NameSpace[2]
        packageUndeclared = a NameSpace[0]
        extensionMethods = an Array[37]
        objectSpaceSize = 808
        objectSpace = an Array[808]
        symbolNum = 367
        twoByteSymbolNum = 0
        stringNum = 11
        twoByteStringNum = 0
        byteArrayNum = 80
        floatNum = 54
        doubleNum = 0
        fixedNum = 0
        largePositiveNum = 0
        largeNegativeNum = 0
        mclassNum = 28
        mclassclassNum = 0
        refNamObjNum = 1
        scopeZonesNum = 12
        defObjOrganizerNum = 0
        classOrganizerNum = 14
        arbClassNum = 6
        arbObjectNum = 193
        messageSendIndices = an Interval[0]
        properties = an IdentityDictionary[7]
        userStringsNum = 3
        namedObjects = a Dictionary[0]
        namedObjectsNum = 0
        postLoadObjects = nil
        streamDir = a LogicalFilename('c:\miocon\bin\MachineController')
        sourceFile = 'MiosoftBGOKExtensions.pst'
        hideSource = false
        importMaps = an IdentityDictionary[4]
        overriddenExtensions = nil
        versionSelectionBlock = BlockClosure [] in [] in
CodeReader>>compileActions:
        warningSuppressionBlock = BlockClosure [] in [] in
CodeReader>>compileActions:
        preReadBlock = nil
        currentSuperclass = UI.ChartingAxisSpec
        mustRecompile = false
        lateOperations = an OrderedCollection[1]
        updates = nil
        tempSourceFile = nil
Arguments:
        shadow = a NameSpace[2]
        env = a NameSpace[611]
        aBlock = BlockClosure [] in [] in
CodeReader>>installBindingsInSystem
Context PC = 12

----------------------------------------------------------------------
optimized [] in CodeReader>>shadow:of:do:
Receiver:
        an UndefinedObject
Arguments:
        nm = #UI
Temporaries:
        bnd = (VariableBinding key: #UI)
        .shadow = a NameSpace[2]
        .self = a CodeReader
        .env = a NameSpace[20]
        .aBlock = BlockClosure [] in [] in
CodeReader>>installBindingsInSystem
Context PC = 26

----------------------------------------------------------------------
OrderedCollection>>do:
Receiver:
        an OrderedCollection
Instance Variables:
        firstIndex = 1
        lastIndex = 2
Arguments:
        aBlock = BlockClosure [] in CodeReader>>shadow:of:do:
Temporaries:
        index = 2
Context PC = 17

----------------------------------------------------------------------
CodeReader>>shadow:of:do:
Receiver:
        a CodeReader
Instance Variables:
        stream = a CodeReaderStream on
'c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl'
        pointer = 809
        format = 16
        parcelName = 'MiosoftBGOKExtensions'
        versionString = ''
        dateString = 'April 23, 2008'
        timeString = '11:26:41 am'
        numNamedObjects = 0
        numClasses = 7
        numExtensionMethods = 37
        definedObjects = an Array[0]
        definedBindings = an IdentityDictionary[0]
        definedExternals = an IdentityDictionary[0]
        classes = an Array[7]
        classSelectors = an Array[7]
        categories = an Array[7]
        packageEnvironment = a NameSpace[2]
        packageUndeclared = a NameSpace[0]
        extensionMethods = an Array[37]
        objectSpaceSize = 808
        objectSpace = an Array[808]
        symbolNum = 367
        twoByteSymbolNum = 0
        stringNum = 11
        twoByteStringNum = 0
        byteArrayNum = 80
        floatNum = 54
        doubleNum = 0
        fixedNum = 0
        largePositiveNum = 0
        largeNegativeNum = 0
        mclassNum = 28
        mclassclassNum = 0
        refNamObjNum = 1
        scopeZonesNum = 12
        defObjOrganizerNum = 0
        classOrganizerNum = 14
        arbClassNum = 6
        arbObjectNum = 193
        messageSendIndices = an Interval[0]
        properties = an IdentityDictionary[7]
        userStringsNum = 3
        namedObjects = a Dictionary[0]
        namedObjectsNum = 0
        postLoadObjects = nil
        streamDir = a LogicalFilename('c:\miocon\bin\MachineController')
        sourceFile = 'MiosoftBGOKExtensions.pst'
        hideSource = false
        importMaps = an IdentityDictionary[4]
        overriddenExtensions = nil
        versionSelectionBlock = BlockClosure [] in [] in
CodeReader>>compileActions:
        warningSuppressionBlock = BlockClosure [] in [] in
CodeReader>>compileActions:
        preReadBlock = nil
        currentSuperclass = UI.ChartingAxisSpec
        mustRecompile = false
        lateOperations = an OrderedCollection[1]
        updates = nil
        tempSourceFile = nil
Arguments:
        shadow = a NameSpace[2]
        env = a NameSpace[20]
        aBlock = BlockClosure [] in [] in
CodeReader>>installBindingsInSystem
Context PC = 12

----------------------------------------------------------------------
optimized [] in CodeReader>>installBindingsInSystem
Receiver:
        an UndefinedObject
Temporaries:
        map = an IdentityDictionary[7]
        .self = a CodeReader
Context PC = 30

----------------------------------------------------------------------
BlockClosure>>on:do:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in CodeReader>>installBindingsInSystem
        outerContext = nil
        copiedValues = an Array[2]
Arguments:
        anExceptionSelector = a Signal nil
        handlerBlock = BlockClosure [] in [] in SystemUtils
class>>modifySystem:
Context PC = 18

----------------------------------------------------------------------
optimized [] in SystemUtils class>>modifySystem:
Receiver:
        an UndefinedObject
Temporaries:
        .aBlock = BlockClosure [] in CodeReader>>installBindingsInSystem
        .self = SystemUtils
Context PC = 9

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

----------------------------------------------------------------------
SystemUtils class>>modifySystem:
Receiver:
        a SystemUtils class
Instance Variables:
        superclass = Object
        methodDict = a MethodDictionary[0]
        format = 16384
        subclasses = nil
        instanceVariables = nil
        organization =
        name = #SystemUtils
        classPool = a NameSpaceOfClass[3]
        environment = a NameSpace[221]
        linkState = a Signal nil
Arguments:
        aBlock = BlockClosure [] in CodeReader>>installBindingsInSystem
Temporaries:
        linkHere = nil
Context PC = 16

----------------------------------------------------------------------
CodeReader>>installBindingsInSystem
Receiver:
        a CodeReader
Instance Variables:
        stream = a CodeReaderStream on
'c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl'
        pointer = 809
        format = 16
        parcelName = 'MiosoftBGOKExtensions'
        versionString = ''
        dateString = 'April 23, 2008'
        timeString = '11:26:41 am'
        numNamedObjects = 0
        numClasses = 7
        numExtensionMethods = 37
        definedObjects = an Array[0]
        definedBindings = an IdentityDictionary[0]
        definedExternals = an IdentityDictionary[0]
        classes = an Array[7]
        classSelectors = an Array[7]
        categories = an Array[7]
        packageEnvironment = a NameSpace[2]
        packageUndeclared = a NameSpace[0]
        extensionMethods = an Array[37]
        objectSpaceSize = 808
        objectSpace = an Array[808]
        symbolNum = 367
        twoByteSymbolNum = 0
        stringNum = 11
        twoByteStringNum = 0
        byteArrayNum = 80
        floatNum = 54
        doubleNum = 0
        fixedNum = 0
        largePositiveNum = 0
        largeNegativeNum = 0
        mclassNum = 28
        mclassclassNum = 0
        refNamObjNum = 1
        scopeZonesNum = 12
        defObjOrganizerNum = 0
        classOrganizerNum = 14
        arbClassNum = 6
        arbObjectNum = 193
        messageSendIndices = an Interval[0]
        properties = an IdentityDictionary[7]
        userStringsNum = 3
        namedObjects = a Dictionary[0]
        namedObjectsNum = 0
        postLoadObjects = nil
        streamDir = a LogicalFilename('c:\miocon\bin\MachineController')
        sourceFile = 'MiosoftBGOKExtensions.pst'
        hideSource = false
        importMaps = an IdentityDictionary[4]
        overriddenExtensions = nil
        versionSelectionBlock = BlockClosure [] in [] in
CodeReader>>compileActions:
        warningSuppressionBlock = BlockClosure [] in [] in
CodeReader>>compileActions:
        preReadBlock = nil
        currentSuperclass = UI.ChartingAxisSpec
        mustRecompile = false
        lateOperations = an OrderedCollection[1]
        updates = nil
        tempSourceFile = nil
Temporaries:
        map = an IdentityDictionary[7]
Context PC = 11

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

----------------------------------------------------------------------
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
'c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl'
        pointer = 809
        format = 16
        parcelName = 'MiosoftBGOKExtensions'
        versionString = ''
        dateString = 'April 23, 2008'
        timeString = '11:26:41 am'
        numNamedObjects = 0
        numClasses = 7
        numExtensionMethods = 37
        definedObjects = an Array[0]
        definedBindings = an IdentityDictionary[0]
        definedExternals = an IdentityDictionary[0]
        classes = an Array[7]
        classSelectors = an Array[7]
        categories = an Array[7]
        packageEnvironment = a NameSpace[2]
        packageUndeclared = a NameSpace[0]
        extensionMethods = an Array[37]
        objectSpaceSize = 808
        objectSpace = an Array[808]
        symbolNum = 367
        twoByteSymbolNum = 0
        stringNum = 11
        twoByteStringNum = 0
        byteArrayNum = 80
        floatNum = 54
        doubleNum = 0
        fixedNum = 0
        largePositiveNum = 0
        largeNegativeNum = 0
        mclassNum = 28
        mclassclassNum = 0
        refNamObjNum = 1
        scopeZonesNum = 12
        defObjOrganizerNum = 0
        classOrganizerNum = 14
        arbClassNum = 6
        arbObjectNum = 193
        messageSendIndices = an Interval[0]
        properties = an IdentityDictionary[7]
        userStringsNum = 3
        namedObjects = a Dictionary[0]
        namedObjectsNum = 0
        postLoadObjects = nil
        streamDir = a LogicalFilename('c:\miocon\bin\MachineController')
        sourceFile = 'MiosoftBGOKExtensions.pst'
        hideSource = false
        importMaps = an IdentityDictionary[4]
        overriddenExtensions = nil
        versionSelectionBlock = BlockClosure [] in [] in
CodeReader>>compileActions:
        warningSuppressionBlock = BlockClosure [] in [] in
CodeReader>>compileActions:
        preReadBlock = nil
        currentSuperclass = UI.ChartingAxisSpec
        mustRecompile = false
        lateOperations = an OrderedCollection[1]
        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[229]
        format = 16393
        subclasses = nil
        instanceVariables = an Array[7]
        organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #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' #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[221]
        parcels = a List[40]
        classParcelMap = an IdentityDictionary[1212]
        parcelFileInfoCache = a Dictionary[0]
        parcelFileDirectoryCache = a Dictionary[0]
        dependents = a Store.PundleAccess
Arguments:
        aBlock = BlockClosure [] in CodeComponent>>loadFrom:using:
        componentSource = a
NTFSFilename('c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl')
Temporaries:
        acceptAbsentClassImports = false
        componentName =
'c:\miocon\bin\MachineController\MiosoftBGOKExtensions.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
NTFSFilename('c:\miocon\bin\MachineController\MiosoftBGOKExtensions.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
NTFSFilename('c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl')
Context PC = 7

----------------------------------------------------------------------
optimized [] in [] in [] in Parcel class>>loadParcelCachedFrom:
Receiver:
        an UndefinedObject
Temporaries:
        loadedParcel = Parcel parcelNamed: nil
        .aStringOrFilename = a
NTFSFilename('c:\miocon\bin\MachineController\MiosoftBGOKExtensions.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
NTFSFilename('c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl')
        .loadTag =
#parcel->'c:\miocon\bin\MachineController\MiosoftBGOKExtensions.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[229]
        format = 16393
        subclasses = nil
        instanceVariables = an Array[7]
        organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #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' #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[221]
        parcels = a List[40]
        classParcelMap = an IdentityDictionary[1212]
        parcelFileInfoCache = a Dictionary[0]
        parcelFileDirectoryCache = a Dictionary[0]
        dependents = a Store.PundleAccess
Temporaries:
        loadedParcel = Parcel parcelNamed: nil
        .aStringOrFilename = a
NTFSFilename('c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl')
        .loadTag =
#parcel->'c:\miocon\bin\MachineController\MiosoftBGOKExtensions.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[229]
        format = 16393
        subclasses = nil
        instanceVariables = an Array[7]
        organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #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' #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[221]
        parcels = a List[40]
        classParcelMap = an IdentityDictionary[1212]
        parcelFileInfoCache = a Dictionary[0]
        parcelFileDirectoryCache = a Dictionary[0]
        dependents = a Store.PundleAccess
Arguments:
        aStringOrFilename = a
NTFSFilename('c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl')
Temporaries:
        loadedParcel = Parcel parcelNamed: nil
        loadTag =
#parcel->'c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl'
Context PC = 46

----------------------------------------------------------------------
optimized [] in [] in Parcel class>>loadParcelFrom:
Receiver:
        an UndefinedObject
Temporaries:
        .self = Parcel
        .aStringOrFilename = a
NTFSFilename('c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl')
        newParcel = nil
Context PC = 7

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in [] in Parcel class>>loadParcelFrom:
        outerContext = nil
        copiedValues = an Array[3]
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[229]
        format = 16393
        subclasses = nil
        instanceVariables = an Array[7]
        organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #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' #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[221]
        parcels = a List[40]
        classParcelMap = an IdentityDictionary[1212]
        parcelFileInfoCache = a Dictionary[0]
        parcelFileDirectoryCache = a Dictionary[0]
        dependents = a Store.PundleAccess
Arguments:
        aBlock = BlockClosure [] in [] in Parcel class>>loadParcelFrom:
Context PC = 20

----------------------------------------------------------------------
optimized [] in Parcel class>>loadParcelFrom:
Receiver:
        an UndefinedObject
Temporaries:
        .self = Parcel
        .aStringOrFilename = a
NTFSFilename('c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl')
        newParcel = nil
Context PC = 12

----------------------------------------------------------------------
Cursor>>showWhile:
Receiver:
        a Cursor
Instance Variables:
        errorCode = 0
        handle = 12
        image = Depth1Image(extent: 16@16 depth: 1)
        mask = Depth1Image(extent: 16@16 depth: 1)
        hotSpot = 0@0
        name = 'wait'
Arguments:
        aBlock = BlockClosure [] in Parcel class>>loadParcelFrom:
Temporaries:
        oldcursor = Cursor wait
Context PC = 13

----------------------------------------------------------------------
Parcel class>>loadParcelFrom:
Receiver:
        a Parcel class
Instance Variables:
        superclass = CodeComponent
        methodDict = a MethodDictionary[229]
        format = 16393
        subclasses = nil
        instanceVariables = an Array[7]
        organization = ('initialize-release' #initialize)
('accessing' #bundleName #bundleName: #packageName #packageName:
#postUnloadBlock #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' #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[221]
        parcels = a List[40]
        classParcelMap = an IdentityDictionary[1212]
        parcelFileInfoCache = a Dictionary[0]
        parcelFileDirectoryCache = a Dictionary[0]
        dependents = a Store.PundleAccess
Arguments:
        aStringOrFilename = a
NTFSFilename('c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl')
Temporaries:
        newParcel = nil
Context PC = 15

----------------------------------------------------------------------
optimized [] in [] in Tools.FileTools.FileBrowser>>loadParcel
Receiver:
        an UndefinedObject
Temporaries:
        .name = a
NTFSFilename('c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl')
Context PC = 6

----------------------------------------------------------------------
optimized [] in [] in Notice class>>show:while:
Receiver:
        an UndefinedObject
Temporaries:
        .aBlock = BlockClosure [] in [] in
Tools.FileTools.FileBrowser>>loadParcel
        result = an UIBuilder
        babyWindow = an ApplicationWindow 612
        babyWindowManager = a WindowManager
Context PC = 5

----------------------------------------------------------------------
BlockClosure>>ensure:
Receiver:
        a BlockClosure
Instance Variables:
        method = CompiledBlock [] in [] in Notice class>>show:while:
        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 = 12
        image = Depth1Image(extent: 16@16 depth: 1)
        mask = Depth1Image(extent: 16@16 depth: 1)
        hotSpot = 0@0
        name = 'wait'
Arguments:
        aBlock = BlockClosure [] in [] in Notice class>>show:while:
Temporaries:
        oldcursor = Cursor normal
Context PC = 23

----------------------------------------------------------------------
optimized [] in Notice class>>show:while:
Receiver:
        an UndefinedObject
Temporaries:
        .baby = a Notice
        result = an UIBuilder
        babyWindow = an ApplicationWindow 612
        babyWindowManager = a WindowManager
        .aBlock = BlockClosure [] in [] in
Tools.FileTools.FileBrowser>>loadParcel
Context PC = 48

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

----------------------------------------------------------------------
Notice class>>show:while:
Receiver:
        a Notice class
Instance Variables:
        superclass = ApplicationModel
        methodDict = a MethodDictionary[9]
        format = 16390
        subclasses = nil
        instanceVariables = an Array[2]
        organization = ('interface opening' #postOpenWith:)
('aspects' #message: #notice #show: #textView)
('updating' #changedMessages)
('private' #invokePostOpen #on:)
('interface closing' #requestForWindowClose)

        name = #Notice
        classPool = a NameSpaceOfClass[0]
        environment = a NameSpace[611]
        savedWindowInformation = an IdentityDictionary[0]
Arguments:
        aStringOrUserMessage = 'Loading Parcel
c:\miocon\bin\...er\MiosoftBGOKExtensions.pcl'
        aBlock = BlockClosure [] in [] in
Tools.FileTools.FileBrowser>>loadParcel
Temporaries:
        baby = a Notice
        result = an UIBuilder
        babyWindow = an ApplicationWindow 612
        babyWindowManager = a WindowManager
Context PC = 27

----------------------------------------------------------------------
optimized [] in Tools.FileTools.FileBrowser>>loadParcel
Receiver:
        an UndefinedObject
Arguments:
        name = a
NTFSFilename('c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl')
Context PC = 18

----------------------------------------------------------------------
Tools.FileTools.FileBrowser>>withSelectedFilenameDo:
Receiver:
        a Tools.FileTools.FileBrowser
Instance Variables:
        dependents = an ApplicationWindow 72
        builder = an UIBuilder
        uiSession = a ControlManager
        eventHandlers = nil
        directoryTreeHolder = a SelectionInTree
        patternChoices = a ValueHolder on: List ('*.pcl' '*' '*.st, *.pst,
*.cha' '*.txt, *.ws')
        fileListHolder = a SelectionInList
        patternHolder = a ValueHolder on: '*.pcl'
        fileSelectionChannel = a ValueHolder on: a
NTFSFilename('c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl')
        currentViewer = a Tools.FileTools.ParcelFileViewer
        statusTextRightHolder = a ValueHolder on: '22 KB'
        statusTextLeftHolder = a ValueHolder on:
'c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl'
        viewerListHolder = a SelectionInList
        menuBarHolder = a ValueHolder on: a Menu
        encodingChannel = a ValueHolder on: #default
Arguments:
        aBlock = BlockClosure [] in Tools.FileTools.FileBrowser>>loadParcel
Temporaries:
        file = a Tools.FileTools.FileItem
(c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl)
Context PC = 14

----------------------------------------------------------------------
Tools.FileTools.FileBrowser>>loadParcel
Receiver:
        a Tools.FileTools.FileBrowser
Instance Variables:
        dependents = an ApplicationWindow 72
        builder = an UIBuilder
        uiSession = a ControlManager
        eventHandlers = nil
        directoryTreeHolder = a SelectionInTree
        patternChoices = a ValueHolder on: List ('*.pcl' '*' '*.st, *.pst,
*.cha' '*.txt, *.ws')
        fileListHolder = a SelectionInList
        patternHolder = a ValueHolder on: '*.pcl'
        fileSelectionChannel = a ValueHolder on: a
NTFSFilename('c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl')
        currentViewer = a Tools.FileTools.ParcelFileViewer
        statusTextRightHolder = a ValueHolder on: '22 KB'
        statusTextLeftHolder = a ValueHolder on:
'c:\miocon\bin\MachineController\MiosoftBGOKExtensions.pcl'
        viewerListHolder = a SelectionInList
        menuBarHolder = a ValueHolder on: a Menu
        encodingChannel = a ValueHolder on: #default
Context PC = 5

Terry
 
===========================================================
Terry Raymond
Crafted Smalltalk
80 Lazywood Ln.
Tiverton, RI  02878
(401) 624-4517      [hidden email]
<http://www.craftedsmalltalk.com>
===========================================================

_______________________________________________
vwnc mailing list
[hidden email]
http://lists.cs.uiuc.edu/mailman/listinfo/vwnc