Squeak-dev October 2015

squeak-dev@lists.squeakfoundation.org

40 participants
234 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: 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

Squeak & Scratch mentions in The MagPi magazine
by tim Rowledge 30 Oct '15

30 Oct '15

In this month’s MagPi magazine there is a (very) small article about the latest Pi Scratch and even a mention of Smalltalk in a review of a book on python programming. https://www.raspberrypi.org/magpi-issues/MagPi39.pdf Pages 80-1 & 86. You’ll notice that the article is a little thin on details and missing the point on several items, but whatever. tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Fractured Idiom:- VENI, VIDI, VICE - I came, I saw, I partied.

2 2

Daily Commit Log
by commits＠source.squeak.org 29 Oct '15

29 Oct '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-October/009077.ht… Name: System-topa.775 Ancestors: System-ul.774 Cache NaturalLanguageTranslator when looking up yet inexisting ones. Induced by tim Rowledge (see http://forum.world.st/image-startup-complications-td4858390.html) ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-October/009078.ht… Name: Morphic-kfr.1019 Ancestors: Morphic-mt.1018 Adds a GradientEditor for morphic ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-October/009079.ht… Name: Morphic-kfr.1020 Ancestors: Morphic-kfr.1019 Fixing ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-October/009080.ht… Name: Morphic-kfr.1021 Ancestors: Morphic-kfr.1020 Adopted look more like NewColorPicker ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-October/009081.ht… Name: Morphic-kfr.1022 Ancestors: Morphic-kfr.1021 More look enhancements =============================================

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.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.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.1019.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.1019.mcz ==================== Summary ==================== Name: Morphic-kfr.1019 Author: kfr Time: 27 October 2015, 5:21:35.825 pm UUID: 440773d3-8bad-4232-b989-60c0a6dfb1f0 Ancestors: Morphic-mt.1018 Adds a GradientEditor for morphic =============== Diff against Morphic-mt.1018 =============== Item was added: + RectangleMorph subclass: #GradientDisplayMorph + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Widgets'! Item was added: + ----- Method: GradientDisplayMorph>>colorRamp (in category 'as yet unclassified') ----- + colorRamp + ^self fillStyle colorRamp! Item was added: + ----- Method: GradientDisplayMorph>>colorRamp: (in category 'as yet unclassified') ----- + colorRamp: aColorRamp + self fillStyle colorRamp: aColorRamp! Item was added: + ----- Method: GradientDisplayMorph>>drawOn: (in category 'as yet unclassified') ----- + drawOn: aCanvas + "Draw a hatch pattern first." + aCanvas + fillRectangle: self innerBounds + fillStyle: (InfiniteForm with: ColorPresenterMorph hatchForm). + super drawOn: aCanvas! Item was added: + ----- Method: GradientDisplayMorph>>initialize (in category 'as yet unclassified') ----- + initialize + | fill colorRamp | + super initialize. + "self hResizing: #spaceFill. " + colorRamp := {0.0 -> Color green. 0.3 -> Color red. 0.7 -> Color black. 1.0 -> Color blue}. + fill := GradientFillStyle ramp: colorRamp. + fill origin: 0@0. + fill direction: self bounds extent x @ 0. + fill radial: false. + self fillStyle: fill! Item was added: + RectangleMorph subclass: #GradientEditor + instanceVariableNames: 'gradientDisplay rampMorphs selectedSketch gradientMorph row text target selector morph' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Widgets'! Item was added: + ----- Method: GradientEditor class>>on:selector:forMorph:colorRamp: (in category 'as yet unclassified') ----- + on: aTarget selector: aSelector forMorph: aMorph colorRamp: aColorRamp + ^self new + setTarget: aTarget + selector: aSelector + forMorph: aMorph + colorRamp: aColorRamp. + + ! Item was added: + ----- Method: GradientEditor>>addButtonRow (in category 'initialization') ----- + addButtonRow + | 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 := SimpleButtonMorph new target: self; + label: 'Add color'; + actionSelector: #addHandle. + buttonRow addMorph: button. + + button2 := SimpleButtonMorph new target: self; + label: 'Remove color'; + actionSelector: #deleteHandle. + buttonRow addMorph: button2. + + button4 := SimpleButtonMorph new target: self; + label: 'Close'; + actionSelector: #delete. + buttonRow addMorph: button4. + + self addMorph: buttonRow! Item was added: + ----- Method: GradientEditor>>addHandle (in category 'change reporting') ----- + addHandle + | 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>>addHandles (in category 'initialization') ----- + addHandles + | handle handleInstance colorIcon colorRamp | + rampMorphs := OrderedCollection new. + colorRamp := self gradientDisplay colorRamp asOrderedCollection. + handle := self handle. + colorRamp + do: [:i | + 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.! Item was added: + ----- Method: GradientEditor>>changeColor:event:target: (in category 'change reporting') ----- + changeColor: aSketchMorph event: evt target: aMorph + | newColor | + newColor := aSketchMorph rotatedForm colorAt: aSketchMorph rotatedForm center. + selectedSketch := aSketchMorph. + self changeColorTarget: self selector: #updateColor: originalColor: newColor value hand: evt hand. + ! Item was added: + ----- Method: GradientEditor>>colorRamp (in category 'accessing') ----- + colorRamp + | i string | + string := gradientDisplay fillStyle colorRamp asOrderedCollection printString. + i := string indexOf:$(. + ^string copyFrom: i to: string size! Item was added: + ----- Method: GradientEditor>>colorRamp: (in category 'accessing') ----- + colorRamp: aColorRamp + + "rampMorphs do:[ :i | rampMorphs remove:i. row removeMorph: i . ]. + self changed." + gradientDisplay colorRamp: aColorRamp. + self addHandles. + ! Item was added: + ----- Method: GradientEditor>>deleteHandle (in category 'change reporting') ----- + deleteHandle + rampMorphs do:[ :i | (i color == Color red) ifTrue:[ rampMorphs remove: i. row removeMorph: i]]. + self updateColorRamp + + ! Item was added: + ----- Method: GradientEditor>>eventHandler:target: (in category 'event handling') ----- + eventHandler: anInstance target: aTarget + (anInstance isKindOf: SketchMorph) + ifTrue:[anInstance on: #mouseUp + send: #changeColor:event:target: + to: self withValue: aTarget] + ifFalse:[anInstance on: #mouseDown + send: #limitHandleMove:event:from: + to: self withValue: aTarget. + anInstance on: #mouseMove + send: #limitHandleMove:event:from: + to: self withValue: aTarget]! Item was added: + ----- Method: GradientEditor>>gradientDisplay (in category 'accessing') ----- + gradientDisplay + ^gradientDisplay! Item was added: + ----- Method: GradientEditor>>handle (in category 'initialization') ----- + handle + | handle | + handle := PolygonMorph + vertices: (Array + with: 0 @ 0 + with: 16 @ 0 + with: 8 @ 16) + 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 added: + ----- Method: GradientEditor>>initialize (in category 'initialization') ----- + initialize + + super initialize. + self myLayout. + self extent: 600 @ 150. + 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 added: + ----- Method: GradientEditor>>limitHandleMove:event:from: (in category 'change reporting') ----- + limitHandleMove: association event: evt from: handle + | p newBounds | + 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 adhereTo: newBounds. + handle position: (p x )@ (handle position y). + handle color: Color red. + self updateColorRamp! Item was added: + ----- Method: GradientEditor>>morph: (in category 'accessing') ----- + morph: aMorph + ^morph := aMorph! Item was added: + ----- Method: GradientEditor>>myLayout (in category 'initialization') ----- + myLayout + self layoutPolicy: TableLayout new; + hResizing: #shrinkWrap; + vResizing: #shrinkWrap; + cellPositioning: #center; + listCentering: #topLeft; + layoutInset: 10@10; + listDirection: #topToBottom; + reverseTableCells: true; + wrapCentering: #topLeft; + cellInset: 19 @ 10! Item was added: + ----- Method: GradientEditor>>selector: (in category 'accessing') ----- + selector: aSelector + ^selector := aSelector! Item was added: + ----- Method: GradientEditor>>setTarget:selector:forMorph:colorRamp: (in category 'initialization') ----- + setTarget: aTarget selector: aSelector forMorph:aMorph colorRamp: aColorRamp + + self target: aTarget. + self selector: aSelector. + self morph: aMorph. + self colorRamp: aColorRamp. + + ! Item was added: + ----- Method: GradientEditor>>target: (in category 'accessing') ----- + target: aTarget + ^target := aTarget! Item was added: + ----- Method: GradientEditor>>updateColor: (in category 'change reporting') ----- + updateColor: aColor + selectedSketch rotatedForm floodFill: aColor at: selectedSketch rotatedForm center. + self updateColorRamp + ! Item was added: + ----- 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! Item was added: + ----- Method: GradientEditor>>updateRampMorphs (in category 'change reporting') ----- + updateRampMorphs + rampMorphs do:[ :i | i isInWorld ifFalse:[ rampMorphs remove: i]]! Item was changed: ----- Method: GradientFillStyle>>addFillStyleMenuItems:hand:from: (in category '*Morphic-Balloon') ----- addFillStyleMenuItems: aMenu hand: aHand from: aMorph "Add the items for changing the current fill style of the receiver" self isRadialFill ifTrue:[ aMenu add: 'linear gradient' translated target: self selector: #beLinearGradientIn: argument: aMorph. ] ifFalse:[ aMenu add: 'radial gradient' translated target: self selector: #beRadialGradientIn: argument: aMorph. ]. aMenu addLine. + aMenu add: 'change color ramp' translated target: self selector: #changeColorRampIn:event: argument: aMorph. - aMenu add: 'change first color' translated target: self selector: #changeFirstColorIn:event: argument: aMorph. - aMenu add: 'change second color' translated target: self selector: #changeSecondColorIn:event: argument: aMorph. aMenu addLine. super addFillStyleMenuItems: aMenu hand: aHand from: aMorph.! Item was added: + ----- Method: GradientFillStyle>>changeColorRampIn:event: (in category '*Morphic-Balloon') ----- + changeColorRampIn: aMorph event: evt + ^self changeColorSelector: #colorRamp:forMorph: hand: evt hand morph: aMorph originalColor:aMorph fillStyle colorRamp! Item was changed: ----- Method: GradientFillStyle>>changeColorSelector:hand:morph:originalColor: (in category '*Morphic-Balloon') ----- changeColorSelector: aSymbol hand: aHand morph: aMorph originalColor: originalColor "Change either the firstColor or the lastColor (depending on aSymbol). Put up a color picker to hande it. We always use a modal picker so that the user can adjust both colors concurrently." + + ^(GradientEditor on: self selector: aSymbol forMorph: aMorph colorRamp: originalColor) openNear: aMorph fullBoundsInWorld. + + + "NewColorPickerMorph useIt - NewColorPickerMorph useIt ifTrue: [ (NewColorPickerMorph on: self originalColor: originalColor setColorSelector: aSymbol) openNear: aMorph fullBoundsInWorld ] ifFalse: [ ColorPickerMorph new initializeModal: false ; sourceHand: aHand ; target: self ; selector: aSymbol ; argument: aMorph ; originalColor: originalColor ; putUpFor: aMorph + near: aMorph fullBoundsInWorld ]"! - near: aMorph fullBoundsInWorld ]! Item was added: + ----- Method: GradientFillStyle>>colorRamp:forMorph: (in category '*Morphic-Balloon') ----- + colorRamp: aColorRamp forMorph: aMorph + colorRamp :=aColorRamp. + isTranslucent := nil. + pixelRamp := nil. + aMorph changed.!

