Packages November 2016

packages@lists.squeakfoundation.org

1 participants
22 discussions

The Trunk: Monticello-bf.655.mcz
by commits＠source.squeak.org 25 Nov '16

25 Nov '16

Bert Freudenberg uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-bf.655.mcz ==================== Summary ==================== Name: Monticello-bf.655 Author: bf Time: 25 November 2016, 11:47:14.230808 am UUID: 1ff590a7-e31f-479e-9404-9ab20cb77bf6 Ancestors: Monticello-cmm.654 Display timestamp and category in Editions list (similar to version history) =============== Diff against Monticello-cmm.654 =============== Item was added: + ----- Method: MCDefinition>>summaryAndRevision (in category 'printing') ----- + summaryAndRevision + ^self summary! Item was added: + ----- Method: MCMethodDefinition>>summaryAndRevision (in category 'printing') ----- + summaryAndRevision + ^String streamContents: + [:s | s nextPutAll: self timeStamp; + space; nextPutAll: self summary; + nextPutAll: ' {'; nextPutAll: self category; + nextPut: $}]! Item was added: + ----- Method: MCOperationsBrowser>>isViewingEditions (in category 'accessing') ----- + isViewingEditions + ^self items size > 1 and: + [self items allSatisfy: + [:each | each definition isRevisionOf: self items first definition]]! Item was changed: ----- Method: MCOperationsBrowser>>list (in category 'accessing') ----- list + | showRevision | + showRevision := self isViewingEditions. + ^ self items collect: [:each | | label | + label := showRevision ifTrue: [each summaryAndRevision] ifFalse: [each summary]. - ^ self items collect: [:each | (self reverts includes: each) + ifFalse: [label] - ifFalse: [each summary] ifTrue: [Text + string: '( ', label, ' )' - string: '( ', each summary, ' )' attributes: (self userInterfaceTheme revertedOperationAttributes ifNil: [{TextEmphasis struckOut}])]]! Item was added: + ----- Method: MCPatchOperation>>summaryAndRevision (in category 'accessing') ----- + summaryAndRevision + ^ self definition summaryAndRevision, self summarySuffix!

1 0

The Trunk: SystemReporter-cmm.31.mcz
by commits＠source.squeak.org 23 Nov '16

23 Nov '16

Chris Muller uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-cmm.31.mcz ==================== Summary ==================== Name: SystemReporter-cmm.31 Author: cmm Time: 22 November 2016, 5:25:58.155617 pm UUID: 85945964-533e-42e4-96ff-ee8c17ec0f54 Ancestors: SystemReporter-mt.30 SystemReporter support the Reuse Windows preference. =============== Diff against SystemReporter-mt.30 =============== Item was added: + ----- Method: SystemReporter>>representsSameBrowseeAs: (in category 'private') ----- + representsSameBrowseeAs: anotherModel + ^ self class = anotherModel class!

1 0

The Trunk: Installer-Core-cmm.416.mcz
by commits＠source.squeak.org 23 Nov '16

23 Nov '16

Chris Muller uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-cmm.416.mcz ==================== Summary ==================== Name: Installer-Core-cmm.416 Author: cmm Time: 22 November 2016, 5:25:19.520185 pm UUID: 9c4a55d1-a27d-4b4a-85fa-74aaad20d89d Ancestors: Installer-Core-cmm.415 Personal SqueakSource repository default to port 8079 because a lot of people use 8888 for testing. =============== Diff against Installer-Core-cmm.414 =============== Item was changed: ----- Method: Installer class>>defaultLocalRepository (in category 'repository-overrides') ----- defaultLocalRepository "Check for a personal, Magma-indexed SqueakSource server first, if none running, the the 'mc' directory in the current directory." | localSqueaksource | + localSqueaksource := Installer monticello http: 'http://localhost:8079'. - localSqueaksource := Installer monticello http: 'http://localhost:8888'. ^ localSqueaksource mc isIndexed ifTrue: [localSqueaksource] ifFalse: [Installer monticello directory: FileDirectory default / 'mc']! Item was changed: ----- Method: Installer>>addLocalRepositories (in category 'configure') ----- addLocalRepositories "For all MC packages defined in my 'package-definitions', add the local directory repository where they reside." + self class suspendRepositoryOverridesWhile: + [ self class useLocalRepository. + self allPackages do: + [ : each | self addRepositoryFor: each ] ]! - self allPackages do: - [ : each | self class suspendRepositoryOverridesWhile: - [ self class useLocalRepository. - self addRepositoryFor: each ] ]!

1 0

The Trunk: Monticello-cmm.654.mcz
by commits＠source.squeak.org 23 Nov '16

23 Nov '16

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.654.mcz ==================== Summary ==================== Name: Monticello-cmm.654 Author: cmm Time: 22 November 2016, 5:24:12.638405 pm UUID: 7351af57-f33b-4254-9a8a-29284f44a174 Ancestors: Monticello-cmm.653 - Substitute the faster #addNewElement: for #includes: + #add:. - Recover MCAncestry>>#clearAncestors. - #copyWithTrimmedAncestry leaves the most recent to support MC diffing function. =============== Diff against Monticello-cmm.653 =============== Item was changed: ----- Method: MCAncestry>>allAncestorsDo:visitedAncestors: (in category 'ancestry') ----- allAncestorsDo: aBlock visitedAncestors: visitedAncestors - self ancestors do: [ :each | + (visitedAncestors addNewElement: each) ifTrue: [ - (visitedAncestors includes: each) ifFalse: [ - visitedAncestors add: each. aBlock value: each. each allAncestorsDo: aBlock visitedAncestors: visitedAncestors ] ]! Item was added: + ----- Method: MCAncestry>>clearAncestors (in category 'copying') ----- + clearAncestors + ancestors := Array empty! Item was added: + ----- Method: MCAncestry>>clearStepChildren (in category 'copying') ----- + clearStepChildren + stepChildren := Array empty! Item was added: + ----- Method: MCAncestry>>postCopyWithTrimmedAncestry (in category 'copying') ----- + postCopyWithTrimmedAncestry + ancestors ifNotNil: + [ ancestors := ancestors collect: + [ : each | each copy + clearAncestors ; + clearStepChildren ; + yourself ] ]. + stepChildren ifNotNil: + [ stepChildren := stepChildren collect: + [ : each | each copy + clearAncestors ; + clearStepChildren ; + yourself ] ]! Item was removed: - ----- Method: MCVersionInfo>>postCopyWithTrimmedAncestry (in category 'copying') ----- - postCopyWithTrimmedAncestry - ancestors := Array empty!

1 0

The Trunk: System-cmm.918.mcz
by commits＠source.squeak.org 23 Nov '16

23 Nov '16

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.918.mcz ==================== Summary ==================== Name: System-cmm.918 Author: cmm Time: 22 November 2016, 5:17:50.933976 pm UUID: 508aa5e7-48e0-4137-bb2d-7bbb96a1a722 Ancestors: System-tfel.917 Guard against patching a newer system with an older patch file. =============== Diff against System-tfel.917 =============== Item was changed: ----- Method: SmalltalkImage>>patchSystem (in category 'command line') ----- patchSystem + 'patch.st' asDirectoryEntry ifNotNil: + [ : patchEntry | patchEntry modificationTime > Smalltalk imageName asDirectoryEntry modificationTime + ifTrue: + [ Notification signal: 'Patching system...'. + FileStream + fileNamed: 'patch.st' + do: + [ : stream | stream fileIn ] ] + ifFalse: [ self error: 'patch.st file is older than the image file. Aborting.' ] ]! - (FileDirectory default fileExists: 'patch.st') ifTrue: - [Notification signal: 'Patching system...'. - FileStream - fileNamed: 'patch.st' - do: [ : stream | stream fileIn ] ]!

1 0

The Trunk: Collections-eem.723.mcz
by commits＠source.squeak.org 19 Nov '16

19 Nov '16

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.723.mcz ==================== Summary ==================== Name: Collections-eem.723 Author: eem Time: 18 November 2016, 4:48:38.535448 pm UUID: 470b6823-5711-407f-bdf3-ae2d7585fcba Ancestors: Collections-nice.722 Provide a default bytesPerElement that accords with reality. =============== Diff against Collections-nice.722 =============== Item was changed: ----- Method: ArrayedCollection>>bytesPerElement (in category 'objects from disk') ----- bytesPerElement + | bytesPerElementOrZero | + bytesPerElementOrZero := #[0 0 0 0 0 0 0 0 8 4 4 2 2 2 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1] at: self class instSpec. + ^bytesPerElementOrZero = 0 + ifTrue: [Smalltalk wordSize] + ifFalse: [bytesPerElementOrZero]! - ^self class isBytes ifTrue: [ 1 ] ifFalse: [ 4 ]. - !

1 0

The Trunk: MonticelloConfigurations-dtl.148.mcz
by commits＠source.squeak.org 17 Nov '16

17 Nov '16

David T. Lewis uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-dtl.148.mcz ==================== Summary ==================== Name: MonticelloConfigurations-dtl.148 Author: dtl Time: 16 November 2016, 10:12:09.337083 pm UUID: 5a93ddea-570a-4052-9e9e-09fdcb43dabd Ancestors: MonticelloConfigurations-bf.147 An update stream is specified by a repository URL and an update map name. If multiple repositories are involved, these are specified in the update maps within the update stream. Therefore clean up leftover cruft from earlier refactorings, eliminating MCMcmUpdater class>>updateFromRepositories: and related methods because updater instances now know their own repository URL. Move Andreas original code example for http://squeaksource.com/MCUpdateTest from MCMcmUpdater class>> updateFromRepositories: to MCMcmUpdater class>> updateFromRepository: because updaters are instance based, one repository per updater. "MCMcmUpdater updateFromRepository: 'http://squeaksource.com/MCUpdateTest' " =============== Diff against MonticelloConfigurations-bf.147 =============== Item was removed: - ----- Method: MCMcmUpdater class>>updateFromRepositories: (in category 'updating') ----- - updateFromRepositories: repositoryUrls - "MCMcmUpdater updateFromRepositories: #( - 'http://squeaksource.com/MCUpdateTest' - )" - - ^ self default updateFromRepositories: repositoryUrls! Item was changed: ----- Method: MCMcmUpdater class>>updateFromRepository: (in category 'updating') ----- updateFromRepository: updaterUrlKey "Update using an MCMcmUpdater identified by updaterUrlKey using the default update map baseName" + "MCMcmUpdater updateFromRepository: 'http://squeaksource.com/MCUpdateTest' " + ^ self updateFromRepository: updaterUrlKey baseName: self defaultBaseName ! Item was changed: ----- Method: MCMcmUpdater class>>updateFromRepository:baseName: (in category 'updating') ----- updateFromRepository: updaterUrlKey baseName: baseName "Update using an MCMcmUpdater identified by updaterUrlKey, and using update map baseName" + "MCMcmUpdater + updateFromRepository: 'http://squeaksource.com/MCUpdateTest' + baseName: 'update' " + ^ (self updateMapNamed: baseName repository: updaterUrlKey) doUpdate! Item was changed: ----- Method: MCMcmUpdater>>doUpdate: (in category 'updating') ----- doUpdate: interactive "Update the image by loading all pending updates from the server. If this is the default updater for the system, update the system version when complete. If interteractive use a modal notifier, otherwise only update the transcript. Flush all caches. If a previous download failed this is often helpful" | config previousUpdateLevel | previousUpdateLevel := SystemVersion current highestUpdate. MCFileBasedRepository flushAllCaches. + config := self updateFromRepository. - config := self updateFromRepositories: { self repository }. config ifNil: [ interactive ifTrue: [ ^self inform: 'Unable to retrieve updates from remote repository.' translated ]. Transcript cr; show: '========== Unable to retrieve updates from remote repository. ==========' translated; cr. ^ self ]. MCMcmUpdater default == self ifTrue: [ config setSystemVersion. interactive ifTrue: [ self inform: ('Update completed.\\Version: {1}\Update: {3}{2}\\Url: {4}\Map: ''{5}''{6}' translated withCRs format: { SystemVersion current version. SystemVersion current highestUpdate. previousUpdateLevel = SystemVersion current highestUpdate ifTrue: [''] ifFalse: [previousUpdateLevel asString, ' -> ']. self repository. MCMcmUpdater updateMapName. SystemVersion current description ifEmpty: [''] ifNotEmpty: [:d | String cr, String cr, d]})]. Transcript cr; show: '========== Update completed: ' translated; show: previousUpdateLevel; show: ' -> ' ; show: SystemVersion current highestUpdate; show: ' =========='; cr ] ifFalse: [ interactive ifTrue: [ self inform: 'Update completed.' ]. Transcript cr; show: '========== Update completed. ==========' translated; cr ] ! Item was added: + ----- Method: MCMcmUpdater>>getRepositoryFromRepositoryGroup (in category 'private') ----- + getRepositoryFromRepositoryGroup + "Answer the repository for this updater, ensuring that it is registered in the default MCRepositoryGroup" + + ^ MCRepositoryGroup default repositories + detect: [:r | r description = repository] + ifNone: [| r | + r := MCHttpRepository + location: repository + user: '' + password: ''. + MCRepositoryGroup default addRepository: r. + r] + ! Item was removed: - ----- Method: MCMcmUpdater>>updateFromRepositories: (in category 'updating') ----- - updateFromRepositories: repositoryUrls - "MCMcmUpdater updateFromRepositories: #( - 'http://squeaksource.com/MCUpdateTest' - )" - - | repos config | - MCConfiguration upgradeIsMerge: true. - "The list of repositories to consult in order" - repos := repositoryUrls collect:[:url| - MCRepositoryGroup default repositories - detect:[:r| r description = url] - ifNone:[ | r | - r := MCHttpRepository location: url user: '' password: ''. - MCRepositoryGroup default addRepository: r. - r]]. - - "The list of updates-author.version.mcm sorted by version" - repos do:[ :r | config := self updateFromRepository: r ]. - ^config! Item was added: + ----- Method: MCMcmUpdater>>updateFromRepository (in category 'updating') ----- + updateFromRepository + + | config repo | + repo := self getRepositoryFromRepositoryGroup. + repo cacheAllFileNamesDuring: [ | updateList | + updateList := self updateListFor: repo. + "Proceed only if there are updates available at all." + updateList ifNotEmpty: [ + updateList := self refreshUpdateMapFor: repo with: updateList. + "Now process each update file. Check if we have all dependencies and if not, + load the entire configuration (this is mostly to skip older updates quickly)" + updateList do:[:assoc| + ProgressNotification signal: '' extra: 'Processing ', assoc value. + config := repo versionNamed: assoc value. + self updateFromConfig: config. + self lastUpdateMap at: repo description put: assoc key. + ] displayingProgress: 'Processing configurations'. + "We've loaded all the provided update configurations. + Use the latest configuration to update all the remaining packages." + (self useLatestPackagesFrom: repo) ifTrue: [ + config updateFromRepositories. + config upgrade]. + ]]. + ^ config + ! Item was removed: - ----- Method: MCMcmUpdater>>updateFromRepository: (in category 'updating') ----- - updateFromRepository: repository - - | config | - repository cacheAllFileNamesDuring: [ | updateList | - updateList := self updateListFor: repository. - "Proceed only if there are updates available at all." - updateList ifNotEmpty: [ - updateList := self refreshUpdateMapFor: repository with: updateList. - "Now process each update file. Check if we have all dependencies and if not, - load the entire configuration (this is mostly to skip older updates quickly)" - updateList do:[:assoc| - ProgressNotification signal: '' extra: 'Processing ', assoc value. - config := repository versionNamed: assoc value. - self updateFromConfig: config. - self lastUpdateMap at: repository description put: assoc key. - ] displayingProgress: 'Processing configurations'. - "We've loaded all the provided update configurations. - Use the latest configuration to update all the remaining packages." - (self useLatestPackagesFrom: repository) ifTrue: [ - config updateFromRepositories. - config upgrade]. - ]]. - ^ config - !

1 0

The Trunk: ToolsTests-eem.78.mcz
by commits＠source.squeak.org 17 Nov '16

17 Nov '16

Eliot Miranda uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-eem.78.mcz ==================== Summary ==================== Name: ToolsTests-eem.78 Author: eem Time: 16 November 2016, 6:08:18.241467 pm UUID: c2486b83-e269-4b69-bd02-9dab4bc49b24 Ancestors: ToolsTests-pre.77 Fix the BrowseTest in the presence of the openToolsAttachedToMouseCursor preference. =============== Diff against ToolsTests-pre.77 =============== Item was changed: ----- Method: BrowseTest>>testBrowseClass (in category 'testing') ----- testBrowseClass "self debug: #testBrowseClass" | browsersBefore browsersAfter opened | self ensureMorphic. browsersBefore := self currentBrowsers. + self withImmediatelyOpeningWindowsDo: [1 class browse]. - 1 class browse. browsersAfter := self currentBrowsers. self assert: (browsersAfter size = (browsersBefore size + 1)). opened := browsersAfter removeAll: browsersBefore; yourself. self assert: (opened size = 1). opened := opened asArray first. self assert: (opened model selectedClass == SmallInteger). opened delete ! Item was changed: ----- Method: BrowseTest>>testBrowseHierarchyClass (in category 'testing') ----- testBrowseHierarchyClass "self debug: #testBrowseHierarchyClass" | browsersBefore browsersAfter opened | self ensureMorphic. browsersBefore := self currentHierarchyBrowsers. + self withImmediatelyOpeningWindowsDo: [1 class browseHierarchy]. - 1 class browseHierarchy. browsersAfter := self currentHierarchyBrowsers. self assert: (browsersAfter size = (browsersBefore size + 1)). opened := browsersAfter removeAll: browsersBefore; yourself. self assert: (opened size = 1). opened := opened asArray first. self assert: (opened model selectedClass == SmallInteger). opened delete ! Item was changed: ----- Method: BrowseTest>>testBrowseHierarchyInstance (in category 'testing') ----- testBrowseHierarchyInstance "self debug: #testBrowseHierarchyInstance" | browsersBefore browsersAfter opened | self ensureMorphic. browsersBefore := self currentHierarchyBrowsers. + self withImmediatelyOpeningWindowsDo: [1 browseHierarchy]. - 1 browseHierarchy. browsersAfter := self currentHierarchyBrowsers. self assert: (browsersAfter size = (browsersBefore size + 1)). opened := browsersAfter removeAll: browsersBefore; yourself. self assert: (opened size = 1). opened := opened asArray first. self assert: (opened model selectedClass == SmallInteger). opened delete ! Item was changed: ----- Method: BrowseTest>>testBrowseHierarchyMataclass (in category 'testing') ----- testBrowseHierarchyMataclass "self debug: #testBrowseHierarchyMataclass" | browsersBefore browsersAfter opened | self ensureMorphic. browsersBefore := self currentHierarchyBrowsers. + self withImmediatelyOpeningWindowsDo: [1 class class browseHierarchy]. - 1 class class browseHierarchy. browsersAfter := self currentHierarchyBrowsers. self assert: (browsersAfter size = (browsersBefore size + 1)). opened := browsersAfter removeAll: browsersBefore; yourself. self assert: (opened size = 1). opened := opened asArray first. self assert: (opened model selectedClass == Metaclass). opened delete ! Item was changed: ----- Method: BrowseTest>>testBrowseInstance (in category 'testing') ----- testBrowseInstance "self debug: #testBrowseInstance" | browsersBefore browsersAfter opened | self ensureMorphic. browsersBefore := self currentBrowsers. + self withImmediatelyOpeningWindowsDo: [1 browse]. - 1 browse. browsersAfter := self currentBrowsers. self assert: (browsersAfter size = (browsersBefore size + 1)). opened := browsersAfter removeAll: browsersBefore; yourself. self assert: (opened size = 1). opened := opened asArray first. self assert: (opened model selectedClass == SmallInteger). opened delete ! Item was changed: ----- Method: BrowseTest>>testBrowseMetaclass (in category 'testing') ----- testBrowseMetaclass "self debug: #testBrowseMetaclass" | browsersBefore browsersAfter opened | self ensureMorphic. browsersBefore := self currentBrowsers. + self withImmediatelyOpeningWindowsDo: [1 class class browse]. - 1 class class browse. browsersAfter := self currentBrowsers. self assert: (browsersAfter size = (browsersBefore size + 1)). opened := browsersAfter removeAll: browsersBefore; yourself. self assert: (opened size = 1). opened := opened asArray first. self assert: (opened model selectedClass == SmallInteger). opened delete ! Item was added: + ----- Method: BrowseTest>>withImmediatelyOpeningWindowsDo: (in category 'private') ----- + withImmediatelyOpeningWindowsDo: aBlock + "Turn off any preferences that defer to the user to open a window." + | openToolsAttachedToMouseCursor | + (UIManager default respondsTo: #openToolsAttachedToMouseCursor:) ifFalse: + [^aBlock value]. + + openToolsAttachedToMouseCursor := UIManager default openToolsAttachedToMouseCursor. + UIManager default openToolsAttachedToMouseCursor: false. + ^aBlock ensure: + [UIManager default openToolsAttachedToMouseCursor: openToolsAttachedToMouseCursor]!

1 0

The Trunk: KernelTests-eem.316.mcz
by commits＠source.squeak.org 17 Nov '16

17 Nov '16

Eliot Miranda uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-eem.316.mcz ==================== Summary ==================== Name: KernelTests-eem.316 Author: eem Time: 16 November 2016, 5:45:22.111899 pm UUID: f0525c34-c0bf-47a7-834e-bda4d9445411 Ancestors: KernelTests-nice.315 Improve the testOutOfMemorySignal test so as not to take an age on 64-bit machines. =============== Diff against KernelTests-nice.315 =============== Item was added: + ----- Method: AllocationTest>>setFreeSpaceLimitOf:around: (in category 'support') ----- + setFreeSpaceLimitOf: bytes around: aBlock + "Attempt to evaluate aBlock with a limit of the requested ammount + of free old space, restoring the extant limit after the evaluation." + + | extantLimit | + extantLimit := Smalltalk vmParameterAt: 67. + Smalltalk vmParameterAt: 67 put: (Smalltalk vmParameterAt: 1) + bytes asInteger. + ^aBlock ensure: [Smalltalk vmParameterAt: 67 put: extantLimit]! Item was changed: ----- Method: AllocationTest>>testOutOfMemorySignal (in category 'tests') ----- testOutOfMemorySignal "Ensure that OOM is signaled eventually" | sz | + self setFreeSpaceLimitOf: 1024 * 1024 * 1024 * (Smalltalk wordSize = 8 + ifTrue: [4] + ifFalse: [1.5]) + around: + [sz := 512*1024*1024. "work around the 1GB alloc bug" + self should:[(1 to: 2000) collect:[:i| Array new: sz]] raise: OutOfMemory]. - sz := 512*1024*1024. "work around the 1GB alloc bug" - self should:[(1 to: 2000) collect:[:i| Array new: sz]] raise: OutOfMemory. "Call me when this test fails, I want your machine" sz := 1024*1024*1024*1024. + self should:[Array new: sz] raise: OutOfMemory! - self should:[Array new: sz] raise: OutOfMemory. - !

1 0

The Trunk: Kernel-cmm.1049.mcz
by commits＠source.squeak.org 11 Nov '16

11 Nov '16

Chris Muller uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-cmm.1049.mcz ==================== Summary ==================== Name: Kernel-cmm.1049 Author: cmm Time: 11 November 2016, 2:55:37.977602 pm UUID: c1a99cf9-1315-4aac-9bdb-c84fecc12912 Ancestors: Kernel-nice.1048 Give ReferenceStream the ability to serialize objects whose behaviors were extended via #primitiveChangeClassTo:. =============== Diff against Kernel-nice.1048 =============== Item was changed: ----- Method: Object>>storeDataOn: (in category 'objects from disk') ----- 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 xxxClass - 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: [ 1 to: cntIndexedVars do: [:i | aDataStream nextPut: (self basicAt: i)]]. !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2016