Packages February 2012

packages@lists.squeakfoundation.org

1 participants
72 discussions

The Trunk: Graphics-nice.192.mcz
by commits＠source.squeak.org 20 Feb '12

20 Feb '12

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.192.mcz ==================== Summary ==================== Name: Graphics-nice.192 Author: nice Time: 20 February 2012, 7:30:30.765 pm UUID: 47abe0e7-0db5-4c46-9fc2-b01316877379 Ancestors: Graphics-cmm.191 Fix one of the issues at http://code.google.com/p/pharo/issues/detail?id=5335 self assert: (Color fromString: 'darkGray') = Color darkGray. =============== Diff against Graphics-cmm.191 =============== Item was changed: ----- Method: Color class>>fromString: (in category 'instance creation') ----- fromString: aString "for HTML color spec: #FFCCAA or white/black" "Color fromString: '#FFCCAA'. Color fromString: 'white'. Color fromString: 'orange'" | aColorHex | aString isEmptyOrNil ifTrue: [ ^self white ]. aString first = $# ifTrue: [ aColorHex := aString allButFirst ] ifFalse: [ aColorHex := aString ]. (aColorHex size = 6 and: [ aColorHex allSatisfy: [ :each | '0123456789ABCDEFabcdef' includes: each ] ]) ifTrue: [ | green red blue | red := (Integer readFrom: (aColorHex first: 2) base: 16) / 255. green := (Integer readFrom: (aColorHex copyFrom: 3 to: 4) base: 16) / 255. blue := (Integer readFrom: (aColorHex last: 2) base: 16) / 255. ^self r: red g: green b: blue ]. + "try to match aColorHex with known named colors, case insensitive" + ^self perform: (ColorNames detect: [:colorSymbol | aColorHex sameAs: colorSymbol] ifNone: [ #white ])! - "try to match aColorHex with known named colors" - ^self perform: (ColorNames like: aColorHex asLowercase ifAbsent: [ #white ])!

1 0

The Trunk: Graphics-nice.192.mcz
by commits＠source.squeak.org 20 Feb '12

20 Feb '12

1 0

The Trunk: GraphicsTests-nice.30.mcz
by commits＠source.squeak.org 20 Feb '12

20 Feb '12

Nicolas Cellier uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-nice.30.mcz ==================== Summary ==================== Name: GraphicsTests-nice.30 Author: nice Time: 20 February 2012, 7:23:46.47 pm UUID: b7fabac4-ac45-4174-bf62-f9c3c36b3b1c Ancestors: GraphicsTests-ar.29 Pick a ColorTest from pharo For Issue http://code.google.com/p/pharo/issues/detail?id=5335 =============== Diff against GraphicsTests-ar.29 =============== Item was changed: ----- Method: ColorTest>>testFromString (in category 'testing') ----- testFromString + self assert: ((Color fromString: '#FF8800') asHTMLColor sameAs: '#ff8800'); + assert: ((Color fromString: 'FF8800') asHTMLColor sameAs: '#ff8800'); + assert: ((Color fromString: 'white') asHTMLColor sameAs: '#ffffff'); + assert: ((Color fromString: 'black') asHTMLColor sameAs: '#000000'); + assert: ((Color fromString: nil) asHTMLColor sameAs: '#ffffff'); + assert: ((Color fromString: 'inexistent color') asHTMLColor sameAs: '#ffffff'); "should return white" + assert: ((Color fromString: 'XXXXXX') asHTMLColor sameAs: '#ffffff'); "not alphanumeric" + assert: ((Color fromString: '00000000') asHTMLColor sameAs: '#ffffff'). "too many digits" + + self + assert: (Color fromString: 'DARKGRAY') = Color darkGray description: 'Color can be specified with a case insensitive color name'; + assert: (Color fromString: '#blue') = Color blue description: 'Color can be specified with a leading literal sharp'.! - self assert: ((Color fromString: '#FF8800') asHTMLColor sameAs: '#ff8800').!

1 0

The Trunk: GraphicsTests-nice.30.mcz
by commits＠source.squeak.org 20 Feb '12

20 Feb '12

1 0

The Trunk: GraphicsTests-nice.30.mcz
by commits＠source.squeak.org 20 Feb '12

20 Feb '12

1 0

The Trunk: Kernel-eem.670.mcz
by commits＠source.squeak.org 19 Feb '12

19 Feb '12

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.670.mcz ==================== Summary ==================== Name: Kernel-eem.670 Author: eem Time: 19 February 2012, 11:03:50.709 am UUID: 18d57d21-e007-4be6-b076-13d011b90565 Ancestors: Kernel-eem.669 Add accessors for a CompiledsMethod header's sign bit. The sign bit is useful for experiments but may also be used to select an alternate bytecode set in the VM, e.g. for supporting multiple languages or evolving the bytecode set. =============== Diff against Kernel-eem.669 =============== Item was added: + ----- Method: CompiledMethod>>clearSignFlag (in category 'accessing') ----- + clearSignFlag + "Clear the sign flag bit. The sign flag bit may be + used by the VM to select an alternate bytecode set." + + self signFlag ifTrue: + [self objectAt: 1 put: self header - SmallInteger minVal]! Item was added: + ----- Method: CompiledMethod>>setSignFlag (in category 'accessing') ----- + setSignFlag + "Set the sign flag bit. The sign flag bit may be + used by the VM to select an alternate bytecode set." + + self signFlag ifFalse: + [self objectAt: 1 put: self header + SmallInteger minVal]! Item was added: + ----- Method: CompiledMethod>>signFlag (in category 'accessing') ----- + signFlag + "Answer the sign flag bit. The sign flag bit may be + used by the VM to select an alternate bytecode set." + + ^self header < 0!

1 0

The Trunk: Kernel-eem.670.mcz
by commits＠source.squeak.org 19 Feb '12

19 Feb '12

1 0

The Trunk: Kernel-eem.670.mcz
by commits＠source.squeak.org 19 Feb '12

19 Feb '12

1 0

The Trunk: Morphic-cmm.610.mcz
by commits＠source.squeak.org 15 Feb '12

15 Feb '12

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.610.mcz ==================== Summary ==================== Name: Morphic-cmm.610 Author: cmm Time: 14 February 2012, 9:14:20.48 pm UUID: d8725b91-2f26-4c63-b9a3-05601133a3ab Ancestors: Morphic-dtl.609 - Avoid index-out-of-bounds error when a TextMorph which set to avoid-occlusions, composeAllRectangles. =============== Diff against Morphic-dtl.609 =============== Item was changed: ----- Method: TextComposer>>composeAllRectangles: (in category 'as yet unclassified') ----- composeAllRectangles: rectangles | charIndexBeforeLine numberOfLinesBefore reasonForStopping | actualHeight := defaultLineHeight. charIndexBeforeLine := currCharIndex. numberOfLinesBefore := lines size. reasonForStopping := self composeEachRectangleIn: rectangles. currentY := currentY + actualHeight. currentY > theContainer bottom ifTrue: [ "Oops -- the line is really too high to fit -- back out" currCharIndex := charIndexBeforeLine. lines size - numberOfLinesBefore timesRepeat: [lines removeLast]. ^self ]. "It's OK -- the line still fits." maxRightX := maxRightX max: scanner rightX. + 1 to: rectangles size - 1 do: [ :i | |lineIndex| - 1 to: rectangles size - 1 do: [ :i | "Adjust heights across rectangles if necessary" + lineIndex:=lines size - rectangles size + i. + (lines size between: 1 and: lineIndex) ifTrue: + [(lines at: lineIndex) + lineHeight: lines last lineHeight + baseline: lines last baseline] - (lines at: lines size - rectangles size + i) - lineHeight: lines last lineHeight - baseline: lines last baseline ]. isFirstLine := false. reasonForStopping == #columnBreak ifTrue: [^nil]. currCharIndex > theText size ifTrue: [ ^nil "we are finished composing" ]. !

1 0

The Trunk: Morphic-cmm.610.mcz
by commits＠source.squeak.org 15 Feb '12

15 Feb '12

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2012