Squeak-dev July 2012

squeak-dev@lists.squeakfoundation.org

55 participants
189 discussions

Daily Commit Log
by commits＠source.squeak.org 29 Jul '12

29 Jul '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-July/005446.html Name: Environments-cmm.4 Ancestors: Environments-fbs.3 - Environments broke loading Connectors. Fix it. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-July/005447.html Name: System-cmm.492 Ancestors: System-eem.491 - Remove instance of NaturalLanguageTranslator in InternalTranslator, since it breaks its own startup method. - Stop using a deprecated method. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-July/005448.html Name: PackageInfo-Base-bf.64 Ancestors: PackageInfo-Base-bf.63 Improve PackageInfo class comment. =============================================

1 0

Re: [squeak-dev] The Inbox: PackageInfo-Base-bf.65.mcz
by Chris Muller 29 Jul '12

29 Jul '12

-1 on the dramatic 'THIS PACKAGE HAS NO COMMENT'. nil is the standard and sufficient way to indicate the package has no comment. As far as even having a comment variable -- could you explain how PackageInfo is intended to be used -- e.g., what code would be calling the comment: setter? Thanks. On Sat, Jul 28, 2012 at 4:31 PM, <commits(a)source.squeak.org> wrote: > Bert Freudenberg uploaded a new version of PackageInfo-Base to project The Inbox: > http://source.squeak.org/inbox/PackageInfo-Base-bf.65.mcz > > ==================== Summary ==================== > > Name: PackageInfo-Base-bf.65 > Author: bf > Time: 28 July 2012, 2:20:30.545 pm > UUID: 52c0359f-bd7e-4f1f-9a33-95b5cef7abb4 > Ancestors: PackageInfo-Base-bf.64 > > Add per-package comments. > > =============== Diff against PackageInfo-Base-bf.64 =============== > > Item was changed: > Object subclass: #PackageInfo > + instanceVariableNames: 'packageName methodCategoryPrefix preamble postscript preambleOfRemoval postscriptOfRemoval comment' > - instanceVariableNames: 'packageName methodCategoryPrefix preamble postscript preambleOfRemoval postscriptOfRemoval' > classVariableNames: '' > poolDictionaries: '' > category: 'PackageInfo-Base'! > PackageInfo class > instanceVariableNames: 'default'! > > !PackageInfo commentStamp: 'bf 7/28/2012 14:11' prior: 0! > PackageInfo is used by the system to figure out which classes and methods belong to which package. By default, class categories and method categories are matched against my packageName, but subclasses could override this behavior. > > For an interesting use of PackageInfo subclasses have a look at OMeta2. It presents the same code base as two different packages, one using decompiled code for bootstrapping, the other using the actual OMeta syntax.! > PackageInfo class > instanceVariableNames: 'default'! > > Item was added: > + ----- Method: PackageInfo>>comment (in category 'preamble/postscript') ----- > + comment > + ^ comment ifNil: [ > + comment := StringHolder new contents: self commentDefault]! > > Item was added: > + ----- Method: PackageInfo>>comment: (in category 'preamble/postscript') ----- > + comment: aString > + comment := StringHolder new contents: aString! > > Item was added: > + ----- Method: PackageInfo>>commentDefault (in category 'preamble/postscript') ----- > + commentDefault > + ^ 'THIS PACKAGE HAS NO COMMENT'! > > Item was added: > + ----- Method: PackageInfo>>hasComment (in category 'preamble/postscript') ----- > + hasComment > + ^ self isScript: comment not: self commentDefault! > >

2 1

Re: [squeak-dev] The Inbox: Monticello-bf.513.mcz
by Chris Muller 29 Jul '12

29 Jul '12

