Packages December 2010

packages@lists.squeakfoundation.org

2 participants
359 discussions

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

12 Dec '10

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.523.mcz ==================== Summary ==================== Name: Kernel-ul.523 Author: ul Time: 8 December 2010, 4:45:41.467 am UUID: 809ca265-c5de-ac47-b6d6-226f80cf9245 Ancestors: Kernel-ul.522 - added Semaphore >> #waitIfLocked: =============== Diff against Kernel-ul.522 =============== Item was added: + ----- Method: Semaphore>>waitIfLocked: (in category 'communication') ----- + waitIfLocked: aBlock + "Use a signal if available, otherwise evaluate aBlock" + + excessSignals == 0 ifTrue: [ ^aBlock value ]. + excessSignals := excessSignals - 1!

1 0

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

12 Dec '10

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/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.522.mcz
by commits＠source.squeak.org 12 Dec '10

12 Dec '10

1 0

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

12 Dec '10

1 0

The Trunk: Morphic-mtf.493.mcz
by commits＠source.squeak.org 10 Dec '10

10 Dec '10

Matthew Fulmer uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mtf.493.mcz ==================== Summary ==================== Name: Morphic-mtf.493 Author: mtf Time: 10 December 2010, 2:05:40.188 pm UUID: ecff7ecd-c928-4125-b0c8-f564ffe7e7db Ancestors: Morphic-ul.490 don't draw transparent fillStyles. Needed by Tweak. Imported from OpenCobalt =============== Diff against Morphic-ul.490 =============== Item was changed: ----- Method: Canvas>>fillRectangle:fillStyle:borderStyle: (in category 'drawing-rectangles') ----- fillRectangle: aRectangle fillStyle: aFillStyle borderStyle: aBorderStyle "Fill the given rectangle." + aFillStyle isTransparent ifFalse:[ + self fillRectangle: (aRectangle insetBy: aBorderStyle width) fillStyle: aFillStyle]. + aBorderStyle ifNil:[^self]. + aBorderStyle width <= 0 ifTrue:[^self]. + aBorderStyle frameRectangle: aRectangle on: self + ! - self fillRectangle: (aRectangle insetBy: aBorderStyle width) fillStyle: aFillStyle. - aBorderStyle frameRectangle: aRectangle on: self!

1 0

The Trunk: Morphic-mtf.493.mcz
by commits＠source.squeak.org 10 Dec '10

10 Dec '10

1 0

The Trunk: Morphic-mtf.493.mcz
by commits＠source.squeak.org 10 Dec '10

10 Dec '10

1 0

The Trunk: Tools-laza.285.mcz
by commits＠source.squeak.org 10 Dec '10

10 Dec '10

Alexander Lazarević uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-laza.285.mcz ==================== Summary ==================== Name: Tools-laza.285 Author: laza Time: 10 December 2010, 10:50:37.191 am UUID: 2a126755-91c9-834b-a8e8-8175a8b841fd Ancestors: Tools-fbs.284 Do nothing if method gets dragged on -all- method category. Make it possible to drag method to "as yet unclassified" method category. =============== Diff against Tools-fbs.284 =============== Item was changed: ----- Method: Browser>>dropOnMessageCategories:at: (in category 'drag and drop') ----- dropOnMessageCategories: method at: index | dstClass category copy | copy := Sensor shiftPressed. (method isKindOf: CompiledMethod) ifFalse:[^self inform: 'Can only drop methods']. dstClass := self selectedClassOrMetaClass. (dstClass == method methodClass) ifTrue:[ category := self messageCategoryList at: index. + category = ClassOrganizer allCategory ifTrue: [^false]. + dstClass organization classify: method selector under: category suppressIfDefault: false. - dstClass organization classify: method selector under: category. ^true]. copy ifFalse: [ (self confirm: ( 'Classes {1} and {2} are unrelated.{3}Are you sure you want to move this method?' format: { method methodClass. dstClass. Character cr })) ifFalse: [ ^false ] ]. dstClass compile: method getSource classified: (self messageCategoryList at: index) withStamp: method timeStamp notifying: nil. copy ifFalse: [ method methodClass removeSelector: method selector ]. ^true!

1 0

The Trunk: Tools-laza.285.mcz
by commits＠source.squeak.org 10 Dec '10

10 Dec '10

1 0

The Trunk: Tools-laza.285.mcz
by commits＠source.squeak.org 10 Dec '10

10 Dec '10

1 0

← Newer
1
...
23
24
25
26
27
28
29
...
36
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages December 2010