1 0

The Trunk: System-topa.775.mcz
by commits＠source.squeak.org 29 Oct '15

29 Oct '15

Tobias Pape uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-topa.775.mcz ==================== Summary ==================== Name: System-topa.775 Author: topa Time: 29 October 2015, 1:06:23.749 am UUID: a2ad05e2-8cf3-4974-84c4-7a5d93e304e3 Ancestors: System-ul.774 Cache NaturalLanguageTranslator when looking up yet inexisting ones. Induced by tim Rowledge (see http://forum.world.st/image-startup-complications-td4858390.html) =============== Diff against System-ul.774 =============== Item was changed: ----- Method: NaturalLanguageTranslator class>>availableForLocaleID: (in category 'accessing') ----- availableForLocaleID: localeID "Answer available locale ID. If translator is not found for correct locale ID, then isoLanguage is attempted for the key." ^ self translators at: localeID + ifAbsentPut: [localeID hasParent - ifAbsent: [localeID hasParent ifTrue: [self translators at: localeID parent ifAbsent: [self default]] ifFalse: [self default]]!

1 0

Re: [squeak-dev] The Inbox: System-topa.775.mcz
by Tobias Pape 29 Oct '15

29 Oct '15

Hey tim, regarding "image startup complications", does this fit your needS? Best regards -Tobias On 29.10.2015, at 00:06, commits(a)source.squeak.org wrote: > Tobias Pape uploaded a new version of System to project The Inbox: > http://source.squeak.org/inbox/System-topa.775.mcz > > ==================== Summary ==================== > > Name: System-topa.775 > Author: topa > Time: 29 October 2015, 1:06:23.749 am > UUID: a2ad05e2-8cf3-4974-84c4-7a5d93e304e3 > Ancestors: System-ul.774 > > Cache NaturalLanguageTranslator when looking up yet inexisting ones. > > Induced by tim Rowledge > (see http://forum.world.st/image-startup-complications-td4858390.html) > > =============== Diff against System-ul.774 =============== > > Item was changed:

3 2

← Newer
1
2
3
4
5
6
7
...
24
Older →

Jump to page: