Squeak-dev February 2011

squeak-dev@lists.squeakfoundation.org

87 participants
295 discussions

Browser whitewash
by Eliot Miranda 02 Mar '11

02 Mar '11

Hi All, while all these cool new browsers are great I get on well with the standard browser and my multi-window hack around it. But the multi-window hack shows up one major weakness with the default Browser, and that is it's use of list indices (systemCategoryListIndex classListIndex messageCategoryListIndex messageListIndex). These should just be systemCategoryName, className, messageProtocol (categories are in System-Organization; classes have protocols) messageSelector. If this happened the indices the browser has into the system would never become obsolete as does happen for example when one adds a class to a category, invalidating any classListIndex values into the same category, or systemCategoryListIndexes as happens often when the SystemOrganization changes on loading a package. So if anyone is looking for a small useful project, someone who probably has RB chops, how about reimplementing Browser so that it is essentially unchanged except for the indexes being ripped out, buried and stomped on? If someone did this I'd get round to using menu pragmas throughout and integrating the RB into the base Browser. cheers Eliot

4 5

The Trunk: Monticello-cmm.420.mcz
by commits＠source.squeak.org 01 Mar '11

01 Mar '11

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.420.mcz ==================== Summary ==================== Name: Monticello-cmm.420 Author: cmm Time: 28 February 2011, 5:56:10.518 pm UUID: 371e0e9e-0e88-467f-9aec-22ab7e684c3f Ancestors: Monticello-cmm.419 NOTE: Please close all MC repository browsers before loading this (via the trunk-update process). - Introduced MCFileName for working with Strings in the format [Package]-[author].[version].mcz. - Working toward re-unification of MCFileRepositoryInspector's and MCRepositoryInspector's so that MC browsers on a GOODS or Magma-backed MC repository will behave the same as one backed by a file-system. =============== Diff against Monticello-cmm.419 =============== Item was changed: SystemOrganization addCategory: #'Monticello-Base'! SystemOrganization addCategory: #'Monticello-Chunk Format'! SystemOrganization addCategory: #'Monticello-Loading'! SystemOrganization addCategory: #'Monticello-Merging'! SystemOrganization addCategory: #'Monticello-Modeling'! SystemOrganization addCategory: #'Monticello-Patching'! SystemOrganization addCategory: #'Monticello-Repositories'! SystemOrganization addCategory: #'Monticello-Storing'! SystemOrganization addCategory: #'Monticello-UI'! + SystemOrganization addCategory: #'Monticello-Utilities'! SystemOrganization addCategory: #'Monticello-Versioning'! Item was added: + Object subclass: #MCFileName + instanceVariableNames: 'packageName author extension versionNumber fileName' + classVariableNames: '' + poolDictionaries: '' + category: 'Monticello-Modeling'! + + !MCFileName commentStamp: 'cmm 2/28/2011 16:05' prior: 0! + A MCFileName models the Monticello file / version name, in the format [Package]-[Author].[version-number].[mc?]. + + The final file-extension only applies to filenames, not version names. + + Instance Variables + author: <String> + extension: <String> + fileName: <String> + packageName: <String> + versionNumber: <Integer>! Item was added: + ----- Method: MCFileName classSide>>on: (in category 'create') ----- + on: aString + "aString may be with or without a mc? extension." + ^ self new + filename: aString ; + yourself! Item was added: + ----- Method: MCFileName>>= (in category 'testing') ----- + = aMCFileName + self == aMCFileName ifTrue: [ ^ true ]. + self species = aMCFileName species ifFalse: [ ^ false ]. + ^ self versionNumber = aMCFileName versionNumber and: + [ self author = aMCFileName author and: [ self packageName = aMCFileName packageName ] ]! Item was added: + ----- Method: MCFileName>>author (in category 'access') ----- + author + "The author initials embedded in the filename." + ^ author! Item was added: + ----- Method: MCFileName>>extension (in category 'access') ----- + extension + "The filename's extension." + ^ extension! Item was added: + ----- Method: MCFileName>>fileName (in category 'access') ----- + fileName + ^ fileName! Item was added: + ----- Method: MCFileName>>filename: (in category 'initializing') ----- + filename: aString + "Parse aString which is assumed to be either a MC filename [Package]-[author].[versionNumber], with or without a .mc? extension." + | name | + fileName := aString. + name := (aString copyUpToLast: $.) copyUpTo: $(. + packageName := name copyUpToLast: $-. + author := (name copyAfterLast: $-) copyUpTo: $.. + versionNumber := name last isDigit + ifTrue: + [ extension := aString copyAfterLast: $.. + ((name copyAfterLast: $-) copyAfter: $.) asInteger ifNil: [ 0 ] ] + ifFalse: [ ((aString copyAfterLast: $-) copyAfter: $.) asInteger ifNil: [ 0 ] ]! Item was added: + ----- Method: MCFileName>>hash (in category 'testing') ----- + hash + ^ ((self versionNumber hash + self author hash hashMultiply) hashMultiply + self packageName hash) hashMultiply! Item was added: + ----- Method: MCFileName>>isValid (in category 'testing') ----- + isValid + ^ { packageName. author. extension. versionNumber } allSatisfy: [ : e | e notNil ]! Item was added: + ----- Method: MCFileName>>packageName (in category 'access') ----- + packageName + "The MC Package name embedded into this filename." + ^ packageName! Item was added: + ----- Method: MCFileName>>versionNumber (in category 'access') ----- + versionNumber + "The version number identified by this filename." + ^ versionNumber! Item was changed: MCVersionInspector subclass: #MCFileRepositoryInspector + instanceVariableNames: 'repository versions selectedPackage selectedVersion order versionInfo packageList' - instanceVariableNames: 'repository versions loaded newer inherited selectedPackage selectedVersion order versionInfo packageList' classVariableNames: 'Order' poolDictionaries: '' category: 'Monticello-UI'! Item was added: + ----- Method: MCFileRepositoryInspector>>hasNewerVersionsFor: (in category 'private') ----- + hasNewerVersionsFor: aMCWorkingCopy + | latest | + latest := (versions select: + [ : eachMCFileName | eachMCFileName packageName = aMCWorkingCopy package name ]) detectMax: + [ : eachMCFileName | eachMCFileName versionNumber ]. + ^ latest notNil and: + [ aMCWorkingCopy ancestors allSatisfy: + [ : ancestor | | loadedVersionNumber ancestorName | + ancestorName := ancestor mcName. + loadedVersionNumber := ancestorName versionNumber. + loadedVersionNumber < latest versionNumber or: + [ loadedVersionNumber = latest versionNumber and: [ ancestorName author ~= latest author ] ] ] ]! Item was changed: + ----- Method: MCFileRepositoryInspector>>load (in category 'actions') ----- - ----- Method: MCFileRepositoryInspector>>load (in category 'as yet unclassified') ----- load self hasVersion ifTrue: [self version isCacheable ifTrue: [version workingCopy repositoryGroup addRepository: repository]. super load. self refresh].! Item was changed: + ----- Method: MCFileRepositoryInspector>>merge (in category 'actions') ----- - ----- Method: MCFileRepositoryInspector>>merge (in category 'as yet unclassified') ----- merge super merge. self refresh. ! Item was changed: ----- Method: MCFileRepositoryInspector>>orderSpecs (in category 'morphic ui') ----- orderSpecs ^{ 'unchanged' -> nil. + 'order by package' -> [ :x :y | x packageName < y packageName ]. + 'order by author' -> [ :x :y | x author < y author ]. + 'order by version-string' -> [ :x :y | x versionNumber asString < y versionNumber asString ]. + 'order by version-number' -> [ :x :y | x versionNumber > y versionNumber ]. + 'order by filename' -> [ :x :y | x fileName < y fileName ]. - 'order by package' -> [ :x :y | x first <= y first ]. - 'order by author' -> [ :x :y | x second <= y second ]. - 'order by version-string' -> [ :x :y | x third <= y third ]. - 'order by version-number' -> [ :x :y | x third asNumber >= y third asNumber ]. - 'order by filename' -> [ :x :y | x fourth <= y fourth ]. }! Item was changed: ----- Method: MCFileRepositoryInspector>>packageHighlight: (in category 'morphic ui') ----- + packageHighlight: aString + newer ifNil: [ newer := #() ]. + ^ (loaded anySatisfy: + [ : each | each packageName = aString ]) + ifTrue: + [ Text + string: aString + attribute: + (TextEmphasis new emphasisCode: + ((newer includes: aString) + ifTrue: [ 5 ] + ifFalse: [ 4 ])) ] + ifFalse: [ aString ]! - packageHighlight: aString - - newer ifNil: [newer := #()]. - ^(loaded anySatisfy: [:each | (each copyUpToLast: $-) = aString]) - ifTrue: [ - Text string: aString - attribute: (TextEmphasis new emphasisCode: ( - ((newer includes: aString) - ifTrue: [5] ifFalse: [4])))] - ifFalse: [aString]! Item was changed: ----- Method: MCFileRepositoryInspector>>packageList (in category 'morphic ui') ----- packageList | result loadedPackages | packageList ifNotNil: [ ^packageList ]. result := Set new: versions size. + versions do: [ :each | result add: each packageName ]. - versions do: [ :each | result add: each first ]. "sort loaded packages first, then alphabetically" loadedPackages := Set new: loaded size. loaded do: [ :each | + loadedPackages add: (each packageName) ]. - loadedPackages add: (each copyUpToLast: $-) ]. result := result asArray sort: [ :a :b | | loadedA loadedB | loadedA := loadedPackages includes: a. loadedB := loadedPackages includes: b. loadedA = loadedB ifTrue: [ a < b ] ifFalse: [ loadedA ] ]. ^packageList := result collect: [ :each | self packageHighlight: each ]! Item was changed: + ----- Method: MCFileRepositoryInspector>>refresh (in category 'actions') ----- - ----- Method: MCFileRepositoryInspector>>refresh (in category 'as yet unclassified') ----- refresh - | packageNames | - packageNames := Set new. packageList := nil. + versions := repository readableFileNames collect: [ : each | MCFileName on: each ]. + self + refreshEmphasis ; + changed: #packageList ; + changed: #versionList! - versions := repository readableFileNames collect: [ :each | | name | - name := (each copyUpToLast: $.) copyUpTo: $(. - name last isDigit ifFalse: [Array with: name with: '' with: '' with: each] - ifTrue: - [Array - with: (packageNames add: (name copyUpToLast: $-)) "pkg name" - with: ((name copyAfterLast: $-) copyUpTo: $.) "user" - with: (((name copyAfterLast: $-) copyAfter: $.) asInteger ifNil: [ 0 ]) "version" - with: each]]. - newer := Set new. - inherited := Set new. - loaded := Set new. - (MCWorkingCopy allManagers - " select: [ :each | packageNames includes: each packageName]") - do: [:each | | latest | - each ancestors do: [ :ancestor | - loaded add: ancestor name. - ancestor ancestorsDoWhileTrue: [:heir | - (inherited includes: heir name) - ifTrue: [false] - ifFalse: [inherited add: heir name. true]]]. - latest := (versions select: [:v | v first = each package name]) - detectMax: [:v | v third]. - (latest notNil and: [ - each ancestors allSatisfy: [:ancestor | | av | - av := ((ancestor name copyAfterLast: $-) copyAfter: $.) asInteger. - av < latest third or: [ - av = latest third and: [((ancestor name copyAfterLast: $-) copyUpTo: $.) ~= latest second]]]]) - ifTrue: [newer add: each package name ]]. - - self changed: #packageList; changed: #versionList! Item was changed: + ----- Method: MCFileRepositoryInspector>>setRepository:workingCopy: (in category 'initialize-release') ----- - ----- Method: MCFileRepositoryInspector>>setRepository:workingCopy: (in category 'as yet unclassified') ----- setRepository: aFileBasedRepository workingCopy: aWorkingCopy order := self class order. repository := aFileBasedRepository. self refresh. aWorkingCopy ifNil: [selectedPackage := self packageList isEmpty ifFalse: [self packageList first]] ifNotNil: [ selectedPackage := aWorkingCopy ancestry ancestorString copyUpToLast: $- ]. MCWorkingCopy addDependent: self. ! Item was changed: ----- Method: MCFileRepositoryInspector>>versionList (in category 'morphic ui') ----- versionList - | result | result := selectedPackage ifNil: [ versions copy ] + ifNotNil: + [ versions select: + [ : each | selectedPackage = each packageName ] ]. + "Not sure why we need this ugly Error trapping here.." + (self orderSpecs at: order) value ifNotNil: + [ : sortBlock | result sort: + [ : a : b | [ sortBlock + value: a + value: b ] + on: Error + do: [ true ] ] ]. + ^ result replace: + [ : each | self versionHighlight: each fileName ]! - ifNotNil: [ versions select: [ :each | selectedPackage = each first ] ]. - (self orderSpecs at: order) value ifNotNil: [ :sortBlock | - result sort: [:a :b | [ sortBlock value: a value: b ] on: Error do: [ true ] ] ]. - ^result replace: [ :each | self versionHighlight: each fourth ]! Item was changed: MCVersionInspector subclass: #MCRepositoryInspector + instanceVariableNames: 'repository packages versions selectedPackage selectedVersion' - instanceVariableNames: 'repository packages versions loaded selectedPackage selectedVersion' classVariableNames: '' poolDictionaries: '' category: 'Monticello-UI'! Item was changed: + ----- Method: MCRepositoryInspector>>hasVersion (in category 'morphic ui') ----- - ----- Method: MCRepositoryInspector>>hasVersion (in category 'as yet unclassified') ----- hasVersion ^ selectedVersion notNil! Item was changed: + ----- Method: MCRepositoryInspector>>load (in category 'accessing') ----- - ----- Method: MCRepositoryInspector>>load (in category 'as yet unclassified') ----- load self hasVersion ifTrue: [super load. self version workingCopy repositoryGroup addRepository: repository].! Item was changed: + ----- Method: MCRepositoryInspector>>refresh (in category 'accessing') ----- - ----- Method: MCRepositoryInspector>>refresh (in category 'as yet unclassified') ----- refresh packages := repository packages. self changed: #packageList. self packageSelection: self packageSelection. ! Item was changed: + ----- Method: MCRepositoryInspector>>setRepository:workingCopy: (in category 'initialize-release') ----- - ----- Method: MCRepositoryInspector>>setRepository:workingCopy: (in category 'as yet unclassified') ----- setRepository: aRepository workingCopy: aWorkingCopy repository := aRepository. aWorkingCopy isNil ifFalse: [ selectedPackage := aWorkingCopy package]. self refresh! Item was changed: + ----- Method: MCRepositoryInspector>>summary (in category 'accessing') ----- - ----- Method: MCRepositoryInspector>>summary (in category 'as yet unclassified') ----- summary ^ selectedVersion ifNotNil: [selectedVersion summary] ifNil: ['']! Item was changed: + ----- Method: MCRepositoryInspector>>version (in category 'accessing') ----- - ----- Method: MCRepositoryInspector>>version (in category 'as yet unclassified') ----- version ^ version ifNil: [version := repository versionWithInfo: selectedVersion]! Item was added: + ----- Method: MCVersionInfo>>mcName (in category 'accessing') ----- + mcName + ^ MCFileName on: self name! Item was changed: MCTool subclass: #MCVersionInspector + instanceVariableNames: 'version loaded newer inherited' - instanceVariableNames: 'version' classVariableNames: '' poolDictionaries: '' category: 'Monticello-UI'! Item was changed: + ----- Method: MCVersionInspector>>adopt (in category 'accessing') ----- - ----- Method: MCVersionInspector>>adopt (in category 'as yet unclassified') ----- adopt (self confirm: 'Modifying ancestry can be dangerous unless you know what you are doing. Are you sure you want to adopt ',self version info name, ' as an ancestor of your working copy?') ifTrue: [self version adopt]! Item was changed: + ----- Method: MCVersionInspector>>browse (in category 'accessing') ----- - ----- Method: MCVersionInspector>>browse (in category 'as yet unclassified') ----- browse self version browse! Item was changed: + ----- Method: MCVersionInspector>>changes (in category 'accessing') ----- - ----- Method: MCVersionInspector>>changes (in category 'as yet unclassified') ----- changes (MCPatchBrowser forPatch: self version changes) showLabelled: 'Changes from ', self version info name! Item was changed: + ----- Method: MCVersionInspector>>diff (in category 'accessing') ----- - ----- Method: MCVersionInspector>>diff (in category 'as yet unclassified') ----- diff | ancestorVersion | self pickAncestor ifNotNil: [:ancestor | ancestorVersion := self version workingCopy repositoryGroup versionWithInfo: ancestor. (self version asDiffAgainst: ancestorVersion) open]! Item was changed: + ----- Method: MCVersionInspector>>hasVersion (in category 'accessing') ----- - ----- Method: MCVersionInspector>>hasVersion (in category 'as yet unclassified') ----- hasVersion ^version notNil! Item was changed: + ----- Method: MCVersionInspector>>history (in category 'accessing') ----- - ----- Method: MCVersionInspector>>history (in category 'as yet unclassified') ----- history (MCVersionHistoryBrowser new ancestry: self versionInfo) show! Item was added: + ----- Method: MCVersionInspector>>identifyLoadedAndInherited: (in category 'private') ----- + identifyLoadedAndInherited: aMCWorkingCopy + aMCWorkingCopy ancestors do: + [ : ancestor | loaded add: ancestor mcName. + ancestor ancestorsDoWhileTrue: + [ : heir | (inherited includes: heir name) + ifTrue: [ false ] + ifFalse: + [ inherited add: heir name. + true ] ] ]! Item was changed: + ----- Method: MCVersionInspector>>load (in category 'accessing') ----- - ----- Method: MCVersionInspector>>load (in category 'as yet unclassified') ----- load Cursor wait showWhile: [self version load]! Item was changed: + ----- Method: MCVersionInspector>>merge (in category 'accessing') ----- - ----- Method: MCVersionInspector>>merge (in category 'as yet unclassified') ----- merge self version merge! Item was added: + ----- Method: MCVersionInspector>>refreshEmphasis (in category 'private') ----- + refreshEmphasis + newer := Set new. + inherited := Set new. + loaded := Set new. + MCWorkingCopy allManagers do: + [ : each | | latest | + self identifyLoadedAndInherited: each. + (self hasNewerVersionsFor: each) ifTrue: [ newer add: each package name ] ]! Item was changed: + ----- Method: MCVersionInspector>>save (in category 'accessing') ----- - ----- Method: MCVersionInspector>>save (in category 'as yet unclassified') ----- save self pickRepository ifNotNil: [:ea | ea storeVersion: self version]! Item was changed: + ----- Method: MCVersionInspector>>summary (in category 'accessing') ----- - ----- Method: MCVersionInspector>>summary (in category 'as yet unclassified') ----- summary ^self hasVersion ifTrue: [ self versionSummary ] ifFalse: [ String new ]! Item was changed: + ----- Method: MCVersionInspector>>version (in category 'accessing') ----- - ----- Method: MCVersionInspector>>version (in category 'as yet unclassified') ----- version ^ version! Item was changed: + ----- Method: MCVersionInspector>>version: (in category 'accessing') ----- - ----- Method: MCVersionInspector>>version: (in category 'as yet unclassified') ----- version: aVersion version := aVersion! Item was changed: + ----- Method: MCVersionInspector>>versionInfo (in category 'accessing') ----- - ----- Method: MCVersionInspector>>versionInfo (in category 'as yet unclassified') ----- versionInfo ^ self version info! Item was changed: + ----- Method: MCVersionInspector>>versionSummary (in category 'accessing') ----- - ----- Method: MCVersionInspector>>versionSummary (in category 'as yet unclassified') ----- versionSummary ^ self version summary!

1 0

Daily Commit Log
by commits＠source.squeak.org 01 Mar '11

01 Mar '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-February/004309.h… Name: Monticello-cmm.419 Ancestors: Monticello-cmm.418 - Assigned categories. - Not all MCRepositories require implementation of #allVersionNames, only MCFileBasedRepositories do things that way. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-February/004310.h… Name: KernelTests-dtl.175 Ancestors: KernelTests-ul.174 Add test to document Float>>printPaddedWith:To: bug reported on http://lists.gforge.inria.fr/pipermail/pharo-users/2011-February/001569.html. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-February/004311.h… Name: Kernel-dtl.548 Ancestors: Kernel-cmm.547 Fix bug in Float>>printPaddedWith:To: by treating the format specifier as a string value, not as a float subject to numeric precision issues. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-February/004312.h… Name: Compiler-ul.193 Ancestors: Compiler-nice.192 - removed guarding clauses from MessageNode's #checkBlock:as:from:maxArgs: and #transformCase: - removed all implementations of #canBeSpecialArgument ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-February/004313.h… Name: Nebraska-ul.32 Ancestors: Nebraska-nice.31 Moved String's #getInteger32: and #putInteger32:at: to this package. The methods only make sense for ByteStrings. Both methods are rewritten to - avoid creation of LargeIntegers - use fast integer and string manipulation methods - use the stack optimally if possible The new methods are 2-15x faster than the previous implementations. Combining this with the speedup of Cog, the use of IntegerPokerPlugin is probably unnecessary (it's not present in current VMs). ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-February/004314.h… Name: Collections-ul.429 Ancestors: Collections-laza.428 String's #getInteger32: and #putInteger32:at: were moved to Nebraska. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-February/004315.h… Name: SMLoader-ul.74 Ancestors: SMLoader-cmm.73 Don't reference WebUtils directly from SMClient >> #uploadFile:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-February/004316.h… Name: Network-fbs.108 Ancestors: Network-nice.107 Provide a (TCP) data send with explicit timeout. The existing method (Socket>>sendSomeData:startIndex:count:) calls the new method with a default timeout of 20s. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-February/004317.h… Name: System-ul.423 Ancestors: System-ul.422 - moved all class and trait access logic from SmalltalkImage to SystemDictionary - simplified a few methods in SystemDictionary ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-February/004318.h… Name: Kernel-ul.549 Ancestors: Kernel-dtl.548, Kernel-hsj.547 Merged. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2011-February/004319.h… Name: Kernel-hsj.547 Ancestors: Kernel-fbs.546 Fixes inconsistency in return value of adoptInstance: on different VM's. =============================================

