Squeak-dev December 2011

squeak-dev@lists.squeakfoundation.org

52 participants
175 discussions

The Trunk: Tests-ul.138.mcz
by commits＠source.squeak.org 09 Dec '11

09 Dec '11

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.138.mcz ==================== Summary ==================== Name: Tests-ul.138 Author: ul Time: 9 December 2011, 12:12:57.266 pm UUID: 24b1bec5-1d68-8d44-8af3-b5a7a79b92ab Ancestors: Tests-dtl.137 Updated PackageDependencyTest to reflect the current status. =============== Diff against Tests-dtl.137 =============== Item was changed: ----- Method: PackageDependencyTest>>testExceptions (in category 'tests') ----- testExceptions self testPackage: 'Exceptions' dependsExactlyOn: #( Collections - Graphics Kernel - Morphic System ).! Item was changed: ----- Method: PackageDependencyTest>>testMonticello (in category 'tests') ----- testMonticello self testPackage: 'Monticello' dependsExactlyOn: #( Collections Compiler Compression Exceptions Files Graphics Kernel Morphic Network 'PackageInfo-Base' System - Tests 'ToolBuilder-Kernel' 'ToolBuilder-Morphic' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testNetwork (in category 'tests') ----- testNetwork self testPackage: 'Network' dependsExactlyOn: #( Collections Compiler Compression Exceptions Files Graphics Kernel Morphic - Multilingual System 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testST80 (in category 'tests') ----- testST80 self testPackage: 'ST80' dependsExactlyOn: #( Collections Compiler + Exceptions Files Graphics Kernel Morphic Multilingual Network SUnit System 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testSystem (in category 'tests') ----- testSystem self testPackage: 'System' dependsExactlyOn: #( Collections - Balloon Compiler Compression Exceptions Files Graphics Kernel Monticello MonticelloConfigurations Morphic MorphicExtras Multilingual Network 'PackageInfo-Base' Sound 'ToolBuilder-Kernel' Tools TrueType ).! Item was changed: ----- Method: PackageDependencyTest>>testToolBuilder (in category 'tests') ----- testToolBuilder self testPackage: 'ToolBuilder-Kernel' dependsExactlyOn: #( Collections + Exceptions Files Graphics Kernel SUnit System ).! Item was changed: ----- Method: PackageDependencyTest>>testToolBuilderMVC (in category 'tests') ----- testToolBuilderMVC self testPackage: 'ToolBuilder-MVC' dependsExactlyOn: #( Collections - Exceptions Graphics ST80 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testToolBuilderSUnit (in category 'tests') ----- testToolBuilderSUnit self testPackage: 'ToolBuilder-SUnit' dependsExactlyOn: #( Collections + Exceptions Kernel 'ToolBuilder-Kernel' ).!

1 0

The Trunk: Kernel-ul.657.mcz
by commits＠source.squeak.org 09 Dec '11

09 Dec '11

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.657.mcz ==================== Summary ==================== Name: Kernel-ul.657 Author: ul Time: 9 December 2011, 11:25:31.967 am UUID: 9474fac1-19c1-6d46-91d8-0842ee711d38 Ancestors: Kernel-dtl.656, Kernel-ul.656 Merged. =============== Diff against Kernel-dtl.656 =============== Item was changed: ----- Method: ContextPart>>runUntilErrorOrReturnFrom: (in category 'controlling') ----- runUntilErrorOrReturnFrom: aSender "ASSUMES aSender is a sender of self. Execute self's stack until aSender returns or an unhandled exception is raised. Return a pair containing the new top context and a possibly nil exception. The exception is not nil if it was raised before aSender returned and it was not handled. The exception is returned rather than openning the debugger, giving the caller the choice of how to handle it." "Self is run by jumping directly to it (the active process abandons thisContext and executes self). However, before jumping to self we insert an ensure block under aSender that jumps back to thisContext when evaluated. We also insert an exception handler under aSender that jumps back to thisContext when an unhandled exception is raised. In either case, the inserted ensure and exception handler are removed once control jumps back to thisContext." + | error ctxt here topContext aSendersSender | - | error ctxt here topContext | here := thisContext. + aSendersSender := aSender sender. "Insert ensure and exception handler contexts under aSender" error := nil. ctxt := aSender insertSender: (ContextPart contextOn: UnhandledError do: [:ex | error ifNil: [ error := ex exception. topContext := thisContext. ex resumeUnchecked: here jump] ifNotNil: [ex pass] ]). ctxt := ctxt insertSender: (ContextPart contextEnsure: [error ifNil: [ topContext := thisContext. here jump] ]). self jump. "Control jumps to self" "Control resumes here once above ensure block or exception handler is executed" ^ error ifNil: [ "No error was raised, remove ensure context by stepping until popped" + [ctxt isDead or: [aSender isDead]] whileFalse: [topContext := topContext stepToCallee]. + ^{aSender isDead + ifTrue: + [| retValue | + retValue := (ctxt method == (BlockClosure >> #ensure:) + or: [ctxt method == (BlockClosure >> #ifCurtailed:)]) ifTrue: + [ctxt tempAt: 3]. "returnValue in ensure: and result in ifCurtailed:" + aSendersSender push: retValue. + aSendersSender] + ifFalse: [topContext]. + nil} - [ctxt isDead] whileFalse: [topContext := topContext stepToCallee]. - {topContext. nil} ] ifNotNil: [ "Error was raised, remove inserted above contexts then return signaler context" aSender terminateTo: ctxt sender. "remove above ensure and handler contexts" {topContext. error} ]. !

1 0

The Trunk: Compression-ul.31.mcz
by commits＠source.squeak.org 09 Dec '11

09 Dec '11

Levente Uzonyi uploaded a new version of Compression to project The Trunk: http://source.squeak.org/trunk/Compression-ul.31.mcz ==================== Summary ==================== Name: Compression-ul.31 Author: ul Time: 6 December 2011, 12:23:31.156 pm UUID: 0fc814a0-b8d5-9847-b67b-ee8efcbbe6db Ancestors: Compression-nice.30 Allow reading zero bytes in InflateStream >> #next:into:startingAt: and InflateStream >> #readInto:startingAt:count:. =============== Diff against Compression-nice.30 =============== Item was changed: ----- Method: InflateStream>>next:into:startingAt: (in category 'accessing') ----- next: n into: buffer startingAt: startIndex "Read n objects into the given collection. Return aCollection or a partial copy if less than n elements have been read." | c numRead count | + n = 0 ifTrue: [ ^buffer ]. numRead := 0. ["Force decompression if necessary" (c := self next) == nil ifTrue:[^buffer copyFrom: 1 to: startIndex+numRead-1]. "Store the first value which provoked decompression" buffer at: startIndex + numRead put: c. numRead := numRead + 1. "After collection has been filled copy as many objects as possible" count := (readLimit - position) min: (n - numRead). buffer replaceFrom: startIndex + numRead to: startIndex + numRead + count - 1 with: collection startingAt: position+1. position := position + count. numRead := numRead + count. numRead = n] whileFalse. ^buffer! Item was changed: ----- Method: InflateStream>>readInto:startingAt:count: (in category 'accessing') ----- readInto: buffer startingAt: startIndex count: n "Read n objects into the given collection. Return number of elements that have been read." | c numRead count | + n = 0 ifTrue: [ ^n ]. numRead := 0. ["Force decompression if necessary" (c := self next) == nil ifTrue: [^numRead]. "Store the first value which provoked decompression" buffer at: startIndex + numRead put: c. numRead := numRead + 1. "After collection has been filled copy as many objects as possible" count := (readLimit - position) min: (n - numRead). buffer replaceFrom: startIndex + numRead to: startIndex + numRead + count - 1 with: collection startingAt: position+1. position := position + count. numRead := numRead + count. numRead = n] whileFalse. ^n!

1 0

The Trunk: Kernel-ul.656.mcz
by commits＠source.squeak.org 09 Dec '11

09 Dec '11

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.656.mcz ==================== Summary ==================== Name: Kernel-ul.656 Author: ul Time: 6 December 2011, 3:18:17.526 am UUID: 20587caf-780b-384d-ad01-6bd9cf635708 Ancestors: Kernel-dtl.655 Eliot's fix of ContextPart >> #runUntilErrorOrReturnFrom: from http://lists.squeakfoundation.org/pipermail/squeak-dev/2011-December/162373… . =============== Diff against Kernel-dtl.655 =============== Item was changed: ----- Method: ContextPart>>runUntilErrorOrReturnFrom: (in category 'controlling') ----- runUntilErrorOrReturnFrom: aSender "ASSUMES aSender is a sender of self. Execute self's stack until aSender returns or an unhandled exception is raised. Return a pair containing the new top context and a possibly nil exception. The exception is not nil if it was raised before aSender returned and it was not handled. The exception is returned rather than openning the debugger, giving the caller the choice of how to handle it." "Self is run by jumping directly to it (the active process abandons thisContext and executes self). However, before jumping to self we insert an ensure block under aSender that jumps back to thisContext when evaluated. We also insert an exception handler under aSender that jumps back to thisContext when an unhandled exception is raised. In either case, the inserted ensure and exception handler are removed once control jumps back to thisContext." + | error ctxt here topContext aSendersSender | - | error ctxt here topContext | here := thisContext. + aSendersSender := aSender sender. "Insert ensure and exception handler contexts under aSender" error := nil. ctxt := aSender insertSender: (ContextPart contextOn: UnhandledError do: [:ex | error ifNil: [ error := ex exception. topContext := thisContext. ex resumeUnchecked: here jump] ifNotNil: [ex pass] ]). ctxt := ctxt insertSender: (ContextPart contextEnsure: [error ifNil: [ topContext := thisContext. here jump] ]). self jump. "Control jumps to self" "Control resumes here once above ensure block or exception handler is executed" ^ error ifNil: [ "No error was raised, remove ensure context by stepping until popped" + [ctxt isDead or: [aSender isDead]] whileFalse: [topContext := topContext stepToCallee]. + ^{aSender isDead + ifTrue: + [| retValue | + retValue := (ctxt method == (BlockClosure >> #ensure:) + or: [ctxt method == (BlockClosure >> #ifCurtailed:)]) ifTrue: + [ctxt tempAt: 3]. "returnValue in ensure: and result in ifCurtailed:" + aSendersSender push: retValue. + aSendersSender] + ifFalse: [topContext]. + nil} - [ctxt isDead] whileFalse: [topContext := topContext stepToCallee]. - {topContext. nil} ] ifNotNil: [ "Error was raised, remove inserted above contexts then return signaler context" aSender terminateTo: ctxt sender. "remove above ensure and handler contexts" {topContext. error} ]. !

1 0

The Trunk: Morphic-cwp.590.mcz
by commits＠source.squeak.org 09 Dec '11

09 Dec '11

Colin Putney uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cwp.590.mcz ==================== Summary ==================== Name: Morphic-cwp.590 Author: cwp Time: 1 December 2011, 5:12:17.815 pm UUID: caf8451e-b53b-44f0-b9e9-5df2d5232646 Ancestors: Morphic-cmm.589 Fixed a layout bug affecting window panes with a top fraction of zero and a top offset that is non-zero. =============== Diff against Morphic-cmm.589 =============== Item was changed: ----- Method: SystemWindow>>addMorph:fullFrame: (in category 'panes') ----- addMorph: aMorph fullFrame: aLayoutFrame | left right bottom top windowBorderWidth | windowBorderWidth := self class borderWidth. left := aLayoutFrame leftOffset ifNil: [0]. right := aLayoutFrame rightOffset ifNil: [0]. bottom := aLayoutFrame bottomOffset ifNil: [0]. top := aLayoutFrame topOffset ifNil: [0]. aLayoutFrame rightFraction = 1 ifTrue: [aLayoutFrame rightOffset: right - windowBorderWidth]. aLayoutFrame leftFraction = 0 ifTrue: [aLayoutFrame leftOffset: left + windowBorderWidth] ifFalse: [aLayoutFrame leftOffset: left + ProportionalSplitterMorph splitterWidth]. aLayoutFrame bottomFraction = 1 ifTrue: [aLayoutFrame bottomOffset: bottom - windowBorderWidth]. aLayoutFrame topFraction = 0 + ifTrue: [aLayoutFrame topOffset: top + windowBorderWidth] - ifTrue: [aLayoutFrame topOffset: top] ifFalse: [aLayoutFrame topOffset: top + ProportionalSplitterMorph splitterWidth]. (aMorph class name = #BrowserCommentTextMorph) ifTrue: [aLayoutFrame rightOffset: windowBorderWidth negated. aLayoutFrame leftOffset: windowBorderWidth. aLayoutFrame bottomOffset: windowBorderWidth negated. aLayoutFrame topOffset: (windowBorderWidth negated) + 4]. super addMorph: aMorph fullFrame: aLayoutFrame. paneMorphs := paneMorphs copyReplaceFrom: 1 to: 0 with: (Array with: aMorph). aMorph adoptPaneColor: self paneColor. aMorph borderWidth: 1; borderColor: Color lightGray; color: Color white. Preferences scrollBarsOnRight "reorder panes so flop-out right-side scrollbar is visible" ifTrue: [self addMorphBack: aMorph]. self addPaneSplitters!

1 0

Daily Commit Log
by commits＠source.squeak.org 09 Dec '11

09 Dec '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-December/005111.h… Name: Kernel-dtl.656 Ancestors: Kernel-dtl.655 For Squeak 4.3 release code freeze, temporarily revert previous ReferenceStream changes due to unresolved issues (see http://lists.squeakfoundation.org/pipermail/squeak-dev/2011-December/162386…). The updates will be reintroduced following the Squeak 4.3 release. Packages affected: Kernel-Objects System-Object Storage Tests-Object Storage ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-December/005112.h… Name: System-dtl.462 Ancestors: System-dtl.461 For Squeak 4.3 release code freeze, temporarily revert previous ReferenceStream changes due to unresolved issues (see http://lists.squeakfoundation.org/pipermail/squeak-dev/2011-December/162386…). The updates will be reintroduced following the Squeak 4.3 release. Packages affected: Kernel-Objects System-Object Storage Tests-Object Storage ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-December/005113.h… Name: Tests-dtl.137 Ancestors: Tests-dtl.136 For Squeak 4.3 release code freeze, temporarily revert previous ReferenceStream changes due to unresolved issues (see http://lists.squeakfoundation.org/pipermail/squeak-dev/2011-December/162386…). The updates will be reintroduced following the Squeak 4.3 release. Packages affected: Kernel-Objects System-Object Storage Tests-Object Storage ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-December/005114.h… Name: Monticello-bf.490 Ancestors: Monticello-cmm.489 Fix topologicalAncestors. =============================================

1 0

Smalltalk Industry Conference deadlines reminder
by Alan Knight 08 Dec '11

08 Dec '11

The Smalltalk Industry Conference 2012 is coming up March 19-21, and submission deadlines are coming up soon. This year there are two parts to the conference, so there could be some confusion. -*Smalltalk Industry Conference*: This is the traditional Smalltalk Solutions program. To submit, you just need summary information for the talk. The presentations are, at least sometimes, recorded, but there aren't published papers. The deadline for those submissions is VERY SOON -_December 15th_. Call for participation ishere <http://www.stic.st/2011/10/smalltalk-solutions-is-now-called-smalltalk-indu…>. -*Smalltalk Directions*: This is the academic part of the conference, new this year. It accepts academic papers, which will be refereed and a selection of which will be submitted to the Journal of Object Technology. The deadline for those submissions is_January 6th, 2012_. The call for participation ishere <http://www.stic.st/2011/11/smalltalk-directions-call-for-participation/>.

1 0

The Trunk: Monticello-bf.490.mcz
by commits＠source.squeak.org 08 Dec '11

08 Dec '11

Bert Freudenberg uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-bf.490.mcz ==================== Summary ==================== Name: Monticello-bf.490 Author: bf Time: 8 December 2011, 7:37:16.653 pm UUID: 1318f580-6967-4f44-a53c-52e27bca0975 Ancestors: Monticello-cmm.489 Fix topologicalAncestors. =============== Diff against Monticello-cmm.489 =============== Item was changed: ----- Method: MCFrontier>>frontier (in category 'accessing') ----- frontier + ^frontier asArray "not safe to hand out the frontier itself"! - ^frontier!

1 0

Re: [squeak-dev] Re: 4.3 Release Schedule: Feature freeze today
by Edgar J. De Cleene 08 Dec '11

08 Dec '11

On 11/19/11 5:57 AM, "H. Hirzel" <hannes.hirzel(a)gmail.com> wrote: > From: Andreas Raab <andreas.raab(a)gmx.de> > Date: Thu, 17 Nov 2011 20:32:58 +0100 > Subject: [squeak-dev] Re: 4.3 Release Schedule: Feature freeze today > To: The general-purpose Squeak developers list > <squeak-dev(a)lists.squeakfoundation.org> > > Could someone update the alpha download? It would be useful to have a > current version for testing. > > Cheers, > - Andreas I have some ready, I interim nominate Squeak4.3gamma-11793 3081 run, 3050 passes, 7 expected failures, 20 failures, 2 errors, 2 unexpected passes Failures DependencyBrowserTest>>#testClassList ExceptionTests>>#testHandlerFromAction MCFileInTest>>#testStWriter MCMczInstallerTest>>#testInstallFromFile MCMczInstallerTest>>#testInstallFromStream MirrorPrimitiveTests>>#testMirrorAt MirrorPrimitiveTests>>#testMirrorInstVarAt PackageDependencyTest>>#testExceptions PackageDependencyTest>>#testMonticello PackageDependencyTest>>#testNetwork PackageDependencyTest>>#testST80 PackageDependencyTest>>#testSystem PackageDependencyTest>>#testToolBuilder PackageDependencyTest>>#testToolBuilderMVC PackageDependencyTest>>#testToolBuilderSUnit ProcessTest>>#testAtomicSuspend RWBinaryOrTextStreamTest>>#testExisiting ReleaseTest>>#testNoObsoleteClasses SocketTest>>#testSocketReuse SocketTest>>#testUDP SystemChangeFileTest>>#testClassAdded WeakSetInspectorTest>>#testSymbolTableM6812 Errors CompiledMethodTest>>#testPerformCanExecutelongMethodWithTemps CompiledMethodTest>>#testPerformInSuperclassCanExecutelongMethodWithTemps And when running the test , the debugger shows something related to primitive socket (sorry , no external log to attach) We need a Welcome Window showing what is new and About Squeak should say is 4.3 and not 4.2 I uploaded for all test Wait some minutes Edgar

4 7

[Bug][Fix] In ReferenceStream, code review request
by Juan Vuletich 08 Dec '11

08 Dec '11

Hi Folks, I found a bug in Cuis that made weak references to be improperly dumped in SmartRefStreams due to a bug in ReferenceStream. When I tried to reproduce the bug and fix in Squeak, I found out that in Squeak weak references are always dumped (and not just the more subtle bug in Cuis). The attach includes a test and fix. I'm confident about the fix in the context of Cuis, but I only played a few minutes with this in Squeak. Can anybody check this for Squeak and consider it for inclusion? Thanks, Juan Vuletich 'From Squeak4.2 of 20 November 2011 [latest update: #11796] on 27 November 2011 at 2:56:53 pm'! TestCase subclass: #ReferenceStreamTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'System-Object Storage-Tests'! !Object methodsFor: 'objects from disk' stamp: 'jmv 11/27/2011 14:56'! storeDataOn: aDataStream "Store myself on a DataStream. Answer self. This is a low-level DataStream/ReferenceStream method. See also objectToStoreOnDataStream. NOTE: This method must send 'aDataStream beginInstance:size:' and then (nextPut:/nextPutWeak:) its subobjects. readDataFrom:size: reads back what we write here." | cntInstVars cntIndexedVars | cntInstVars := self class instSize. cntIndexedVars := self basicSize. aDataStream beginInstance: self class size: cntInstVars + cntIndexedVars. 1 to: cntInstVars do: [:i | aDataStream nextPut: (self instVarAt: i)]. "Write fields of a variable length object. When writing to a dummy stream, don't bother to write the bytes" ((aDataStream byteStream class == DummyStream) and: [self class isBits]) ifFalse: [ self class isWeak ifTrue: [ "For weak classes (for example DependentsArray) write the referenced object only if referenced from elsewhere in the dumped object graph. This means, for instance that if we only dump a model, no dependents are stored, but if we store a view (i.e. a Morph), it is properly handled as a dependent after the object graph is revived." 1 to: cntIndexedVars do: [ :i | aDataStream nextPutWeak: (self basicAt: i)]] ifFalse: [ 1 to: cntIndexedVars do: [ :i | aDataStream nextPut: (self basicAt: i)]]]! ! !DiskProxy methodsFor: 'i/o' stamp: 'jmv 11/25/2011 13:20'! storeDataOn: aReferenceStream "Besides just storing, get me inserted into references, so structures will know about class DiskProxy." super storeDataOn: aReferenceStream. "just so instVarInfo: will find it and put it into structures" " aReferenceStream references at: self put: #none." aReferenceStream addSpecialReference: self! ! !ReferenceStream methodsFor: 'statistics' stamp: 'jmv 11/25/2011 13:21'! statisticsOfRefs "Analyze the information in references, the objects being written out" | parents ownerBags tallies n nm owners normalReferences | normalReferences := self references. "Exclude unrealized weaks" parents := IdentityDictionary new: normalReferences size * 2. n := 0. 'Finding Owners...' displayProgressFrom: 0 to: normalReferences size during: [:bar | normalReferences keysDo: [:parent | | kids | bar value: (n := n+1). kids := parent class isFixed ifTrue: [(1 to: parent class instSize) collect: [:i | parent instVarAt: i]] ifFalse: [parent class isBits ifTrue: [Array new] ifFalse: [(1 to: parent basicSize) collect: [:i | parent basicAt: i]]]. (kids select: [:x | normalReferences includesKey: x]) do: [:child | parents at: child put: parent]]]. ownerBags := Dictionary new. tallies := Bag new. n := 0. 'Tallying Owners...' displayProgressFrom: 0 to: normalReferences size during: [:bar | normalReferences keysDo: "For each class of obj, tally a bag of owner classes" [:obj | | objParent | bar value: (n := n+1). nm := obj class name. tallies add: nm. owners := ownerBags at: nm ifAbsent: [ownerBags at: nm put: Bag new]. (objParent := parents at: obj ifAbsent: [nil]) == nil ifFalse: [owners add: objParent class name]]]. ^ String streamContents: [:strm | tallies sortedCounts do: [:assn | n := assn key. nm := assn value. owners := ownerBags at: nm. strm cr; nextPutAll: nm; space; print: n. owners size > 0 ifTrue: [strm cr; tab; print: owners sortedCounts]]]! ! !ReferenceStream methodsFor: 'writing' stamp: 'jmv 11/25/2011 13:20'! addSpecialReference: aDiskProxy "See senders. Added to avoid breaking encapsulation (assuming that #references would answer the actual collection)" references at: aDiskProxy put: #none! ! !ReferenceStream methodsFor: 'writing' stamp: 'jmv 11/27/2011 14:56'! references "Do not include provisory references created in #nextPutWeak that never became normal references, because the referenced object was never added from a call to #nextPut:" ^ references select: [ :value | value isNumber ]! ! !ReferenceStreamTest methodsFor: 'testing' stamp: 'jmv 11/27/2011 14:56'! testWeakDumps "Test that if we serialize a model with weak references to views, only the model is serialized and not the views. Note: The bug became apparent only when dumping a model to a SmartRefStream, that calls #references, and the serialized stream was later materialized in an image where the view classes had been deleted. In such rare cases, materialization would fail when trying to reference these absent classes. If serializing to a ReferenceStream, the bug didn't become apparent (views were never serialized). If serializing to a SmartRefStream, but view classes still existed, the bug didn't really become apparent (because views were not actually deserialized), the only effect was a larger file. ReferenceStreamTest new testWeakDumps " | oldInstance refStream | oldInstance :=StringHolder new contents: 'This is a text'. oldInstance addDependent: Morph new. refStream := ReferenceStream on: (DummyStream on: nil). refStream nextPut: oldInstance. self deny: (refStream references keys anySatisfy: [ :dumpedObject | dumpedObject isKindOf: Morph ])! !

5 18

Jump to page: