Packages October 2015

packages@lists.squeakfoundation.org

1 participants
218 discussions

The Trunk: Compiler-nice.316.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

Nicolas Cellier uploaded a new version of Compiler to project The Trunk: http://source.squeak.org/trunk/Compiler-nice.316.mcz ==================== Summary ==================== Name: Compiler-nice.316 Author: nice Time: 31 October 2015, 6:24:53.362 pm UUID: 7a0893b3-8e86-4fa0-9d0c-5e80104c8278 Ancestors: Compiler-cmm.315 Make markerOrNil 64bits spur compatible by not hardcoding wordSize. =============== Diff against Compiler-cmm.315 =============== Item was changed: ----- Method: EncoderForV3 class>>markerOrNilFor: (in category 'compiled method support') ----- markerOrNilFor: aMethod "If aMethod is a marker method, answer the symbol used to mark it. Otherwise answer nil. What is a marker method? It is method with body like 'self subclassResponsibility' or '^ self subclassResponsibility' used to indicate ('mark') a special property. Marker methods compile to two bytecode forms, this: self send: <literal 1> pop returnSelf or this: self send: <literal 1> returnTop" + | expectedHeaderPlusLliteralSize e | + expectedHeaderPlusLliteralSize := Smalltalk wordSize * 4. + ^(((e := aMethod endPC - expectedHeaderPlusLliteralSize) = 3 or: [e = 4]) - | e | - ^(((e := aMethod endPC) = 19 or: [e = 20]) and: [aMethod numLiterals = 3 + and: [(aMethod at: expectedHeaderPlusLliteralSize + 1) = 16r70 "push self" + and: [(aMethod at: expectedHeaderPlusLliteralSize + 2) = 16rD0]]]) "send <literal 1>" - and: [(aMethod at: 17) = 16r70 "push self" - and: [(aMethod at: 18) = 16rD0]]]) "send <literal 1>" ifTrue: [aMethod literalAt: 1]!

1 0

The Trunk: Compiler-nice.316.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

1 0

The Trunk: MorphicExtrasTests-nice.4.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

Nicolas Cellier uploaded a new version of MorphicExtrasTests to project The Trunk: http://source.squeak.org/trunk/MorphicExtrasTests-nice.4.mcz ==================== Summary ==================== Name: MorphicExtrasTests-nice.4 Author: nice Time: 31 October 2015, 5:44:19.516 pm UUID: c4f7d3c0-bde7-41b9-b6a3-5588544e6e9d Ancestors: MorphicExtrasTests-fbs.3 Do not use at:put: on a Float (especially a literal!), this superpower should be considered harmful and it is not 64-bits spur compatible anyway. =============== Diff against MorphicExtrasTests-fbs.3 =============== Item was changed: ----- Method: FlapTabTests>>testFlapTabRecusion (in category 'tests') ----- testFlapTabRecusion | a b tab | + "This float is 466.7005813953488" + a := (16r1D2B3594D65359 asFloat timesTwoPower: -44). - "Create a float close to 466.700581395349" - a := 1.1 - at: 1 put: 1081944885; - at: 2 put: 2497074009; - yourself. b := 105. self deny: a + b - a = b. tab := Flaps newFlapTitled: 'Test' onEdge: #top. tab left: a. self should: [tab extent: b asPoint] notTakeMoreThanMilliseconds: 10 !

1 0

The Trunk: MorphicExtrasTests-nice.4.mcz
by commits＠source.squeak.org 31 Oct '15

31 Oct '15

1 0

The Trunk: Morphic-kfr.1022.mcz
by commits＠source.squeak.org 29 Oct '15

29 Oct '15

Karl Ramberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kfr.1022.mcz ==================== Summary ==================== Name: Morphic-kfr.1022 Author: kfr Time: 29 October 2015, 12:52:07.646 pm UUID: 64c8e8d1-462d-48e5-af29-706bd470f767 Ancestors: Morphic-kfr.1021 More look enhancements =============== Diff against Morphic-kfr.1021 =============== Item was changed: RectangleMorph subclass: #GradientEditor + instanceVariableNames: 'gradientDisplay rampMorphs selectedSketch row text target selector morph' - instanceVariableNames: 'gradientDisplay rampMorphs selectedSketch gradientMorph row text target selector morph' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Widgets'! Item was changed: ----- Method: GradientEditor>>addButtonRow (in category 'initialization') ----- addButtonRow | button button2 buttonRow button3 | buttonRow := RectangleMorph new borderWidth: 0; color: Color transparent; layoutPolicy: TableLayout new; + hResizing: #spaceFil; + vResizing: #spaceFill; - hResizing: #shrinkWrap; - vResizing: #shrinkWrap; cellPositioning: #center; listCentering: #topLeft; listDirection: #LeftToRight; reverseTableCells: true; + cellInset: 4. - cellInset: 20 @ 20. button := PluggableButtonMorph on: self getState: nil action: #addHandle label: #addColorButtonLabel. + button hResizing: #spaceFill; + vResizing: #spaceFill. buttonRow addMorph: button. button2 := PluggableButtonMorph on: self getState: nil action: #deleteHandle label: #removeColorButtonLabel. + button2 hResizing: #spaceFill; + vResizing: #spaceFill. buttonRow addMorph: button2. button3 := PluggableButtonMorph on: self getState: nil action: #delete label: #closeButtonLabel. + button3 hResizing: #spaceFill; + vResizing: #spaceFill. buttonRow addMorph: button3. self addMorph: buttonRow! Item was changed: ----- Method: GradientEditor>>initialize (in category 'initialization') ----- initialize super initialize. self myLayout. self extent: 600 @ 150. row := RectangleMorph new extent: self width @ 100; color: Color transparent; borderColor: #inset. row addMorph: (gradientDisplay := GradientDisplayMorph new position: 20 @ 20; extent: self width - 40 @ 40). gradientDisplay fillStyle direction: gradientDisplay width @ 0. self addMorph: row. self addButtonRow. + "text := PluggableTextMorph - text := PluggableTextMorph on: self text: #colorRamp accept: nil readSelection: nil menu: nil. text color: Color white; width: self width; height: 50. + self addMorph: text." - self addMorph: text. ! Item was changed: ----- Method: GradientEditor>>myLayout (in category 'initialization') ----- myLayout self color: (Color white darker) ; cornerStyle: #rounded ; borderWidth: 0; layoutPolicy: TableLayout new; hResizing: #shrinkWrap; vResizing: #shrinkWrap; cellPositioning: #center; listCentering: #topLeft; layoutInset: 4; listDirection: #topToBottom; reverseTableCells: true; wrapCentering: #topLeft; + cellInset: 4! - cellInset: 19 @ 10! Item was changed: ----- Method: GradientEditor>>updateColorRamp (in category 'change reporting') ----- updateColorRamp | newAssociation newKey newColor sketch colorRamp | self updateRampMorphs. colorRamp := OrderedCollection new. rampMorphs do: [:i | newKey := ((i position x - gradientDisplay left / gradientDisplay width) asFloat roundUpTo: 0.01) min: 1.0 max: 0.0. sketch := i findA: SketchMorph. newColor := sketch rotatedForm colorAt: sketch rotatedForm center. newAssociation := newKey -> newColor. colorRamp addLast: newAssociation]. colorRamp := colorRamp sorted. gradientDisplay colorRamp: colorRamp. gradientDisplay fillStyle direction: gradientDisplay extent x @ 0. self changed. target ifNotNil:[ target perform: selector with: colorRamp with: morph]. + "text setText: self colorRamp"! - text setText: self colorRamp!

1 0

The Trunk: Morphic-kfr.1022.mcz
by commits＠source.squeak.org 29 Oct '15

29 Oct '15

1 0

The Trunk: Morphic-kfr.1021.mcz
by commits＠source.squeak.org 29 Oct '15

29 Oct '15

Karl Ramberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kfr.1021.mcz ==================== Summary ==================== Name: Morphic-kfr.1021 Author: kfr Time: 28 October 2015, 6:07:53.098 pm UUID: 6ece13c6-b1e4-4cd1-a039-1d57ba351644 Ancestors: Morphic-kfr.1020 Adopted look more like NewColorPicker =============== Diff against Morphic-kfr.1020 =============== Item was changed: ----- Method: GradientEditor>>addButtonRow (in category 'initialization') ----- addButtonRow + | button button2 buttonRow button3 | + buttonRow := RectangleMorph new borderWidth: 0; + color: Color transparent; + layoutPolicy: TableLayout new; + hResizing: #shrinkWrap; + vResizing: #shrinkWrap; - | button button2 buttonRow button4 | - buttonRow := RectangleMorph new extent: self width @ 30; - borderWidth: 0; color: Color transparent. - buttonRow layoutPolicy: TableLayout new; cellPositioning: #center; listCentering: #topLeft; listDirection: #LeftToRight; reverseTableCells: true; cellInset: 20 @ 20. + button := PluggableButtonMorph on: self + getState: nil + action: #addHandle + label: #addColorButtonLabel. - button := SimpleButtonMorph new target: self; - label: 'Add color'; - actionSelector: #addHandle. buttonRow addMorph: button. + button2 := PluggableButtonMorph on: self + getState: nil + action: #deleteHandle + label: #removeColorButtonLabel. - button2 := SimpleButtonMorph new target: self; - label: 'Remove color'; - actionSelector: #deleteHandle. buttonRow addMorph: button2. + button3 := PluggableButtonMorph on: self + getState: nil + action: #delete + label: #closeButtonLabel. + buttonRow addMorph: button3. - button4 := SimpleButtonMorph new target: self; - label: 'Close'; - actionSelector: #delete. - buttonRow addMorph: button4. self addMorph: buttonRow! Item was added: + ----- Method: GradientEditor>>addColorButtonLabel (in category 'initialization') ----- + addColorButtonLabel + ^ 'Add color' translated! Item was added: + ----- Method: GradientEditor>>closeButtonLabel (in category 'initialization') ----- + closeButtonLabel + ^ 'Close' translated! Item was changed: ----- Method: GradientEditor>>deleteHandle (in category 'change reporting') ----- deleteHandle + rampMorphs do:[ :i | (i color == Color black) ifTrue:[ rampMorphs remove: i. row removeMorph: i]]. - rampMorphs do:[ :i | (i color == Color red) ifTrue:[ rampMorphs remove: i. row removeMorph: i]]. self updateColorRamp ! Item was changed: ----- Method: GradientEditor>>handle (in category 'initialization') ----- handle | handle | handle := PolygonMorph vertices: (Array with: 0 @ 0 with: 16 @ 0 with: 8 @ 16) + color: (Color white darker) - color: Color gray borderWidth: 1 borderColor: Color black. ^handle addMorph: ((RectangleMorph newBounds: (8 @ 18 extent: 1 @ (gradientDisplay height - 2)) color: Color orange) borderWidth: 0).! Item was changed: ----- Method: GradientEditor>>initialize (in category 'initialization') ----- initialize super initialize. self myLayout. self extent: 600 @ 150. + row := RectangleMorph new extent: self width @ 100; color: Color transparent; borderColor: #inset. - row := RectangleMorph new extent: self width @ 100. row addMorph: (gradientDisplay := GradientDisplayMorph new position: 20 @ 20; extent: self width - 40 @ 40). gradientDisplay fillStyle direction: gradientDisplay width @ 0. + - "self addHandles." self addMorph: row. self addButtonRow. text := PluggableTextMorph on: self text: #colorRamp accept: nil readSelection: nil menu: nil. text color: Color white; width: self width; height: 50. self addMorph: text. ! Item was changed: ----- Method: GradientEditor>>limitHandleMove:event:from: (in category 'change reporting') ----- limitHandleMove: association event: evt from: handle | p newBounds | + rampMorphs do:[ : i | i color: (Color white darker)]. - rampMorphs do:[ : i | i color: Color gray]. newBounds := gradientDisplay bounds. newBounds := (newBounds left: (newBounds left - 10)). newBounds := (newBounds right: (newBounds right - 10)). + p := (evt cursorPoint - (10@0)) adhereTo: newBounds. - p := evt cursorPoint adhereTo: newBounds. handle position: (p x )@ (handle position y). + handle color: Color black. - handle color: Color red. self updateColorRamp! Item was changed: ----- Method: GradientEditor>>myLayout (in category 'initialization') ----- myLayout + self color: (Color white darker) ; + cornerStyle: #rounded ; + borderWidth: 0; + layoutPolicy: TableLayout new; - self layoutPolicy: TableLayout new; hResizing: #shrinkWrap; vResizing: #shrinkWrap; cellPositioning: #center; listCentering: #topLeft; + layoutInset: 4; - layoutInset: 10@10; listDirection: #topToBottom; reverseTableCells: true; wrapCentering: #topLeft; cellInset: 19 @ 10! Item was added: + ----- Method: GradientEditor>>removeColorButtonLabel (in category 'initialization') ----- + removeColorButtonLabel + ^ 'Remove color' translated!

1 0

The Trunk: Morphic-kfr.1021.mcz
by commits＠source.squeak.org 29 Oct '15

29 Oct '15

1 0

The Trunk: Morphic-kfr.1020.mcz
by commits＠source.squeak.org 29 Oct '15

29 Oct '15

Karl Ramberg uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-kfr.1020.mcz ==================== Summary ==================== Name: Morphic-kfr.1020 Author: kfr Time: 27 October 2015, 10:51:37.134 pm UUID: d667bea0-4b77-4166-92db-ed20188194c0 Ancestors: Morphic-kfr.1019 Fixing =============== Diff against Morphic-kfr.1019 =============== Item was changed: ----- Method: GradientEditor>>addHandle (in category 'change reporting') ----- addHandle + self addHandleForColor: Color random position: 0.5. - | handleInstance colorIcon | - handleInstance := self handle. - colorIcon := SketchMorph - withForm: ((Color random value iconOrThumbnailOfSize: 20) borderWidth: 1 color: Color black).. - self eventHandler: colorIcon target: colorIcon. - self eventHandler: handleInstance target: self. - row addMorph: handleInstance. - handleInstance position: gradientDisplay left - 10 + (gradientDisplay width // 2) @ (gradientDisplay top - 18). - handleInstance addMorph: colorIcon. - rampMorphs addLast: handleInstance. - colorIcon position: gradientDisplay left - 10 + (gradientDisplay width // 2) @ (gradientDisplay bottom + 5). self updateColorRamp! Item was added: + ----- Method: GradientEditor>>addHandleForColor:position: (in category 'change reporting') ----- + addHandleForColor: aColor position: aPosition + | handleInstance colorIcon delta | + handleInstance := self handle. + colorIcon := SketchMorph + withForm: ((aColor iconOrThumbnailOfSize: 20) borderWidth: 1 color: Color black).. + self eventHandler: colorIcon target: colorIcon. + self eventHandler: handleInstance target: self. + row addMorph: handleInstance. + delta := gradientDisplay left - 10 + (gradientDisplay width * aPosition). + handleInstance position: delta @ (gradientDisplay top - 18). + colorIcon position: delta @ (gradientDisplay bottom + 5). + handleInstance addMorph: colorIcon. + rampMorphs addLast: handleInstance. + + ! Item was changed: + ----- Method: GradientEditor>>addHandles (in category 'change reporting') ----- - ----- Method: GradientEditor>>addHandles (in category 'initialization') ----- addHandles + | handle colorRamp | - | handle handleInstance colorIcon colorRamp | rampMorphs := OrderedCollection new. colorRamp := self gradientDisplay colorRamp asOrderedCollection. handle := self handle. colorRamp do: [:i | + self addHandleForColor: i value position: i key + ]. + - colorIcon := SketchMorph - withForm: ((i value iconOrThumbnailOfSize: 20) borderWidth: 1 color: Color black).. - self eventHandler: colorIcon target: colorIcon. - handleInstance := handle copy. - self eventHandler: handleInstance target: self. - row addMorph: handleInstance. - handleInstance position: gradientDisplay left - 10 + (gradientDisplay width * i key) @ (gradientDisplay top - 18). - handleInstance addMorph: colorIcon. - rampMorphs addLast: handleInstance. - colorIcon position: gradientDisplay left - 10 + (gradientDisplay width * i key) @ (gradientDisplay bottom + 5)]. self changed.!

1 0

The Trunk: Morphic-kfr.1020.mcz
by commits＠source.squeak.org 29 Oct '15

29 Oct '15

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2015