1 0

The Inbox: Morphic-cao.522.mcz
by commits＠source.squeak.org 01 Mar '11

01 Mar '11

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-cao.522.mcz ==================== Summary ==================== Name: Morphic-cao.522 Author: cao Time: 28 February 2011, 6:22:34.55 pm UUID: 4be5ac71-d5df-4e96-b59c-5065ad7932f9 Ancestors: Morphic-mtf.521 StringMorph>>contents: shouldn't mutate fonts in the test attributes. =============== Diff against Morphic-mtf.521 =============== Item was changed: ----- Method: StringMorph>>contents: (in category 'accessing') ----- contents: newContents | scanner | contents := newContents isText ifTrue: [scanner := StringMorphAttributeScanner new initializeFromStringMorph: self. (newContents attributesAt: 1 forStyle: self font textStyle) do: [:attr | attr emphasizeScanner: scanner]. emphasis := scanner emphasis. + font := scanner font. - font := scanner font emphasis: emphasis. color := scanner textColor. newContents string] ifFalse: [contents = newContents ifTrue: [^ self]. "no substantive change" newContents]. self fitContents!

1 0

SUnit's #classNamesNotUnderTest
by Frank Shearar 28 Feb '11

28 Feb '11

SUnit's coverage analysis shows less that 100% for my Zippers project, because it includes test fixtures - utility methods for my test cases. So I thought there might be some way of removing the coverage for certain classes. I stumbled across TestRunner>>excludeClassesNotUnderTestFrom: which claims that if I add a class-side method #classNamesNotUnderTest I can mark certain classes as not being interesting. However, if I do so (in particular, the method returns #(MyClass) ), I get an MNU - ClassCategoryReader(Object)>>doesNotUnderstand: #do: - because MyClass methods doesn't return a collection. Playing around a bit tells me that if I replace "class methods do:" with "class methodsDo:" things work just great. How best to proceed? frank

1 0

The Weekly Squeak Summary No. 23: Jan 31 - Feb 27, 2011
by Michael Haupt 28 Feb '11

28 Feb '11

Dear Squeakers, welcome to this edition of The WeeklySqueakSummary, an (in principle) monthly but somewhat traffic-dependent report on what's going on in the world of Squeak based on the WeeklySqueak blog. Again, we did not have too many posts during the past four weeks - two this time. The "big news" is that Squeak 4.2 is finally there [1]. From what has been going on on squeak-dev in terms of trunk commit messages and release discussions, one could conclude that some important things have been changed. Most of them are somewhat under the hood, but all in all, this release looks like a very good one. The details are in the post - and in the image. ;-) IWST, the "research track" of ESUG, is calling for contributions [2]. The past month's news items: [1] Squeak 4.2 final now out! http://news.squeak.org/2011/02/03/squeak-4-2-final-now-out/ [2] Call for papers for IWST in Edinburgh http://news.squeak.org/2011/02/25/call-for-papers-for-iwst-in-edinburgh/ You can find this and much more on The WeeklySqueak blog, the newsblog dedicated to the world of Squeak: http://news.squeak.org/ Subscribe to the WeeklySqueak RSS feed: http://news.squeak.org/feed/ Happy squeaking, Michael

1 0

Re: [squeak-dev] The Trunk: Network-fbs.108.mcz
by Frank Shearar 28 Feb '11

28 Feb '11

On 2011/02/28 07:47, commits(a)source.squeak.org wrote: > Levente Uzonyi uploaded a new version of Network to project The Trunk: > http://source.squeak.org/trunk/Network-fbs.108.mcz > > ==================== Summary ==================== > > Name: Network-fbs.108 > Author: fbs > Time: 18 February 2011, 11:00:05.486 am > UUID: 228bf8a5-3dd5-be4f-a34b-2223842e5bab > Ancestors: Network-nice.107 > > Provide a (TCP) data send with explicit timeout. The existing method (Socket>>sendSomeData:startIndex:count:) calls the new method with a default timeout of 20s. > > =============== Diff against Network-nice.107 =============== <snip> With this in trunk, we could probably fix Mantis 6850 [1] and 7199 [2]. frank [1] http://bugs.squeak.org/view.php?id=6850 [2] http://bugs.squeak.org/view.php?id=7199

1 0

The Trunk: Kernel-hsj.547.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-hsj.547.mcz ==================== Summary ==================== Name: Kernel-hsj.547 Author: hsj Time: 16 February 2011, 1:45:07.199 pm UUID: 46e9ff86-8023-4720-a146-7eb8a2d2fb30 Ancestors: Kernel-fbs.546 Fixes inconsistency in return value of adoptInstance: on different VM's. =============== Diff against Kernel-fbs.546 =============== Item was changed: ----- Method: Behavior>>adoptInstance: (in category 'instance creation') ----- adoptInstance: anInstance "Change the class of anInstance to me. + Primitive (found in Cog and new VMs) follows the same rules as primitiveChangeClassTo:, but returns the class rather than the modified instance" - Primitive (only found in Cog) should follow the same rules as described in primitiveChangeClassTo:" <primitive: 160 error: ec> + anInstance primitiveChangeClassTo: self basicNew. + ^self! - ^anInstance primitiveChangeClassTo: self basicNew.!

1 0

The Trunk: Kernel-ul.549.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.549.mcz ==================== Summary ==================== Name: Kernel-ul.549 Author: ul Time: 28 February 2011, 12:23:58.143 pm UUID: 63637401-6781-ce44-99e2-d3ac7f032112 Ancestors: Kernel-dtl.548, Kernel-hsj.547 Merged. =============== Diff against Kernel-dtl.548 =============== Item was changed: ----- Method: Behavior>>adoptInstance: (in category 'instance creation') ----- adoptInstance: anInstance "Change the class of anInstance to me. + Primitive (found in Cog and new VMs) follows the same rules as primitiveChangeClassTo:, but returns the class rather than the modified instance" - Primitive (only found in Cog) should follow the same rules as described in primitiveChangeClassTo:" <primitive: 160 error: ec> + anInstance primitiveChangeClassTo: self basicNew. + ^self! - ^anInstance primitiveChangeClassTo: self basicNew.!

1 0

The Trunk: System-ul.423.mcz
by commits＠source.squeak.org 28 Feb '11

28 Feb '11

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.423.mcz ==================== Summary ==================== Name: System-ul.423 Author: ul Time: 28 February 2011, 12:05:19.782 pm UUID: 5334bfde-1537-fa4a-8491-4219f54632ce Ancestors: System-ul.422 - moved all class and trait access logic from SmalltalkImage to SystemDictionary - simplified a few methods in SystemDictionary =============== Diff against System-ul.422 =============== Item was changed: ----- Method: SmalltalkImage>>allClasses (in category 'classes and traits') ----- allClasses "Return all the class defined in the system" + ^globals allClasses! - ^Array streamContents:[:s| self allClassesDo:[:aClass| s nextPut: aClass]].! Item was changed: ----- Method: SmalltalkImage>>allClassesAndTraits (in category 'classes and traits') ----- allClassesAndTraits "Return all the classes and traits defined in the system" + ^globals allClassesAndTraits! - ^Array streamContents:[:s| self allClassesAndTraitsDo:[:each| s nextPut: each]].! Item was changed: ----- Method: SmalltalkImage>>allClassesAndTraitsDo: (in category 'classes and traits') ----- allClassesAndTraitsDo: aBlock "Evaluate the argument, aBlock, for each class and trait in the system." + globals allClassesAndTraitsDo: aBlock! - self allClassesDo: aBlock. - self allTraitsDo: aBlock. - ! Item was changed: ----- Method: SmalltalkImage>>allClassesDo: (in category 'classes and traits') ----- allClassesDo: aBlock "Evaluate the argument, aBlock, for each class in the system." + globals allClassesDo: aBlock! - ^globals allClassesDo: aBlock! Item was changed: ----- Method: SmalltalkImage>>allTraits (in category 'classes and traits') ----- allTraits "Return all traits defined in the system" + ^globals allTraits! - ^Array streamContents:[:s| self allTraitsDo:[:aTrait| s nextPut: aTrait]].! Item was changed: ----- Method: SmalltalkImage>>allTraitsDo: (in category 'classes and traits') ----- allTraitsDo: aBlock "Evaluate the argument, aBlock, for each trait in the system." + globals allTraitsDo: aBlock! - ^globals allTraitsDo: aBlock! Item was changed: ----- Method: SmalltalkImage>>classNames (in category 'classes and traits') ----- classNames "Answer a collection of all class names in the system." + ^globals classNames! - ^self allClasses collect:[:aClass| aClass name].! Item was changed: ----- Method: SmalltalkImage>>traitNames (in category 'classes and traits') ----- traitNames "Answer a SortedCollection of all traits (not including class-traits) names." + ^globals traitNames! - ^self allTraits collect:[:aTrait| aTrait name].! Item was changed: ----- Method: SystemDictionary>>allClassesAndTraits (in category 'classes and traits') ----- allClassesAndTraits "Return all the classes and traits defined in the Smalltalk SystemDictionary" + ^Array streamContents: [ :stream | + self allClassesAndTraitsDo: [ :each | stream nextPut: each ] ]! - ^ self classNames , self traitNames collect: [:each | self at: each]! Item was changed: ----- Method: SystemDictionary>>allClassesAndTraitsDo: (in category 'classes and traits') ----- allClassesAndTraitsDo: aBlock + + self + allClassesDo: aBlock; + allTraitsDo: aBlock! - ^self allClassesAndTraits do: aBlock! Item was changed: ----- Method: SystemDictionary>>allClassesDo: (in category 'classes and traits') ----- allClassesDo: aBlock "Evaluate the argument, aBlock, for each class in the system." + self classNames do: [ :name | + aBlock value: (self at: name) ]! - (self classNames collect: [:name | self at: name]) do: aBlock! Item was changed: ----- Method: SystemDictionary>>allTraitsDo: (in category 'classes and traits') ----- allTraitsDo: aBlock "Evaluate the argument, aBlock, for each trait in the system." + self traitNames do: [ :name | + aBlock value: (self at: name) ]! - (self traitNames collect: [:name | self at: name]) do: aBlock! Item was changed: ----- Method: SystemDictionary>>classAndTraitNames (in category 'classes and traits') ----- classAndTraitNames "Answer a sorted collection of all class and trait (not including class-traits) names. The performance of this algorithm is O(n) if the classNames are already cached, otherwise O(n*log(n)) where n is self size." | classNames traitNames result temporary | classNames := self classNames. + traitNames := self traitNames ifEmpty: [ ^classNames ]. - traitNames := self traitNames. - traitNames ifEmpty: [^classNames]. temporary := Array new: classNames size + traitNames size. result := temporary shallowCopy. temporary replaceFrom: 1 to: classNames size with: classNames startingAt: 1; replaceFrom: classNames size + 1 to: temporary size with: traitNames startingAt: 1; mergeFirst: 1 middle: classNames size last: temporary size into: result by: nil. ^result!

1 0

Jump to page: