Squeak-dev December 2010

squeak-dev@lists.squeakfoundation.org

95 participants
379 discussions

The Inbox: Tools-ul.283.mcz
by commits＠source.squeak.org 08 Dec '10

08 Dec '10

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-ul.283.mcz ==================== Summary ==================== Name: Tools-ul.283 Author: ul Time: 8 December 2010, 9:22:57.213 pm UUID: bee239a8-a732-0943-8145-899621dda613 Ancestors: Tools-ul.282 - Browser >> #findClass now uses the fancy ListChooser (in Morphic) =============== Diff against Tools-ul.282 =============== Item was changed: ----- Method: Browser>>findClass (in category 'system category functions') ----- findClass + "Search for a class or a trait by name." + + | names index foundClass | + (multiWindowState notNil or: [ self okToChange ]) ifFalse: [ + ^self classNotFound ]. + names := Smalltalk globals classAndTraitNames. + index := UIManager default + chooseFrom: names + lines: #() + title: 'Class name or fragment?'. + index = 0 ifTrue: [ ^self classNotFound ]. + foundClass := Smalltalk globals + at: (names at: index) + ifAbsent: [ ^self classNotFound ]. + (self selectedClass notNil and: [ + multiWindowState notNil and: [ + "Can only support multi-window if original window has all the right panes." + multiWindowState prototype isHierarchy not ] ]) ifTrue: [ + (self classList includes: foundClass name) + ifTrue: [ multiWindowState copyWindow ] + ifFalse: [ multiWindowState addNewWindow ] ]. - "Search for a class by name." - | pattern foundClass | - - (multiWindowState notNil - or: [self okToChange]) ifFalse: - [^self classNotFound]. - pattern := UIManager default request: 'Class name or fragment?'. - pattern isEmpty ifTrue: [^self classNotFound]. - foundClass := Utilities classFromPattern: pattern withCaption: ''. - foundClass ifNil: [^self classNotFound]. - (self selectedClass notNil - and: [multiWindowState notNil - "Can only support multi-window if original window has all the right panes." - and: [multiWindowState prototype isHierarchy not]]) ifTrue: - [(self classList includes: foundClass name) - ifTrue: [multiWindowState copyWindow] - ifFalse: [multiWindowState addNewWindow]]. self selectCategoryForClass: foundClass. self selectClass: foundClass!

1 0

The Trunk: System-ul.398.mcz
by commits＠source.squeak.org 08 Dec '10

08 Dec '10

Levente Uzonyi uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ul.398.mcz ==================== Summary ==================== Name: System-ul.398 Author: ul Time: 8 December 2010, 9:21:23.04 pm UUID: 8e147d50-061f-6741-8eb3-b8f69182a3de Ancestors: System-ul.397 - fix: SystemDictionary >> #traitNames returns a sorted collection. It also uses the cached nonClassNames which is faster. - added SystemDictionary >> #classAndTraitNames which returns a sorted collection of all class and trait names =============== Diff against System-ul.397 =============== Item was added: + ----- 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. + 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! Item was changed: ----- Method: SystemDictionary>>traitNames (in category 'classes and traits') ----- traitNames + "Answer a sorted collection of all traits (not including class-traits) names." + + ^self nonClassNames select: [ :name | + (name beginsWith: 'AnObsolete') not and: [ + self + at: name + ifPresent: [ :global | global isInMemory and: [ global isTrait ] ] + ifAbsent: [ false ] ] ]! - "Answer a SortedCollection of all traits (not including class-traits) names." - | names | - names := OrderedCollection new. - self do: - [:cl | (cl isInMemory - and: [(cl isTrait) - and: [(cl name beginsWith: 'AnObsolete') not]]) - ifTrue: [names add: cl name]]. - ^ names!

1 0

Better, faster SmallInteger and ScaledDecimal printing
by Levente Uzonyi 08 Dec '10

08 Dec '10

Hi, I uploaded Kernel-ul.522 to the Inbox for testing (see the commit message for details). The tests are green, but you never know if it breaks anything. Please check it out, thanks. Cheers, Levente

1 0

The Trunk: Morphic-laza.489.mcz
by commits＠source.squeak.org 08 Dec '10

08 Dec '10

Alexander Lazarević uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-laza.489.mcz ==================== Summary ==================== Name: Morphic-laza.489 Author: laza Time: 8 December 2010, 2:00:22.014 pm UUID: 0a444f28-0d28-5f4c-8d31-511261f7a98c Ancestors: Morphic-laza.488 Provide a recipe for loading OCompletion in the "Extending the system" workspace =============== Diff against Morphic-laza.488 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>extendingTheSystem (in category 'submenu - help') ----- extendingTheSystem ^'"Note: Please edit this workspace and add your own contributions. To submit it to the inbox open the Monticello browser and submit it from there. Save the package ''* Morphic'' to the inbox." "Updating your system: The following will set the default update URL to receive development updates. For developers and dare-devils only." MCMcmUpdater defaultUpdateURL: ''http://source.squeak.org/trunk''. "Installing new packages: The following expression show how to load many interesting packages into Squeak." "FFI: http://source.squeak.org/FFI.html" (Installer repository: ''http://source.squeak.org/FFI'') install: ''FFI-Pools''; install: ''FFI-Kernel''; install: ''FFI-Tests''; install: ''FFI-Win32''; install: ''FFI-MacOS''; install: ''FFI-Unix''. + "OCompletion provides source code completion as you type" + (Installer ss project: ''OCompletion'') install: ''Ocompletion''. + (Smalltalk at: #ECToolSet) register. + (Smalltalk at: #ToolSet) default: (Smalltalk at: #ECToolSet). + "Omnibrowser, including Refactoring engine" (Installer ss project: ''MetacelloRepository'') install: ''ConfigurationOfOmniBrowser''. ((Smalltalk at: #ConfigurationOfOmniBrowser) project perform: #lastVersion) load: #( Dev ). "Seaside 2.8 http://www.seaside.st" (Installer ss project: ''MetacelloRepository'') install: ''ConfigurationOfSeaside28''. "WAKom startOn: 9090" "Seaside 2.8 Examples http://www.seaside.st" (Installer ss project: ''MetacelloRepository'') install: ''ConfigurationOfSeaside28Examples''. (Smalltalk at: #ConfigurationOfSeaside28Examples) load. "Seaside 3.0 http://www.seaside.st" (Installer ss project: ''MetacelloRepository'') install: ''ConfigurationOfSeaside30''. (Smalltalk at: #ConfigurationOfSeaside30) load. (Smalltalk at: #WAPharoServerAdaptorBrowser) open. "Pier CMS: http://www.piercms.com" (Installer ss project: ''MetacelloRepository'') install: ''ConfigurationOfPier2''. (Smalltalk at: #ConfigurationOfPier2) load. (Installer lukas project: ''pier2'') install: ''Pier-Blog''. (Installer lukas project: ''pier2'') install: ''Pier-Book''. (Installer lukas project: ''pier2addons'') install: ''Pier-Setup''. (Smalltalk at: #PRDistribution) new register. !! + ]style[(189 2 139 15 17 1 32 3 108 2 40 12 11 1 30 3 8 1 11 3 8 1 12 3 8 1 11 3 8 1 11 3 8 1 11 3 8 1 10 3 57 12 2 1 8 1 13 2 8 1 13 13 3 1 10 2 8 13 3 1 8 2 8 12 3 1 10 4 44 11 2 1 8 1 21 2 8 1 28 14 3 1 1 28 7 11 11 2 5 4 3 5 35 12 2 1 8 1 21 2 8 1 26 2 21 2 44 12 2 1 8 1 21 2 8 1 34 13 3 1 33 2 4 3 35 12 2 1 8 1 21 2 8 1 26 13 3 1 25 2 4 13 3 1 28 2 4 3 34 12 2 1 8 1 21 2 8 1 22 13 3 1 21 2 4 14 5 1 8 1 7 2 8 1 11 13 5 1 8 1 7 2 8 1 11 13 5 1 8 1 13 2 8 1 12 13 3 1 15 3 3 1 8 2)c000122122,cblack;,c000122122,cblack;,c000000122,cblack;,c122000122,cblack;,c000122122,cblack;,c000122122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000127127,cblack;,c000000127,cblack;,c000000127,cblack;,c127000127,cblack;,c000000127,cblack;,c127000127,cblack;,c000000127,cblack;,c000000127,cblack;,c000000127,cblack;,c000000127,cblack;,c000000127,cblack;,c000000127,cblack;,c000000127,cblack;,c000000127,cblack;,c000122122,cblack;,c000000125,cblack;,c000000125,cblack;,c125000125,cblack;,c000000125,cblack;,c125000125,cblack;,c000000122,cblack;,c000000122,cblack;,c000000125,cblack;,c000000125,cblack;,c000000125,cblack;,c000000125,cblack;,c000122122,cblack;,c000000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000122122,cblack;,c000122122,cblack;,c000000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000122122,cblack;,c000000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000122122,cblack;,c000000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c122000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;,c000000122,cblack;!!' readStream nextChunkText! - ]style[(189 2 139 15 17 1 32 3 108 2 40 12 11 1 30 3 8 1 11 3 8 1 12 3 8 1 11 3 8 1 11 3 8 1 11 3 8 1 10 3 44 11 2 1 8 1 21 2 8 1 28 14 3 1 1 28 7 11 11 2 5 4 3 5 35 12 2 1 8 1 21 2 8 1 26 2 21 2 44 12 2 1 8 1 21 2 8 1 34 13 3 1 33 2 4 3 35 12 2 1 8 1 21 2 8 1 26 13 3 1 25 2 4 13 3 1 28 2 4 3 34 12 2 1 8 1 21 2 8 1 22 13 3 1 21 2 4 14 5 1 8 1 7 2 8 1 11 13 5 1 8 1 7 2 8 1 11 13 5 1 8 1 13 2 8 1 12 13 3 1 15 3 3 1 8 2)c000123123,cblack;,c000123123,cblack;,c000000123,cblack;,c123000123,cblack;,c000123123,cblack;,c000123123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000123123,cblack;,c000000126,cblack;,c000000126,cblack;,c126000126,cblack;,c000000126,cblack;,c126000126,cblack;,c000000123,cblack;,c000000123,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000000126,cblack;,c000123123,cblack;,c000000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000123123,cblack;,c000123123,cblack;,c000000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c000000123,cblack;,c000000123,cblack;,c000123123,cblack;,c000000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c000000123,cblack;,c000000123,cblack;,c000000123,cblack;,c000000123,cblack;,c000000123,cblack;,c000123123,cblack;,c000000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c000000123,cblack;,c000000123,cblack;,c000000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c123000123,cblack;,c000000123,cblack;,c000000123,cblack;,c000000123,cblack;,c000000123,cblack;!!' readStream nextChunkText!

1 0

The Trunk: Morphic-laza.488.mcz
by commits＠source.squeak.org 08 Dec '10

08 Dec '10

Alexander Lazarević uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-laza.488.mcz ==================== Summary ==================== Name: Morphic-laza.488 Author: laza Time: 8 December 2010, 1:24:52.251 pm UUID: 51a452ef-b931-4d4a-9d66-b8bc829fad99 Ancestors: Morphic-laza.487 Try to prevent empty progress morphs after updates when SystemProgressMorph reset is used in a Postscript =============== Diff against Morphic-mha.486 =============== Item was changed: ----- Method: SystemProgressMorph class>>close: (in category 'instance creation') ----- close: aBlock + | slot | + slot := aBlock value: SmallInteger maxVal. "This should prevent a redraw" + aBlock receiver freeSlot: slot. + + ! - UniqueInstance ifNotNil: [UniqueInstance close: aBlock]! Item was removed: - ----- Method: SystemProgressMorph>>close: (in category 'initialization') ----- - close: aBlock - | slot | - slot := aBlock value: SmallInteger maxVal. "This should prevent a redraw" - self freeSlot: slot - - ! Item was changed: ----- Method: SystemProgressMorph>>freeSlot: (in category 'private') ----- freeSlot: number + number > 0 ifFalse: [^self]. + lock critical: [| label | + label := labels at: number. + (label isNil or: [label owner isNil]) ifTrue: [^self]. "Has been freed before" + label delete. + (bars at: number) delete. + activeSlots := activeSlots - 1. + activeSlots = 0 + ifTrue: [self delete] + ifFalse: [self recenter]]! - number > 0 ifTrue: [ - lock critical: [ - (bars at: number) delete. - (labels at: number) delete. - activeSlots := activeSlots - 1. - activeSlots = 0 - ifTrue: [self delete] - ifFalse: [self recenter]]]! Item was changed: (PackageInfo named: 'Morphic') postscript: '(Preferences dictionaryOfPreferences at: #alternativeWindowBoxesLook) defaultValue: false. + "Force SystemProgressMorph to be reset" SystemProgressMorph initialize; reset. TextEditor initialize. SmalltalkEditor initialize. TheWorldMainDockingBar updateInstances'!

1 0

The Inbox: Kernel-ul.522.mcz
by commits＠source.squeak.org 08 Dec '10

08 Dec '10

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-ul.522.mcz ==================== Summary ==================== Name: Kernel-ul.522 Author: ul Time: 8 December 2010, 4:08:19.384 am UUID: 6927b03c-21df-1746-9a0d-115b717a5e40 Ancestors: Kernel-ul.521 - implemented Fraction >> #negative and ScaledDecimal >> #negative for better performance. These methods don't allocate new objects. - reimplemented SmallInteger printing methods (printOn:base:*) without String allocation. They are as fast as the previous versions were for base 10. - reimplemented ScaledDecimal printing. It avoids object allocations and has better performance than the previous version. ScaledDecimals can also be printed without the scale part by using #printFractionAsDecimalOn:. =============== Diff against Kernel-ul.521 =============== Item was added: + ----- Method: Fraction>>negative (in category 'testing') ----- + negative + + ^numerator negative! Item was added: + ----- Method: ScaledDecimal>>negative (in category 'testing') ----- + negative + + ^fraction negative! Item was added: + ----- Method: ScaledDecimal>>printFractionAsDecimalOn: (in category 'printing') ----- + printFractionAsDecimalOn: stream + + | aFraction integerPart fractionPart | + fraction negative + ifFalse: [ aFraction := fraction ] + ifTrue: [ + aFraction := fraction negated. + stream nextPut: $- ]. + integerPart := aFraction truncated. + integerPart printOn: stream. + scale = 0 ifTrue: [ ^self ]. + stream nextPut: $.. + fractionPart := ((aFraction - integerPart) * (10 raisedToInteger: scale)) truncated. + fractionPart + printOn: stream + base: 10 + length: scale + padded: true! Item was changed: ----- Method: ScaledDecimal>>printOn: (in category 'printing') ----- + printOn: stream + + self + printFractionAsDecimalOn: stream; + printScaleOn: stream! - printOn: aStream - "Reimplementation - Object 'printing' method." - | aFraction tmpFractionPart | - self < 0 ifTrue: [aStream nextPut: $-]. - aFraction := fraction abs. - aStream nextPutAll: aFraction truncated printString. - scale = 0 ifTrue: [^ aStream nextPutAll: 's0']. - aStream nextPut: $.. - tmpFractionPart := aFraction fractionPart. - 1 to: scale - do: - [:dummy | - tmpFractionPart := tmpFractionPart * 10. - aStream nextPut: (Character digitValue: tmpFractionPart truncated). - tmpFractionPart := tmpFractionPart fractionPart]. - aStream nextPut: $s. - scale printOn: aStream! Item was added: + ----- Method: ScaledDecimal>>printScaleOn: (in category 'printing') ----- + printScaleOn: stream + + stream nextPut: $s. + scale printOn: stream! Item was changed: ----- Method: SmallInteger>>printOn:base: (in category 'printing') ----- + printOn: stream base: base - printOn: aStream base: b "Append a representation of this number in base b on aStream." + self printOn: stream base: base length: 0 padded: false! - self < 0 - ifTrue: [aStream nextPut: $-. - aStream nextPutAll: (self negated printStringBase: b). - ^self]. - - "allocating a String seems faster than streaming for SmallInteger" - aStream nextPutAll: (self printStringBase: b)! Item was added: + ----- Method: SmallInteger>>printOn:base:length:padded: (in category 'printing') ----- + printOn: stream base: base length: minimumLength padded: padWithZeroes + + | n numberOfDigits totalLength divisor | + self < 0 + ifTrue: [ + n := self negated. + totalLength := 1 ] + ifFalse: [ + n := self. + totalLength := 0 ]. + numberOfDigits := n numberOfDigitsInBase: base. + totalLength := totalLength + numberOfDigits. + padWithZeroes ifFalse: [ + [ totalLength < minimumLength ] whileTrue: [ + stream space. + totalLength := totalLength + 1 ] ]. + n = self ifFalse: [ stream nextPut: $- ]. + padWithZeroes ifTrue: [ + [ totalLength < minimumLength ] whileTrue: [ + stream nextPut: $0. + totalLength := totalLength + 1 ] ]. + divisor := (base raisedToInteger: numberOfDigits - 1). + [ divisor > 0 ] whileTrue: [ + | digit | + digit := n // divisor. + stream nextPut: ('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' at: digit + 1). + n := n - (digit * divisor). + divisor := divisor // base ]! Item was changed: ----- Method: SmallInteger>>printOn:base:nDigits: (in category 'printing') ----- printOn: aStream base: b nDigits: n "Append a representation of this number in base b on aStream using nDigits. self must be positive." + self printOn: aStream base: b length: n padded: true! - "allocating a String seems faster than streaming for SmallInteger" - aStream nextPutAll: (self printStringBase: b nDigits: n)!

1 0

The Trunk: Kernel-ul.521.mcz
by commits＠source.squeak.org 08 Dec '10

08 Dec '10

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.521.mcz ==================== Summary ==================== Name: Kernel-ul.521 Author: ul Time: 8 December 2010, 3:42:40.757 am UUID: 3b6f8cce-0310-2d4d-91aa-deab6d13bde9 Ancestors: Kernel-ul.520 Implemented CompiledMethod >> #asString the same way Object does. Why? Because it raised an error, which it shouldn't. Why doesn't it return a string with the bytes as characters like ByteArray does it? Because it's not very useful to get an unreadable string with random looking characters. Also CompiledMethod is a subclass of ByteArray only to avoid code duplication, it could be a variableByteSubclass of Object. Why doesn't it return the source code like Pharo does it? Because that requires several changes in the way the sources and changes files are used (concurrency issues). And it's a lot slower. The related mantis issue is http://bugs.squeak.org/view.php?id=7570 . =============== Diff against Kernel-ul.520 =============== Item was added: + ----- Method: CompiledMethod>>asString (in category 'converting') ----- + asString + + ^self printString!

1 0

The Trunk: Kernel-ul.520.mcz
by commits＠source.squeak.org 08 Dec '10

08 Dec '10

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.520.mcz ==================== Summary ==================== Name: Kernel-ul.520 Author: ul Time: 8 December 2010, 3:19:51.682 am UUID: da185163-27f6-6a47-8ecb-e00f9fd8dd3a Ancestors: Kernel-ul.519 A few changes to Semaphore: - save a block creation + activation + a possible context switch in #critical:ifCurtailed: - save a block creation + activation in #critical:ifError:, this changes the behavior when mutuallyExcludedBlock doesn't understand #ifError: - #critical:ifLocked: is guaranteed to not get locked. The earlier implementation sent #critical: which could cause a context switch, so another process could enter the critical section before the current. Also fixed the comments of this method. =============== Diff against Kernel-ul.519 =============== Item was changed: ----- Method: Semaphore>>critical:ifCurtailed: (in category 'mutual exclusion') ----- critical: mutuallyExcludedBlock ifCurtailed: terminationBlock "Evaluate mutuallyExcludedBlock only if the receiver is not currently in the process of running the critical: message. If the receiver is, evaluate mutuallyExcludedBlock after the other critical: message is finished." + ^self critical: [ mutuallyExcludedBlock ifCurtailed: terminationBlock ] - ^self critical:[[mutuallyExcludedBlock value] ifCurtailed: terminationBlock] ! Item was changed: ----- Method: Semaphore>>critical:ifError: (in category 'mutual exclusion') ----- critical: mutuallyExcludedBlock ifError: errorBlock "Evaluate mutuallyExcludedBlock only if the receiver is not currently in the process of running the critical: message. If the receiver is, evaluate mutuallyExcludedBlock after the other critical: message is finished." | blockValue hasError errMsg errRcvr | hasError := false. blockValue := self critical:[ + mutuallyExcludedBlock ifError: [ :msg :rcvr | - [mutuallyExcludedBlock value] ifError:[:msg :rcvr| hasError := true. errMsg := msg. errRcvr := rcvr ]. ]. hasError ifTrue:[ ^errorBlock value: errMsg value: errRcvr]. ^blockValue! Item was changed: ----- Method: Semaphore>>critical:ifLocked: (in category 'mutual exclusion') ----- critical: mutuallyExcludedBlock ifLocked: alternativeBlock "Evaluate mutuallyExcludedBlock only if the receiver is not currently in + the process of running the critical: message. If the receiver is, then evaluate + alternativeBlock and return." + "See the comment of #critical: for the explanation how this pattern works + before changing the code." + + | caught | + caught := false. + ^[ + "We're using #== here instead of #=, because it won't introduce a + suspension point, while #= may do that." + excessSignals == 0 + ifTrue: [ alternativeBlock value ] + ifFalse: [ + excessSignals := excessSignals - 1. + caught := true. + mutuallyExcludedBlock value ] ] + ensure: [ caught ifTrue: [ self signal ] ]! - the process of running the critical: message. If the receiver is, evaluate - mutuallyExcludedBlock after the other critical: message is finished." - - "Note: The following is tricky and depends on the fact that the VM will not switch between processes while executing byte codes (process switches happen only in real sends). The following test is written carefully so that it will result in bytecodes only. - Do not change the following #== for #=, as #== is not a real message send, just a bytecode." - excessSignals == 0 ifTrue: [ - "If we come here, then the semaphore was locked when the test executed. - Evaluate the alternative block and answer its result." - ^alternativeBlock value - ]. - ^self critical: mutuallyExcludedBlock!

1 0

The Trunk: Kernel-ul.519.mcz
by commits＠source.squeak.org 08 Dec '10

08 Dec '10

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.519.mcz ==================== Summary ==================== Name: Kernel-ul.519 Author: ul Time: 8 December 2010, 2:52:41.144 am UUID: 630c1710-46b8-5248-bdb8-e08d99d6d9c0 Ancestors: Kernel-ul.518 - copied another two methods from BlockContext to BlockClosure. One of them fixes http://bugs.squeak.org/view.php?id=7579 . =============== Diff against Kernel-ul.518 =============== Item was added: + ----- Method: BlockClosure>>newProcessWith: (in category 'scheduling') ----- + newProcessWith: anArray + "Answer a Process running the code in the receiver. The receiver's block + arguments are bound to the contents of the argument, anArray. The + process is not scheduled." + <primitive: 19> "Simulation guard" + ^Process + forContext: + [self valueWithArguments: anArray. + Processor terminateActive] asContext + priority: Processor activePriority! Item was added: + ----- Method: BlockClosure>>valueWithExit (in category 'evaluating') ----- + valueWithExit + self value: [ ^nil ]!

1 0

The Trunk: MorphicExtras-ul.96.mcz
by commits＠source.squeak.org 08 Dec '10

08 Dec '10

Levente Uzonyi uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ul.96.mcz ==================== Summary ==================== Name: MorphicExtras-ul.96 Author: ul Time: 8 December 2010, 2:38:15.825 am UUID: c2425953-3cba-a545-a970-62ede1af9f17 Ancestors: MorphicExtras-fbs.95, MorphicExtras-edc.95 merged =============== Diff against MorphicExtras-fbs.95 =============== Item was changed: ----- Method: ProjectNavigationMorph>>findAProject (in category 'the actions') ----- findAProject FileList2 + morphicViewProjectLoader2InWorld: World - morphicViewProjectLoader2InWorld: self world reallyLoad: true dirFilterType: #initialDirectoryList!

1 0

← Newer
1
...
29
30
31
32
33
34
35
...
38
Older →

Jump to page: