[7.8] #halt during publish

I just ran into the below when trying to publish results of the first merge in 7.8, any ideas?

Halt encountered.

Glorp.RowMap(Object)>>halt

Glorp.RowMap>>subMapForTable:withKey:

Glorp.RowMap>>findOrAddRowForTable:withKey:

Glorp.RowMap>>unifyField:key:withField:key:

Glorp.Join>>mapFromSource:andTarget:intoRowsIn:

Glorp.BasicDictionaryMapping(Glorp.RelationshipMapping)>>mapOneFromObject:toTarget:intermediate:atPosition:puttingRowsIn:

optimized [] in Glorp.RelationshipMapping>>mapFromObject:toTarget:puttingRowsIn:

optimized [] in [] in Glorp.GlorpAttributeModel>>loopOver:doing:

BlockClosure>>cull:

Store.Glorp.StorePackage(Object)>>ifNotNil:

Glorp.Proxy(Glorp.AbstractProxy)>>doesNotUnderstand:

optimized [] in Glorp.GlorpAttributeModel>>loopOver:doing:

Dictionary>>keysAndValuesDo:

Glorp.GlorpAttributeModel>>loopOver:doing:

Glorp.BasicDictionaryMapping(Glorp.RelationshipMapping)>>mapFromObject:toTarget:puttingRowsIn:

Glorp.BasicDictionaryMapping(Glorp.RelationshipMapping)>>mapFromObject:intoRowsIn:

optimized [] in Glorp.Descriptor>>createRowsFor:in:

Array(SequenceableCollection)>>do:

Glorp.Descriptor>>createRowsFor:in:

Glorp.GlorpSession>>createRowsFor:in:

optimized [] in Glorp.UnitOfWork>>createRowMapFor:

IdentitySet(Set)>>do:

Glorp.UnitOfWork>>createRowMapFor:

Glorp.UnitOfWork>>createRowsForPartialWrites

Glorp.UnitOfWork>>createRows

Glorp.UnitOfWork>>preCommit

optimized [] in Glorp.UnitOfWork>>commit

BlockClosure>>ifCurtailed:

Glorp.UnitOfWork>>commit

optimized [] in Glorp.GlorpSession>>commitUnitOfWork

BlockClosure>>ifCurtailed:

Glorp.GlorpSession>>commitUnitOfWork

optimized [] in [] in Glorp.GlorpSession>>transact:

BlockClosure>>ifCurtailed:

optimized [] in Glorp.GlorpSession>>transact:

BlockClosure>>ifCurtailed:

Glorp.GlorpSession>>transact:

optimized [] in Store.Glorp.StorePundleWriter>>addBlessing:

BlockClosure>>ensure:

Store.Glorp.StorePundleWriter>>addBlessing:

optimized [] in Store.PublishSpecification>>publishBlessing

Store.PublishSpecification>>publishBlessing

Store.Glorp.StoreBundle(Store.Glorp.StorePundle)>>addBlessingLevel:andComment:

optimized [] in Store.Glorp.MergeTool>>updateIntegrationBlessingsFor:

Set>>do:

Store.Glorp.MergeTool>>updateIntegrationBlessingsFor:

optimized [] in Store.Glorp.MergeTool>>publishModified

optimized [] in [] in Store.PublishMergeDialog>>accept

BlockClosure>>cull:

BlockClosure(Object)>>ifNotNil:

optimized [] in Store.PublishMergeDialog>>accept

optimized [] in Store.StoreProgressOverlay class>>subsumeAll:while:

BlockClosure>>ensure:

Store.StoreProgressOverlay class>>subsumeAll:while:

Store.StoreProgressOverlay class>>subsume:while:

Store.PublishMergeDialog>>accept

optimized [] in ApplicationModel>>actionFor:

optimized [] in ActionButtonSpec>>typeConvert:

PluggableAdaptor>>setValue:

PluggableAdaptor(ValueModel)>>value:

WinXPTriggerButtonController(TriggerButtonController)>>pressAction

TriggerButtonTracker(BasicButtonTracker)>>finishSelectionFor:

TriggerButtonTracker>>finishSelectionFor:

TriggerButtonTracker(SelectionTracker)>>redButtonReleasedEvent:

RedButtonReleasedEvent>>dispatchTo:

TriggerButtonTracker(SelectionTracker)>>handleEvent:

EventDispatcher>>dispatch:to:

[] in EventDispatcher>>dispatchEvent:

BlockClosure>>on:do:

EventDispatcher>>dispatchEvent:

RedButtonReleasedEvent(Event)>>dispatch

RedButtonReleasedEvent(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:

----------------------------------------------------------------------

Glorp.RowMap(Object)>>halt

Receiver:

                a Glorp.RowMap

Instance Variables:

                rowDictionary = an IdentityDictionary[16]

                hasDeletions = false

Context PC = 12

----------------------------------------------------------------------

Glorp.RowMap>>subMapForTable:withKey:

Receiver:

                a Glorp.RowMap

Instance Variables:

                rowDictionary = an IdentityDictionary[16]

                hasDeletions = false

Arguments:

                aTable = a Store.Glorp.StoreDatabaseTable(TW_Package)

                anObject = {StorePackage(DCL- ZA Eft Submission,9001)}

Context PC = 7

----------------------------------------------------------------------

Glorp.RowMap>>findOrAddRowForTable:withKey:

Receiver:

                a Glorp.RowMap

Instance Variables:

                rowDictionary = an IdentityDictionary[16]

                hasDeletions = false

Arguments:

                aTable = a Store.Glorp.StoreDatabaseTable(TW_Package)

                aKey = {StorePackage(DCL- ZA Eft Submission,9001)}

Temporaries:

                submap = nil

                row = nil

                newRow = nil

Context PC = 6

----------------------------------------------------------------------

Glorp.RowMap>>unifyField:key:withField:key:

Receiver:

                a Glorp.RowMap

Instance Variables:

                rowDictionary = an IdentityDictionary[16]

                hasDeletions = false

Arguments:

                eachSourceField = Field(TW_Packages.packageRef)

                sourceObject = a Glorp.RowMapKey

                eachTargetField = Field(TW_Package.primaryKey)

                targetObject = {StorePackage(DCL- ZA Eft Submission,9001)}

Temporaries:

                sourceRow = a Glorp.DatabaseRow(TW_Packages)

    Field(TW_Packages.bundleRef)->72152

    Field(TW_Packages.expressionID)->an Object

    Field(TW_Packages.seqNumber)->an Object

    Field(TW_Packages.packageRef)->an Object

                targetRow = nil

Context PC = 14

----------------------------------------------------------------------

Glorp.Join>>mapFromSource:andTarget:intoRowsIn:

Receiver:

                a Glorp.Join

Instance Variables:

                sources = an OrderedCollection[1]

                targets = an OrderedCollection[1]

                base = Base(nil)

                outerJoin = false

                owningMapping = nil

Arguments:

                sourceObject = a Glorp.RowMapKey

                targetObject = {StorePackage(DCL- ZA Eft Submission,9001)}

                aRowMap = a Glorp.RowMap

Temporaries:

                i = 1

                eachSourceField = Field(TW_Packages.packageRef)

                eachTargetField = Field(TW_Package.primaryKey)

Context PC = 52

----------------------------------------------------------------------

Glorp.BasicDictionaryMapping(Glorp.RelationshipMapping)>>mapOneFromObject:toTarget:intermediate:atPosition:puttingRowsIn:

Receiver:

                a Glorp.BasicDictionaryMapping

Instance Variables:

                descriptor = a Glorp.Descriptor(Store.Glorp.StoreBundle)

                attribute = ~~StoreBundle~~>>packages

                debugRead = false

                debugWrite = false

                query = a SimpleQuery for a Glorp.BasicDictionaryMapping(packages)

                join = (TW_Bundle.primaryKey = TW_Packages.bundleRef)

                usesLinkTable = true

                shouldProxy = true

                linkTableJoin = nil

                targetTableJoin = nil

                reverseJoin = (TW_Packages.packageRef = TW_Package.primaryKey)

                shouldUseFilteredRead = false

                rowMapKeyConstructorBlock = nil

                controlsTables = true

                isExclusive = false

                linkFields = an Array[1]

                proxyAction = nil

                orderBy = an OrderedCollection[1]

                shouldWriteTheOrderField = false

                keyMapping = a Glorp.DirectMapping(key)

                valueMapping = nil

                associationDescriptor = a Glorp.Descriptor(Association)

Arguments:

                sourceObject = StoreBundle(DCL- ZA Eft Processing,9001)

                targetObject = {StorePackage(DCL- ZA Eft Submission,9001)}

                aRowMapKey = a Glorp.RowMapKey

                index = 1

                aRowMap = a Glorp.RowMap

Context PC = 49

----------------------------------------------------------------------

optimized [] in Glorp.RelationshipMapping>>mapFromObject:toTarget:puttingRowsIn:

Receiver:

                an UndefinedObject

Arguments:

                index = 1

                eachTarget = {StorePackage(DCL- ZA Eft Submission,9001)}

Temporaries:

                intermediate = a Glorp.RowMapKey

                .self = a Glorp.BasicDictionaryMapping(packages)

                .anObject = StoreBundle(DCL- ZA Eft Processing,9001)

                .aRowMap = a Glorp.RowMap

Context PC = 18

----------------------------------------------------------------------

optimized [] in [] in Glorp.GlorpAttributeModel>>loopOver:doing:

Receiver:

                an UndefinedObject

Temporaries:

                .aBlock = BlockClosure [] in Glorp.RelationshipMapping>>mapFromObject:toTarget:puttingRowsIn:

                .key = 1

                .value = {StorePackage(DCL- ZA Eft Submission,9001)}

Context PC = 8

----------------------------------------------------------------------

BlockClosure>>cull:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in [] in Glorp.GlorpAttributeModel>>loopOver:doing:

                outerContext = nil

                copiedValues = an Array[3]

Arguments:

                anObject = StorePackage(DCL- ZA Eft Submission,9001)

Context PC = 10

----------------------------------------------------------------------

Store.Glorp.StorePackage(Object)>>ifNotNil:

Receiver:

                a Store.Glorp.StorePackage

Instance Variables:

                primaryKey = 48283

                trace = {uninstantiated StorePackage}

                username = 'warren'

                timestamp = 9 June 2011 21:56:28

                name = 'DCL- ZA Eft Submission'

                comment = {uninstantiated StoreBlob}

                properties = an IdentityDictionary[0]

                propertiesBlob = {a Store.Glorp.StoreBlob}

                propertiesRecordDictionary = {Dictionary ()}

                version = '9001'

                blessings = {uninstantiated collection of StoreBlessing}

                currentBlessingLevel = 20

                storeModel = [DCL- ZA Eft Submission]

                session = a Glorp.GlorpSession

                versionless = {uninstantiated StoreVersionlessPackage}

                methods = {OrderedCollection (StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAFile>>#batchClass StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSABatch class>>#signatureClass StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#debitAccountName StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSABatch>>#paymentChannel StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSABatch>>#batchEntryClass StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#write StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#creditAccountDescription StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#paymentDate StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#creditAccountName StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#debitAccountDescription StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSABatch>>#recordSize StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#amount StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#debitAccountBranchNumber StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSABatch>>#batch StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#creditAccountBranchNumber StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#creditAccountNumber StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAFile class>>#formatCode StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#debitAccountNumber)}

                classDefinitions = {OrderedCollection ((StoreClassDefinition(Root.Smalltalk.DeepCoveLabs.ZA_ABSABatch) in {StorePackage(DCL- ZA Eft Submission,9001)}) (StoreClassDefinition(Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry) in {StorePackage(DCL- ZA Eft Submission,9001)}) (StoreClassDefinition(Root.Smalltalk.DeepCoveLabs.ZA_ABSAFile) in {StorePackage(DCL- ZA Eft Submission,9001)}))}

                fullClasses = a Dictionary[3]

                nameSpaces = {OrderedCollection ()}

                sharedVariables = {OrderedCollection ()}

                parcel = nil

                binFile = nil

Arguments:

                aBlock = BlockClosure [] in [] in Glorp.GlorpAttributeModel>>loopOver:doing:

Context PC = 4

----------------------------------------------------------------------

Glorp.Proxy(Glorp.AbstractProxy)>>doesNotUnderstand:

Receiver:

                a Glorp.Proxy

Instance Variables:

                value = StorePackage(DCL- ZA Eft Submission,9001)

                isInstantiated = true

                session = a Glorp.GlorpSession

                query = a SimpleQuery for StorePackage

                parameters = an IdentityDictionary[1]

                action = nil

Arguments:

                aMessage = a Message with selector: #ifNotNil: and arguments: #(BlockClosure [] in [] in Glorp.GlorpAttributeModel>>loopOver:doing:)

Context PC = 10

----------------------------------------------------------------------

optimized [] in Glorp.GlorpAttributeModel>>loopOver:doing:

Receiver:

                an UndefinedObject

Arguments:

                key = 1

                value = {StorePackage(DCL- ZA Eft Submission,9001)}

Temporaries:

                .self = ~~StoreBundle~~>>packages

                .aBlock = BlockClosure [] in Glorp.RelationshipMapping>>mapFromObject:toTarget:puttingRowsIn:

Context PC = 16

----------------------------------------------------------------------

Dictionary>>keysAndValuesDo:

Receiver:

                a Dictionary

Instance Variables:

                tally = 1

Arguments:

                aBlock = BlockClosure [] in Glorp.GlorpAttributeModel>>loopOver:doing:

Temporaries:

                index = 2

                elem = 1 -> {StorePackage(DCL- ZA Eft Submission,9001)}

Context PC = 36

----------------------------------------------------------------------

Glorp.GlorpAttributeModel>>loopOver:doing:

Receiver:

                a Glorp.GlorpAttributeModel

Instance Variables:

                name = #packages

                type = Store.Glorp.StorePackage

                collectionType = Dictionary

                keyType = nil

                classModel = ~~StoreBundle~~

                attributeIndex = 17

                useDirectAccess = nil

                setSelector = nil

                canRead = true

                canWrite = true

Arguments:

                mightBeACollection = a Dictionary[1]

                aBlock = BlockClosure [] in Glorp.RelationshipMapping>>mapFromObject:toTarget:puttingRowsIn:

Temporaries:

                index = nil

Context PC = 36

----------------------------------------------------------------------

Glorp.BasicDictionaryMapping(Glorp.RelationshipMapping)>>mapFromObject:toTarget:puttingRowsIn:

Receiver:

                a Glorp.BasicDictionaryMapping

Instance Variables:

                descriptor = a Glorp.Descriptor(Store.Glorp.StoreBundle)

                attribute = ~~StoreBundle~~>>packages

                debugRead = false

                debugWrite = false

                query = a SimpleQuery for a Glorp.BasicDictionaryMapping(packages)

                join = (TW_Bundle.primaryKey = TW_Packages.bundleRef)

                usesLinkTable = true

                shouldProxy = true

                linkTableJoin = nil

                targetTableJoin = nil

                reverseJoin = (TW_Packages.packageRef = TW_Package.primaryKey)

                shouldUseFilteredRead = false

                rowMapKeyConstructorBlock = nil

                controlsTables = true

                isExclusive = false

                linkFields = an Array[1]

                proxyAction = nil

                orderBy = an OrderedCollection[1]

                shouldWriteTheOrderField = false

                keyMapping = a Glorp.DirectMapping(key)

                valueMapping = nil

                associationDescriptor = a Glorp.Descriptor(Association)

Arguments:

                anObject = StoreBundle(DCL- ZA Eft Processing,9001)

                target = a Dictionary[1]

                aRowMap = a Glorp.RowMap

Context PC = 12

----------------------------------------------------------------------

Glorp.BasicDictionaryMapping(Glorp.RelationshipMapping)>>mapFromObject:intoRowsIn:

Receiver:

                a Glorp.BasicDictionaryMapping

Instance Variables:

                descriptor = a Glorp.Descriptor(Store.Glorp.StoreBundle)

                attribute = ~~StoreBundle~~>>packages

                debugRead = false

                debugWrite = false

                query = a SimpleQuery for a Glorp.BasicDictionaryMapping(packages)

                join = (TW_Bundle.primaryKey = TW_Packages.bundleRef)

                usesLinkTable = true

                shouldProxy = true

                linkTableJoin = nil

                targetTableJoin = nil

                reverseJoin = (TW_Packages.packageRef = TW_Package.primaryKey)

                shouldUseFilteredRead = false

                rowMapKeyConstructorBlock = nil

                controlsTables = true

                isExclusive = false

                linkFields = an Array[1]

                proxyAction = nil

                orderBy = an OrderedCollection[1]

                shouldWriteTheOrderField = false

                keyMapping = a Glorp.DirectMapping(key)

                valueMapping = nil

                associationDescriptor = a Glorp.Descriptor(Association)

Arguments:

                anObject = StoreBundle(DCL- ZA Eft Processing,9001)

                aRowMap = a Glorp.RowMap

Temporaries:

                target = a Dictionary[1]

                mementoizedTarget = a Dictionary[1]

Context PC = 38

----------------------------------------------------------------------

optimized [] in Glorp.Descriptor>>createRowsFor:in:

Receiver:

                an UndefinedObject

Arguments:

                each = a Glorp.BasicDictionaryMapping(packages)

Temporaries:

                .anObject = StoreBundle(DCL- ZA Eft Processing,9001)

                .aRowMap = a Glorp.RowMap

Context PC = 9

----------------------------------------------------------------------

Array(SequenceableCollection)>>do:

Receiver:

                an Array

Arguments:

                aBlock = BlockClosure [] in Glorp.Descriptor>>createRowsFor:in:

Temporaries:

                i = 18

Context PC = 19

----------------------------------------------------------------------

Glorp.Descriptor>>createRowsFor:in:

Receiver:

                a Glorp.Descriptor

Instance Variables:

                tables = an OrderedCollection[1]

                mappings = an Array[20]

                system = a Store.Glorp.Store74DescriptorSystem

                mappedFields = an OrderedCollection[9]

                cachePolicy = nil

                typeResolver = a Glorp.IdentityTypeResolver

                mapsPrimaryKeys = true

                keyFields = nil

                classModel = ~~StoreBundle~~

                multipleTableJoin = an OrderedCollection[0]

                imaginaryTableReplacements = nil

                mappingsForFields = an IdentityDictionary[12]

Arguments:

                anObject = StoreBundle(DCL- ZA Eft Processing,9001)

                aRowMap = a Glorp.RowMap

Temporaries:

                row = nil

Context PC = 22

----------------------------------------------------------------------

Glorp.GlorpSession>>createRowsFor:in:

Receiver:

                a Glorp.GlorpSession

Instance Variables:

                system = a Store.Glorp.Store74DescriptorSystem

                currentUnitOfWork = a Glorp.UnitOfWork

                cache = a Glorp.CacheManager

                accessor = a Glorp.VWDatabaseAccessor

                applicationData = nil

                reaper = nil

                errorAction = nil

                modificationTracker = nil

Arguments:

                anObject = StoreBundle(DCL- ZA Eft Processing,9001)

                rowMap = a Glorp.RowMap

Temporaries:

                descriptor = a Glorp.Descriptor(Store.Glorp.StoreBundle)

Context PC = 15

----------------------------------------------------------------------

optimized [] in Glorp.UnitOfWork>>createRowMapFor:

Receiver:

                an UndefinedObject

Arguments:

                each = StoreBundle(DCL- ZA Eft Processing,9001)

Temporaries:

                .self = a Glorp.UnitOfWork

                .localRowMap = a Glorp.RowMap

Context PC = 8

----------------------------------------------------------------------

IdentitySet(Set)>>do:

Receiver:

                an IdentitySet

Instance Variables:

                tally = 23475

Arguments:

                aBlock = BlockClosure [] in Glorp.UnitOfWork>>createRowMapFor:

Temporaries:

                index = 31616

                elem = StoreBundle(DCL- ZA Eft Processing,9001)

Context PC = 31

----------------------------------------------------------------------

Glorp.UnitOfWork>>createRowMapFor:

Receiver:

                an Glorp.UnitOfWork

Instance Variables:

                session = a Glorp.GlorpSession

                transaction = a Glorp.ObjectTransaction

                deletedObjects = an IdentitySet[0]

                newObjects = an IdentitySet[2]

                rowMap = a Glorp.RowMap

                commitPlan = an OrderedCollection[0]

                deletePlan = an OrderedCollection[0]

                rowsByTable = nil

                succeeded = nil

                linkRowsForUpdate = nil

                commitPhase = #building

                deleting = an IdentitySet[0]

Arguments:

                objects = an IdentitySet[23475]

Temporaries:

                localRowMap = a Glorp.RowMap

Context PC = 14

----------------------------------------------------------------------

Glorp.UnitOfWork>>createRowsForPartialWrites

Receiver:

                an Glorp.UnitOfWork

Instance Variables:

                session = a Glorp.GlorpSession

                transaction = a Glorp.ObjectTransaction

                deletedObjects = an IdentitySet[0]

                newObjects = an IdentitySet[2]

                rowMap = a Glorp.RowMap

                commitPlan = an OrderedCollection[0]

                deletePlan = an OrderedCollection[0]

                rowsByTable = nil

                succeeded = nil

                linkRowsForUpdate = nil

                commitPhase = #building

                deleting = an IdentitySet[0]

Temporaries:

                registeredObjectsRowMap = nil

                mementoObjectsRowMap = nil

Context PC = 7

----------------------------------------------------------------------

Glorp.UnitOfWork>>createRows

Receiver:

                an Glorp.UnitOfWork

Instance Variables:

                session = a Glorp.GlorpSession

                transaction = a Glorp.ObjectTransaction

                deletedObjects = an IdentitySet[0]

                newObjects = an IdentitySet[2]

                rowMap = a Glorp.RowMap

                commitPlan = an OrderedCollection[0]

                deletePlan = an OrderedCollection[0]

                rowsByTable = nil

                succeeded = nil

                linkRowsForUpdate = nil

                commitPhase = #building

                deleting = an IdentitySet[0]

Context PC = 4

----------------------------------------------------------------------

Glorp.UnitOfWork>>preCommit

Receiver:

                an Glorp.UnitOfWork

Instance Variables:

                session = a Glorp.GlorpSession

                transaction = a Glorp.ObjectTransaction

                deletedObjects = an IdentitySet[0]

                newObjects = an IdentitySet[2]

                rowMap = a Glorp.RowMap

                commitPlan = an OrderedCollection[0]

                deletePlan = an OrderedCollection[0]

                rowsByTable = nil

                succeeded = nil

                linkRowsForUpdate = nil

                commitPhase = #building

                deleting = an IdentitySet[0]

Context PC = 14

----------------------------------------------------------------------

optimized [] in Glorp.UnitOfWork>>commit

Receiver:

                an UndefinedObject

Temporaries:

                .self = a Glorp.UnitOfWork

Context PC = 6

----------------------------------------------------------------------

BlockClosure>>ifCurtailed:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in Glorp.UnitOfWork>>commit

                outerContext = nil

                copiedValues = a Glorp.UnitOfWork

Arguments:

                terminationBlock = BlockClosure [] in Glorp.UnitOfWork>>commit

Context PC = 4

----------------------------------------------------------------------

Glorp.UnitOfWork>>commit

Receiver:

                an Glorp.UnitOfWork

Instance Variables:

                session = a Glorp.GlorpSession

                transaction = a Glorp.ObjectTransaction

                deletedObjects = an IdentitySet[0]

                newObjects = an IdentitySet[2]

                rowMap = a Glorp.RowMap

                commitPlan = an OrderedCollection[0]

                deletePlan = an OrderedCollection[0]

                rowsByTable = nil

                succeeded = nil

                linkRowsForUpdate = nil

                commitPhase = #building

                deleting = an IdentitySet[0]

Context PC = 11

----------------------------------------------------------------------

optimized [] in Glorp.GlorpSession>>commitUnitOfWork

Receiver:

                an UndefinedObject

Temporaries:

                .self = a Glorp.GlorpSession

Context PC = 10

----------------------------------------------------------------------

BlockClosure>>ifCurtailed:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in Glorp.GlorpSession>>commitUnitOfWork

                outerContext = nil

                copiedValues = a Glorp.GlorpSession

Arguments:

                terminationBlock = BlockClosure [] in Glorp.GlorpSession>>commitUnitOfWork

Context PC = 4

----------------------------------------------------------------------

Glorp.GlorpSession>>commitUnitOfWork

Receiver:

                a Glorp.GlorpSession

Instance Variables:

                system = a Store.Glorp.Store74DescriptorSystem

                currentUnitOfWork = a Glorp.UnitOfWork

                cache = a Glorp.CacheManager

                accessor = a Glorp.VWDatabaseAccessor

                applicationData = nil

                reaper = nil

                errorAction = nil

                modificationTracker = nil

Context PC = 11

----------------------------------------------------------------------

optimized [] in [] in Glorp.GlorpSession>>transact:

Receiver:

                an UndefinedObject

Temporaries:

                alreadyInTransaction = false

                alreadyInUnitOfWork = false

                result = StoreBundle(DCL- Raven,9001)

                .self = a Glorp.GlorpSession

                .aBlock = BlockClosure [] in [] in Store.Glorp.StorePundleWriter>>addBlessing:

Context PC = 59

----------------------------------------------------------------------

BlockClosure>>ifCurtailed:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in [] in Glorp.GlorpSession>>transact:

                outerContext = nil

                copiedValues = an Array[3]

Arguments:

                terminationBlock = BlockClosure [] in [] in Glorp.GlorpSession>>transact:

Context PC = 4

----------------------------------------------------------------------

optimized [] in Glorp.GlorpSession>>transact:

Receiver:

                an UndefinedObject

Temporaries:

                alreadyInTransaction = false

                alreadyInUnitOfWork = false

                result = StoreBundle(DCL- Raven,9001)

                .self = a Glorp.GlorpSession

                .aBlock = BlockClosure [] in [] in Store.Glorp.StorePundleWriter>>addBlessing:

Context PC = 16

----------------------------------------------------------------------

BlockClosure>>ifCurtailed:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in Glorp.GlorpSession>>transact:

                outerContext = nil

                copiedValues = an Array[3]

Arguments:

                terminationBlock = BlockClosure [] in Glorp.GlorpSession>>transact:

Context PC = 4

----------------------------------------------------------------------

Glorp.GlorpSession>>transact:

Receiver:

                a Glorp.GlorpSession

Instance Variables:

                system = a Store.Glorp.Store74DescriptorSystem

                currentUnitOfWork = a Glorp.UnitOfWork

                cache = a Glorp.CacheManager

                accessor = a Glorp.VWDatabaseAccessor

                applicationData = nil

                reaper = nil

                errorAction = nil

                modificationTracker = nil

Arguments:

                aBlock = BlockClosure [] in [] in Store.Glorp.StorePundleWriter>>addBlessing:

Temporaries:

                alreadyInTransaction = false

                alreadyInUnitOfWork = false

                result = StoreBundle(DCL- Raven,9001)

Context PC = 17

----------------------------------------------------------------------

optimized [] in Store.Glorp.StorePundleWriter>>addBlessing:

Receiver:

                an UndefinedObject

Temporaries:

                .self = a Store.Glorp.StorePundleWriter

                .aStoreBlessing = --- Blessed: Integrated --- By: boris --- On 10 June 2011 14:57:05

Integrated by Merge Tool into version 9000.10.

Context PC = 16

----------------------------------------------------------------------

BlockClosure>>ensure:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in Store.Glorp.StorePundleWriter>>addBlessing:

                outerContext = nil

                copiedValues = an Array[2]

Arguments:

                aBlock = BlockClosure [] in Store.Glorp.StorePundleWriter>>addBlessing:

Temporaries:

                result = nil

Context PC = 4

----------------------------------------------------------------------

Store.Glorp.StorePundleWriter>>addBlessing:

Receiver:

                a Store.Glorp.StorePundleWriter

Instance Variables:

                pundle = StoreBundle(DCL- Raven,9001)

                newPundle = nil

                previousVersionInTargetDatabase = an Object

                targetSession = a Glorp.GlorpSession

                preWriteAction = nil

                splitPundles = false

                notificationQueue = nil

Arguments:

                aStoreBlessing = --- Blessed: Integrated --- By: boris --- On 10 June 2011 14:57:05

Integrated by Merge Tool into version 9000.10.

Context PC = 17

----------------------------------------------------------------------

optimized [] in Store.PublishSpecification>>publishBlessing

Receiver:

                an UndefinedObject

Temporaries:

                .self = a Store.PublishSpecification

                newBlessing = --- Blessed: Integrated --- By: boris --- On 10 June 2011 14:57:05

Integrated by Merge Tool into version 9000.10.

                previous = {StoreBundle(DCL- Raven,9000)}

Context PC = 54

----------------------------------------------------------------------

Store.PublishSpecification>>publishBlessing

Receiver:

                a Store.PublishSpecification

Instance Variables:

                publish = true

                modified = false

                comment = 'Integrated by Merge Tool into version 9000.10.'

                level = 0

                version = '9001'

                parentVersion = '9001'

                description = nil

                blessing = 50

                object = StoreBundle(DCL- Raven,9001)

                pundleModel = {DCL- Raven}

                mergeData = nil

                binarySave = false

                parcelSave = false

                bundleStructure = false

                databaseLinks = false

                parcelDirectory = ''

                parcelRepublish = false

                parcelBackup = false

                parcelOverwrite = false

                parcelSaveSource = true

                parcelHideSource = false

                parcelPadded = false

                publisher = a Store.Glorp.StorePundleWriter

                parcelVersionString = nil

Temporaries:

                newBlessing = --- Blessed: Integrated --- By: boris --- On 10 June 2011 14:57:05

Integrated by Merge Tool into version 9000.10.

                previous = {StoreBundle(DCL- Raven,9000)}

                session = a Glorp.GlorpSession

Context PC = 40

----------------------------------------------------------------------

Store.Glorp.StoreBundle(Store.Glorp.StorePundle)>>addBlessingLevel:andComment:

Receiver:

                a Store.Glorp.StoreBundle

Instance Variables:

                primaryKey = 72153

                trace = StoreBundle(DCL- Raven,9000)

                username = 'warren'

                timestamp = 9 June 2011 21:56:28

                name = 'DCL- Raven'

                comment = {uninstantiated StoreBlob}

                properties = a Dictionary[2]

                propertiesBlob = {uninstantiated StoreBlob}

                propertiesRecordDictionary = {Dictionary ('notice' -> StoreProperty(notice) 'parcelName' -> StoreProperty(parcelName) )}

                version = '9001'

                blessings = {SortedCollection (--- Blessed: Integrated --- By: boris --- On 10 June 2011 14:57:05

Integrated by Merge Tool into version 9000.10.

--- Blessed: Development --- By: warren --- On 9 June 2011 21:56:18

--- Blessed: Unknown --- By: boris --- On 10 June 2011 14:13:28

)}

                currentBlessingLevel = 50

                storeModel = {DCL- Raven}

                session = a Glorp.GlorpSession

                versionless = {uninstantiated StoreVersionlessBundle}

                bundles = {Dictionary (1 -> StoreBundle(DCL- Shared Domain and UI,9001) 2 -> StoreBundle(DCL- Accounting,8976) 3 -> StoreBundle(DCL- Eft Processing,8998) 4 -> StoreBundle(DCL- Cheque Processing,8936) 6 -> StoreBundle(DCL- AU Eft Processing,8621) 7 -> StoreBundle(DCL- AT Eft Processing,8012) 8 -> StoreBundle(DCL- Bacs Processing,8936) 9 -> StoreBundle(DCL- BE Eft Processing,8397) 10 -> StoreBundle(DCL- CA Eft Processing,8936) 11 -> StoreBundle(DCL- CH Eft Processing,8936) 12 -> StoreBundle(DCL- DE Eft Processing,8012) 13 -> StoreBundle(DCL- ES Eft Processing,8397) 14 -> StoreBundle(DCL- Esp Processing,8960) 15 -> StoreBundle(DCL- FI Eft Processing,8398) 16 -> StoreBundle(DCL- FR Eft Processing,8397) 17 -> StoreBundle(DCL- Generic Eft Processing,8924) 18 -> StoreBundle(DCL- IE Eft Processing,8012) 19 -> StoreBundle(DCL- INR Eft Processing,8871) 20 -> StoreBundle(DCL- NL Eft Processing,8187) 21 -> StoreBundle(DCL- NZ Eft Processing,8580) 22 -> StoreBundle(DCL- PL Eft Processing,8924.1) 23 -> StoreBundle(DCL- US ACH Processing,8936) 24 -> StoreBundle(DCL- US Eft Processing,8936) 26 -> StoreBundle(DCL- Wire Processing,8883) 27 -> StoreBundle(DCL- Cheque Issue,8970) 28 -> StoreBundle(DCL- Card Issue,8933) 29 -> StoreBundle(DCL- Card Processing,9000) 30 -> StoreBundle(DCL- ReportedPayment Processing,8944) 31 -> StoreBundle(DCL- System Configuration,8974) 32 -> StoreBundle(DCL- Client Management,8990) 35 -> StoreBundle(DCL- FX Processing,8976) 36 -> StoreBundle(DCL- SWIFT Processing,8953) 37 -> StoreBundle(DCL- ZA Eft Processing,9001) )}

                packages = {Dictionary (5 -> StorePackage(DCL- Cheque Reconciliation,8012) 25 -> StorePackage(DCL- RU Eft Processing,8810) 33 -> StorePackage(DCL- IRD Generation,8012) 34 -> StorePackage(DCL- Client Specific,8012) )}

                files = {uninstantiated collection of StoreFile}

Arguments:

                anInteger = 50

                aString = 'Integrated by Merge Tool into version 9000.10.'

Temporaries:

                publishSpecification = a Store.PublishSpecification

Context PC = 19

----------------------------------------------------------------------

optimized [] in Store.Glorp.MergeTool>>updateIntegrationBlessingsFor:

Receiver:

                an UndefinedObject

Arguments:

                eachPundleVersion = StoreBundle(DCL- Raven,9001)

Temporaries:

                targetPundle = a Store.PublishSpecification

                comment = 'Integrated by Merge Tool into version 9000.10.'

                .aCollectionOfStorePundle = a Store.PublishSpecificationList[14]

Context PC = 56

----------------------------------------------------------------------

Set>>do:

Receiver:

                a Set

Instance Variables:

                tally = 38

Arguments:

                aBlock = BlockClosure [] in Store.Glorp.MergeTool>>updateIntegrationBlessingsFor:

Temporaries:

                index = 8

                elem = StoreBundle(DCL- Raven,9001)

Context PC = 31

----------------------------------------------------------------------

Store.Glorp.MergeTool>>updateIntegrationBlessingsFor:

Receiver:

                a Store.Glorp.MergeTool

Instance Variables:

                dependents = a ScheduledWindow 101

                builder = an UIBuilder

                uiSession = a ControlManager

                eventHandlers = nil

                resolutionManager = a Store.Glorp.ResolutionManager

                packageList = a MultiSelectionInList

                bundles = an OrderedCollection[44]

                displayText = a ValueHolder on: Text for 'validZA_ABSAFile

                ^

'' '''

                conflictText = a ValueHolder on: Text for '*** Not in image ***'

                textMode = #external

                show = #all

                selectedResolution = a Store.Glorp.MethodChangeResolver

                conflictType = #conflictsWithImage

                nameStyle = #showShortNames

                resolutionListTabs = a SelectionInList

                currentResolutionsPane = a Store.ResolutionsTreePane

                autoSelectResolution = true

                toolbarMenuHolder = a ValueHolder on: a Menu

                compareWithHolder = a ValueHolder on: #conflictsWithImage

                differencesType = #showCodeDifferences

                databaseSession = a Glorp.GlorpSession

                conflictProtocol = a ValueHolder on: Text for ' '

                selectionProtocol = a ValueHolder on: Text for ' Protocol: testing'

Arguments:

                aCollectionOfStorePundle = a Store.PublishSpecificationList[14]

Context PC = 9

----------------------------------------------------------------------

optimized [] in Store.Glorp.MergeTool>>publishModified

Receiver:

                an UndefinedObject

Arguments:

                pundles = a Store.PublishSpecificationList[14]

Temporaries:

                .self = a Store.Glorp.MergeTool

Context PC = 12

----------------------------------------------------------------------

optimized [] in [] in Store.PublishMergeDialog>>accept

Receiver:

                an UndefinedObject

Temporaries:

                .self = a Store.PublishMergeDialog

Context PC = 11

----------------------------------------------------------------------

BlockClosure>>cull:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in [] in Store.PublishMergeDialog>>accept

                outerContext = nil

                copiedValues = a Store.PublishMergeDialog

Arguments:

                anObject = BlockClosure [] in Store.Glorp.MergeTool>>publishModified

Context PC = 10

----------------------------------------------------------------------

BlockClosure(Object)>>ifNotNil:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in Store.Glorp.MergeTool>>publishModified

                outerContext = nil

                copiedValues = a Store.Glorp.MergeTool

Arguments:

                aBlock = BlockClosure [] in [] in Store.PublishMergeDialog>>accept

Context PC = 4

----------------------------------------------------------------------

optimized [] in Store.PublishMergeDialog>>accept

Receiver:

                an UndefinedObject

Temporaries:

                .self = a Store.PublishMergeDialog

Context PC = 16

----------------------------------------------------------------------

optimized [] in Store.StoreProgressOverlay class>>subsumeAll:while:

Receiver:

                an UndefinedObject

Temporaries:

                .windowsToSubsume = an Array[1]

                .self = Store.StoreProgressOverlay

                overlays = an Array[1]

                .aBlock = BlockClosure [] in Store.PublishMergeDialog>>accept

Context PC = 14

----------------------------------------------------------------------

BlockClosure>>ensure:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in Store.StoreProgressOverlay class>>subsumeAll:while:

                outerContext = nil

                copiedValues = an Array[4]

Arguments:

                aBlock = BlockClosure [] in Store.StoreProgressOverlay class>>subsumeAll:while:

Temporaries:

                result = nil

Context PC = 4

----------------------------------------------------------------------

Store.StoreProgressOverlay class>>subsumeAll:while:

Receiver:

                a Store.StoreProgressOverlay class

Instance Variables:

                superclass = Panel

                methodDict = a MethodDictionary[12]

                format = 16394

                subclasses = nil

                instanceVariables = an Array[3]

                organization = ('initialize-release' #addProgressView #initializeLayoutAlgorithm #restoreOriginal #subsume:)

('private' #backdrop #dropdownGradient #dropdownRectangle #progressView #regularView #washOutBackdropImage)

('displaying' #displayChild:on: #displayDropdownOn:)

                name = #StoreProgressOverlay

                classPool = a NameSpaceOfClass[0]

                environment = a NameSpace[282]

Arguments:

                aWindowCollection = an Array[1]

                aBlock = BlockClosure [] in Store.PublishMergeDialog>>accept

Temporaries:

                overlays = an Array[1]

                windowsToSubsume = an Array[1]

Context PC = 22

----------------------------------------------------------------------

Store.StoreProgressOverlay class>>subsume:while:

Receiver:

                a Store.StoreProgressOverlay class

Instance Variables:

                superclass = Panel

                methodDict = a MethodDictionary[12]

                format = 16394

                subclasses = nil

                instanceVariables = an Array[3]

                organization = ('initialize-release' #addProgressView #initializeLayoutAlgorithm #restoreOriginal #subsume:)

('private' #backdrop #dropdownGradient #dropdownRectangle #progressView #regularView #washOutBackdropImage)

('displaying' #displayChild:on: #displayDropdownOn:)

                name = #StoreProgressOverlay

                classPool = a NameSpaceOfClass[0]

                environment = a NameSpace[282]

Arguments:

                aWindowOrNil = a ScheduledWindow 170

                aBlock = BlockClosure [] in Store.PublishMergeDialog>>accept

Context PC = 9

----------------------------------------------------------------------

Store.PublishMergeDialog>>accept

Receiver:

                a Store.PublishMergeDialog

Instance Variables:

                dependents = a ScheduledWindow 170

                builder = an UIBuilder

                uiSession = a ControlManager

                eventHandlers = nil

                list = a SelectionInList

                disturbed = a ValueHolder on: false

                subBuilder = an UIBuilder

                items = a SelectionInList

                blessingLevel = a ValueHolder on: 60

                blessingComment = a ValueHolder on: 'Merged by Merge Tool

Image version:

                Dev- Raven(9000.9,boris)

Branch versions integrated:

                Dev- Raven(9002,warren)

Branch history:

Dev- Raven(9002,warren)

Blessed by: warren at level: Development on: 9 June 2011 19:23:55

Dev- Raven(9001,warren)

Blessed by: warren at level: Tested on: 9 June 2011 18:40:39

                Passed all tests.

Blessed by: warren at level: Development on: 9 June 2011 17:56:18

Dev- Raven(9000,boris)

Blessed by: boris at level: Development on: 9 June 2011 11:52:32

                - magic 510000 should be MC'

                publish = a ValueHolder on: true

                versionString = a ValueHolder on: '9000.10'

                binarySave = a ValueHolder on: false

                parcelSave = a ValueHolder on: false

                bundleStructure = a ValueHolder on: false

                databaseLinks = a ValueHolder on: false

                parcelDirectory = a ValueHolder on: 'Dev- Raven'

                parcelSaveSource = a ValueHolder on: true

                parcelHideSource = a ValueHolder on: false

                parcelPadded = a ValueHolder on: false

                parcelRepublish = a ValueHolder on: false

                parcelBackup = a ValueHolder on: false

                parcelOverwrite = a ValueHolder on: false

                parcelWarningMessage = nil

                labelDict = a Dictionary[14]

                offsets = an Array[4]

                callBackBlock = BlockClosure [] in Store.Glorp.MergeTool>>publishModified

                retry = false

                files = a SelectionInList

                publishFile = nil

                parcelVersionString = a ValueHolder on: '9000.10'

                pundleModel = nil

Temporaries:

                navigatorClass = nil

Context PC = 41

----------------------------------------------------------------------

optimized [] in ApplicationModel>>actionFor:

Receiver:

                an UndefinedObject

Temporaries:

                .self = a Store.PublishMergeDialog

                .aKey = #accept

Context PC = 7

----------------------------------------------------------------------

optimized [] in ActionButtonSpec>>typeConvert:

Receiver:

                an UndefinedObject

Arguments:

                b = a ValueHolder on: nil

                v = true

Temporaries:

                .aValue = BlockClosure [] in ApplicationModel>>actionFor:

Context PC = 5

----------------------------------------------------------------------

PluggableAdaptor>>setValue:

Receiver:

                a PluggableAdaptor

Instance Variables:

                dependents = a WinXPActionButtonView

                model = a ValueHolder on: nil

                getBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:

                putBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:

                updateBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:

Arguments:

                newValue = true

Context PC = 6

----------------------------------------------------------------------

PluggableAdaptor(ValueModel)>>value:

Receiver:

                a PluggableAdaptor

Instance Variables:

                dependents = a WinXPActionButtonView

                model = a ValueHolder on: nil

                getBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:

                putBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:

                updateBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:

Arguments:

                newValue = true

Context PC = 5

----------------------------------------------------------------------

WinXPTriggerButtonController(TriggerButtonController)>>pressAction

Receiver:

                a WinXPTriggerButtonController

Instance Variables:

                model = a PluggableAdaptor

                view = a WinXPActionButtonView

                sensor = a TranslatingSensor

                keyboardHook = nil

                dispatcher = nil

Context PC = 17

----------------------------------------------------------------------

TriggerButtonTracker(BasicButtonTracker)>>finishSelectionFor:

Receiver:

                a TriggerButtonTracker

Instance Variables:

                controller = a WinXPTriggerButtonController

                inside = true

Arguments:

                aPoint = 17 @ 9

Context PC = 8

----------------------------------------------------------------------

TriggerButtonTracker>>finishSelectionFor:

Receiver:

                a TriggerButtonTracker

Instance Variables:

                controller = a WinXPTriggerButtonController

                inside = true

Arguments:

                aPoint = 17 @ 9

Context PC = 11

----------------------------------------------------------------------

TriggerButtonTracker(SelectionTracker)>>redButtonReleasedEvent:

Receiver:

                a TriggerButtonTracker

Instance Variables:

                controller = a WinXPTriggerButtonController

                inside = true

Arguments:

                aMouseButtonEvent = a RedButtonReleasedEvent

Context PC = 13

----------------------------------------------------------------------

RedButtonReleasedEvent>>dispatchTo:

Receiver:

                a RedButtonReleasedEvent

Instance Variables:

                time = 6502418

                initiator = an EventDispatcher

                window = a ScheduledWindow 170

                state = 0

                x = 302

                y = 524

                gx = 1276

                gy = 1049

                buttonNumber = 1

Arguments:

                anObject = a TriggerButtonTracker

Context PC = 4

----------------------------------------------------------------------

TriggerButtonTracker(SelectionTracker)>>handleEvent:

Receiver:

                a TriggerButtonTracker

Instance Variables:

                controller = a WinXPTriggerButtonController

                inside = true

Arguments:

                anEvent = a RedButtonReleasedEvent

Context PC = 4

----------------------------------------------------------------------

EventDispatcher>>dispatch:to:

Receiver:

                an EventDispatcher

Instance Variables:

                windowController = an ApplicationStandardSystemController

                currentMouseConsumer = nil

                grabbingMouse = false

                lastControlObject = nil

                trapList = nil

                state = nil

                repairDamageWhenDebugging = true

                flushQueueAfterError = true

                distributeEventsWhenDebugging = true

                dragDropInProgress = false

                dragDropTracker = nil

                dispatchUnknownEvents = false

Arguments:

                event = a RedButtonReleasedEvent

                object = a TriggerButtonTracker

Temporaries:

                tmp = nil

Context PC = 10

----------------------------------------------------------------------

[] in EventDispatcher>>dispatchEvent:

Receiver:

                an EventDispatcher

Instance Variables:

                windowController = an ApplicationStandardSystemController

                currentMouseConsumer = nil

                grabbingMouse = false

                lastControlObject = nil

                trapList = nil

                state = nil

                repairDamageWhenDebugging = true

                flushQueueAfterError = true

                distributeEventsWhenDebugging = true

                dragDropInProgress = false

                dragDropTracker = nil

                dispatchUnknownEvents = false

Temporaries:

                .self = an EventDispatcher

                .event = a RedButtonReleasedEvent

Context PC = 9

----------------------------------------------------------------------

BlockClosure>>on:do:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in EventDispatcher>>dispatchEvent:

                outerContext = EventDispatcher>>dispatchEvent:

                copiedValues = an Array[2]

Arguments:

                anExceptionSelector = ClosedWindowNotification

                handlerBlock = BlockClosure [] in EventDispatcher>>dispatchEvent:

Context PC = 18

----------------------------------------------------------------------

EventDispatcher>>dispatchEvent:

Receiver:

                an EventDispatcher

Instance Variables:

                windowController = an ApplicationStandardSystemController

                currentMouseConsumer = nil

                grabbingMouse = false

                lastControlObject = nil

                trapList = nil

                state = nil

                repairDamageWhenDebugging = true

                flushQueueAfterError = true

                distributeEventsWhenDebugging = true

                dragDropInProgress = false

                dragDropTracker = nil

                dispatchUnknownEvents = false

Arguments:

                event = a RedButtonReleasedEvent

Temporaries:

                objectWantingControl = nil

                targetKeyboardProcessor = nil

Context PC = 68

----------------------------------------------------------------------

RedButtonReleasedEvent(Event)>>dispatch

Receiver:

                a RedButtonReleasedEvent

Instance Variables:

                time = 6502418

                initiator = an EventDispatcher

                window = a ScheduledWindow 170

                state = 0

                x = 302

                y = 524

                gx = 1276

                gy = 1049

                buttonNumber = 1

Context PC = 16

----------------------------------------------------------------------

RedButtonReleasedEvent(Event)>>dispatchForWindowManager:

Receiver:

                a RedButtonReleasedEvent

Instance Variables:

                time = 6502418

                initiator = an EventDispatcher

                window = a ScheduledWindow 170

                state = 0

                x = 302

                y = 524

                gx = 1276

                gy = 1049

                buttonNumber = 1

Arguments:

                aWinMgr = a WindowManager

Context PC = 4

----------------------------------------------------------------------

optimized [] in WindowManager>>safelyDispatchForWindowManager:

Receiver:

                an UndefinedObject

Temporaries:

                .event = a RedButtonReleasedEvent

                .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>>waitIfCurtailedSignal

                dontFilterEvents = false

Arguments:

                event = a RedButtonReleasedEvent

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>>waitIfCurtailedSignal

                dontFilterEvents = false

Temporaries:

                event = a RedButtonReleasedEvent

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

Looks like some issue with the blessings, the merged version itself seems to have published okay, but it’s still some cause for concern, I don’t like running into errors during publishing.

-Boris

I just ran into the below when trying to publish results of the first merge in 7.8, any ideas?

Halt encountered.

Glorp.RowMap(Object)>>halt

Glorp.RowMap>>subMapForTable:withKey:

Glorp.RowMap>>findOrAddRowForTable:withKey:

Glorp.RowMap>>unifyField:key:withField:key:

Glorp.Join>>mapFromSource:andTarget:intoRowsIn:

Glorp.BasicDictionaryMapping(Glorp.RelationshipMapping)>>mapOneFromObject:toTarget:intermediate:atPosition:puttingRowsIn:

optimized [] in Glorp.RelationshipMapping>>mapFromObject:toTarget:puttingRowsIn:

optimized [] in [] in Glorp.GlorpAttributeModel>>loopOver:doing:

BlockClosure>>cull:

Store.Glorp.StorePackage(Object)>>ifNotNil:

Glorp.Proxy(Glorp.AbstractProxy)>>doesNotUnderstand:

optimized [] in Glorp.GlorpAttributeModel>>loopOver:doing:

Dictionary>>keysAndValuesDo:

Glorp.GlorpAttributeModel>>loopOver:doing:

Glorp.BasicDictionaryMapping(Glorp.RelationshipMapping)>>mapFromObject:toTarget:puttingRowsIn:

Glorp.BasicDictionaryMapping(Glorp.RelationshipMapping)>>mapFromObject:intoRowsIn:

optimized [] in Glorp.Descriptor>>createRowsFor:in:

Array(SequenceableCollection)>>do:

Glorp.Descriptor>>createRowsFor:in:

Glorp.GlorpSession>>createRowsFor:in:

optimized [] in Glorp.UnitOfWork>>createRowMapFor:

IdentitySet(Set)>>do:

Glorp.UnitOfWork>>createRowMapFor:

Glorp.UnitOfWork>>createRowsForPartialWrites

Glorp.UnitOfWork>>createRows

Glorp.UnitOfWork>>preCommit

optimized [] in Glorp.UnitOfWork>>commit

BlockClosure>>ifCurtailed:

Glorp.UnitOfWork>>commit

optimized [] in Glorp.GlorpSession>>commitUnitOfWork

BlockClosure>>ifCurtailed:

Glorp.GlorpSession>>commitUnitOfWork

optimized [] in [] in Glorp.GlorpSession>>transact:

BlockClosure>>ifCurtailed:

optimized [] in Glorp.GlorpSession>>transact:

BlockClosure>>ifCurtailed:

Glorp.GlorpSession>>transact:

optimized [] in Store.Glorp.StorePundleWriter>>addBlessing:

BlockClosure>>ensure:

Store.Glorp.StorePundleWriter>>addBlessing:

optimized [] in Store.PublishSpecification>>publishBlessing

Store.PublishSpecification>>publishBlessing

Store.Glorp.StoreBundle(Store.Glorp.StorePundle)>>addBlessingLevel:andComment:

optimized [] in Store.Glorp.MergeTool>>updateIntegrationBlessingsFor:

Set>>do:

Store.Glorp.MergeTool>>updateIntegrationBlessingsFor:

optimized [] in Store.Glorp.MergeTool>>publishModified

optimized [] in [] in Store.PublishMergeDialog>>accept

BlockClosure>>cull:

BlockClosure(Object)>>ifNotNil:

optimized [] in Store.PublishMergeDialog>>accept

optimized [] in Store.StoreProgressOverlay class>>subsumeAll:while:

BlockClosure>>ensure:

Store.StoreProgressOverlay class>>subsumeAll:while:

Store.StoreProgressOverlay class>>subsume:while:

Store.PublishMergeDialog>>accept

optimized [] in ApplicationModel>>actionFor:

optimized [] in ActionButtonSpec>>typeConvert:

PluggableAdaptor>>setValue:

PluggableAdaptor(ValueModel)>>value:

WinXPTriggerButtonController(TriggerButtonController)>>pressAction

TriggerButtonTracker(BasicButtonTracker)>>finishSelectionFor:

TriggerButtonTracker>>finishSelectionFor:

TriggerButtonTracker(SelectionTracker)>>redButtonReleasedEvent:

RedButtonReleasedEvent>>dispatchTo:

TriggerButtonTracker(SelectionTracker)>>handleEvent:

EventDispatcher>>dispatch:to:

[] in EventDispatcher>>dispatchEvent:

BlockClosure>>on:do:

EventDispatcher>>dispatchEvent:

RedButtonReleasedEvent(Event)>>dispatch

RedButtonReleasedEvent(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:

----------------------------------------------------------------------

Glorp.RowMap(Object)>>halt

Receiver:

                a Glorp.RowMap

Instance Variables:

                rowDictionary = an IdentityDictionary[16]

                hasDeletions = false

Context PC = 12

----------------------------------------------------------------------

Glorp.RowMap>>subMapForTable:withKey:

Receiver:

                a Glorp.RowMap

Instance Variables:

                rowDictionary = an IdentityDictionary[16]

                hasDeletions = false

Arguments:

                aTable = a Store.Glorp.StoreDatabaseTable(TW_Package)

                anObject = {StorePackage(DCL- ZA Eft Submission,9001)}

Context PC = 7

----------------------------------------------------------------------

Glorp.RowMap>>findOrAddRowForTable:withKey:

Receiver:

                a Glorp.RowMap

Instance Variables:

                rowDictionary = an IdentityDictionary[16]

                hasDeletions = false

Arguments:

                aTable = a Store.Glorp.StoreDatabaseTable(TW_Package)

                aKey = {StorePackage(DCL- ZA Eft Submission,9001)}

Temporaries:

                submap = nil

                row = nil

                newRow = nil

Context PC = 6

----------------------------------------------------------------------

Glorp.RowMap>>unifyField:key:withField:key:

Receiver:

                a Glorp.RowMap

Instance Variables:

                rowDictionary = an IdentityDictionary[16]

                hasDeletions = false

Arguments:

                eachSourceField = Field(TW_Packages.packageRef)

                sourceObject = a Glorp.RowMapKey

                eachTargetField = Field(TW_Package.primaryKey)

                targetObject = {StorePackage(DCL- ZA Eft Submission,9001)}

Temporaries:

                sourceRow = a Glorp.DatabaseRow(TW_Packages)

    Field(TW_Packages.bundleRef)->72152

    Field(TW_Packages.expressionID)->an Object

    Field(TW_Packages.seqNumber)->an Object

    Field(TW_Packages.packageRef)->an Object

                targetRow = nil

Context PC = 14

----------------------------------------------------------------------

Glorp.Join>>mapFromSource:andTarget:intoRowsIn:

Receiver:

                a Glorp.Join

Instance Variables:

                sources = an OrderedCollection[1]

                targets = an OrderedCollection[1]

                base = Base(nil)

                outerJoin = false

                owningMapping = nil

Arguments:

                sourceObject = a Glorp.RowMapKey

                targetObject = {StorePackage(DCL- ZA Eft Submission,9001)}

                aRowMap = a Glorp.RowMap

Temporaries:

                i = 1

                eachSourceField = Field(TW_Packages.packageRef)

                eachTargetField = Field(TW_Package.primaryKey)

Context PC = 52

----------------------------------------------------------------------

Glorp.BasicDictionaryMapping(Glorp.RelationshipMapping)>>mapOneFromObject:toTarget:intermediate:atPosition:puttingRowsIn:

Receiver:

                a Glorp.BasicDictionaryMapping

Instance Variables:

                descriptor = a Glorp.Descriptor(Store.Glorp.StoreBundle)

                attribute = ~~StoreBundle~~>>packages

                debugRead = false

                debugWrite = false

                query = a SimpleQuery for a Glorp.BasicDictionaryMapping(packages)

                join = (TW_Bundle.primaryKey = TW_Packages.bundleRef)

                usesLinkTable = true

                shouldProxy = true

                linkTableJoin = nil

                targetTableJoin = nil

                reverseJoin = (TW_Packages.packageRef = TW_Package.primaryKey)

                shouldUseFilteredRead = false

                rowMapKeyConstructorBlock = nil

                controlsTables = true

                isExclusive = false

                linkFields = an Array[1]

                proxyAction = nil

                orderBy = an OrderedCollection[1]

                shouldWriteTheOrderField = false

                keyMapping = a Glorp.DirectMapping(key)

                valueMapping = nil

                associationDescriptor = a Glorp.Descriptor(Association)

Arguments:

                sourceObject = StoreBundle(DCL- ZA Eft Processing,9001)

                targetObject = {StorePackage(DCL- ZA Eft Submission,9001)}

                aRowMapKey = a Glorp.RowMapKey

                index = 1

                aRowMap = a Glorp.RowMap

Context PC = 49

----------------------------------------------------------------------

optimized [] in Glorp.RelationshipMapping>>mapFromObject:toTarget:puttingRowsIn:

Receiver:

                an UndefinedObject

Arguments:

                index = 1

                eachTarget = {StorePackage(DCL- ZA Eft Submission,9001)}

Temporaries:

                intermediate = a Glorp.RowMapKey

                .self = a Glorp.BasicDictionaryMapping(packages)

                .anObject = StoreBundle(DCL- ZA Eft Processing,9001)

                .aRowMap = a Glorp.RowMap

Context PC = 18

----------------------------------------------------------------------

optimized [] in [] in Glorp.GlorpAttributeModel>>loopOver:doing:

Receiver:

                an UndefinedObject

Temporaries:

                .aBlock = BlockClosure [] in Glorp.RelationshipMapping>>mapFromObject:toTarget:puttingRowsIn:

                .key = 1

                .value = {StorePackage(DCL- ZA Eft Submission,9001)}

Context PC = 8

----------------------------------------------------------------------

BlockClosure>>cull:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in [] in Glorp.GlorpAttributeModel>>loopOver:doing:

                outerContext = nil

                copiedValues = an Array[3]

Arguments:

                anObject = StorePackage(DCL- ZA Eft Submission,9001)

Context PC = 10

----------------------------------------------------------------------

Store.Glorp.StorePackage(Object)>>ifNotNil:

Receiver:

                a Store.Glorp.StorePackage

Instance Variables:

                primaryKey = 48283

                trace = {uninstantiated StorePackage}

                username = 'warren'

                timestamp = 9 June 2011 21:56:28

                name = 'DCL- ZA Eft Submission'

                comment = {uninstantiated StoreBlob}

                properties = an IdentityDictionary[0]

                propertiesBlob = {a Store.Glorp.StoreBlob}

                propertiesRecordDictionary = {Dictionary ()}

                version = '9001'

                blessings = {uninstantiated collection of StoreBlessing}

                currentBlessingLevel = 20

                storeModel = [DCL- ZA Eft Submission]

                session = a Glorp.GlorpSession

                versionless = {uninstantiated StoreVersionlessPackage}

                methods = {OrderedCollection (StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAFile>>#batchClass StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSABatch class>>#signatureClass StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#debitAccountName StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSABatch>>#paymentChannel StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSABatch>>#batchEntryClass StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#write StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#creditAccountDescription StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#paymentDate StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#creditAccountName StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#debitAccountDescription StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSABatch>>#recordSize StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#amount StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#debitAccountBranchNumber StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSABatch>>#batch StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#creditAccountBranchNumber StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#creditAccountNumber StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAFile class>>#formatCode StoreMethodInPackage Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry>>#debitAccountNumber)}

                classDefinitions = {OrderedCollection ((StoreClassDefinition(Root.Smalltalk.DeepCoveLabs.ZA_ABSABatch) in {StorePackage(DCL- ZA Eft Submission,9001)}) (StoreClassDefinition(Root.Smalltalk.DeepCoveLabs.ZA_ABSAPaymentEntry) in {StorePackage(DCL- ZA Eft Submission,9001)}) (StoreClassDefinition(Root.Smalltalk.DeepCoveLabs.ZA_ABSAFile) in {StorePackage(DCL- ZA Eft Submission,9001)}))}

                fullClasses = a Dictionary[3]

                nameSpaces = {OrderedCollection ()}

                sharedVariables = {OrderedCollection ()}

                parcel = nil

                binFile = nil

Arguments:

                aBlock = BlockClosure [] in [] in Glorp.GlorpAttributeModel>>loopOver:doing:

Context PC = 4

----------------------------------------------------------------------

Glorp.Proxy(Glorp.AbstractProxy)>>doesNotUnderstand:

Receiver:

                a Glorp.Proxy

Instance Variables:

                value = StorePackage(DCL- ZA Eft Submission,9001)

                isInstantiated = true

                session = a Glorp.GlorpSession

                query = a SimpleQuery for StorePackage

                parameters = an IdentityDictionary[1]

                action = nil

Arguments:

                aMessage = a Message with selector: #ifNotNil: and arguments: #(BlockClosure [] in [] in Glorp.GlorpAttributeModel>>loopOver:doing:)

Context PC = 10

----------------------------------------------------------------------

optimized [] in Glorp.GlorpAttributeModel>>loopOver:doing:

Receiver:

                an UndefinedObject

Arguments:

                key = 1

                value = {StorePackage(DCL- ZA Eft Submission,9001)}

Temporaries:

                .self = ~~StoreBundle~~>>packages

                .aBlock = BlockClosure [] in Glorp.RelationshipMapping>>mapFromObject:toTarget:puttingRowsIn:

Context PC = 16

----------------------------------------------------------------------

Dictionary>>keysAndValuesDo:

Receiver:

                a Dictionary

Instance Variables:

                tally = 1

Arguments:

                aBlock = BlockClosure [] in Glorp.GlorpAttributeModel>>loopOver:doing:

Temporaries:

                index = 2

                elem = 1 -> {StorePackage(DCL- ZA Eft Submission,9001)}

Context PC = 36

----------------------------------------------------------------------

Glorp.GlorpAttributeModel>>loopOver:doing:

Receiver:

                a Glorp.GlorpAttributeModel

Instance Variables:

                name = #packages

                type = Store.Glorp.StorePackage

                collectionType = Dictionary

                keyType = nil

                classModel = ~~StoreBundle~~

                attributeIndex = 17

                useDirectAccess = nil

                setSelector = nil

                canRead = true

                canWrite = true

Arguments:

                mightBeACollection = a Dictionary[1]

                aBlock = BlockClosure [] in Glorp.RelationshipMapping>>mapFromObject:toTarget:puttingRowsIn:

Temporaries:

                index = nil

Context PC = 36

----------------------------------------------------------------------

Glorp.BasicDictionaryMapping(Glorp.RelationshipMapping)>>mapFromObject:toTarget:puttingRowsIn:

Receiver:

                a Glorp.BasicDictionaryMapping

Instance Variables:

                descriptor = a Glorp.Descriptor(Store.Glorp.StoreBundle)

                attribute = ~~StoreBundle~~>>packages

                debugRead = false

                debugWrite = false

                query = a SimpleQuery for a Glorp.BasicDictionaryMapping(packages)

                join = (TW_Bundle.primaryKey = TW_Packages.bundleRef)

                usesLinkTable = true

                shouldProxy = true

                linkTableJoin = nil

                targetTableJoin = nil

                reverseJoin = (TW_Packages.packageRef = TW_Package.primaryKey)

                shouldUseFilteredRead = false

                rowMapKeyConstructorBlock = nil

                controlsTables = true

                isExclusive = false

                linkFields = an Array[1]

                proxyAction = nil

                orderBy = an OrderedCollection[1]

                shouldWriteTheOrderField = false

                keyMapping = a Glorp.DirectMapping(key)

                valueMapping = nil

                associationDescriptor = a Glorp.Descriptor(Association)

Arguments:

                anObject = StoreBundle(DCL- ZA Eft Processing,9001)

                target = a Dictionary[1]

                aRowMap = a Glorp.RowMap

Context PC = 12

----------------------------------------------------------------------

Glorp.BasicDictionaryMapping(Glorp.RelationshipMapping)>>mapFromObject:intoRowsIn:

Receiver:

                a Glorp.BasicDictionaryMapping

Instance Variables:

                descriptor = a Glorp.Descriptor(Store.Glorp.StoreBundle)

                attribute = ~~StoreBundle~~>>packages

                debugRead = false

                debugWrite = false

                query = a SimpleQuery for a Glorp.BasicDictionaryMapping(packages)

                join = (TW_Bundle.primaryKey = TW_Packages.bundleRef)

                usesLinkTable = true

                shouldProxy = true

                linkTableJoin = nil

                targetTableJoin = nil

                reverseJoin = (TW_Packages.packageRef = TW_Package.primaryKey)

                shouldUseFilteredRead = false

                rowMapKeyConstructorBlock = nil

                controlsTables = true

                isExclusive = false

                linkFields = an Array[1]

                proxyAction = nil

                orderBy = an OrderedCollection[1]

                shouldWriteTheOrderField = false

                keyMapping = a Glorp.DirectMapping(key)

                valueMapping = nil

                associationDescriptor = a Glorp.Descriptor(Association)

Arguments:

                anObject = StoreBundle(DCL- ZA Eft Processing,9001)

                aRowMap = a Glorp.RowMap

Temporaries:

                target = a Dictionary[1]

                mementoizedTarget = a Dictionary[1]

Context PC = 38

----------------------------------------------------------------------

optimized [] in Glorp.Descriptor>>createRowsFor:in:

Receiver:

                an UndefinedObject

Arguments:

                each = a Glorp.BasicDictionaryMapping(packages)

Temporaries:

                .anObject = StoreBundle(DCL- ZA Eft Processing,9001)

                .aRowMap = a Glorp.RowMap

Context PC = 9

----------------------------------------------------------------------

Array(SequenceableCollection)>>do:

Receiver:

                an Array

Arguments:

                aBlock = BlockClosure [] in Glorp.Descriptor>>createRowsFor:in:

Temporaries:

                i = 18

Context PC = 19

----------------------------------------------------------------------

Glorp.Descriptor>>createRowsFor:in:

Receiver:

                a Glorp.Descriptor

Instance Variables:

                tables = an OrderedCollection[1]

                mappings = an Array[20]

                system = a Store.Glorp.Store74DescriptorSystem

                mappedFields = an OrderedCollection[9]

                cachePolicy = nil

                typeResolver = a Glorp.IdentityTypeResolver

                mapsPrimaryKeys = true

                keyFields = nil

                classModel = ~~StoreBundle~~

                multipleTableJoin = an OrderedCollection[0]

                imaginaryTableReplacements = nil

                mappingsForFields = an IdentityDictionary[12]

Arguments:

                anObject = StoreBundle(DCL- ZA Eft Processing,9001)

                aRowMap = a Glorp.RowMap

Temporaries:

                row = nil

Context PC = 22

----------------------------------------------------------------------

Glorp.GlorpSession>>createRowsFor:in:

Receiver:

                a Glorp.GlorpSession

Instance Variables:

                system = a Store.Glorp.Store74DescriptorSystem

                currentUnitOfWork = a Glorp.UnitOfWork

                cache = a Glorp.CacheManager

                accessor = a Glorp.VWDatabaseAccessor

                applicationData = nil

                reaper = nil

                errorAction = nil

                modificationTracker = nil

Arguments:

                anObject = StoreBundle(DCL- ZA Eft Processing,9001)

                rowMap = a Glorp.RowMap

Temporaries:

                descriptor = a Glorp.Descriptor(Store.Glorp.StoreBundle)

Context PC = 15

----------------------------------------------------------------------

optimized [] in Glorp.UnitOfWork>>createRowMapFor:

Receiver:

                an UndefinedObject

Arguments:

                each = StoreBundle(DCL- ZA Eft Processing,9001)

Temporaries:

                .self = a Glorp.UnitOfWork

                .localRowMap = a Glorp.RowMap

Context PC = 8

----------------------------------------------------------------------

IdentitySet(Set)>>do:

Receiver:

                an IdentitySet

Instance Variables:

                tally = 23475

Arguments:

                aBlock = BlockClosure [] in Glorp.UnitOfWork>>createRowMapFor:

Temporaries:

                index = 31616

                elem = StoreBundle(DCL- ZA Eft Processing,9001)

Context PC = 31

----------------------------------------------------------------------

Glorp.UnitOfWork>>createRowMapFor:

Receiver:

                an Glorp.UnitOfWork

Instance Variables:

                session = a Glorp.GlorpSession

                transaction = a Glorp.ObjectTransaction

                deletedObjects = an IdentitySet[0]

                newObjects = an IdentitySet[2]

                rowMap = a Glorp.RowMap

                commitPlan = an OrderedCollection[0]

                deletePlan = an OrderedCollection[0]

                rowsByTable = nil

                succeeded = nil

                linkRowsForUpdate = nil

                commitPhase = #building

                deleting = an IdentitySet[0]

Arguments:

                objects = an IdentitySet[23475]

Temporaries:

                localRowMap = a Glorp.RowMap

Context PC = 14

----------------------------------------------------------------------

Glorp.UnitOfWork>>createRowsForPartialWrites

Receiver:

                an Glorp.UnitOfWork

Instance Variables:

                session = a Glorp.GlorpSession

                transaction = a Glorp.ObjectTransaction

                deletedObjects = an IdentitySet[0]

                newObjects = an IdentitySet[2]

                rowMap = a Glorp.RowMap

                commitPlan = an OrderedCollection[0]

                deletePlan = an OrderedCollection[0]

                rowsByTable = nil

                succeeded = nil

                linkRowsForUpdate = nil

                commitPhase = #building

                deleting = an IdentitySet[0]

Temporaries:

                registeredObjectsRowMap = nil

                mementoObjectsRowMap = nil

Context PC = 7

----------------------------------------------------------------------

Glorp.UnitOfWork>>createRows

Receiver:

                an Glorp.UnitOfWork

Instance Variables:

                session = a Glorp.GlorpSession

                transaction = a Glorp.ObjectTransaction

                deletedObjects = an IdentitySet[0]

                newObjects = an IdentitySet[2]

                rowMap = a Glorp.RowMap

                commitPlan = an OrderedCollection[0]

                deletePlan = an OrderedCollection[0]

                rowsByTable = nil

                succeeded = nil

                linkRowsForUpdate = nil

                commitPhase = #building

                deleting = an IdentitySet[0]

Context PC = 4

----------------------------------------------------------------------

Glorp.UnitOfWork>>preCommit

Receiver:

                an Glorp.UnitOfWork

Instance Variables:

                session = a Glorp.GlorpSession

                transaction = a Glorp.ObjectTransaction

                deletedObjects = an IdentitySet[0]

                newObjects = an IdentitySet[2]

                rowMap = a Glorp.RowMap

                commitPlan = an OrderedCollection[0]

                deletePlan = an OrderedCollection[0]

                rowsByTable = nil

                succeeded = nil

                linkRowsForUpdate = nil

                commitPhase = #building

                deleting = an IdentitySet[0]

Context PC = 14

----------------------------------------------------------------------

optimized [] in Glorp.UnitOfWork>>commit

Receiver:

                an UndefinedObject

Temporaries:

                .self = a Glorp.UnitOfWork

Context PC = 6

----------------------------------------------------------------------

BlockClosure>>ifCurtailed:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in Glorp.UnitOfWork>>commit

                outerContext = nil

                copiedValues = a Glorp.UnitOfWork

Arguments:

                terminationBlock = BlockClosure [] in Glorp.UnitOfWork>>commit

Context PC = 4

----------------------------------------------------------------------

Glorp.UnitOfWork>>commit

Receiver:

                an Glorp.UnitOfWork

Instance Variables:

                session = a Glorp.GlorpSession

                transaction = a Glorp.ObjectTransaction

                deletedObjects = an IdentitySet[0]

                newObjects = an IdentitySet[2]

                rowMap = a Glorp.RowMap

                commitPlan = an OrderedCollection[0]

                deletePlan = an OrderedCollection[0]

                rowsByTable = nil

                succeeded = nil

                linkRowsForUpdate = nil

                commitPhase = #building

                deleting = an IdentitySet[0]

Context PC = 11

----------------------------------------------------------------------

optimized [] in Glorp.GlorpSession>>commitUnitOfWork

Receiver:

                an UndefinedObject

Temporaries:

                .self = a Glorp.GlorpSession

Context PC = 10

----------------------------------------------------------------------

BlockClosure>>ifCurtailed:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in Glorp.GlorpSession>>commitUnitOfWork

                outerContext = nil

                copiedValues = a Glorp.GlorpSession

Arguments:

                terminationBlock = BlockClosure [] in Glorp.GlorpSession>>commitUnitOfWork

Context PC = 4

----------------------------------------------------------------------

Glorp.GlorpSession>>commitUnitOfWork

Receiver:

                a Glorp.GlorpSession

Instance Variables:

                system = a Store.Glorp.Store74DescriptorSystem

                currentUnitOfWork = a Glorp.UnitOfWork

                cache = a Glorp.CacheManager

                accessor = a Glorp.VWDatabaseAccessor

                applicationData = nil

                reaper = nil

                errorAction = nil

                modificationTracker = nil

Context PC = 11

----------------------------------------------------------------------

optimized [] in [] in Glorp.GlorpSession>>transact:

Receiver:

                an UndefinedObject

Temporaries:

                alreadyInTransaction = false

                alreadyInUnitOfWork = false

                result = StoreBundle(DCL- Raven,9001)

                .self = a Glorp.GlorpSession

                .aBlock = BlockClosure [] in [] in Store.Glorp.StorePundleWriter>>addBlessing:

Context PC = 59

----------------------------------------------------------------------

BlockClosure>>ifCurtailed:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in [] in Glorp.GlorpSession>>transact:

                outerContext = nil

                copiedValues = an Array[3]

Arguments:

                terminationBlock = BlockClosure [] in [] in Glorp.GlorpSession>>transact:

Context PC = 4

----------------------------------------------------------------------

optimized [] in Glorp.GlorpSession>>transact:

Receiver:

                an UndefinedObject

Temporaries:

                alreadyInTransaction = false

                alreadyInUnitOfWork = false

                result = StoreBundle(DCL- Raven,9001)

                .self = a Glorp.GlorpSession

                .aBlock = BlockClosure [] in [] in Store.Glorp.StorePundleWriter>>addBlessing:

Context PC = 16

----------------------------------------------------------------------

BlockClosure>>ifCurtailed:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in Glorp.GlorpSession>>transact:

                outerContext = nil

                copiedValues = an Array[3]

Arguments:

                terminationBlock = BlockClosure [] in Glorp.GlorpSession>>transact:

Context PC = 4

----------------------------------------------------------------------

Glorp.GlorpSession>>transact:

Receiver:

                a Glorp.GlorpSession

Instance Variables:

                system = a Store.Glorp.Store74DescriptorSystem

                currentUnitOfWork = a Glorp.UnitOfWork

                cache = a Glorp.CacheManager

                accessor = a Glorp.VWDatabaseAccessor

                applicationData = nil

                reaper = nil

                errorAction = nil

                modificationTracker = nil

Arguments:

                aBlock = BlockClosure [] in [] in Store.Glorp.StorePundleWriter>>addBlessing:

Temporaries:

                alreadyInTransaction = false

                alreadyInUnitOfWork = false

                result = StoreBundle(DCL- Raven,9001)

Context PC = 17

----------------------------------------------------------------------

optimized [] in Store.Glorp.StorePundleWriter>>addBlessing:

Receiver:

                an UndefinedObject

Temporaries:

                .self = a Store.Glorp.StorePundleWriter

                .aStoreBlessing = --- Blessed: Integrated --- By: boris --- On 10 June 2011 14:57:05

Integrated by Merge Tool into version 9000.10.

Context PC = 16

----------------------------------------------------------------------

BlockClosure>>ensure:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in Store.Glorp.StorePundleWriter>>addBlessing:

                outerContext = nil

                copiedValues = an Array[2]

Arguments:

                aBlock = BlockClosure [] in Store.Glorp.StorePundleWriter>>addBlessing:

Temporaries:

                result = nil

Context PC = 4

----------------------------------------------------------------------

Store.Glorp.StorePundleWriter>>addBlessing:

Receiver:

                a Store.Glorp.StorePundleWriter

Instance Variables:

                pundle = StoreBundle(DCL- Raven,9001)

                newPundle = nil

                previousVersionInTargetDatabase = an Object

                targetSession = a Glorp.GlorpSession

                preWriteAction = nil

                splitPundles = false

                notificationQueue = nil

Arguments:

                aStoreBlessing = --- Blessed: Integrated --- By: boris --- On 10 June 2011 14:57:05

Integrated by Merge Tool into version 9000.10.

Context PC = 17

----------------------------------------------------------------------

optimized [] in Store.PublishSpecification>>publishBlessing

Receiver:

                an UndefinedObject

Temporaries:

                .self = a Store.PublishSpecification

                newBlessing = --- Blessed: Integrated --- By: boris --- On 10 June 2011 14:57:05

Integrated by Merge Tool into version 9000.10.

                previous = {StoreBundle(DCL- Raven,9000)}

Context PC = 54

----------------------------------------------------------------------

Store.PublishSpecification>>publishBlessing

Receiver:

                a Store.PublishSpecification

Instance Variables:

                publish = true

                modified = false

                comment = 'Integrated by Merge Tool into version 9000.10.'

                level = 0

                version = '9001'

                parentVersion = '9001'

                description = nil

                blessing = 50

                object = StoreBundle(DCL- Raven,9001)

                pundleModel = {DCL- Raven}

                mergeData = nil

                binarySave = false

                parcelSave = false

                bundleStructure = false

                databaseLinks = false

                parcelDirectory = ''

                parcelRepublish = false

                parcelBackup = false

                parcelOverwrite = false

                parcelSaveSource = true

                parcelHideSource = false

                parcelPadded = false

                publisher = a Store.Glorp.StorePundleWriter

                parcelVersionString = nil

Temporaries:

                newBlessing = --- Blessed: Integrated --- By: boris --- On 10 June 2011 14:57:05

Integrated by Merge Tool into version 9000.10.

                previous = {StoreBundle(DCL- Raven,9000)}

                session = a Glorp.GlorpSession

Context PC = 40

----------------------------------------------------------------------

Store.Glorp.StoreBundle(Store.Glorp.StorePundle)>>addBlessingLevel:andComment:

Receiver:

                a Store.Glorp.StoreBundle

Instance Variables:

                primaryKey = 72153

                trace = StoreBundle(DCL- Raven,9000)

                username = 'warren'

                timestamp = 9 June 2011 21:56:28

                name = 'DCL- Raven'

                comment = {uninstantiated StoreBlob}

                properties = a Dictionary[2]

                propertiesBlob = {uninstantiated StoreBlob}

                propertiesRecordDictionary = {Dictionary ('notice' -> StoreProperty(notice) 'parcelName' -> StoreProperty(parcelName) )}

                version = '9001'

                blessings = {SortedCollection (--- Blessed: Integrated --- By: boris --- On 10 June 2011 14:57:05

Integrated by Merge Tool into version 9000.10.

--- Blessed: Development --- By: warren --- On 9 June 2011 21:56:18

--- Blessed: Unknown --- By: boris --- On 10 June 2011 14:13:28

)}

                currentBlessingLevel = 50

                storeModel = {DCL- Raven}

                session = a Glorp.GlorpSession

                versionless = {uninstantiated StoreVersionlessBundle}

                bundles = {Dictionary (1 -> StoreBundle(DCL- Shared Domain and UI,9001) 2 -> StoreBundle(DCL- Accounting,8976) 3 -> StoreBundle(DCL- Eft Processing,8998) 4 -> StoreBundle(DCL- Cheque Processing,8936) 6 -> StoreBundle(DCL- AU Eft Processing,8621) 7 -> StoreBundle(DCL- AT Eft Processing,8012) 8 -> StoreBundle(DCL- Bacs Processing,8936) 9 -> StoreBundle(DCL- BE Eft Processing,8397) 10 -> StoreBundle(DCL- CA Eft Processing,8936) 11 -> StoreBundle(DCL- CH Eft Processing,8936) 12 -> StoreBundle(DCL- DE Eft Processing,8012) 13 -> StoreBundle(DCL- ES Eft Processing,8397) 14 -> StoreBundle(DCL- Esp Processing,8960) 15 -> StoreBundle(DCL- FI Eft Processing,8398) 16 -> StoreBundle(DCL- FR Eft Processing,8397) 17 -> StoreBundle(DCL- Generic Eft Processing,8924) 18 -> StoreBundle(DCL- IE Eft Processing,8012) 19 -> StoreBundle(DCL- INR Eft Processing,8871) 20 -> StoreBundle(DCL- NL Eft Processing,8187) 21 -> StoreBundle(DCL- NZ Eft Processing,8580) 22 -> StoreBundle(DCL- PL Eft Processing,8924.1) 23 -> StoreBundle(DCL- US ACH Processing,8936) 24 -> StoreBundle(DCL- US Eft Processing,8936) 26 -> StoreBundle(DCL- Wire Processing,8883) 27 -> StoreBundle(DCL- Cheque Issue,8970) 28 -> StoreBundle(DCL- Card Issue,8933) 29 -> StoreBundle(DCL- Card Processing,9000) 30 -> StoreBundle(DCL- ReportedPayment Processing,8944) 31 -> StoreBundle(DCL- System Configuration,8974) 32 -> StoreBundle(DCL- Client Management,8990) 35 -> StoreBundle(DCL- FX Processing,8976) 36 -> StoreBundle(DCL- SWIFT Processing,8953) 37 -> StoreBundle(DCL- ZA Eft Processing,9001) )}

                packages = {Dictionary (5 -> StorePackage(DCL- Cheque Reconciliation,8012) 25 -> StorePackage(DCL- RU Eft Processing,8810) 33 -> StorePackage(DCL- IRD Generation,8012) 34 -> StorePackage(DCL- Client Specific,8012) )}

                files = {uninstantiated collection of StoreFile}

Arguments:

                anInteger = 50

                aString = 'Integrated by Merge Tool into version 9000.10.'

Temporaries:

                publishSpecification = a Store.PublishSpecification

Context PC = 19

----------------------------------------------------------------------

optimized [] in Store.Glorp.MergeTool>>updateIntegrationBlessingsFor:

Receiver:

                an UndefinedObject

Arguments:

                eachPundleVersion = StoreBundle(DCL- Raven,9001)

Temporaries:

                targetPundle = a Store.PublishSpecification

                comment = 'Integrated by Merge Tool into version 9000.10.'

                .aCollectionOfStorePundle = a Store.PublishSpecificationList[14]

Context PC = 56

----------------------------------------------------------------------

Set>>do:

Receiver:

                a Set

Instance Variables:

                tally = 38

Arguments:

                aBlock = BlockClosure [] in Store.Glorp.MergeTool>>updateIntegrationBlessingsFor:

Temporaries:

                index = 8

                elem = StoreBundle(DCL- Raven,9001)

Context PC = 31

----------------------------------------------------------------------

Store.Glorp.MergeTool>>updateIntegrationBlessingsFor:

Receiver:

                a Store.Glorp.MergeTool

Instance Variables:

                dependents = a ScheduledWindow 101

                builder = an UIBuilder

                uiSession = a ControlManager

                eventHandlers = nil

                resolutionManager = a Store.Glorp.ResolutionManager

                packageList = a MultiSelectionInList

                bundles = an OrderedCollection[44]

                displayText = a ValueHolder on: Text for 'validZA_ABSAFile

                ^

'' '''

                conflictText = a ValueHolder on: Text for '*** Not in image ***'

                textMode = #external

                show = #all

                selectedResolution = a Store.Glorp.MethodChangeResolver

                conflictType = #conflictsWithImage

                nameStyle = #showShortNames

                resolutionListTabs = a SelectionInList

                currentResolutionsPane = a Store.ResolutionsTreePane

                autoSelectResolution = true

                toolbarMenuHolder = a ValueHolder on: a Menu

                compareWithHolder = a ValueHolder on: #conflictsWithImage

                differencesType = #showCodeDifferences

                databaseSession = a Glorp.GlorpSession

                conflictProtocol = a ValueHolder on: Text for ' '

                selectionProtocol = a ValueHolder on: Text for ' Protocol: testing'

Arguments:

                aCollectionOfStorePundle = a Store.PublishSpecificationList[14]

Context PC = 9

----------------------------------------------------------------------

optimized [] in Store.Glorp.MergeTool>>publishModified

Receiver:

                an UndefinedObject

Arguments:

                pundles = a Store.PublishSpecificationList[14]

Temporaries:

                .self = a Store.Glorp.MergeTool

Context PC = 12

----------------------------------------------------------------------

optimized [] in [] in Store.PublishMergeDialog>>accept

Receiver:

                an UndefinedObject

Temporaries:

                .self = a Store.PublishMergeDialog

Context PC = 11

----------------------------------------------------------------------

BlockClosure>>cull:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in [] in Store.PublishMergeDialog>>accept

                outerContext = nil

                copiedValues = a Store.PublishMergeDialog

Arguments:

                anObject = BlockClosure [] in Store.Glorp.MergeTool>>publishModified

Context PC = 10

----------------------------------------------------------------------

BlockClosure(Object)>>ifNotNil:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in Store.Glorp.MergeTool>>publishModified

                outerContext = nil

                copiedValues = a Store.Glorp.MergeTool

Arguments:

                aBlock = BlockClosure [] in [] in Store.PublishMergeDialog>>accept

Context PC = 4

----------------------------------------------------------------------

optimized [] in Store.PublishMergeDialog>>accept

Receiver:

                an UndefinedObject

Temporaries:

                .self = a Store.PublishMergeDialog

Context PC = 16

----------------------------------------------------------------------

optimized [] in Store.StoreProgressOverlay class>>subsumeAll:while:

Receiver:

                an UndefinedObject

Temporaries:

                .windowsToSubsume = an Array[1]

                .self = Store.StoreProgressOverlay

                overlays = an Array[1]

                .aBlock = BlockClosure [] in Store.PublishMergeDialog>>accept

Context PC = 14

----------------------------------------------------------------------

BlockClosure>>ensure:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in Store.StoreProgressOverlay class>>subsumeAll:while:

                outerContext = nil

                copiedValues = an Array[4]

Arguments:

                aBlock = BlockClosure [] in Store.StoreProgressOverlay class>>subsumeAll:while:

Temporaries:

                result = nil

Context PC = 4

----------------------------------------------------------------------

Store.StoreProgressOverlay class>>subsumeAll:while:

Receiver:

                a Store.StoreProgressOverlay class

Instance Variables:

                superclass = Panel

                methodDict = a MethodDictionary[12]

                format = 16394

                subclasses = nil

                instanceVariables = an Array[3]

                organization = ('initialize-release' #addProgressView #initializeLayoutAlgorithm #restoreOriginal #subsume:)

('private' #backdrop #dropdownGradient #dropdownRectangle #progressView #regularView #washOutBackdropImage)

('displaying' #displayChild:on: #displayDropdownOn:)

                name = #StoreProgressOverlay

                classPool = a NameSpaceOfClass[0]

                environment = a NameSpace[282]

Arguments:

                aWindowCollection = an Array[1]

                aBlock = BlockClosure [] in Store.PublishMergeDialog>>accept

Temporaries:

                overlays = an Array[1]

                windowsToSubsume = an Array[1]

Context PC = 22

----------------------------------------------------------------------

Store.StoreProgressOverlay class>>subsume:while:

Receiver:

                a Store.StoreProgressOverlay class

Instance Variables:

                superclass = Panel

                methodDict = a MethodDictionary[12]

                format = 16394

                subclasses = nil

                instanceVariables = an Array[3]

                organization = ('initialize-release' #addProgressView #initializeLayoutAlgorithm #restoreOriginal #subsume:)

('private' #backdrop #dropdownGradient #dropdownRectangle #progressView #regularView #washOutBackdropImage)

('displaying' #displayChild:on: #displayDropdownOn:)

                name = #StoreProgressOverlay

                classPool = a NameSpaceOfClass[0]

                environment = a NameSpace[282]

Arguments:

                aWindowOrNil = a ScheduledWindow 170

                aBlock = BlockClosure [] in Store.PublishMergeDialog>>accept

Context PC = 9

----------------------------------------------------------------------

Store.PublishMergeDialog>>accept

Receiver:

                a Store.PublishMergeDialog

Instance Variables:

                dependents = a ScheduledWindow 170

                builder = an UIBuilder

                uiSession = a ControlManager

                eventHandlers = nil

                list = a SelectionInList

                disturbed = a ValueHolder on: false

                subBuilder = an UIBuilder

                items = a SelectionInList

                blessingLevel = a ValueHolder on: 60

                blessingComment = a ValueHolder on: 'Merged by Merge Tool

Image version:

                Dev- Raven(9000.9,boris)

Branch versions integrated:

                Dev- Raven(9002,warren)

Branch history:

Dev- Raven(9002,warren)

Blessed by: warren at level: Development on: 9 June 2011 19:23:55

Dev- Raven(9001,warren)

Blessed by: warren at level: Tested on: 9 June 2011 18:40:39

                Passed all tests.

Blessed by: warren at level: Development on: 9 June 2011 17:56:18

Dev- Raven(9000,boris)

Blessed by: boris at level: Development on: 9 June 2011 11:52:32

                - magic 510000 should be MC'

                publish = a ValueHolder on: true

                versionString = a ValueHolder on: '9000.10'

                binarySave = a ValueHolder on: false

                parcelSave = a ValueHolder on: false

                bundleStructure = a ValueHolder on: false

                databaseLinks = a ValueHolder on: false

                parcelDirectory = a ValueHolder on: 'Dev- Raven'

                parcelSaveSource = a ValueHolder on: true

                parcelHideSource = a ValueHolder on: false

                parcelPadded = a ValueHolder on: false

                parcelRepublish = a ValueHolder on: false

                parcelBackup = a ValueHolder on: false

                parcelOverwrite = a ValueHolder on: false

                parcelWarningMessage = nil

                labelDict = a Dictionary[14]

                offsets = an Array[4]

                callBackBlock = BlockClosure [] in Store.Glorp.MergeTool>>publishModified

                retry = false

                files = a SelectionInList

                publishFile = nil

                parcelVersionString = a ValueHolder on: '9000.10'

                pundleModel = nil

Temporaries:

                navigatorClass = nil

Context PC = 41

----------------------------------------------------------------------

optimized [] in ApplicationModel>>actionFor:

Receiver:

                an UndefinedObject

Temporaries:

                .self = a Store.PublishMergeDialog

                .aKey = #accept

Context PC = 7

----------------------------------------------------------------------

optimized [] in ActionButtonSpec>>typeConvert:

Receiver:

                an UndefinedObject

Arguments:

                b = a ValueHolder on: nil

                v = true

Temporaries:

                .aValue = BlockClosure [] in ApplicationModel>>actionFor:

Context PC = 5

----------------------------------------------------------------------

PluggableAdaptor>>setValue:

Receiver:

                a PluggableAdaptor

Instance Variables:

                dependents = a WinXPActionButtonView

                model = a ValueHolder on: nil

                getBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:

                putBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:

                updateBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:

Arguments:

                newValue = true

Context PC = 6

----------------------------------------------------------------------

PluggableAdaptor(ValueModel)>>value:

Receiver:

                a PluggableAdaptor

Instance Variables:

                dependents = a WinXPActionButtonView

                model = a ValueHolder on: nil

                getBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:

                putBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:

                updateBlock = BlockClosure [] in ActionButtonSpec>>typeConvert:

Arguments:

                newValue = true

Context PC = 5

----------------------------------------------------------------------

WinXPTriggerButtonController(TriggerButtonController)>>pressAction

Receiver:

                a WinXPTriggerButtonController

Instance Variables:

                model = a PluggableAdaptor

                view = a WinXPActionButtonView

                sensor = a TranslatingSensor

                keyboardHook = nil

                dispatcher = nil

Context PC = 17

----------------------------------------------------------------------

TriggerButtonTracker(BasicButtonTracker)>>finishSelectionFor:

Receiver:

                a TriggerButtonTracker

Instance Variables:

                controller = a WinXPTriggerButtonController

                inside = true

Arguments:

                aPoint = 17 @ 9

Context PC = 8

----------------------------------------------------------------------

TriggerButtonTracker>>finishSelectionFor:

Receiver:

                a TriggerButtonTracker

Instance Variables:

                controller = a WinXPTriggerButtonController

                inside = true

Arguments:

                aPoint = 17 @ 9

Context PC = 11

----------------------------------------------------------------------

TriggerButtonTracker(SelectionTracker)>>redButtonReleasedEvent:

Receiver:

                a TriggerButtonTracker

Instance Variables:

                controller = a WinXPTriggerButtonController

                inside = true

Arguments:

                aMouseButtonEvent = a RedButtonReleasedEvent

Context PC = 13

----------------------------------------------------------------------

RedButtonReleasedEvent>>dispatchTo:

Receiver:

                a RedButtonReleasedEvent

Instance Variables:

                time = 6502418

                initiator = an EventDispatcher

                window = a ScheduledWindow 170

                state = 0

                x = 302

                y = 524

                gx = 1276

                gy = 1049

                buttonNumber = 1

Arguments:

                anObject = a TriggerButtonTracker

Context PC = 4

----------------------------------------------------------------------

TriggerButtonTracker(SelectionTracker)>>handleEvent:

Receiver:

                a TriggerButtonTracker

Instance Variables:

                controller = a WinXPTriggerButtonController

                inside = true

Arguments:

                anEvent = a RedButtonReleasedEvent

Context PC = 4

----------------------------------------------------------------------

EventDispatcher>>dispatch:to:

Receiver:

                an EventDispatcher

Instance Variables:

                windowController = an ApplicationStandardSystemController

                currentMouseConsumer = nil

                grabbingMouse = false

                lastControlObject = nil

                trapList = nil

                state = nil

                repairDamageWhenDebugging = true

                flushQueueAfterError = true

                distributeEventsWhenDebugging = true

                dragDropInProgress = false

                dragDropTracker = nil

                dispatchUnknownEvents = false

Arguments:

                event = a RedButtonReleasedEvent

                object = a TriggerButtonTracker

Temporaries:

                tmp = nil

Context PC = 10

----------------------------------------------------------------------

[] in EventDispatcher>>dispatchEvent:

Receiver:

                an EventDispatcher

Instance Variables:

                windowController = an ApplicationStandardSystemController

                currentMouseConsumer = nil

                grabbingMouse = false

                lastControlObject = nil

                trapList = nil

                state = nil

                repairDamageWhenDebugging = true

                flushQueueAfterError = true

                distributeEventsWhenDebugging = true

                dragDropInProgress = false

                dragDropTracker = nil

                dispatchUnknownEvents = false

Temporaries:

                .self = an EventDispatcher

                .event = a RedButtonReleasedEvent

Context PC = 9

----------------------------------------------------------------------

BlockClosure>>on:do:

Receiver:

                a BlockClosure

Instance Variables:

                method = CompiledBlock [] in EventDispatcher>>dispatchEvent:

                outerContext = EventDispatcher>>dispatchEvent:

                copiedValues = an Array[2]

Arguments:

                anExceptionSelector = ClosedWindowNotification

                handlerBlock = BlockClosure [] in EventDispatcher>>dispatchEvent:

Context PC = 18

----------------------------------------------------------------------

EventDispatcher>>dispatchEvent:

Receiver:

                an EventDispatcher

Instance Variables:

                windowController = an ApplicationStandardSystemController

                currentMouseConsumer = nil

                grabbingMouse = false

                lastControlObject = nil

                trapList = nil

                state = nil

                repairDamageWhenDebugging = true

                flushQueueAfterError = true

                distributeEventsWhenDebugging = true

                dragDropInProgress = false

                dragDropTracker = nil

                dispatchUnknownEvents = false

Arguments:

                event = a RedButtonReleasedEvent

Temporaries:

                objectWantingControl = nil

                targetKeyboardProcessor = nil

Context PC = 68

----------------------------------------------------------------------

RedButtonReleasedEvent(Event)>>dispatch

Receiver:

                a RedButtonReleasedEvent

Instance Variables:

                time = 6502418

                initiator = an EventDispatcher

                window = a ScheduledWindow 170

                state = 0

                x = 302

                y = 524

                gx = 1276

                gy = 1049

                buttonNumber = 1

Context PC = 16

----------------------------------------------------------------------

RedButtonReleasedEvent(Event)>>dispatchForWindowManager:

Receiver:

                a RedButtonReleasedEvent

Instance Variables:

                time = 6502418

                initiator = an EventDispatcher

                window = a ScheduledWindow 170

                state = 0

                x = 302

                y = 524

                gx = 1276

                gy = 1049

                buttonNumber = 1

Arguments:

                aWinMgr = a WindowManager

Context PC = 4

----------------------------------------------------------------------

optimized [] in WindowManager>>safelyDispatchForWindowManager:

Receiver:

                an UndefinedObject

Temporaries:

                .event = a RedButtonReleasedEvent

                .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>>waitIfCurtailedSignal

                dontFilterEvents = false

Arguments:

                event = a RedButtonReleasedEvent

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>>waitIfCurtailedSignal

                dontFilterEvents = false

Temporaries:

                event = a RedButtonReleasedEvent

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