Ah, ok. On Sat, Jul 28, 2012 at 4:31 PM, <commits(a)source.squeak.org> wrote: > Bert Freudenberg uploaded a new version of Monticello to project The Inbox: > http://source.squeak.org/inbox/Monticello-bf.513.mcz > > ==================== Summary ==================== > > Name: Monticello-bf.513 > Author: bf > Time: 28 July 2012, 2:22:30.22 pm > UUID: 7520e6a4-d43b-4aa0-8f8c-59b4a94b21bc > Ancestors: Monticello-eem.512 > > Add per-package comments (if you have PackageInfo-Base-bf.65). > > =============== Diff against Monticello-eem.512 =============== > > Item was changed: > ----- Method: MCPackage>>snapshot (in category 'input/output') ----- > snapshot > | packageInfo definitions categories | > packageInfo := self packageInfo. > definitions := OrderedCollection new. > categories := packageInfo systemCategories. > categories isEmpty ifFalse: [ definitions add: (MCOrganizationDefinition categories: categories) ]. > CurrentReadOnlySourceFiles cacheDuring: [ > packageInfo methods do: [:ea | definitions add: ea asMethodDefinition] displayingProgress: 'Snapshotting methods...'. > (packageInfo respondsTo: #overriddenMethods) ifTrue: > [packageInfo overriddenMethods > do: [:ea | definitions add: > (packageInfo changeRecordForOverriddenMethod: ea) asMethodDefinition] > displayingProgress: 'Searching for overrides...']. > packageInfo classes do: [:ea | definitions addAll: ea classDefinitions] displayingProgress: 'Snapshotting classes...' ]. > (packageInfo respondsTo: #hasPreamble) ifTrue: [ > packageInfo hasPreamble ifTrue: [definitions add: (MCPreambleDefinition from: packageInfo)]. > packageInfo hasPostscript ifTrue: [definitions add: (MCPostscriptDefinition from: packageInfo)]. > packageInfo hasPreambleOfRemoval ifTrue: [definitions add: (MCRemovalPreambleDefinition from: packageInfo)]. > packageInfo hasPostscriptOfRemoval ifTrue: [definitions add: (MCRemovalPostscriptDefinition from: packageInfo)]]. > + (packageInfo respondsTo: #hasComment) ifTrue: [ > + packageInfo hasComment ifTrue: [definitions add: (MCPackageCommentDefinition from: packageInfo)]]. > ^ MCSnapshot fromDefinitions: definitions > ! > > Item was added: > + MCScriptDefinition subclass: #MCPackageCommentDefinition > + instanceVariableNames: '' > + classVariableNames: '' > + poolDictionaries: '' > + category: 'Monticello-Modeling'! > > Item was added: > + ----- Method: MCPackageCommentDefinition class>>scriptSelector (in category 'as yet unclassified') ----- > + scriptSelector > + ^ #comment! > > Item was changed: > ----- Method: MCWorkingCopyBrowser>>buttonSpecs (in category 'morphic ui') ----- > buttonSpecs > ^ #( > ('+Package' addWorkingCopy 'Add a new package and make it the working copy') > (Browse browseWorkingCopy 'Browse the working copy of the selected package' hasWorkingCopy) > + (Scripts editLoadScripts 'Edit the comment or load/unload scripts of this package' hasWorkingCopy) > - (Scripts editLoadScripts 'Edit the load/unload scripts of this package' hasWorkingCopy) > (History viewHistory 'View the working copy''s history' hasWorkingCopy) > (Changes viewChanges 'View the working copy''s changes relative to the installed version from the repository' canSave) > (Backport backportChanges 'Backport the working copy''s changes to an ancestor' canBackport) > (Save saveVersion 'Save the working copy as a new version to the selected repository' canSave) > ('+Repository' addRepository 'Add an existing repository to the list of those visible') > (Open openRepository 'Open a browser on the selected repository' hasRepository) > )! > > Item was changed: > ----- Method: MCWorkingCopyBrowser>>editLoadScripts (in category 'morphic ui') ----- > editLoadScripts > > | menu | > self hasWorkingCopy ifFalse: [^self]. > menu := MenuMorph new defaultTarget: self. > + menu add: 'edit comment' selector: #editScript: argument: #comment. > + menu addLine. > menu add: 'edit preamble' selector: #editScript: argument: #preamble. > menu add: 'edit postscript' selector: #editScript: argument: #postscript. > menu add: 'edit preambleOfRemoval' selector: #editScript: argument: #preambleOfRemoval. > menu add: 'edit postscriptOfRemoval' selector: #editScript: argument: #postscriptOfRemoval. > menu popUpInWorld.! > > Item was removed: > - (PackageInfo named: 'Monticello') postscript: 'nil'! > >

1 0

The Inbox: Monticello-bf.513.mcz
by commits＠source.squeak.org 28 Jul '12

28 Jul '12

Bert Freudenberg uploaded a new version of Monticello to project The Inbox: http://source.squeak.org/inbox/Monticello-bf.513.mcz ==================== Summary ==================== Name: Monticello-bf.513 Author: bf Time: 28 July 2012, 2:22:30.22 pm UUID: 7520e6a4-d43b-4aa0-8f8c-59b4a94b21bc Ancestors: Monticello-eem.512 Add per-package comments (if you have PackageInfo-Base-bf.65). =============== Diff against Monticello-eem.512 =============== Item was changed: ----- Method: MCPackage>>snapshot (in category 'input/output') ----- snapshot | packageInfo definitions categories | packageInfo := self packageInfo. definitions := OrderedCollection new. categories := packageInfo systemCategories. categories isEmpty ifFalse: [ definitions add: (MCOrganizationDefinition categories: categories) ]. CurrentReadOnlySourceFiles cacheDuring: [ packageInfo methods do: [:ea | definitions add: ea asMethodDefinition] displayingProgress: 'Snapshotting methods...'. (packageInfo respondsTo: #overriddenMethods) ifTrue: [packageInfo overriddenMethods do: [:ea | definitions add: (packageInfo changeRecordForOverriddenMethod: ea) asMethodDefinition] displayingProgress: 'Searching for overrides...']. packageInfo classes do: [:ea | definitions addAll: ea classDefinitions] displayingProgress: 'Snapshotting classes...' ]. (packageInfo respondsTo: #hasPreamble) ifTrue: [ packageInfo hasPreamble ifTrue: [definitions add: (MCPreambleDefinition from: packageInfo)]. packageInfo hasPostscript ifTrue: [definitions add: (MCPostscriptDefinition from: packageInfo)]. packageInfo hasPreambleOfRemoval ifTrue: [definitions add: (MCRemovalPreambleDefinition from: packageInfo)]. packageInfo hasPostscriptOfRemoval ifTrue: [definitions add: (MCRemovalPostscriptDefinition from: packageInfo)]]. + (packageInfo respondsTo: #hasComment) ifTrue: [ + packageInfo hasComment ifTrue: [definitions add: (MCPackageCommentDefinition from: packageInfo)]]. ^ MCSnapshot fromDefinitions: definitions ! Item was added: + MCScriptDefinition subclass: #MCPackageCommentDefinition + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Monticello-Modeling'! Item was added: + ----- Method: MCPackageCommentDefinition class>>scriptSelector (in category 'as yet unclassified') ----- + scriptSelector + ^ #comment! Item was changed: ----- Method: MCWorkingCopyBrowser>>buttonSpecs (in category 'morphic ui') ----- buttonSpecs ^ #( ('+Package' addWorkingCopy 'Add a new package and make it the working copy') (Browse browseWorkingCopy 'Browse the working copy of the selected package' hasWorkingCopy) + (Scripts editLoadScripts 'Edit the comment or load/unload scripts of this package' hasWorkingCopy) - (Scripts editLoadScripts 'Edit the load/unload scripts of this package' hasWorkingCopy) (History viewHistory 'View the working copy''s history' hasWorkingCopy) (Changes viewChanges 'View the working copy''s changes relative to the installed version from the repository' canSave) (Backport backportChanges 'Backport the working copy''s changes to an ancestor' canBackport) (Save saveVersion 'Save the working copy as a new version to the selected repository' canSave) ('+Repository' addRepository 'Add an existing repository to the list of those visible') (Open openRepository 'Open a browser on the selected repository' hasRepository) )! Item was changed: ----- Method: MCWorkingCopyBrowser>>editLoadScripts (in category 'morphic ui') ----- editLoadScripts | menu | self hasWorkingCopy ifFalse: [^self]. menu := MenuMorph new defaultTarget: self. + menu add: 'edit comment' selector: #editScript: argument: #comment. + menu addLine. menu add: 'edit preamble' selector: #editScript: argument: #preamble. menu add: 'edit postscript' selector: #editScript: argument: #postscript. menu add: 'edit preambleOfRemoval' selector: #editScript: argument: #preambleOfRemoval. menu add: 'edit postscriptOfRemoval' selector: #editScript: argument: #postscriptOfRemoval. menu popUpInWorld.! Item was removed: - (PackageInfo named: 'Monticello') postscript: 'nil'!

1 0

The Inbox: PackageInfo-Base-bf.65.mcz
by commits＠source.squeak.org 28 Jul '12

28 Jul '12

Bert Freudenberg uploaded a new version of PackageInfo-Base to project The Inbox: http://source.squeak.org/inbox/PackageInfo-Base-bf.65.mcz ==================== Summary ==================== Name: PackageInfo-Base-bf.65 Author: bf Time: 28 July 2012, 2:20:30.545 pm UUID: 52c0359f-bd7e-4f1f-9a33-95b5cef7abb4 Ancestors: PackageInfo-Base-bf.64 Add per-package comments. =============== Diff against PackageInfo-Base-bf.64 =============== Item was changed: Object subclass: #PackageInfo + instanceVariableNames: 'packageName methodCategoryPrefix preamble postscript preambleOfRemoval postscriptOfRemoval comment' - instanceVariableNames: 'packageName methodCategoryPrefix preamble postscript preambleOfRemoval postscriptOfRemoval' classVariableNames: '' poolDictionaries: '' category: 'PackageInfo-Base'! PackageInfo class instanceVariableNames: 'default'! !PackageInfo commentStamp: 'bf 7/28/2012 14:11' prior: 0! PackageInfo is used by the system to figure out which classes and methods belong to which package. By default, class categories and method categories are matched against my packageName, but subclasses could override this behavior. For an interesting use of PackageInfo subclasses have a look at OMeta2. It presents the same code base as two different packages, one using decompiled code for bootstrapping, the other using the actual OMeta syntax.! PackageInfo class instanceVariableNames: 'default'! Item was added: + ----- Method: PackageInfo>>comment (in category 'preamble/postscript') ----- + comment + ^ comment ifNil: [ + comment := StringHolder new contents: self commentDefault]! Item was added: + ----- Method: PackageInfo>>comment: (in category 'preamble/postscript') ----- + comment: aString + comment := StringHolder new contents: aString! Item was added: + ----- Method: PackageInfo>>commentDefault (in category 'preamble/postscript') ----- + commentDefault + ^ 'THIS PACKAGE HAS NO COMMENT'! Item was added: + ----- Method: PackageInfo>>hasComment (in category 'preamble/postscript') ----- + hasComment + ^ self isScript: comment not: self commentDefault!

1 0

The Trunk: PackageInfo-Base-bf.64.mcz
by commits＠source.squeak.org 28 Jul '12

28 Jul '12

Bert Freudenberg uploaded a new version of PackageInfo-Base to project The Trunk: http://source.squeak.org/trunk/PackageInfo-Base-bf.64.mcz ==================== Summary ==================== Name: PackageInfo-Base-bf.64 Author: bf Time: 28 July 2012, 2:13:11.917 pm UUID: 507e2d95-0634-454b-9ab1-3401c8575d06 Ancestors: PackageInfo-Base-bf.63 Improve PackageInfo class comment. =============== Diff against PackageInfo-Base-bf.63 =============== Item was changed: Object subclass: #PackageInfo instanceVariableNames: 'packageName methodCategoryPrefix preamble postscript preambleOfRemoval postscriptOfRemoval' classVariableNames: '' poolDictionaries: '' category: 'PackageInfo-Base'! PackageInfo class instanceVariableNames: 'default'! + !PackageInfo commentStamp: 'bf 7/28/2012 14:11' prior: 0! + PackageInfo is used by the system to figure out which classes and methods belong to which package. By default, class categories and method categories are matched against my packageName, but subclasses could override this behavior. + + For an interesting use of PackageInfo subclasses have a look at OMeta2. It presents the same code base as two different packages, one using decompiled code for bootstrapping, the other using the actual OMeta syntax.! - !PackageInfo commentStamp: '<historical>' prior: 0! - Subclass this class to create new Packages.! PackageInfo class instanceVariableNames: 'default'!

1 0

Cannot store into ReadOnlyBinding?
by Chris Muller 28 Jul '12

28 Jul '12

I need to be able to substitute the value of a Binding. Did Environments change this? What purpose does a rigid ReadOnly binding serve? This blows me out of the water. Shouldn't something like Environments be put in at the _beginning_ rather than the end of a release cycle?

3 3

The Trunk: System-cmm.492.mcz
by commits＠source.squeak.org 28 Jul '12

28 Jul '12

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.492.mcz ==================== Summary ==================== Name: System-cmm.492 Author: cmm Time: 28 July 2012, 11:26:22.065 am UUID: dac56f2b-83e8-4ac2-a129-95446e02ee50 Ancestors: System-eem.491 - Remove instance of NaturalLanguageTranslator in InternalTranslator, since it breaks its own startup method. - Stop using a deprecated method. =============== Diff against System-eem.491 =============== Item was changed: ----- Method: MessageTally>>reportGCStatsOn: (in category 'reporting') ----- reportGCStatsOn: str | oldSpaceEnd youngSpaceEnd memoryEnd fullGCs fullGCTime incrGCs incrGCTime tenureCount upTime rootOverflows | upTime := time. oldSpaceEnd := gcStats at: 1. youngSpaceEnd := gcStats at: 2. memoryEnd := gcStats at: 3. fullGCs := gcStats at: 7. fullGCTime := gcStats at: 8. incrGCs := gcStats at: 9. incrGCTime := gcStats at: 10. tenureCount := gcStats at: 11. rootOverflows := gcStats at: 22. str cr. str nextPutAll: '**Memory**'; cr. str nextPutAll: ' old '; + nextPutAll: (oldSpaceEnd asStringWithCommasSigned: true); nextPutAll: ' bytes'; cr. - nextPutAll: oldSpaceEnd asStringWithCommasSigned; nextPutAll: ' bytes'; cr. str nextPutAll: ' young '; + nextPutAll: ((youngSpaceEnd - oldSpaceEnd) asStringWithCommasSigned: true); nextPutAll: ' bytes'; cr. - nextPutAll: (youngSpaceEnd - oldSpaceEnd) asStringWithCommasSigned; nextPutAll: ' bytes'; cr. str nextPutAll: ' used '; + nextPutAll: (youngSpaceEnd asStringWithCommasSigned: true); nextPutAll: ' bytes'; cr. - nextPutAll: youngSpaceEnd asStringWithCommasSigned; nextPutAll: ' bytes'; cr. str nextPutAll: ' free '; + nextPutAll: ((memoryEnd - youngSpaceEnd) asStringWithCommasSigned: true); nextPutAll: ' bytes'; cr. - nextPutAll: (memoryEnd - youngSpaceEnd) asStringWithCommasSigned; nextPutAll: ' bytes'; cr. str cr. str nextPutAll: '**GCs**'; cr. str nextPutAll: ' full '; print: fullGCs; nextPutAll: ' totalling '; nextPutAll: fullGCTime asStringWithCommas; nextPutAll: ' ms ('; print: (fullGCTime / upTime * 100) maxDecimalPlaces: 2; nextPutAll: '% uptime)'. fullGCs = 0 ifFalse: [str nextPutAll: ', avg '; print: (fullGCTime / fullGCs) maxDecimalPlaces: 1; nextPutAll: ' ms']. str cr. str nextPutAll: ' incr '; print: incrGCs; nextPutAll: ' totalling '; nextPutAll: incrGCTime asStringWithCommas; nextPutAll: ' ms ('; print: (incrGCTime / upTime * 100) maxDecimalPlaces: 1; nextPutAll: '% uptime)'. incrGCs = 0 ifFalse: [str nextPutAll: ', avg '; print: (incrGCTime / incrGCs) maxDecimalPlaces: 1; nextPutAll: ' ms']. str cr. str nextPutAll: ' tenures '; nextPutAll: tenureCount asStringWithCommas. tenureCount = 0 ifFalse: [str nextPutAll: ' (avg '; print: incrGCs // tenureCount; nextPutAll: ' GCs/tenure)']. str cr. str nextPutAll: ' root table '; nextPutAll: rootOverflows asStringWithCommas; nextPutAll: ' overflows'. str cr. ! Item was changed: + (PackageInfo named: 'System') postscript: '"Remove instance of NaturalLanguageTranslator in InternalTranslator, since it breaks its own startup method." + InternalTranslator resetCaches. + "Remove obsolete preferences." - (PackageInfo named: 'System') postscript: '"Remove obsolete preferences." #(allowUnderscoreAssignment allowBlockArgumentAssignment soundsEnabled soundQuickStart soundStopWhenDone canRecordWhilePlaying) do: [ :each | Preferences removePreference: each ].'!

1 0

The Trunk: Environments-cmm.4.mcz
by commits＠source.squeak.org 28 Jul '12

28 Jul '12

Chris Muller uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-cmm.4.mcz ==================== Summary ==================== Name: Environments-cmm.4 Author: cmm Time: 28 July 2012, 11:05:17.638 am UUID: 80382ca3-1ba3-4bfc-8b9a-4a88fdf47402 Ancestors: Environments-fbs.3 - Environments broke loading Connectors. Fix it. =============== Diff against Environments-fbs.3 =============== Item was added: + ----- Method: Environment>>at:ifAbsentPut: (in category 'accessing') ----- + at: aSymbol ifAbsentPut: aBlock + ^ contents + at: aSymbol + ifAbsentPut: aBlock!

1 0

Daily Commit Log
by commits＠source.squeak.org 28 Jul '12

28 Jul '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-July/005439.html Name: Environments-cwp.1 Ancestors: Introduce environments. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-July/005440.html Name: Collections-cwp.470 Ancestors: Collections-dtl.469 Removed the requirement that ReadOnlyVariableBindings can only be used in Smalltalk globals. This makes it possible to create environments other than the root. (Necessary for EnvironmentTest, and eventually, multiple environments.) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-July/005441.html Name: Collections-cwp.480 Ancestors: Collections-bf.479, Collections-cwp.470 merge cwp.470 Removed the requirement that ReadOnlyVariableBindings can only be used in Smalltalk globals. This makes it possible to create environments other than the root. (Necessary for EnvironmentTest, and eventually, multiple environments.) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-July/005442.html Name: Environments-cwp.2 Ancestors: Environments-cwp.1 Added a class initializer to install an environment in Smalltalk globals. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-July/005443.html Name: Tests-cwp.153 Ancestors: Tests-bf.152, Tests-cwp.150 merge Introduce EnvironmentTest. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-July/005444.html Name: Environments-fbs.3 Ancestors: Environments-cwp.2 Using a Workspace, if you misspell a classname you get a walkback because Environment doesn't understand #keysDo:. Implementing it results in the desired spelling correction prompt. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2012-July/005445.html Name: Tests-nice.154 Ancestors: Tests-cwp.153 Use a workaround for testBecomeIdentityHash knowing that two objects created consecutively may share same identityHash. =============================================

1 0

← Newer
1
2
3
4
5
6
7
...
19
Older →

Jump to page: