Squeak-dev August 2022

squeak-dev@lists.squeakfoundation.org

30 participants
156 discussions

Sq6.0 FieldNode>>#assignmentCheck:at: sends unimplemented message
by tim Rowledge 26 Aug '22

26 Aug '22

FieldNode>>#assignmentCheck:at: sends #assignDefaultSetter, which is not implemented. Maybe that is important? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim "How many Motie Warriors does it take to change a lightbulb?” "None. One of the dead ones will do it."

3 5

The Inbox: MorphicExtras-ct.323.mcz
by commits＠source.squeak.org 26 Aug '22

26 Aug '22

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-ct.323.mcz ==================== Summary ==================== Name: MorphicExtras-ct.323 Author: ct Time: 23 August 2022, 12:09:37.941308 pm UUID: ab99afa5-a3f1-d94f-a74e-c525589f0ec0 Ancestors: MorphicExtras-eem.322 Adds high-dpi support for ScorePlayerMorph. Implementation detail: Explicitly specify orientation of sliders to avoid auto-orientation as vertical during first layout run. =============== Diff against MorphicExtras-eem.322 =============== Item was changed: ----- Method: ScorePlayerMorph>>defaultBorderWidth (in category 'initialization') ----- defaultBorderWidth "answer the default border width for the receiver" + ^ 2 px! - ^ 2! Item was changed: ----- Method: ScorePlayerMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" self listDirection: #topToBottom; wrapCentering: #center; cellPositioning: #topCenter; hResizing: #shrinkWrap; vResizing: #shrinkWrap; layoutInset: 3; onScorePlayer: ScorePlayer new initialize; + extent: 20 px @ 20 px.! - extent: 20 @ 20 ! Item was changed: ----- Method: ScorePlayerMorph>>makeControls (in category 'layout') ----- makeControls | bb r reverbSwitch repeatSwitch | r := AlignmentMorph newRow. r color: color; borderWidth: 0; layoutInset: 0. + r hResizing: #shrinkWrap; vResizing: #shrinkWrap; extent: 5 px @ 5 px. - r hResizing: #shrinkWrap; vResizing: #shrinkWrap; extent: 5@5. bb := SimpleButtonMorph new target: self; borderColor: #raised; + borderWidth: 2 px; color: color. - borderWidth: 2; color: color. r addMorphBack: (bb label: 'Menu' translated; actWhen: #buttonDown; actionSelector: #invokeMenu). bb := SimpleButtonMorph new target: self; borderColor: #raised; + borderWidth: 2 px; color: color. - borderWidth: 2; color: color. r addMorphBack: (bb label: 'Piano Roll' translated; actionSelector: #makePianoRoll). bb := SimpleButtonMorph new target: self; borderColor: #raised; + borderWidth: 2 px; color: color. - borderWidth: 2; color: color. r addMorphBack: (bb label: 'Rewind' translated; actionSelector: #rewind). bb := SimpleButtonMorph new target: scorePlayer; borderColor: #raised; + borderWidth: 2 px; color: color. - borderWidth: 2; color: color. r addMorphBack: (bb label: 'Play' translated; actionSelector: #resumePlaying). bb := SimpleButtonMorph new target: scorePlayer; borderColor: #raised; + borderWidth: 2 px; color: color. - borderWidth: 2; color: color. r addMorphBack: (bb label: 'Pause' translated; actionSelector: #pause). reverbSwitch := SimpleSwitchMorph new offColor: color; onColor: (Color r: 1.0 g: 0.6 b: 0.6); + borderWidth: 2 px; - borderWidth: 2; label: 'Reverb Disable' translated; actionSelector: #disableReverb:; target: scorePlayer; setSwitchState: SoundPlayer isReverbOn not. r addMorphBack: reverbSwitch. scorePlayer ifNotNil: [repeatSwitch := SimpleSwitchMorph new offColor: color; onColor: (Color r: 1.0 g: 0.6 b: 0.6); + borderWidth: 2 px; - borderWidth: 2; label: 'Repeat' translated; actionSelector: #repeat:; target: scorePlayer; setSwitchState: scorePlayer repeat. r addMorphBack: repeatSwitch]. + ^ r! - ^ r - ! Item was changed: ----- Method: ScorePlayerMorph>>onScorePlayer:title: (in category 'initialization') ----- onScorePlayer: aScorePlayer title: scoreName | divider col r | scorePlayer := aScorePlayer. scorePlayer ifNotNil: [scorePlayer reset. instrumentSelector := Array new: scorePlayer score tracks size]. self removeAllMorphs. self addMorphBack: self makeControls. scorePlayer ifNil: [^ self]. r := self makeRow hResizing: #spaceFill; vResizing: #shrinkWrap. r addMorphBack: self rateControl; + addMorphBack: (Morph newBounds: (0 @ 0 extent: 20 px @ 0) color: Color transparent); - addMorphBack: (Morph newBounds: (0@0 extent: 20@0) color: Color transparent); addMorphBack: self volumeControl. self addMorphBack: r. self addMorphBack: self scrollControl. + - col := AlignmentMorph newColumn color: color; layoutInset: 0. self addMorphBack: col. 1 to: scorePlayer trackCount do: [:trackIndex | divider := AlignmentMorph new + extent: 10 px @ 1 px; - extent: 10@1; layoutInset: 0; + borderStyle: (BorderStyle raised width: 1 px); - borderStyle: (BorderStyle raised width: 1); color: color; hResizing: #spaceFill; vResizing: #rigid. col addMorphBack: divider. col addMorphBack: (self trackControlsFor: trackIndex)]. LastMIDIPort ifNotNil: [ "use the most recently set MIDI port" + scorePlayer openMIDIPort: LastMIDIPort].! - scorePlayer openMIDIPort: LastMIDIPort]. - ! Item was changed: ----- Method: ScorePlayerMorph>>panAndVolControlsFor: (in category 'layout') ----- panAndVolControlsFor: trackIndex | volSlider panSlider c r middleLine pianoRollColor | pianoRollColor := (Color wheel: scorePlayer score tracks size) at: trackIndex. volSlider := SimpleSliderMorph new color: color; sliderColor: pianoRollColor; + extent: 101 px @ 6 px; - extent: 101@6; target: scorePlayer; arguments: (Array with: trackIndex); actionSelector: #volumeForTrack:put:; + orientation: #horizontal; minVal: 0.0; maxVal: 1.0; adjustToValue: (scorePlayer volumeForTrack: trackIndex). panSlider := SimpleSliderMorph new color: color; sliderColor: pianoRollColor; + extent: 101 px @ 6 px; - extent: 101@6; target: scorePlayer; arguments: (Array with: trackIndex); actionSelector: #panForTrack:put:; + orientation: #horizontal; minVal: 0.0; maxVal: 1.0; adjustToValue: (scorePlayer panForTrack: trackIndex). c := AlignmentMorph newColumn color: color; layoutInset: 0; wrapCentering: #center; cellPositioning: #topCenter; hResizing: #spaceFill; vResizing: #shrinkWrap. middleLine := Morph new "center indicator for pan slider" color: (Color r: 0.4 g: 0.4 b: 0.4); + extent: 1 px @ (panSlider height - 4 px); + position: panSlider center x @ (panSlider top + 2 px). - extent: 1@(panSlider height - 4); - position: panSlider center x@(panSlider top + 2). panSlider addMorphBack: middleLine. r := self makeRow. r addMorphBack: (StringMorph contents: '0'). r addMorphBack: volSlider. r addMorphBack: (StringMorph contents: '10'). c addMorphBack: r. r := self makeRow. r addMorphBack: (StringMorph contents: 'L' translated). r addMorphBack: panSlider. r addMorphBack: (StringMorph contents: 'R' translated). c addMorphBack: r. + ^ c! - ^ c - ! Item was changed: ----- Method: ScorePlayerMorph>>rateControl (in category 'layout') ----- rateControl | rateSlider middleLine r | rateSlider := SimpleSliderMorph new color: color; sliderColor: Color gray; + extent: 180 px @ 12 px; - extent: 180@12; target: self; actionSelector: #setLogRate:; + orientation: #horizontal; minVal: -1.0; maxVal: 1.0; adjustToValue: 0.0. middleLine := Morph new "center indicator for pan slider" color: (Color r: 0.4 g: 0.4 b: 0.4); + extent: 1 px @ (rateSlider height - 4 px); + position: rateSlider center x @ (rateSlider top + 2 px). - extent: 1@(rateSlider height - 4); - position: rateSlider center x@(rateSlider top + 2). rateSlider addMorphBack: middleLine. r := self makeRow hResizing: #spaceFill; vResizing: #rigid; + height: 24 px. - height: 24. r addMorphBack: (StringMorph contents: 'slow ' translated). r addMorphBack: rateSlider. r addMorphBack: (StringMorph contents: ' fast' translated). + ^ r! - ^ r - ! Item was changed: ----- Method: ScorePlayerMorph>>scrollControl (in category 'layout') ----- scrollControl | r | scrollSlider := SimpleSliderMorph new color: color; sliderColor: Color gray; + extent: 360 px @ 12 px; - extent: 360@12; target: scorePlayer; + orientation: #horizontal; actionSelector: #positionInScore:; adjustToValue: scorePlayer positionInScore. r := self makeRow hResizing: #spaceFill; vResizing: #rigid; + height: 24 px. - height: 24. r addMorphBack: (StringMorph contents: 'start ' translated). r addMorphBack: scrollSlider. r addMorphBack: (StringMorph contents: ' end' translated). + ^ r! - ^ r - ! Item was changed: ----- Method: ScorePlayerMorph>>trackControlsFor: (in category 'layout') ----- trackControlsFor: trackIndex | r | r := self makeRow hResizing: #spaceFill; vResizing: #shrinkWrap. r addMorphBack: (self trackNumAndMuteButtonFor: trackIndex). + r addMorphBack: (Morph new extent: 10 px @ 5 px; color: color). "spacer" - r addMorphBack: (Morph new extent: 10@5; color: color). "spacer" r addMorphBack: (self panAndVolControlsFor: trackIndex). + ^ r! - ^ r - ! Item was changed: ----- Method: ScorePlayerMorph>>trackNumAndMuteButtonFor: (in category 'layout') ----- trackNumAndMuteButtonFor: trackIndex | muteButton instSelector pianoRollColor r | muteButton := SimpleSwitchMorph new onColor: (Color r: 1.0 g: 0.6 b: 0.6); offColor: color; color: color; label: 'Mute' translated; target: scorePlayer; actionSelector: #mutedForTrack:put:; arguments: (Array with: trackIndex). instSelector := PopUpChoiceMorph new + extent: 95 px @ 14 px; - extent: 95@14; contentsClipped: 'oboe1'; target: self; actionSelector: #atTrack:from:selectInstrument:; getItemsSelector: #instrumentChoicesForTrack:; getItemsArgs: (Array with: trackIndex). instSelector arguments: (Array with: trackIndex with: instSelector). instrumentSelector at: trackIndex put: instSelector. "select track color using same color list as PianoRollScoreMorph" + pianoRollColor := (Color wheel: scorePlayer score tracks size) at: trackIndex. - pianoRollColor := (Color wheel: scorePlayer score tracks size) at: trackIndex. r := self makeRow hResizing: #spaceFill; vResizing: #spaceFill; + extent: 70 px @ 10 px. - extent: 70@10. r addMorphBack: ((StringMorph contents: trackIndex printString + font: (TextStyle defaultFont asPointSize: TextStyle defaultFont pointSize * 1.57)) color: pianoRollColor). - font: (TextStyle default fontOfSize: 24)) color: pianoRollColor). trackIndex < 10 + ifTrue: [r addMorphBack: (Morph new color: color; extent: 19 px @ 8 px)] "spacer" + ifFalse: [r addMorphBack: (Morph new color: color; extent: 8 px @ 8 px)]. "spacer" - ifTrue: [r addMorphBack: (Morph new color: color; extent: 19@8)] "spacer" - ifFalse: [r addMorphBack: (Morph new color: color; extent: 8@8)]. "spacer" r addMorphBack: (StringMorph new + extent: 80 px @ 14 px; - extent: 80@14; contentsClipped: (scorePlayer infoForTrack: trackIndex)). + r addMorphBack: (Morph new color: color; extent: 8 px @ 8 px). "spacer" - r addMorphBack: (Morph new color: color; extent: 8@8). "spacer" r addMorphBack: instSelector. r addMorphBack: (AlignmentMorph newRow color: color). "spacer" r addMorphBack: muteButton. + ^ r! - ^ r - ! Item was changed: ----- Method: ScorePlayerMorph>>volumeControl (in category 'layout') ----- volumeControl | volumeSlider r | volumeSlider := SimpleSliderMorph new color: color; sliderColor: Color gray; + extent: 80 px @ 12 px; - extent: 80@12; target: scorePlayer; + orientation: #horizontal; actionSelector: #overallVolume:; adjustToValue: scorePlayer overallVolume. r := self makeRow hResizing: #spaceFill; vResizing: #rigid; + height: 24 px. - height: 24. r addMorphBack: (StringMorph contents: 'soft ' translated). r addMorphBack: volumeSlider. r addMorphBack: (StringMorph contents: ' loud' translated). + ^ r! - ^ r - !

6 12

[ANN] muO for Squeak 6.0
by Stéphane Rollandin 25 Aug '22

25 Aug '22

Hello all, I just finished porting muO to Squeak 6.0. Here it is: http://www.zogotounga.net/comp/squeak/sqgeo.htm muO is a framework for musical composition. Stef

3 2

The Inbox: MonticelloConfigurations-jr.180.mcz
by commits＠source.squeak.org 25 Aug '22

25 Aug '22

A new version of MonticelloConfigurations was added to project The Inbox: http://source.squeak.org/inbox/MonticelloConfigurations-jr.180.mcz ==================== Summary ==================== Name: MonticelloConfigurations-jr.180 Author: jr Time: 21 August 2022, 9:32:31.163081 pm UUID: 3ad77782-9f0f-664c-a386-b309e153563e Ancestors: MonticelloConfigurations-mt.179 Fix: could not copy a configuration from a directory repository to the inbox because the repositories were nil. Actually, I did not find any UI to set the repositories of a configuration. MCConfiguationBrowser does have a #repositories: setter, but I do not see a button or menu item (or a sender method) that would invoke it. =============== Diff against MonticelloConfigurations-mt.179 =============== Item was changed: ----- Method: MCConfiguration>>contentsOn:keyPrefix: (in category 'printing') ----- contentsOn: aStream keyPrefix: prefix "Prepend prefix to key values. If the prefix is a non-empty string, the resulting key values will be ignored when parsing an original format MCConfiguration from an extended format MCM file. This provides backward compatibility for older images that need to read newer format MCM files." name ifNotNil: [:n | aStream cr. aStream nextPutAll: prefix,'name '. aStream print: n]. + repositories ifNotNil: [repositories do: [:ea | - repositories do: [:ea | aStream cr. aStream nextPutAll: prefix,'repository '. + (MCConfiguration repositoryToArray: ea) printElementsOn: aStream]]. - (MCConfiguration repositoryToArray: ea) printElementsOn: aStream]. dependencies do: [:ea | aStream cr. aStream nextPutAll: prefix,'dependency '. (MCConfiguration dependencyToArray: ea) printElementsOn: aStream]. !

2 2

The Inbox: ToolsTests-jr.119.mcz
by commits＠source.squeak.org 25 Aug '22

25 Aug '22

A new version of ToolsTests was added to project The Inbox: http://source.squeak.org/inbox/ToolsTests-jr.119.mcz ==================== Summary ==================== Name: ToolsTests-jr.119 Author: jr Time: 25 August 2022, 10:03:25.997487 pm UUID: 4fe82b64-3fd2-5e4b-8f2d-859cd683220a Ancestors: ToolsTests-jr.118 Test decoupled navigation of Browser copies. =============== Diff against ToolsTests-jr.118 =============== Item was added: + ----- Method: BrowserTest>>testNavigationIsCopied (in category 'tests') ----- + testNavigationIsCopied + | copy | + browser selectClassReferenced: (ClassReference class: Browser); + selectMethodReferenced: (MethodReference class: Browser selector: #classList); + selectMethodReferenced: (MethodReference class: Browser selector: #messageList). + copy := browser veryDeepCopy. "Like with the copy halo on a SystemWindow" + copy goBack. + self assert: #classList equals: copy selectedMessageName; + assert: #Browser equals: copy selectedClassName; + assert: #editMessage equals: copy editSelection. + browser goBack. + self assert: #classList equals: browser selectedMessageName; + assert: #Browser equals: browser selectedClassName; + assert: #editMessage equals: browser editSelection.!

1 0

The Inbox: Tools-jr.1173.mcz
by commits＠source.squeak.org 25 Aug '22

25 Aug '22

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-jr.1173.mcz ==================== Summary ==================== Name: Tools-jr.1173 Author: jr Time: 25 August 2022, 10:02:35.742487 pm UUID: 24f8bc1f-75c5-504c-90e2-095d444ff126 Ancestors: Tools-jr.1172 Copies of browsers must also get their own copy of the navigation object. Otherwise the navigation histories of the copied browser and the original browser would remain coupled. =============== Diff against Tools-jr.1172 =============== Item was changed: ----- Method: Browser>>veryDeepInner: (in category 'copying') ----- veryDeepInner: deepCopier "Copy all of my instance variables. Some need to be not copied at all, but shared. See DeepCopier class comment." super veryDeepInner: deepCopier. "systemOrganizer := systemOrganizer. clone has the old value. we share it" "classOrganizer := classOrganizer clone has the old value. we share it" "metaClassOrganizer := metaClassOrganizer clone has the old value. we share it" selectedSystemCategory := selectedSystemCategory veryDeepCopyWith: deepCopier. selectedClassName := selectedClassName veryDeepCopyWith: deepCopier. selectedMessageCategoryName := selectedMessageCategoryName veryDeepCopyWith: deepCopier. selectedMessageName := selectedMessageName veryDeepCopyWith: deepCopier. editSelection := editSelection veryDeepCopyWith: deepCopier. metaClassIndicated := metaClassIndicated veryDeepCopyWith: deepCopier. + navigation := navigation veryDeepCopyWith: deepCopier. !

1 0

The Trunk: MorphicExtras-ct.330.mcz
by commits＠source.squeak.org 25 Aug '22

25 Aug '22

Christoph Thiede uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ct.330.mcz ==================== Summary ==================== Name: MorphicExtras-ct.330 Author: ct Time: 25 August 2022, 3:57:58.536239 pm UUID: 2e1c5775-6f30-154d-b1ba-77d1d443e805 Ancestors: MorphicExtras-ct.329 In the Score Player example, use different instruments as intended by the example track. Adds ScorePlayerMorph>>#atTrack:selectInstrument:. =============== Diff against MorphicExtras-ct.329 =============== Item was changed: ----- Method: ScorePlayerMorph class>>extraExample (in category '*MorphicExtras-examples') ----- extraExample "ScorePlayerMorph extraExample openInHand" + | scorePlayerMorph | + scorePlayerMorph := self on: MIDIScore extraExample. + #('organ1' 'oboe1' 'brass1' 'oboe1' 'oboe2' 'bass1' 'bassoon1' 'bass1' 'pluckedElecBass' 'bass1') + withIndexDo: [:name :index | + scorePlayerMorph atTrack: index selectInstrument: name]. + ^ scorePlayerMorph! - ^ self on: MIDIScore extraExample! Item was added: + ----- Method: ScorePlayerMorph>>atTrack:selectInstrument: (in category 'controls') ----- + atTrack: trackIndex selectInstrument: selection + + ^ self atTrack: trackIndex from: (instrumentSelector at: trackIndex) selectInstrument: selection!

3 2

The Inbox: GraphicsTests-nice.61.mcz
by commits＠source.squeak.org 25 Aug '22

25 Aug '22

A new version of GraphicsTests was added to project The Inbox: http://source.squeak.org/inbox/GraphicsTests-nice.61.mcz ==================== Summary ==================== Name: GraphicsTests-nice.61 Author: nice Time: 25 August 2022, 7:21:09.80455 pm UUID: 795a40eb-ef98-9244-924b-b7eacd8e4f34 Ancestors: GraphicsTests-mt.60 Fix BitBltTest>>testAllAlphasRgbMul to cope with correctly rounded multiplication The theory is that we multiply color components in [0..1] interval But it is implemented with Integer arithmetic (Fixed Point). In internal representation, we scale the color specification: (red * scale) rounded. where scale = ((1 timesTowPower: 8) - 1), for example, that is in range (0 to: 255) for 8 bits color channel, in 32bits deep ARGB bitmaps. so what we want to represent is (red1 / scale) * (red2 / scale). which is implemented with ((red1 / scale) * (red2 / scale) * scale) rounded. That is (red1 * red2 / scale) rounded. The old implementation of rgMul was ((red1+1)*(red2+1)-1)//256 which might differ from above correctly rounded formulation by +/-1... The new implementation requires a new VM. See https://github.com/OpenSmalltalk/opensmalltalk-vm/issues/651 Note that the rgbMul might be used for pre-multiplying color channels in some anti-aliasing algorithms.<br> It's been used in Cuis for font rendering see this thread: http://forum.world.st/BitBlt-looking-for-rule-blitting-an-alpha-mask-consta… http://lists.squeakfoundation.org/pipermail/vm-dev/2009-June/002760.html =============== Diff against GraphicsTests-mt.60 =============== Item was changed: ----- Method: BitBltTest>>testAllAlphasRgbMul (in category 'tests') ----- testAllAlphasRgbMul "self run: #testAllAlphasRgbMul" | sourceForm destForm blt correctAlphas | <timeout: 10> correctAlphas := 0. 0 to: 255 do: [:sourceAlpha | sourceForm := Form extent: 1 @ 1 depth: 32. sourceForm bits at: 1 put: sourceAlpha << 24 + (33 << 16) + (25 << 8) + 27. 0 to: 255 do: [:destAlpha | destForm := Form extent: 1 @ 1 depth: 32. destForm bits at: 1 put: destAlpha << 24 + (255 << 16) + (255 << 8) + 255. blt := BitBlt new. blt sourceForm: sourceForm. blt sourceOrigin: 0 @ 0. blt setDestForm: destForm. blt destOrigin: 0 @ 0. + blt combinationRule: 37. "Form rgbMul" - blt combinationRule: 37. "rgbMul" blt copyBits. correctAlphas := correctAlphas + + (((blt destForm bits at: 1) digitAt: 4) = (destAlpha * sourceAlpha / 255) rounded - + (((blt destForm bits at: 1) digitAt: 4) = ((destAlpha+1) * (sourceAlpha+1)- 1 // 256) ifTrue: [1] ifFalse: [0]) ]]. self assert: 65536 equals: correctAlphas!

1 0

The Trunk: Help-Squeak-Project-ct.95.mcz
by commits＠source.squeak.org 25 Aug '22

25 Aug '22

Christoph Thiede uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-ct.95.mcz ==================== Summary ==================== Name: Help-Squeak-Project-ct.95 Author: ct Time: 25 August 2022, 6:07:24.965239 pm UUID: fb22c6f4-4680-1f4c-a204-4da4beb5af20 Ancestors: Help-Squeak-Project-mt.94 Minor rephrasing/grammar fix in tutorials intro. =============== Diff against Help-Squeak-Project-mt.94 =============== Item was changed: ----- Method: SqueakTutorials class>>introduction (in category 'pages') ----- introduction "This method was automatically generated. Edit it using:" "SqueakTutorials edit: #introduction" + <generated> ^(HelpTopic title: 'Introduction' contents: + 'Here you can find some short tutorials on how to use Squeak for daily tasks. Feel free to add your own!!!!!!' readStream nextChunkText) - 'Here you will some short tutorials on how to use Squeak for daily tasks. Feel free to add your own.!!' readStream nextChunkText) key: #introduction; shouldStyle: false; yourself!

1 0

The Trunk: Morphic-ct.2037.mcz
by commits＠source.squeak.org 25 Aug '22

25 Aug '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2037.mcz ==================== Summary ==================== Name: Morphic-ct.2037 Author: ct Time: 25 August 2022, 4:55:01.067239 pm UUID: e0f7b0d0-281d-7f4b-a906-6f78a4e49092 Ancestors: Morphic-ct.2036 Next attempt on fixing UI theme/scale factor updates for open system progress morphs. If you note any further issues, please let me know. =============== Diff against Morphic-ct.2036 =============== Item was added: + ----- Method: SystemProgressBarMorph>>extent: (in category 'updating') ----- + extent: aMorph + + | oldWidth | + oldWidth := self width. + + super extent: aMorph. + + self barSize: self barSize * (self width / oldWidth).! Item was changed: ----- Method: SystemProgressMorph>>applyUserInterfaceTheme (in category 'updating') ----- applyUserInterfaceTheme super applyUserInterfaceTheme. + self setDefaultParameters. + + self class applyUserInterfaceTheme. "update class vars first" + bars do: [:bar | bar ifNotNil: [bar extent: BarWidth @ BarHeight]]. + labels do: [:label | label ifNotNil: [label font: self font; color: self textColor]].! - self setDefaultParameters.! Item was changed: ----- Method: SystemProgressMorph>>initialize (in category 'initialization') ----- initialize super initialize. activeSlots := 0. bars := Array new: 10. labels := Array new: 10. lock := Semaphore forMutualExclusion. self setDefaultParameters; morphicLayerNumber: self class progressLayer; layoutPolicy: TableLayout new; listDirection: #topToBottom; cellPositioning: #topCenter; - cellGap: 5; listCentering: #center; hResizing: #shrinkWrap; + vResizing: #shrinkWrap.! - vResizing: #shrinkWrap; - layoutInset: Inset; - minWidth: 150! Item was changed: ----- Method: SystemProgressMorph>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters "change the receiver's appareance parameters" self + cellGap: 5 px; + layoutInset: Inset; + minWidth: 150 px. + + self color: (self userInterfaceTheme color ifNil: [Color r: 0.9 g: 0.9 b: 0.9]); borderStyle: (self userInterfaceTheme borderStyle ifNil: [BorderStyle simple]) copy; borderColor: (self userInterfaceTheme borderColor ifNil: [Color gray]); borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated. Preferences menuAppearance3d ifTrue: [self addDropShadow]. self font: (self userInterfaceTheme font ifNil: [TextStyle defaultFont]); textColor: (self userInterfaceTheme textColor ifNil: [Color black]). self updateColor: self color: self color intensity: 1.!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
16
Older →

Jump to page: