Issue 4973 in pharo: Announcement error on "Save & quit"

Status: Accepted
Owner: [hidden email]

New issue 4973 by [hidden email]: Announcement error on "Save & quit"
http://code.google.com/p/pharo/issues/detail?id=4973

"Error: This Context was not included in the ImageSegment"

4 November 2011 11:37:12 pm

VM: Mac OS - intel - 1072 - Croquet Closure Cog VM [CoInterpreter  
VMMaker-oscog-IgorStasenko.123] CogVM VM 4.0.0
Image: Pharo1.3 [Latest update: #13318]

MethodContext(Object)>>error:
        Receiver: [:fileReference | diskImage := DiskImageCreation
                                from: self deviceFile
                                to: fileRef...etc...
        Arguments and temporary variables:
                aString: 'This Context was not included in the ImageSegment'
        Receiver's instance variables:
                sender: nil
                pc: nil
                stackp: 4
                method: (DVD>>#createDiskImage "a CompiledMethod(146276352)")
                closureOrNil: [:fileReference | diskImage := DiskImageCreation
                                from: self d...etc...
                receiver: a DVD

MethodContext(ContextPart)>>storeDataOn:
        Receiver: [:fileReference | diskImage := DiskImageCreation
                                from: self deviceFile
                                to: fileRef...etc...
        Arguments and temporary variables:
                aDataStream: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105  
97 76 ...etc...
        Receiver's instance variables:
                sender: nil
                pc: nil
                stackp: 4
                method: (DVD>>#createDiskImage "a CompiledMethod(146276352)")
                closureOrNil: [:fileReference | diskImage := DiskImageCreation
                                from: self d...etc...
                receiver: a DVD

ReferenceStream(DataStream)>>writeInstance:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: [:fileReference | diskImage := DiskImageCreation
                                from: self devic...etc...
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

ReferenceStream(DataStream)>>nextPut:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: [:fileReference | diskImage := DiskImageCreation
                                from: self devic...etc...
                typeID: 9
                selector: #writeInstance:
                objectToStore: [:fileReference | diskImage := DiskImageCreation
                                from: self ...etc...
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

BlockClosure(Object)>>storeDataOn:
        Receiver: [:a | self announce: a]
        Arguments and temporary variables:
                aDataStream: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105  
97 76 ...etc...
                cntInstVars: 3
                cntIndexedVars: 0
                i: 1
                i: nil
        Receiver's instance variables:
                outerContext: [:fileReference | diskImage := DiskImageCreation
                                from: self d...etc...
                startpc: 71
                numArgs: 1

ReferenceStream(DataStream)>>writeInstance:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: [:a | self announce: a]
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

ReferenceStream(DataStream)>>nextPut:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: [:a | self announce: a]
                typeID: 9
                selector: #writeInstance:
                objectToStore: [:a | self announce: a]
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

AnnouncementSubscription(Object)>>storeDataOn:
        Receiver: an AnnouncementSubscription
        Arguments and temporary variables:
                aDataStream: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105  
97 76 ...etc...
                cntInstVars: 4
                cntIndexedVars: 0
                i: 4
                i: nil
        Receiver's instance variables:
                announcer: an Announcer
                announcementClass: DiskImageStatus
                subscriber: a DVD
                action: [:a | self announce: a]

ReferenceStream(DataStream)>>writeInstance:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: an AnnouncementSubscription
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

ReferenceStream(DataStream)>>nextPut:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: an AnnouncementSubscription
                typeID: 9
                selector: #writeInstance:
                objectToStore: an AnnouncementSubscription
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

[:each | self nextPut: each] in ReferenceStream(DataStream)>>nextPutAll:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                each: an AnnouncementSubscription
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

Array(SequenceableCollection)>>do:
        Receiver: an Array(an AnnouncementSubscription nil nil nil nil)
        Arguments and temporary variables:
                aBlock: [:each | self nextPut: each]
                index: 1
                indexLimiT: 5
        Receiver's instance variables:
an Array(an AnnouncementSubscription nil nil nil nil)

ReferenceStream(DataStream)>>nextPutAll:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                aCollection: an Array(an AnnouncementSubscription nil nil nil nil)
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

ReferenceStream(DataStream)>>writeArray:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anArray: an Array(an AnnouncementSubscription nil nil nil nil)
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

ReferenceStream(DataStream)>>nextPut:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: an Array(an AnnouncementSubscription nil nil nil nil)
                typeID: 8
                selector: #writeArray:
                objectToStore: an Array(an AnnouncementSubscription nil nil nil nil)
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

IdentitySet(Object)>>storeDataOn:
        Receiver: an IdentitySet(an AnnouncementSubscription)
        Arguments and temporary variables:
                aDataStream: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105  
97 76 ...etc...
                cntInstVars: 2
                cntIndexedVars: 0
                i: 2
                i: nil
        Receiver's instance variables:
                tally: 1
                array: an Array(an AnnouncementSubscription nil nil nil nil)

ReferenceStream(DataStream)>>writeInstance:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: an IdentitySet(an AnnouncementSubscription)
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

ReferenceStream(DataStream)>>nextPut:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: an IdentitySet(an AnnouncementSubscription)
                typeID: 9
                selector: #writeInstance:
                objectToStore: an IdentitySet(an AnnouncementSubscription)
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

SubscriptionRegistry(Object)>>storeDataOn:
        Receiver: a SubscriptionRegistry
        Arguments and temporary variables:
                aDataStream: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105  
97 76 ...etc...
                cntInstVars: 2
                cntIndexedVars: 0
                i: 1
                i: nil
        Receiver's instance variables:
                subscriptions: an IdentitySet(an AnnouncementSubscription)
                monitor: a Monitor

ReferenceStream(DataStream)>>writeInstance:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: a SubscriptionRegistry
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

ReferenceStream(DataStream)>>nextPut:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: a SubscriptionRegistry
                typeID: 9
                selector: #writeInstance:
                objectToStore: a SubscriptionRegistry
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

Announcer(Object)>>storeDataOn:
        Receiver: an Announcer
        Arguments and temporary variables:
                aDataStream: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105  
97 76 ...etc...
                cntInstVars: 1
                cntIndexedVars: 0
                i: 1
                i: nil
        Receiver's instance variables:
                registry: a SubscriptionRegistry

ReferenceStream(DataStream)>>writeInstance:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: an Announcer
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

ReferenceStream(DataStream)>>nextPut:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: an Announcer
                typeID: 9
                selector: #writeInstance:
                objectToStore: an Announcer
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

DiskImageCreation(Object)>>storeDataOn:
        Receiver: a DiskImageCreation
        Arguments and temporary variables:
                aDataStream: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105  
97 76 ...etc...
                cntInstVars: 4
                cntIndexedVars: 0
                i: 4
                i: nil
        Receiver's instance variables:
                completionPercentage: 93.645638
                statusSubscriber: nil
                hdiutil: a Hdiutil
                announcer: an Announcer

ReferenceStream(DataStream)>>writeInstance:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: a DiskImageCreation
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

ReferenceStream(DataStream)>>nextPut:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: a DiskImageCreation
                typeID: 9
                selector: #writeInstance:
                objectToStore: a DiskImageCreation
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

DVD(Object)>>storeDataOn:
        Receiver: a DVD
        Arguments and temporary variables:
                aDataStream: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105  
97 76 ...etc...
                cntInstVars: 10
                cntIndexedVars: 0
                i: 9
                i: nil
        Receiver's instance variables:
                title: nil
                diskName: 'HE_SAID_SHE_SAID_2'
                observers: nil
                sections: nil
                notes: nil
                drutilStatus: a DrUtilStatus
                drutilDiscinfo: a DrUtilDiscinfo
                diskutilInfo: a DiskutilInfo
                diskImage: a DiskImageCreation
                announcer: an Announcer

ReferenceStream(DataStream)>>writeInstance:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: a DVD
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

ReferenceStream(DataStream)>>nextPut:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: a DVD
                typeID: 9
                selector: #writeInstance:
                objectToStore: a DVD
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

[:each | self nextPut: each] in ReferenceStream(DataStream)>>nextPutAll:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                each: a DVD
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

Array(SequenceableCollection)>>do:
        Receiver: an Array(a DVD a DVD a DVD a DVD a DVD a DVD a DVD a DVD a DVD a  
DVD a DVD nil nil nil nil...etc...
        Arguments and temporary variables:
                aBlock: [:each | self nextPut: each]
                index: 10
                indexLimiT: 20
        Receiver's instance variables:
an Array(a DVD a DVD a DVD a DVD a DVD a DVD a DVD a DVD a DVD a DVD a DVD  
nil nil nil nil...etc...

ReferenceStream(DataStream)>>nextPutAll:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                aCollection: an Array(a DVD a DVD a DVD a DVD a DVD a DVD a DVD a DVD a  
DVD a D...etc...
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

ReferenceStream(DataStream)>>writeArray:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anArray: an Array(a DVD a DVD a DVD a DVD a DVD a DVD a DVD a DVD a DVD  
a DVD a...etc...
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

ReferenceStream(DataStream)>>nextPut:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: an Array(a DVD a DVD a DVD a DVD a DVD a DVD a DVD a DVD a DVD  
a DVD ...etc...
                typeID: 8
                selector: #writeArray:
                objectToStore: an Array(a DVD a DVD a DVD a DVD a DVD a DVD a DVD a DVD  
a DVD a...etc...
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

OrderedCollection(Object)>>storeDataOn:
        Receiver: an OrderedCollection(a DVD a DVD a DVD a DVD a DVD a DVD a DVD a  
DVD a DVD a DVD a DVD)
        Arguments and temporary variables:
                aDataStream: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105  
97 76 ...etc...
                cntInstVars: 3
                cntIndexedVars: 0
                i: 1
                i: nil
        Receiver's instance variables:
                array: an Array(a DVD a DVD a DVD a DVD a DVD a DVD a DVD a DVD a DVD a  
DVD a D...etc...
                firstIndex: 1
                lastIndex: 11

ReferenceStream(DataStream)>>writeInstance:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: an OrderedCollection(a DVD a DVD a DVD a DVD a DVD a DVD a DVD  
a DVD ...etc...
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

ReferenceStream(DataStream)>>nextPut:
        Receiver: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105 97  
76 105 98 114 97 114 121 9 ...etc...
        Arguments and temporary variables:
                anObject: an OrderedCollection(a DVD a DVD a DVD a DVD a DVD a DVD a DVD  
a DVD ...etc...
                typeID: 9
                selector: #writeInstance:
                objectToStore: an OrderedCollection(a DVD a DVD a DVD a DVD a DVD a DVD  
a DVD a...etc...
        Receiver's instance variables:
                byteStream: MultiByteFileStream: '/Volumes/Sean''s Solar  
System/Squeak/Main Wor...etc...
                topCall: nil
                basePos: 0
                references: an IdentityDictionary(size 238)
                objects: an IdentityDictionary()
                currentReference: nil
                fwdRefEnds: an IdentityDictionary()
                blockers: an IdentityDictionary()
                skipping: an IdentitySet()
                insideASegment: false

MediaLibrary(Object)>>storeDataOn:
        Receiver: a MediaLibrary
        Arguments and temporary variables:
                aDataStream: a ReferenceStream #[8 0 0 0 1 9 0 0 0 2 6 12 77 101 100 105  
97 76 ...etc...
                cntInstVars: 1
                cntIndexedVars: 0
                i: 1
                i: nil
        Receiver's instance variables:
                collection: an OrderedCollection(a DVD a DVD a DVD a DVD a DVD a DVD a  
DVD a DV...etc...


--- The full stack ---
MethodContext(Object)>>error:
MethodContext(ContextPart)>>storeDataOn:
ReferenceStream(DataStream)>>writeInstance:
ReferenceStream(DataStream)>>nextPut:
BlockClosure(Object)>>storeDataOn:
ReferenceStream(DataStream)>>writeInstance:
ReferenceStream(DataStream)>>nextPut:
AnnouncementSubscription(Object)>>storeDataOn:
ReferenceStream(DataStream)>>writeInstance:
ReferenceStream(DataStream)>>nextPut:
[:each | self nextPut: each] in ReferenceStream(DataStream)>>nextPutAll:
Array(SequenceableCollection)>>do:
ReferenceStream(DataStream)>>nextPutAll:
ReferenceStream(DataStream)>>writeArray:
ReferenceStream(DataStream)>>nextPut:
IdentitySet(Object)>>storeDataOn:
ReferenceStream(DataStream)>>writeInstance:
ReferenceStream(DataStream)>>nextPut:
SubscriptionRegistry(Object)>>storeDataOn:
ReferenceStream(DataStream)>>writeInstance:
ReferenceStream(DataStream)>>nextPut:
Announcer(Object)>>storeDataOn:
ReferenceStream(DataStream)>>writeInstance:
ReferenceStream(DataStream)>>nextPut:
DiskImageCreation(Object)>>storeDataOn:
ReferenceStream(DataStream)>>writeInstance:
ReferenceStream(DataStream)>>nextPut:
DVD(Object)>>storeDataOn:
ReferenceStream(DataStream)>>writeInstance:
ReferenceStream(DataStream)>>nextPut:
[:each | self nextPut: each] in ReferenceStream(DataStream)>>nextPutAll:
Array(SequenceableCollection)>>do:
ReferenceStream(DataStream)>>nextPutAll:
ReferenceStream(DataStream)>>writeArray:
ReferenceStream(DataStream)>>nextPut:
OrderedCollection(Object)>>storeDataOn:
ReferenceStream(DataStream)>>writeInstance:
ReferenceStream(DataStream)>>nextPut:
MediaLibrary(Object)>>storeDataOn:
  - - - - - - - - - - - - - - -
                        - - - - - - - - - - - - - - - - - -
ReferenceStream(DataStream)>>writeInstance:
ReferenceStream(DataStream)>>nextPut:
[:each | self nextPut: each] in ReferenceStream(DataStream)>>nextPutAll:
Array(SequenceableCollection)>>do:
ReferenceStream(DataStream)>>nextPutAll:
ReferenceStream(DataStream)>>writeArray:
ReferenceStream(DataStream)>>nextPut:
[:f | f nextPut: self repositories;
                 flush] in [self trimBackups.
        version := self lastBackupFile
                                ifNil: [1]
                                ifNotNil: [(self versionOf: self lastBackupFile)
                                                + 1].
        ReferenceStream
                newFileNamed: (self backupDirectory fullPathFor: self name)
                                , '.' , version asString
                do: [:f | f nextPut: self repositories;
                                 flush]] in MediaDB class(SPFileDatabase class)>>saveRepository
[anotherBlock value: file] in ReferenceStream class(DataStream  
class)>>detectFile:do:
BlockClosure>>ensure:
ReferenceStream class(DataStream class)>>detectFile:do:
ReferenceStream class(DataStream class)>>newFileNamed:do:
[self trimBackups.
        version := self lastBackupFile
                                ifNil: [1]
                                ifNotNil: [(self versionOf: self lastBackupFile)
                                                + 1].
        ReferenceStream
                newFileNamed: (self backupDirectory fullPathFor: self name)
                                , '.' , version asString
                do: [:f | f nextPut: self repositories;
                                 flush]] in MediaDB class(SPFileDatabase class)>>saveRepository
[caught := true.
        self wait.
        blockValue := mutuallyExcludedBlock value] in Semaphore>>critical:
BlockClosure>>ensure:
Semaphore>>critical:
MediaDB class(SPFileDatabase class)>>saveRepository
MediaDB class(SPFileDatabase class)>>shutDown:
[:name |
| class |
class := self
                                at: name
                                ifAbsent: [].
        class isNil
                ifTrue: [removals add: name]
                ifFalse: [class perform: startUpOrShutDown with: argument]] in  
SmalltalkImage>>send:toClassesNamedIn:with:
OrderedCollection>>do:
SmalltalkImage>>send:toClassesNamedIn:with:
SmalltalkImage>>processShutDownList:
SmalltalkImage>>snapshot:andQuit:
WorldState class>>saveAndQuit
[| selArgCount |
(selArgCount := selector numArgs) = 0
                ifTrue: [target perform: selector]
                ifFalse: [selArgCount = arguments size
                                ifTrue: [target perform: selector withArguments: arguments]
                                ifFalse: [target
                                                perform: selector
                                                withArguments: (arguments copyWith: evt)]].
        self changed] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
BlockClosure>>ensure:
CursorWithMask(Cursor)>>showWhile:
ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent:
ToggleMenuItemMorph(MenuItemMorph)>>mouseUp:
ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
ToggleMenuItemMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
ToggleMenuItemMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
MenuMorph(Morph)>>processEvent:using:
MenuMorph(Morph)>>processEvent:
MenuMorph>>handleFocusEvent:
[ActiveHand := self.
        ActiveEvent := anEvent.
        result := focusHolder
                                handleFocusEvent: (anEvent
                                                transformedBy: (focusHolder transformedFrom: self))] in  
HandMorph>>sendFocusEvent:to:clear:
[aBlock value] in PasteUpMorph>>becomeActiveDuring:
BlockClosure>>on:do:
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[:h |
ActiveHand := h.
        h processEvents.
        ActiveHand := nil] in WorldState>>doOneCycleNowFor:
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[[World doOneCycle.
        Processor yield.
        false] whileFalse.
        nil] in Project class>>spawnNewProcess
[self value.
        Processor terminateActive] in BlockClosure>>newProcess



_______________________________________________
Pharo-bugtracker mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-bugtracker

Updates:
        Status: Invalid

Comment #1 on issue 4973 by [hidden email]: Announcement error  
on "Save & quit"
http://code.google.com/p/pharo/issues/detail?id=4973

If I look at this:
ReferenceStream(DataStream)>>nextPut:
[:f | f nextPut: self repositories;
                 flush] in [self trimBackups.
        version := self lastBackupFile
                                ifNil: [1]
                                ifNotNil: [(self versionOf: self lastBackupFile)
                                                + 1].
        ReferenceStream
                newFileNamed: (self backupDirectory fullPathFor: self name)
                                , '.' , version asString
                do: [:f | f nextPut: self repositories;
                                 flush]] in MediaDB class(SPFileDatabase class)>>saveRepository
[anotherBlock value: file] in ReferenceStream class(DataStream  
class)>>detectFile:do:

Then the error does not come from Pharo code.

Something stores stuff in an ImageSegment. Do not use imagesegements, they  
are crap.

The good news is that imagesegements are gone in 1.4. so I close this  
report.



_______________________________________________
Pharo-bugtracker mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-bugtracker