Squeak-dev November 2013

squeak-dev@lists.squeakfoundation.org

43 participants
223 discussions

Daily Commit Log
by commits＠source.squeak.org 05 Nov '13

05 Nov '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-November/006591.h… Name: CollectionsTests-fbs.207 Ancestors: CollectionsTests-cmm.206 Move collection tests where they belong. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006592.h… Name: Tests-fbs.260 Ancestors: Tests-fbs.259 Move collection tests where they belong. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006593.h… Name: Tests-fbs.261 Ancestors: Tests-fbs.260 Delete testInfoProxy as per Chris Muller's request, to see if it unbreaks CI. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006594.h… Name: System-nice.614 Ancestors: System-ul.613 StrikeFont class>>newForJapaneseFromEFontBDFFile:name:overrideWith: was moved in Multilingual =============================================

1 0

source squeak org down
by Nicolas Cellier 04 Nov '13

04 Nov '13

It seems really down this time http://www.downforeveryoneorjustme.com/source.squeak.org

4 5

The Trunk: System-nice.614.mcz
by commits＠source.squeak.org 04 Nov '13

04 Nov '13

Nicolas Cellier uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-nice.614.mcz ==================== Summary ==================== Name: System-nice.614 Author: nice Time: 4 November 2013, 10:13:34.622 pm UUID: 08dce2a0-f85e-4b9b-bfc5-2310e89bec93 Ancestors: System-ul.613 StrikeFont class>>newForJapaneseFromEFontBDFFile:name:overrideWith: was moved in Multilingual =============== Diff against System-ul.613 =============== Item was removed: - ----- Method: StrikeFont class>>newForJapaneseFromEFontBDFFile:name:overrideWith: (in category '*System-Fonts') ----- - newForJapaneseFromEFontBDFFile: fileName name: aString overrideWith: otherFileName - - | n | - n := self new. - n readEFontBDFForJapaneseFromFile: fileName name: aString overrideWith: otherFileName. - ^ n. - !

1 0

help building and running on iOS?
by Craig Latta 04 Nov '13

04 Nov '13

Hoi-- Would someone please help me build and run Squeak for my iPhone, via Skype? I'm in the pacific timezone at the moment. thanks! -C -- Craig Latta www.netjam.org/resume + 1 510 984 8117 (Skype rings this until 31 January 2014)

2 1

The Trunk: Tests-fbs.261.mcz
by commits＠source.squeak.org 04 Nov '13

04 Nov '13

Frank Shearar uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-fbs.261.mcz ==================== Summary ==================== Name: Tests-fbs.261 Author: fbs Time: 4 November 2013, 6:40:42.33 pm UUID: f5961117-ed1d-7743-ad50-ef8c0cca4ab7 Ancestors: Tests-fbs.260 Delete testInfoProxy as per Chris Muller's request, to see if it unbreaks CI. =============== Diff against Tests-fbs.260 =============== Item was removed: - ----- Method: MCWorkingCopyTest>>testInfoProxy (in category 'tests') ----- - testInfoProxy - | latestSnapshot instanceCountBefore notificationReceived allAncestorsBefore | - <timeout: 10> - latestSnapshot := (1 to: 13) - inject: self snapshot - into: [ : snap : n | self change: #someMethod toReturn: n; snapshot ]. - Smalltalk garbageCollect. - instanceCountBefore := MCVersionInfo instanceCount. - allAncestorsBefore := workingCopy ancestry allAncestors. - workingCopy stubAncestry. - repositoryGroup flushCache. - Smalltalk garbageCollect. - "We're only one less rather than three, because we're using an in-memory repository" - self assert: instanceCountBefore < MCVersionInfo instanceCount. - notificationReceived := false. - [ self assert: allAncestorsBefore = workingCopy ancestry allAncestors ] - on: MCProxyMaterialization - do: - [ : noti | notificationReceived := true. - noti defaultAction ]. - self - assert: notificationReceived ; - assert: MCVersionInfo instanceCount >= instanceCountBefore. - "Very important to ensure saving does not save a truncated ancestry hierarchy." - workingCopy stubAncestry. - self change: #someMethod toReturn: 14; snapshot. - self assert: workingCopy ancestry ancestors anyOne allAncestors = allAncestorsBefore!

1 0

The Trunk: Tests-fbs.260.mcz
by commits＠source.squeak.org 04 Nov '13

04 Nov '13

Frank Shearar uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-fbs.260.mcz ==================== Summary ==================== Name: Tests-fbs.260 Author: fbs Time: 4 November 2013, 6:34:11.676 pm UUID: 60aafff2-a5b5-854d-9b22-88bda06a2565 Ancestors: Tests-fbs.259 Move collection tests where they belong. =============== Diff against Tests-fbs.259 =============== Item was removed: - TestCase subclass: #ByteArrayBugz - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Bugs'! Item was removed: - ----- Method: ByteArrayBugz>>testByteArrayLongAt (in category 'as yet unclassified') ----- - testByteArrayLongAt - | ba value | - ba := ByteArray new: 4. - value := -1. - self shouldnt:[ba longAt: 1 put: value bigEndian: true] raise: Error. - self assert: (ba longAt: 1 bigEndian: true) = value. - self shouldnt:[ba longAt: 1 put: value bigEndian: false] raise: Error. - self assert: (ba longAt: 1 bigEndian: false) = value. - ! Item was removed: - TestCase subclass: #DictionaryIntegrityTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Bugs'! Item was removed: - ----- Method: DictionaryIntegrityTest>>testDictionaries (in category 'tests') ----- - testDictionaries - - #( - Dictionary - IdentityDictionary - SystemDictionary - LiteralDictionary - PluggableDictionary - WeakValueDictionary) do: [ :dictionaryClassName | - Smalltalk at: dictionaryClassName ifPresent: [ :dictionaryClass | - dictionaryClass allInstancesDo: [ :dictionary | - dictionary keysAndValuesDo: [ :key :value | - self assert: (dictionary at: key) == value ]. - dictionary array doWithIndex: [ :association :index | - association ifNotNil: [ - self assert: (dictionary scanFor: association key) = index ] ] ] ] ]! Item was removed: - ----- Method: DictionaryIntegrityTest>>testMethodDictionaries (in category 'tests') ----- - testMethodDictionaries - - MethodDictionary allInstancesDo: [ :dictionary | - dictionary keysAndValuesDo: [ :key :value | - self assert: (dictionary at: key) == value ]. - 1 to: dictionary basicSize do: [ :index | - (dictionary basicAt: index) - ifNil: [ self assert: (dictionary array at: index) isNil ] - ifNotNil: [ :key | - self assert: (dictionary scanFor: key) = index ] ] ]! Item was removed: - TestCase subclass: #HashedCollectionIntegrityTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Bugs'! Item was removed: - ----- Method: HashedCollectionIntegrityTest>>testCapacity (in category 'as yet unclassified') ----- - testCapacity - - | inconsistentCollections | - inconsistentCollections := HashedCollection allSubInstances reject: [ :each | - each class == MethodDictionary "MethodDictionary is the only HashedCollection which doesn't have prime array size" - ifTrue: [ each capacity isPowerOfTwo ] - ifFalse: [ each capacity isPrime ] ]. - self assert: inconsistentCollections isEmpty! Item was removed: - Object subclass: #NameOfSubclass - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Bugs'! Item was removed: - TestCase subclass: #StreamBugz - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Bugs'! Item was removed: - ----- Method: StreamBugz>>testReadWriteStreamNextNBug (in category 'as yet unclassified') ----- - testReadWriteStreamNextNBug - | aStream | - aStream := ReadWriteStream on: String new. - aStream nextPutAll: 'Hello World'. - self shouldnt:[aStream next: 5] raise: Error. - !

1 0

The Trunk: CollectionsTests-fbs.207.mcz
by commits＠source.squeak.org 04 Nov '13

04 Nov '13

Frank Shearar uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-fbs.207.mcz ==================== Summary ==================== Name: CollectionsTests-fbs.207 Author: fbs Time: 4 November 2013, 6:31:01.83 pm UUID: 4057d67b-5969-8b41-85d1-43fd39da4bb1 Ancestors: CollectionsTests-cmm.206 Move collection tests where they belong. =============== Diff against CollectionsTests-cmm.206 =============== Item was added: + ----- Method: ByteArrayTest>>testByteArrayLongAt (in category 'as yet unclassified') ----- + testByteArrayLongAt + | ba value | + ba := ByteArray new: 4. + value := -1. + self shouldnt:[ba longAt: 1 put: value bigEndian: true] raise: Error. + self assert: (ba longAt: 1 bigEndian: true) = value. + self shouldnt:[ba longAt: 1 put: value bigEndian: false] raise: Error. + self assert: (ba longAt: 1 bigEndian: false) = value.! Item was added: + ----- Method: DictionaryTest>>testIntegrityOfDictionaries (in category 'integrity tests') ----- + testIntegrityOfDictionaries + #( + Dictionary + IdentityDictionary + SystemDictionary + LiteralDictionary + PluggableDictionary + WeakValueDictionary) do: [ :dictionaryClassName | + Smalltalk at: dictionaryClassName ifPresent: [ :dictionaryClass | + dictionaryClass allInstancesDo: [ :dictionary | + dictionary keysAndValuesDo: [ :key :value | + self assert: (dictionary at: key) == value ]. + dictionary array doWithIndex: [ :association :index | + association ifNotNil: [ + self assert: (dictionary scanFor: association key) = index ] ] ] ] ]! Item was added: + ----- Method: DictionaryTest>>testMethodDictionaries (in category 'integrity tests') ----- + testMethodDictionaries + MethodDictionary allInstancesDo: [ :dictionary | + dictionary keysAndValuesDo: [ :key :value | + self assert: (dictionary at: key) == value ]. + 1 to: dictionary basicSize do: [ :index | + (dictionary basicAt: index) + ifNil: [ self assert: (dictionary array at: index) isNil ] + ifNotNil: [ :key | + self assert: (dictionary scanFor: key) = index ] ] ]! Item was added: + ----- Method: HashedCollectionTest>>testCapacity (in category 'test - integrity') ----- + testCapacity + + | inconsistentCollections | + inconsistentCollections := HashedCollection allSubInstances reject: [ :each | + each class == MethodDictionary "MethodDictionary is the only HashedCollection which doesn't have prime array size" + ifTrue: [ each capacity isPowerOfTwo ] + ifFalse: [ each capacity isPrime ] ]. + self assert: inconsistentCollections isEmpty! Item was added: + ----- Method: ReadWriteStreamTest>>testReadWriteStreamNextNBug (in category 'tests') ----- + testReadWriteStreamNextNBug + | aStream | + aStream := ReadWriteStream on: String new. + aStream nextPutAll: 'Hello World'. + self shouldnt:[aStream next: 5] raise: Error.!

1 0

FreeType
by Nicolas Cellier 03 Nov '13

03 Nov '13

I have created a repository for maintaining the trunk 4.5 branch: MCHttpRepository location: 'http://ss3.gemstone.com/ss/FreeTypePlus' user: '' password: '' FreeType requires a plugin. It is pre-compiled and distributed with Pharo VM, so it's the easiest way to test it...

2 4

Re: [squeak-dev] The Trunk: CommandLine-fbs.1.mcz
by Chris Muller 03 Nov '13

03 Nov '13

Why did you use "SmalltalkImage current" instead of "Smalltalk?" How about using the new Error>>#printDetailsOn:? Why does this need to be yet another new package instead of simply part of Tools? It's two classes that should never be unloaded, because command-line operations are something that should always be part of the system. On Thu, Oct 31, 2013 at 5:32 PM, <commits(a)source.squeak.org> wrote: > Frank Shearar uploaded a new version of CommandLine to project The Trunk: > http://source.squeak.org/trunk/CommandLine-fbs.1.mcz > > ==================== Summary ==================== > > Name: CommandLine-fbs.1 > Author: fbs > Time: 31 October 2013, 10:32:52.821 pm > UUID: dc871e85-bd16-d742-acbf-4d2b838113d1 > Ancestors: > > CommandLineToolSet does little more than dump errors to stderr. > > DummyUIManager comes from Pharo via Pavel Krivanek's minimising script. > > ==================== Snapshot ==================== > > SystemOrganization addCategory: #'CommandLine-Tools'! > SystemOrganization addCategory: #'CommandLine-UIManager'! > > UIManager subclass: #DummyUIManager > instanceVariableNames: '' > classVariableNames: '' > poolDictionaries: '' > category: 'CommandLine-UIManager'! > > !DummyUIManager commentStamp: 'fbs 10/31/2013 07:36' prior: 0! > I'm an alternative UIManager used to run an the image without GUI. I redefine methods which require user input as these requests are irrelevant in a headless environment. ! > > ----- Method: DummyUIManager>>checkForNewDisplaySize (in category 'display') ----- > checkForNewDisplaySize > Display extent = DisplayScreen actualScreenSize ifTrue: [^ self]. > DisplayScreen startUp. > ! > > ----- Method: DummyUIManager>>chooseDirectory:from: (in category 'ui requests') ----- > chooseDirectory: label from: dir > ^ nil! > > ----- Method: DummyUIManager>>chooseFrom:lines:title: (in category 'ui requests') ----- > chooseFrom: aList lines: linesArray title: aString > ^ aList first! > > ----- Method: DummyUIManager>>chooseFrom:values:lines:title: (in category 'ui requests') ----- > chooseFrom: labelList values: valueList lines: linesArray title: aString > ^ valueList first! > > ----- Method: DummyUIManager>>confirm: (in category 'ui requests') ----- > confirm: queryString > (ProvideAnswerNotification signal: queryString) > ifNotNil: [:answer|^answer]. > > self error: 'No user response possible'! > > ----- Method: DummyUIManager>>confirm:orCancel: (in category 'ui requests') ----- > confirm: aString orCancel: cancelBlock > (ProvideAnswerNotification signal: aString) ifNotNil: [:answer | > ^answer == #cancel ifTrue: [cancelBlock value] ifFalse: [answer]]. > > self error: 'No user response possible'! > > ----- Method: DummyUIManager>>displayProgress:at:from:to:during: (in category 'ui requests') ----- > displayProgress: titleString at: aPoint from: minVal to: maxVal during: workBlock > ^ workBlock value: Association new! > > ----- Method: DummyUIManager>>edit:label:accept: (in category 'ui requests') ----- > edit: aText label: labelString accept: anAction > ^ nil! > > ----- Method: DummyUIManager>>fontFromUser: (in category 'ui requests') ----- > fontFromUser: priorFont > self error: 'No user response possible'! > > ----- Method: DummyUIManager>>inform: (in category 'ui requests') ----- > inform: aString > "Nothing to be done here"! > > ----- Method: DummyUIManager>>informUserDuring: (in category 'ui requests') ----- > informUserDuring: aBlock > aBlock value: nil! > > ----- Method: DummyUIManager>>newDisplayDepthNoRestore: (in category 'display') ----- > newDisplayDepthNoRestore: pixelSize > "Change depths. Check if there is enough space!! , di" > | area need | > pixelSize = Display depth ifTrue: [^ self "no change"]. > pixelSize abs < Display depth ifFalse: > ["Make sure there is enough space" > area := Display boundingBox area. "pixels" > > need := (area * (pixelSize abs - Display depth) // 8) "new bytes needed" > + Smalltalk lowSpaceThreshold. > (Smalltalk garbageCollectMost <= need > and: [Smalltalk garbageCollect <= need]) > ifTrue: [self error: 'Insufficient free space']]. > Display setExtent: Display extent depth: pixelSize. > > DisplayScreen startUp! > > ----- Method: DummyUIManager>>request:initialAnswer: (in category 'ui requests') ----- > request: queryString initialAnswer: defaultAnswer > (ProvideAnswerNotification signal: queryString) > ifNotNil: [:answer | > ^ answer == #default ifTrue: [defaultAnswer] ifFalse: [answer]]. > > self error: 'No user response possible'! > > ----- Method: DummyUIManager>>requestPassword: (in category 'ui requests') ----- > requestPassword: queryString > ^ self request: queryString initialAnswer: ''! > > ----- Method: DummyUIManager>>restoreDisplay (in category 'display') ----- > restoreDisplay! > > ----- Method: DummyUIManager>>restoreDisplayAfter: (in category 'display') ----- > restoreDisplayAfter: aBlock > aBlock value. > Sensor waitButton.! > > StandardToolSet subclass: #CommandLineToolSet > instanceVariableNames: '' > classVariableNames: 'SaveSnapshotOnError' > poolDictionaries: '' > category: 'CommandLine-Tools'! > > ----- Method: CommandLineToolSet class>>debugError: (in category 'debugging') ----- > debugError: anError > "Print out a sensible stack trace and bail" > | problemPlace s | > self saveSnapshotOnError > ifTrue: [Smalltalk saveAs: 'Debug-' , (Smalltalk imageName subStrings: '/') last]. > problemPlace := anError signalerContext. > s := FileStream stderr. > (anError isKindOf: MessageNotUnderstood) ifTrue: [ > s > nextPutAll: anError messageText; cr; > nextPutAll: problemPlace sender methodNode printString; cr]. > (problemPlace stackOfSize: 20) do: [:ctx | s cr. ctx printOn: s]. > s flush. > > SmalltalkImage current snapshot: false andQuit: true! > > ----- Method: CommandLineToolSet class>>debugSyntaxError: (in category 'debugging') ----- > debugSyntaxError: anError > | s | > s := FileStream stderr. > s nextPutAll: '----- Syntax error -----'; cr. > s nextPutAll: anError errorCode; cr. > s nextPutAll: '----- Syntax error -----'; cr. > > self debugError: anError! > > ----- Method: CommandLineToolSet class>>saveSnapshotOnError (in category 'preferences') ----- > saveSnapshotOnError > <preference: 'Save snapshot of image on failure' > category: 'debug' > description: 'If true, saves a snapshot of the failing image to the current directory.' > type: #Boolean> > ^ SaveSnapshotOnError ifNil: [SaveSnapshotOnError := false].! > > ----- Method: CommandLineToolSet class>>saveSnapshotOnError: (in category 'preferences') ----- > saveSnapshotOnError: aBoolean > SaveSnapshotOnError := aBoolean.! > > ----- Method: CommandLineToolSet class>>unload (in category 'class initialization') ----- > unload > ToolSet unregister: self.! > >

2 3

Daily Commit Log
by commits＠source.squeak.org 03 Nov '13

03 Nov '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-November/006589.h… Name: System-ul.613 Ancestors: System-cmm.612 - fix: SystemNavigation >> #allBehaviorsDo: shouldn't enumerate Trait more than once. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2013-November/006590.h… Name: CommandLine-fbs.2 Ancestors: CommandLine-fbs.1 SmalltalkImage current -> Smalltalk. =============================================

1 0

Jump to page: