Squeak-dev September 2011

squeak-dev@lists.squeakfoundation.org

64 participants
208 discussions

The Trunk: KernelTests-ul.200.mcz
by commits＠source.squeak.org 10 Sep '11

10 Sep '11

Levente Uzonyi uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ul.200.mcz ==================== Summary ==================== Name: KernelTests-ul.200 Author: ul Time: 10 September 2011, 5:02:40.237 pm UUID: e5a86591-f8c8-0047-a410-3e2da3749024 Ancestors: KernelTests-cmm.198 Added a new test for Monitor documenting a serious bug (related to unwinding), which allows multiple processes to enter the monitor at the same time. =============== Diff against KernelTests-cmm.198 =============== Item was added: + ----- Method: MonitorTest>>testMonitorNotGainingUnwantedSignalsDuringUnwinding (in category 'examples') ----- + testMonitorNotGainingUnwantedSignalsDuringUnwinding + + | monitor process | + monitor := Monitor new. + process := [ monitor critical: [ monitor wait ] ] newProcess. + process resume. + 50 milliSeconds asDelay wait. + process terminate. + self assert: 1 equals: ((monitor instVarNamed: #mutex) instVarNamed: #excessSignals)!

1 0

The Inbox: Tools-fbs.378.mcz
by commits＠source.squeak.org 10 Sep '11

10 Sep '11

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-fbs.378.mcz ==================== Summary ==================== Name: Tools-fbs.378 Author: fbs Time: 10 September 2011, 2:55:47.901 pm UUID: 389ea27d-de95-4e84-9212-59981f953940 Ancestors: Tools-eem.377 Mantis issue #7673. Change a class name through the "rename class" menu item doesn't update code pane. Given a class Foo renamed to Bar, the class description still looks like Object subclass: #Foo <snip> If you select another class and then Bar, the code pane contains correct information. =============== Diff against Tools-eem.377 =============== Item was changed: ----- Method: Browser>>renameClass (in category 'class functions') ----- renameClass | oldName newName obs | self hasClassSelected ifFalse: [^ self]. self okToChange ifFalse: [^ self]. oldName := self selectedClass name. newName := self request: 'Please type new class name' initialAnswer: oldName. newName = '' ifTrue: [^ self]. "Cancel returns ''" newName := newName asSymbol. newName = oldName ifTrue: [^ self]. (self selectedClass environment includesKey: newName) ifTrue: [^ self error: newName , ' already exists']. self selectedClass rename: newName. selectedClassName := newName. self changed: #classList. obs := self systemNavigation allCallsOn: (self selectedClass environment associationAt: newName). obs isEmpty ifFalse: [self systemNavigation browseMessageList: obs name: 'Obsolete References to ' , oldName + autoSelect: oldName]. + self selectClassNamed: newName.! - autoSelect: oldName]!

1 0

The Trunk: Collections-ul.457.mcz
by commits＠source.squeak.org 10 Sep '11

10 Sep '11

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.457.mcz ==================== Summary ==================== Name: Collections-ul.457 Author: ul Time: 10 September 2011, 3:31:39.521 pm UUID: f07d7d2f-b42d-6241-be93-164c512d5296 Ancestors: Collections-fbs.456 - no need to call #resetTo: from OrderedCollection class >> newFrom:, because it's already called by #new: (#setCollection:) - reuse existing binary search method in SequenceableCollection >> findNearbyBinaryIndex: =============== Diff against Collections-fbs.456 =============== Item was changed: ----- Method: OrderedCollection class>>newFrom: (in category 'instance creation') ----- newFrom: aCollection "Answer an instance of me containing the same elements as aCollection." ^(self new: aCollection size) - resetTo: 1; addAll: aCollection; yourself " OrderedCollection newFrom: {1. 2. 3} {1. 2. 3} as: OrderedCollection {4. 2. 7} as: SortedCollection "! Item was changed: ----- Method: SequenceableCollection>>findNearbyBinaryIndex: (in category 'enumerating') ----- findNearbyBinaryIndex: aBlock "Search for an element in the receiver using binary search. The argument aBlock is a one-element block returning 0 - if the element is the one searched for <0 - if the search should continue in the first half >0 - if the search should continue in the second half If no matching element is found, answer the closest index we could find, answering 0 if the element should preceed all items in the collection, and size + 1 if the element should follow all items in the collection." + + ^self + findBinaryIndex: aBlock + ifNone: [ :lower :upper | + lower = self size + ifTrue: [ upper ] + ifFalse: [ lower ] ]! - | index low high test | - low := 1. - high := self size. - [index := high + low // 2. - low > high] whileFalse:[ - test := aBlock value: (self at: index). - test = 0 - ifTrue:[^index] - ifFalse:[test > 0 - ifTrue: [low := index + 1] - ifFalse: [high := index - 1]]]. - ^index = self size ifTrue: [index + 1] ifFalse: [index]!

1 0

The Trunk: Compression-nice.30.mcz
by commits＠source.squeak.org 10 Sep '11

10 Sep '11

Nicolas Cellier uploaded a new version of Compression to project The Trunk: http://source.squeak.org/trunk/Compression-nice.30.mcz ==================== Summary ==================== Name: Compression-nice.30 Author: nice Time: 10 September 2011, 2:00:10.516 pm UUID: 9a13d6e4-7dd0-48e3-a097-456788f53488 Ancestors: Compression-ul.29 Bugfix: startIndex would be ignored and an incorrect bytesCount could be copied when collection species differ in DeflateStream>>next:putAll:startingAt: =============== Diff against Compression-ul.29 =============== Item was changed: ----- Method: DeflateStream>>next:putAll:startingAt: (in category 'accessing') ----- next: bytesCount putAll: aCollection startingAt: startIndex | start count max | aCollection species = collection species + ifFalse: + [startIndex to: startIndex + bytesCount - 1 do: [:i | self nextPut: (aCollection at: i)]. - ifFalse:[ - aCollection do:[:ch| self nextPut: ch]. ^aCollection]. start := startIndex. count := bytesCount. [count = 0] whileFalse:[ position = writeLimit ifTrue:[self deflateBlock]. max := writeLimit - position. max > count ifTrue:[max := count]. collection replaceFrom: position+1 to: position+max with: aCollection startingAt: start. start := start + max. count := count - max. position := position + max]. ^aCollection!

1 0

Daily Commit Log
by commits＠source.squeak.org 10 Sep '11

10 Sep '11

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2011-September/004952.… Name: Collections-fbs.456 Ancestors: Collections-eem.455 Mantis #7666: typo in Dictionary class >> #newFromPairs. =============================================

1 0

[CI] Unloading a package programmatically?
by Casey Ransberger 09 Sep '11

09 Sep '11

In the after.st script, I see this. This is probably where the build is hanging presently. "Unload Build Tools" [ Gofer new package: 'HudsonBuildTools'; unload ] on: Error do: [ :err | "package not present" ]. ! This is to rid the build tools from the produced artifact, a nice touch. Since we don't have Gofer in Squeak, is there an easy way to do this? -- Casey Ransberger

6 19

The Trunk: Collections-fbs.456.mcz
by commits＠source.squeak.org 09 Sep '11

09 Sep '11

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-fbs.456.mcz ==================== Summary ==================== Name: Collections-fbs.456 Author: fbs Time: 9 September 2011, 11:51:06.387 am UUID: a66665f4-54c0-4023-b9cd-ba67db31fdc9 Ancestors: Collections-eem.455 Mantis #7666: typo in Dictionary class >> #newFromPairs. =============== Diff against Collections-eem.455 =============== Item was changed: ----- Method: Dictionary class>>newFromPairs: (in category 'instance creation') ----- newFromPairs: anArray + "Answer an instance of me associating (anArray at:i) to (anArray at: i+1) - "Answer an instance of me associating (anArray at:i) to (anArray at: i+i) for each odd i. anArray must have an even number of entries." | newDictionary | newDictionary := self new: (anArray size/2). 1 to: (anArray size-1) by: 2 do: [ :i| newDictionary at: (anArray at: i) put: (anArray at: i+1). ]. ^ newDictionary " Dictionary newFromPairs: {'Red' . Color red . 'Blue' . Color blue . 'Green' . Color green}. "!

1 0

The Inbox: Collections-fbs.456.mcz
by commits＠source.squeak.org 09 Sep '11

09 Sep '11

A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-fbs.456.mcz ==================== Summary ==================== Name: Collections-fbs.456 Author: fbs Time: 9 September 2011, 11:51:06.387 am UUID: a66665f4-54c0-4023-b9cd-ba67db31fdc9 Ancestors: Collections-eem.455 Mantis #7666: typo in Dictionary class >> #newFromPairs. =============== Diff against Collections-eem.455 =============== Item was changed: ----- Method: Dictionary class>>newFromPairs: (in category 'instance creation') ----- newFromPairs: anArray + "Answer an instance of me associating (anArray at:i) to (anArray at: i+1) - "Answer an instance of me associating (anArray at:i) to (anArray at: i+i) for each odd i. anArray must have an even number of entries." | newDictionary | newDictionary := self new: (anArray size/2). 1 to: (anArray size-1) by: 2 do: [ :i| newDictionary at: (anArray at: i) put: (anArray at: i+1). ]. ^ newDictionary " Dictionary newFromPairs: {'Red' . Color red . 'Blue' . Color blue . 'Green' . Color green}. "!

1 0

[CI] Building from Jenkins now!
by Casey Ransberger 09 Sep '11

09 Sep '11

Okay, so the first few times, the build kicked off but then just hung for way too long. Hunched there was a debugger open and was right. Hacked the build script to remove headlessness, tweaked a couple of Pharoisms to get the build to run all the way through, and now I'm doing the headless build again to see what happens. Cross your fingers, ladies and gentlemen! -- Casey Ransberger

1 1

OpenGL-Tutorial updated
by Lawson English 09 Sep '11

09 Sep '11

I added a couple of minor bits to my ongoing implementation of the HE OpenGL tutorials. Only 2-5 are available right now. http://croquet-src-01.oit.duke.edu:8886/Contributions' OpenGL-Tutorial-LDE.10 I added a timer option ala the OpenGL class>>example, basically. To run, as is: myOGLView := OGLMorphTutorial new. myOGLView openInWorld. myOGLView toggleTiming. "on" myOGLView toggleTiming. "off" Currently it only runs Lesson 4. To change this, edit #renderScene to use one of the other tutorials available. I'll add an option to provide a choice of which lesson to run, eventually. You can also use it as a template for your own experimentation with OpenGL. Lawson

1 1

← Newer
1
...
14
15
16
17
18
19
20
21
Older →

Jump to page: