Packages August 2022

packages@lists.squeakfoundation.org

1 participants
47 discussions

The Trunk: MorphicExtras-ct.328.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.328.mcz ==================== Summary ==================== Name: MorphicExtras-ct.328 Author: ct Time: 25 August 2022, 3:26:05.509281 pm UUID: 90a00fc1-4d62-2e47-9f26-20006f32f4fd Ancestors: MorphicExtras-ct.327 Complements MorphicExtras-ct.327 (postscript). =============== Diff against MorphicExtras-ct.327 =============== Item was changed: + (PackageInfo named: 'MorphicExtras') postscript: '"For MorphicExtras-ct.327" + PartsBin allSubInstancesDo: [:m | + (m instVarNamed: ''knownScaleFactor'') ifNil: [ + m instVarNamed: ''knownScaleFactor'' put: RealEstateAgent scaleFactor]].'! - (PackageInfo named: 'MorphicExtras') postscript: 'ScrapBook cleanUp: true.'!

1 0

The Trunk: MorphicExtras-ct.325.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.325.mcz ==================== Summary ==================== Name: MorphicExtras-ct.325 Author: ct Time: 23 August 2022, 12:56:21.917308 pm UUID: 9dbee01e-1b9f-f24b-93a1-16d02f845373 Ancestors: MorphicExtras-eem.322 Fixes high-dpi support in RecordingControlsMorph. Removes unused #addRecordLevelSlider. Improves color of record level slider. Supersedes incomplete MorphicExtras-ct.324. =============== Diff against MorphicExtras-eem.322 =============== Item was changed: ----- Method: RecordingControlsMorph>>addButtonRows (in category 'initialization') ----- addButtonRows | r fullWidth | r := AlignmentMorph newRow vResizing: #shrinkWrap. + - - r addMorphBack: (self buttonName: 'Morph' translated action: #makeSoundMorph). + r addMorphBack: (Morph new extent: 4 px @ 1 px; color: Color transparent). - r addMorphBack: (Morph new extent: 4@1; color: Color transparent). r addMorphBack: (self buttonName: 'Tile' translated action: #makeTile). + r addMorphBack: (Morph new extent: 4 px @ 1 px; color: Color transparent). - r addMorphBack: (Morph new extent: 4@1; color: Color transparent). r addMorphBack: (self buttonName: 'Trim' translated action: #trim). + r addMorphBack: (Morph new extent: 4 px @ 1 px; color: Color transparent). - r addMorphBack: (Morph new extent: 4@1; color: Color transparent). r addMorphBack: (self buttonName: 'Show' translated action: #showEditor). self addMorphBack: r. r layoutChanged. fullWidth := r fullBounds width. + - r := AlignmentMorph newRow vResizing: #shrinkWrap. r addMorphBack: (self buttonName: 'Record' translated action: #record). + r addMorphBack: (Morph new extent: 4 px @ 1 px; color: Color transparent). - r addMorphBack: (Morph new extent: 4@1; color: Color transparent). r addMorphBack: (self buttonName: 'Stop' translated action: #stop). + r addMorphBack: (Morph new extent: 4 px @ 1 px; color: Color transparent). - r addMorphBack: (Morph new extent: 4@1; color: Color transparent). r addMorphBack: (self buttonName: 'Play' translated action: #playback). + r addMorphBack: (Morph new extent: 4 px @ 1 px; color: Color transparent). - r addMorphBack: (Morph new extent: 4@1; color: Color transparent). r addMorphBack: (self buttonName: 'Codec' translated action: #chooseCodec). r addMorphBack: self makeStatusLight. self addMorphBack: r. Smalltalk at: #OggSpeexCodec ifPresent: [:c | self changeCodec: c name: 'Speex']. r layoutChanged. fullWidth := fullWidth max: r fullBounds width. + ^ fullWidth @ r fullBounds height! - ^ fullWidth@(r fullBounds height). - ! Item was removed: - ----- Method: RecordingControlsMorph>>addRecordLevelSlider (in category 'other') ----- - addRecordLevelSlider - - | levelSlider r | - levelSlider := SimpleSliderMorph new - color: color; - extent: 100@2; - target: recorder; - actionSelector: #recordLevel:; - adjustToValue: recorder recordLevel. - r := AlignmentMorph newRow - color: color; - layoutInset: 0; - wrapCentering: #center; cellPositioning: #leftCenter; - hResizing: #shrinkWrap; - vResizing: #rigid; - height: 24. - r addMorphBack: (StringMorph contents: '0 '). - r addMorphBack: levelSlider. - r addMorphBack: (StringMorph contents: ' 10'). - self addMorphBack: r. - ! Item was changed: ----- Method: RecordingControlsMorph>>addRecordLevelSliderIn: (in category 'other') ----- addRecordLevelSliderIn: aPoint | levelSlider r | + (levelSlider := SimpleSliderMorph new) - levelSlider := SimpleSliderMorph new color: color darker; + sliderColor: Color gray; + extent: (aPoint x * 0.75) asInteger @ (aPoint y * 0.6) asInteger; + minimumExtent: levelSlider extent; - extent: (aPoint x * 0.75) asInteger@(aPoint y*0.6) asInteger; target: recorder; actionSelector: #recordLevel:; + orientation: #horizontal; adjustToValue: recorder recordLevel. r := AlignmentMorph newRow color: color; layoutInset: 0; wrapCentering: #center; cellPositioning: #leftCenter; hResizing: #shrinkWrap; vResizing: #rigid; + height: aPoint y + 2 px. + r addMorphBack: (StringMorph contents: '0 ' font: TextStyle defaultFont). - height: aPoint y + 2. - r addMorphBack: (StringMorph contents: '0 ' font: Preferences standardButtonFont). r addMorphBack: levelSlider. + r addMorphBack: (StringMorph contents: ' 10' font: TextStyle defaultFont). + self addMorphBack: r.! - r addMorphBack: (StringMorph contents: ' 10' font: Preferences standardButtonFont). - self addMorphBack: r. - ! Item was changed: ----- Method: RecordingControlsMorph>>buttonName:action: (in category 'other') ----- buttonName: aString action: aSymbol ^ SimpleButtonMorph new target: self; + label: aString; - label: aString font: Preferences standardButtonFont; actionSelector: aSymbol ! Item was changed: ----- Method: RecordingControlsMorph>>initialize (in category 'initialization') ----- initialize | r full | super initialize. self hResizing: #shrinkWrap; vResizing: #shrinkWrap. + self borderWidth: 2 px. - self borderWidth: 2. self listDirection: #topToBottom. recorder := SoundRecorder new. full := self addButtonRows. self addRecordLevelSliderIn: full. r := AlignmentMorph newRow vResizing: #shrinkWrap. r addMorphBack: (self makeRecordMeterIn: full). self addMorphBack: r. + self extent: 10 @ 10. "make minimum size"! - self extent: 10@10. "make minimum size" - ! Item was changed: ----- Method: RecordingControlsMorph>>makeRecordMeterIn: (in category 'other') ----- makeRecordMeterIn: aPoint | outerBox h | h := (aPoint y * 0.6) asInteger. + outerBox := Morph new extent: aPoint x asInteger @ h; color: Color gray. + recordMeter := Morph new extent: 1 px @ h; color: Color yellow. + recordMeter position: outerBox topLeft + (1 px @ 1 px). - outerBox := Morph new extent: (aPoint x) asInteger@h; color: Color gray. - recordMeter := Morph new extent: 1@h; color: Color yellow. - recordMeter position: outerBox topLeft + (1@1). outerBox addMorph: recordMeter. + ^ outerBox! - ^ outerBox - !

1 0

The Trunk: MorphicExtras-ct.323.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.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 - !

1 0

The Trunk: Morphic-ct.2036.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.2036.mcz ==================== Summary ==================== Name: Morphic-ct.2036 Author: ct Time: 25 August 2022, 2:03:11.861239 pm UUID: ad09cb34-86b8-344f-bfd0-70680b92791f Ancestors: Morphic-ct.2035 Complements MorphicExtras-ct.327. =============== Diff against Morphic-ct.2035 =============== Item was changed: ----- Method: IconicButton>>labelGraphic: (in category 'label') ----- labelGraphic: aForm | oldLabel graphicalMorph | + (oldLabel := self labelMorph) - (oldLabel := self findA: SketchMorph) ifNotNil: [oldLabel delete]. graphicalMorph := SketchMorph withForm: aForm. self extent: graphicalMorph extent + (self borderWidth + 6 px). graphicalMorph position: self center - (graphicalMorph extent // 2). self addMorph: graphicalMorph. graphicalMorph baseGraphic; lock.! Item was added: + ----- Method: IconicButton>>labelMorph (in category 'label') ----- + labelMorph + + ^ self findA: SketchMorph! Item was changed: ----- Method: Morph>>helpButton (in category 'menus') ----- helpButton "Answer a button whose action would be to put up help concerning the receiver" | aButton | aButton := SimpleButtonMorph new. aButton target: self; color: Color lightGreen; borderColor: Color lightGreen muchDarker; + borderWidth: 1 px; - borderWidth: 1; label: '?' translated font: Preferences standardButtonFont; actionSelector: #presentHelp; setBalloonText: 'click here for help' translated. ^ aButton!

1 0

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

25 Aug '22

Christoph Thiede uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.479.mcz ==================== Summary ==================== Name: EToys-ct.479 Author: ct Time: 25 August 2022, 2:02:14.951239 pm UUID: 8dffae2e-c439-844d-928f-a07e29343637 Ancestors: EToys-ct.478 Adds and improves high-dpi support for several morphs and games: * Calendar * Cipher Panel, Crostic Panel (also converted help messages to regular workspaces using #edit) * Free Cell * Objects Tool/Parts Bin (complements MorphicExtras-ct.327) * Same Game * Spectrum Analyzer (also fixed slider and removed obsolete construction selectors) * Tetris =============== Diff against EToys-ct.478 =============== Item was changed: ----- Method: CalendarMorph>>dayInitialsRow (in category 'building') ----- dayInitialsRow | newRow | newRow := self newRow. Week dayNames do: [:dayName| newRow addMorphBack: (TextMorph new contentsWrapped: dayName translated first asString; textColor: self labelsDefaultColor; autoFit: false; + width: 30 px; - width: 30; centered; lock)] separatedBy: [newRow addMorphBack: AlignmentMorph newVariableTransparentSpacer]. ^newRow ! Item was changed: ----- Method: CalendarMorph>>newButtonWithContents: (in category 'building') ----- + newButtonWithContents: aString + + ^ SimpleButtonMorph new + label: aString; - newButtonWithContents: aByteString - ^SimpleButtonMorph new - label: aByteString; color: (self color mixed: 0.5 with: Color gray); + borderStyle: (BorderStyle raised width: 2 px); + yourself! - borderStyle: (BorderStyle raised width: 2)! Item was changed: ----- Method: CalendarMorph>>newDateButtonWithContents: (in category 'building') ----- + newDateButtonWithContents: aString + + ^ SimpleButtonMorph new + label: aString; - newDateButtonWithContents: aByteString - ^SimpleButtonMorph new - label: aByteString; cornerStyle: #square; color: self color muchLighter; + borderStyle: (BorderStyle raised width: 2 px); + width: 30 px; + yourself! - borderStyle: (BorderStyle raised width: 2); - width: 30! Item was changed: ----- Method: CipherPanel>>buttonRow (in category 'menu') ----- buttonRow | row aButton | row := AlignmentMorph newRow color: self color; hResizing: #shrinkWrap; vResizing: #shrinkWrap. #('show help' 'show hints' 'clear typing' 'enter a new cipher' 'quote from Squeak' ) translatedNoop with: #(#showHelpWindow #showHintsWindow #clearTyping #enterANewCipher #squeakCipher ) do: [:label :selector | aButton := SimpleButtonMorph new target: self. aButton color: Color transparent; + borderWidth: 1 px; - borderWidth: 1; borderColor: Color black. aButton actionSelector: selector. aButton label: label translated. row addMorphBack: aButton. + row addTransparentSpacerOfSize: 3 px @ 0]. - row addTransparentSpacerOfSize: 3 @ 0]. ^ row! Item was changed: ----- Method: CipherPanel>>encodedQuote: (in category 'initialization') ----- encodedQuote: aString "World addMorph: CipherPanel new" | morph prev | aString isEmpty ifTrue: [^ self]. (letterMorphs isNil or: [self isClean]) ifFalse: [(self confirm: 'Are you sure you want to discard all typing?' translated) ifFalse: [^ self]]. haveTypedHere := false. quote := aString asUppercase. prev := nil. originalMorphs := quote asArray withIndexCollect: [:c :i | WordGameLetterMorph new plain indexInQuote: i id1: nil; setLetter: (quote at: i)]. letterMorphs := OrderedCollection new. decodingMorphs := quote asArray withIndexCollect: [:c :i | (quote at: i) isLetter ifTrue: [morph := WordGameLetterMorph new underlined indexInQuote: i id1: nil. morph on: #mouseDown send: #mouseDownEvent:letterMorph: to: self. morph on: #keyStroke send: #keyStrokeEvent:letterMorph: to: self. letterMorphs addLast: morph. morph predecessor: prev. prev ifNotNil: [prev successor: morph]. prev := morph] ifFalse: [WordGameLetterMorph new plain indexInQuote: i id1: nil; setLetter: (quote at: i)]]. self color: originalMorphs first color. + self extent: 500 px @ 500 px.! - self extent: 500 @ 500! Item was changed: ----- Method: CipherPanel>>extent: (in category 'geometry') ----- extent: newExtent "Lay out with word wrap, alternating bewteen decoded and encoded lines." "Currently not tolerant of narrow (less than a word) margins" | w h relLoc topLeft thisWord i m corner row firstWord | self removeAllMorphs. + w := originalMorphs first width - 1 px. h := originalMorphs first height * 2 + 10 px. + topLeft := self position + self borderWidth + (0 @ 10 px). - w := originalMorphs first width - 1. h := originalMorphs first height * 2 + 10. - topLeft := self position + self borderWidth + (0@10). thisWord := OrderedCollection new. i := 1. firstWord := true. relLoc := 0@0. corner := topLeft. [i <= originalMorphs size] whileTrue: [m := originalMorphs at: i. thisWord addLast: ((decodingMorphs at: i) position: topLeft + relLoc). thisWord addLast: (m position: topLeft + relLoc + (0@m height)). (m letter = Character space or: [i = originalMorphs size]) ifTrue: [self addAllMorphs: thisWord. corner := corner max: thisWord last bounds bottomRight. thisWord reset. firstWord := false]. relLoc := relLoc + (w@0). (relLoc x + w) > newExtent x ifTrue: [firstWord ifTrue: ["No spaces -- force a line break" thisWord removeLast; removeLast. self addAllMorphs: thisWord. corner := corner max: thisWord last bounds bottomRight] ifFalse: [i := i - (thisWord size//2) + 1]. thisWord reset. firstWord := true. relLoc := 0@(relLoc y + h)] ifFalse: [i := i + 1]]. row := self buttonRow. row fullBounds. self addMorph: row. + super extent: (corner - topLeft) + (self borderWidth * 2) + (0 @ row height + 10 px). + row align: row bounds bottomCenter with: self bounds bottomCenter - (0 @ 2 px).! - super extent: (corner - topLeft) + (self borderWidth * 2) + (0@row height+10). - row align: row bounds bottomCenter with: self bounds bottomCenter - (0@2).! Item was changed: ----- Method: CipherPanel>>showHelpWindow (in category 'menu') ----- showHelpWindow - ((PluggableTextMorph new setText: 'The Cipher Panel displays an encrypted message. The encryption is a simple substitution code; each letter of the alphabet has been changed to a different one. + 'The Cipher Panel displays an encrypted message. The encryption is a simple substitution code; each letter of the alphabet has been changed to a different one. + You can solve the cipher by clicking above any letter in the message, and typing the letter you think it should be. The Cipher Panel automatically makes the same substitution anywhere else that letter occurs in the encoded message. + If you are having trouble, you can use the command menu to ''show cipher hints''. That will display how many of each letter occurs, which is often a help in solving ciphers.' translated + editWithLabel: 'About the Cipher Panel' translated.! - If you are having trouble, you can use the command menu to ''show cipher hints''. That will display how many of each letter occurs, which is often a help in solving ciphers.' translated ) - embeddedInMorphicWindowLabeled: 'About the Cipher Panel' translated) - setWindowColor: (Color - r: 1.0 - g: 0.6 - b: 0.0); - openInWorld: self world extent: 389 @ 209! Item was changed: ----- Method: CipherPanel>>showHintsWindow (in category 'menu') ----- showHintsWindow + + ('Most bodies of english text follow a general pattern of letter usage. The following are the most common letters, in approximate order of frequency: - ((PluggableTextMorph new setText: 'Most bodies of english text follow a general pattern of letter usage. The following are the most common letters, in approximate order of frequency: E T A O N I R S H The following are the most common digraphs: EN ER RE NT TH ON IN + The message you are trying to decode has the following specific statistics: {1} - The message you are trying to decode has the following specific statistics:' translated , self cipherStats , ' + Good luck!!' translated format: {self cipherStats}) + editWithLabel: 'Some Useful Statistics' translated.! - Good luck!!' translated) - embeddedInMorphicWindowLabeled: 'Some Useful Statistics' translated) - setWindowColor: (Color - r: 1.0 - g: 0.6 - b: 0.0); - openInWorld: self world extent: 318 @ 326! Item was changed: ----- Method: CrosticPanel>>buttonRow (in category 'menu') ----- buttonRow | row aButton | row := AlignmentMorph newRow color: self color; hResizing: #shrinkWrap; vResizing: #shrinkWrap. #('show help' 'show errors' 'show hints' 'clear' 'open...' ) translatedNoop with: #(#showHelpWindow #showErrors #showHintsWindow #clearTyping #openFile ) do: [:label :selector | aButton := SimpleButtonMorph new target: self. aButton color: Color transparent; + borderWidth: 1 px; - borderWidth: 1; borderColor: Color black. aButton actionSelector: selector. aButton label: label translated. row addMorphBack: aButton. + row addTransparentSpacerOfSize: 3 px @ 0]. - row addTransparentSpacerOfSize: 3 @ 0]. ^ row! Item was changed: ----- Method: CrosticPanel>>quote:clues:answers:quotePanel: (in category 'initialization') ----- quote: indexableQuote clues: clueStrings answers: answerIndices quotePanel: panel | row clue answer answerMorph letterMorph prev clueText clueStyle | quote := indexableQuote. quotePanel := panel. clues := clueStrings. answers := answerIndices. cluesPanel := AlignmentMorph newColumn color: self color; hResizing: #shrinkWrap; vResizing: #shrinkWrap; + cellPositioning: #topLeft; layoutInset: 1 px. - cellPositioning: #topLeft; layoutInset: 1. letterMorphs := Array new: quotePanel letterMorphs size. clueStyle := nil. 1 to: clues size do: [:i | clue := clues at: i. answer := answers at: i. row := AlignmentMorph newRow cellPositioning: #bottomLeft. + clueText := (TextMorph newBounds: (0 @ 0 extent: 120 px @ 20 px) color: Color black) - clueText := (TextMorph newBounds: (0@0 extent: 120@20) color: Color black) string: (CrosticPanel oldStyle ifTrue: [(($A to: $Z) at: i) asString , '. ' , clue] ifFalse: [clue]) + fontName: 'ComicPlain' size: 13 px. - fontName: 'ComicPlain' size: 13. clueStyle ifNil: ["Make up a special style with decreased leading" clueStyle := clueText textStyle copy. clueStyle gridForFont: 1 withLead: -2]. clueText text: clueText asText textStyle: clueStyle. "All clues share same style" clueText composeToBounds. row addMorphBack: clueText. answerMorph := AlignmentMorph newRow layoutInset: 0. prev := nil. answer do: [:n | letterMorph := WordGameLetterMorph new underlined indexInQuote: n id1: (CrosticPanel oldStyle ifTrue: [n printString] ifFalse: [nil]); setLetter: Character space. letterMorph on: #mouseDown send: #mouseDownEvent:letterMorph: to: self. letterMorph on: #keyStroke send: #keyStrokeEvent:letterMorph: to: self. letterMorph predecessor: prev. prev ifNotNil: [prev successor: letterMorph]. prev := letterMorph. letterMorphs at: n put: letterMorph. answerMorph addMorphBack: letterMorph]. answerMorph color: answerMorph firstSubmorph color. row addMorphBack: answerMorph. row fullBounds. row color: answerMorph firstSubmorph color. cluesPanel addMorphBack: row]. self addMorph: cluesPanel. + self bounds: cluesPanel fullBounds.! - self bounds: cluesPanel fullBounds. - ! Item was changed: ----- Method: CrosticPanel>>showHelpWindow (in category 'menu') ----- showHelpWindow - ((PluggableTextMorph new setText: 'The Crostic Panel presents an acrostic puzzle for solution. As you type in answers for the clues, the letters also get entered in the text of the hidden quote. Conversely, as you guess words in the quote, those letters will fill in missing places in your answers. In addition, the first letters of all the answers together form the author''s name and title of the work from which the quote is taken. + 'The Crostic Panel presents an acrostic puzzle for solution. As you type in answers for the clues, the letters also get entered in the text of the hidden quote. Conversely, as you guess words in the quote, those letters will fill in missing places in your answers. In addition, the first letters of all the answers together form the author''s name and title of the work from which the quote is taken. + If you wish to make up other acrostic puzzles, follow the obvious file format in the sampleFile method. If you wish to print an acrostic to work it on paper, then change the oldStyle method to return true, and it will properly cross-index all the cells. + Have fun!!' translated + editWithLabel: 'About the Crostic Panel' translated.! - Have fun.' translated) - embeddedInMorphicWindowLabeled: 'About the Crostic Panel' translated) - setWindowColor: (Color - r: 1.0 - g: 0.6 - b: 0.0); - openInWorld: self world extent: 409 @ 207! Item was changed: ----- Method: CrosticPanel>>showHintsWindow (in category 'menu') ----- showHintsWindow | hints | (self confirm: 'As hints, you will be given the five longest answers. Do you really want to do this?' translated) ifFalse: [^ self]. hints := (answers sorted: [:x :y | x size > y size]) first: 5. + (('The five longest answers are... - ((PluggableTextMorph new setText: 'The five longest answers are... ' translated , (String streamContents: [:strm | hints do: [:hint | strm cr; nextPutAll: (hint collect: [:i | quote at: i])]. + strm cr; cr]) , 'Good luck!!' translated)) + editWithLabel: 'Crostic Hints' translated.! - strm cr; cr]) , 'Good luck!!' translated) - embeddedInMorphicWindowLabeled: 'Crostic Hints' translated) - setWindowColor: (Color - r: 1.0 - g: 0.6 - b: 0.0); - openInWorld: self world extent: 198 @ 154! Item was changed: ----- Method: CrosticQuotePanel>>extent: (in category 'geometry') ----- extent: newExtent | w h nAcross relLoc topLeft | + w := self firstSubmorph width - 1 px. h := self firstSubmorph height - 1 px. + nAcross := newExtent x - (self borderWidth - 1 px * 2) - 1 px // w. + topLeft := self position + self borderWidth - 1 px. - w := self firstSubmorph width - 1. h := self firstSubmorph height - 1. - nAcross := newExtent x - (self borderWidth-1*2)-1 // w. - topLeft := self position + self borderWidth - 1. submorphs withIndexDo: [:m :i | relLoc := (i-1 \\ nAcross * w) @ (i-1 // nAcross * h). m position: topLeft + relLoc]. super extent: ((w * nAcross + 1) @ (submorphs size - 1 // nAcross + 1 * h+1)) + + (self borderWidth - 1 px * 2).! - + (self borderWidth - 1 * 2). - ! Item was changed: ----- Method: CrosticQuotePanel>>quote:answers:cluesPanel: (in category 'initialization') ----- quote: quoteWithBlanks answers: theAnswers cluesPanel: panel | n morph prev clueIxs | cluesPanel := panel. self color: Color gray. clueIxs := Array new: quoteWithBlanks size. theAnswers withIndexDo: [:a :i | a do: [:j | clueIxs at: j put: i]]. letterMorphs := OrderedCollection new. prev := nil. self addAllMorphs: (quoteWithBlanks asArray collect: [:c | c isLetter ifTrue: [n := letterMorphs size + 1. morph := WordGameLetterMorph new boxed. CrosticPanel oldStyle ifTrue: [morph indexInQuote: n id1: n printString. morph id2: (($A to: $Z) at: (clueIxs at: n)) asString] ifFalse: [morph indexInQuote: n id1: nil]. morph setLetter: Character space. morph on: #mouseDown send: #mouseDownEvent:letterMorph: to: self. morph on: #keyStroke send: #keyStrokeEvent:letterMorph: to: self. letterMorphs addLast: morph] ifFalse: [morph := WordGameLetterMorph new boxed indexInQuote: nil id1: nil. + CrosticPanel oldStyle ifTrue: [morph extent: 26 px @ 24 px "Oops"]]. - CrosticPanel oldStyle ifTrue: [morph extent: 26@24 "Oops"]]. morph predecessor: prev. prev ifNotNil: [prev successor: morph]. + prev := morph]).! - prev := morph]). - ! Item was changed: ----- Method: FreeCell>>buildButton:target:label:selector: (in category 'private') ----- buildButton: aButton target: aTarget label: aLabel selector: aSelector "wrap a button or switch in an alignmentMorph to provide some space around the button" | a | aButton target: aTarget; label: aLabel; actionSelector: aSelector; + borderStyle: (BorderStyle raised width: 2 px); - borderStyle: (BorderStyle raised width: 2); color: Color gray. a := AlignmentMorph newColumn wrapCentering: #center; cellPositioning: #topCenter; hResizing: #shrinkWrap; vResizing: #shrinkWrap; color: Color transparent; + layoutInset: 1 px. - layoutInset: 1. a addMorph: aButton. + ^ a! - ^ a - - ! Item was changed: ----- Method: FreeCell>>defaultBorderWidth (in category 'initialization') ----- defaultBorderWidth "answer the default border width for the receiver" + ^ 2 px! - ^ 2! Item was changed: ----- Method: FreeCell>>makeCardsRemainingDisplay (in category 'initialization') ----- makeCardsRemainingDisplay cardsRemainingDisplay := LedMorph new digits: 2; + extent: 10 px * 2 @ 15 px. - extent: 2 * 10 @ 15. ^ self wrapPanel: cardsRemainingDisplay label: 'Cards Left: ' translated! Item was changed: ----- Method: FreeCell>>makeControlBar (in category 'initialization') ----- makeControlBar ^AlignmentMorph newRow color: self colorNearBottom; + borderStyle: (BorderStyle inset width: 2 px); - borderStyle: (BorderStyle inset width: 2); layoutInset: 0; hResizing: #spaceFill; vResizing: #shrinkWrap; wrapCentering: #center; cellPositioning: #leftCenter; yourself.! Item was changed: ----- Method: FreeCell>>makeElapsedTimeDisplay (in category 'initialization') ----- makeElapsedTimeDisplay elapsedTimeDisplay := LedTimerMorph new digits: 3; + extent: 10 px * 3 @ 15 px. - extent: 3 * 10 @ 15. ^ self wrapPanel: elapsedTimeDisplay label: 'Elapsed Time: ' translated! Item was changed: ----- Method: FreeCell>>makeGameNumberDisplay (in category 'initialization') ----- makeGameNumberDisplay gameNumberDisplay := LedMorph new digits: 5; + extent: 10 px * 5 @ 15 px. - extent: 5 * 10 @ 15. ^ self wrapPanel: gameNumberDisplay label: 'Game #: ' translated! Item was changed: ----- Method: FreeCell>>wrapPanel:label: (in category 'private') ----- wrapPanel: anLedPanel label: aLabel "wrap an LED panel in an alignmentMorph with a label to its left" | a | a := AlignmentMorph newRow wrapCentering: #center; cellPositioning: #leftCenter; hResizing: #shrinkWrap; vResizing: #shrinkWrap; borderWidth: 0; + layoutInset: 5 px; - layoutInset: 5; color: Color transparent. a addMorph: anLedPanel. a addMorph: (StringMorph contents: aLabel). + ^ a! - ^ a - ! Item was changed: ----- Method: FreeCellBoard>>cardCell (in category 'layout') ----- cardCell ^PlayingCardDeck new layout: #pile; listDirection: #topToBottom; enableDragNDrop; color: Color transparent; borderColor: (Color gray alpha: 0.5); + borderWidth: 2 px; - borderWidth: 2; layoutBounds: (0@0 extent: PlayingCardMorph width @ PlayingCardMorph height); yourself! Item was changed: ----- Method: FreeCellBoard>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" self listDirection: #topToBottom; hResizing: #shrinkWrap; vResizing: #rigid; + height: 500 px; - height: 500; layout! Item was changed: ----- Method: FreeCellStatistics>>buildButton:target:label:selector: (in category 'user interface') ----- buildButton: aButton target: aTarget label: aLabel selector: aSelector "wrap a button or switch in an alignmentMorph to provide some space around the button" | a | aButton target: aTarget; label: aLabel; actionSelector: aSelector; + borderStyle: (BorderStyle raised width: 2 px); - borderStyle: (BorderStyle raised width: 2); color: Color gray. a := AlignmentMorph newColumn wrapCentering: #center; cellPositioning: #topCenter; hResizing: #spaceFill; vResizing: #shrinkWrap; color: Color transparent; + layoutInset: 1 px. - layoutInset: 1. a addMorph: aButton. + ^ a! - ^ a - - ! Item was changed: ----- Method: FreeCellStatistics>>display (in category 'user interface') ----- display | panel | (window notNil and: [window owner notNil]) ifTrue: [window activate. ^nil]. panel := AlignmentMorph newColumn. panel wrapCentering: #center; cellPositioning: #topCenter; hResizing: #rigid; vResizing: #rigid; + extent: 250 px @ 150 px; - extent: 250@150; color: self color; addMorphBack: self makeStatistics; addMorphBack: self makeControls. window := panel openInWindowLabeled: 'FreeCell Statistics' translated.! Item was changed: ----- Method: FreeCellStatistics>>makeControls (in category 'user interface') ----- makeControls | row | row := AlignmentMorph newRow. row wrapCentering: #center; cellPositioning: #leftCenter; hResizing: #spaceFill; vResizing: #shrinkWrap; color: self color; + borderStyle: (BorderStyle inset width: 2 px); - borderStyle: (BorderStyle inset width: 2); addMorphBack: self makeOkButton; addMorphBack: self makeResetButton. ^row.! Item was changed: ----- Method: FreeCellStatistics>>makeStatistics (in category 'user interface') ----- makeStatistics | row | row := AlignmentMorph newRow. row wrapCentering: #center; cellPositioning: #leftCenter; hResizing: #spaceFill; vResizing: #spaceFill; color: self color; + borderStyle: (BorderStyle inset width: 2 px); - borderStyle: (BorderStyle inset width: 2); addMorphBack: (AlignmentMorph newColumn wrapCentering: #center; cellPositioning: #topCenter; color: self color; addMorph: (statsMorph := TextMorph new contents: self statsText)). ^row.! Item was changed: ----- Method: ObjectsTool>>initializeForFlap: (in category '*Etoys-Squeakland-initialization') ----- initializeForFlap: forStartup | buttonPane aBin aColor heights tabsPane | forStartup ifTrue: [ self basicInitialize. self layoutInset: 0; layoutPolicy: ProportionalLayout new; hResizing: #shrinkWrap; vResizing: #rigid; + borderWidth: 2 px; borderColor: Color darkGray; - borderWidth: 2; borderColor: Color darkGray; extent: (self minimumWidth @ self minimumHeight). ]. "mode buttons" buttonPane := self paneForTabs: self modeTabs. buttonPane vResizing: #shrinkWrap; setNameTo: 'ButtonPane'; color: (aColor := buttonPane color) darker; + layoutInset: 6 px; - layoutInset: 6; wrapDirection: nil; width: self width; layoutChanged; fullBounds. "Place holder for a tabs or text pane" tabsPane := Morph new setNameTo: 'TabPane'; hResizing: #spaceFill; yourself. + heights := { buttonPane height. 40 px }. - heights := { buttonPane height. 40 }. buttonPane vResizing: #spaceFill. self addMorph: buttonPane fullFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0) offsets: (0 @ 0 corner: 0 @ heights first)). self addMorph: tabsPane fullFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0) offsets: (0 @ heights first corner: 0 @ (heights first + heights second))). aBin := (PartsBin newPartsBinWithOrientation: #leftToRight from: #()) listDirection: #leftToRight; wrapDirection: #topToBottom; color: aColor lighter lighter; setNameTo: 'Parts'; dropEnabled: false; vResizing: #spaceFill; yourself. self addMorph: aBin fullFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 1) offsets: (0 @ (heights first + heights second) corner: 0 @ 0)). aBin color: (Color orange muchLighter); setNameTo: 'Objects' translated. self color: (Color orange muchLighter); + setNameTo: 'Objects' translated.! - setNameTo: 'Objects' translated. - ! Item was changed: ----- Method: ObjectsTool>>initializeToStandAlone: (in category '*Etoys-Squeakland-initialization') ----- initializeToStandAlone: forStartup | buttonPane aBin aColor heights tabsPane | forStartup ifTrue: [ self basicInitialize. + self layoutInset: 6 px; - self layoutInset: 6; layoutPolicy: ProportionalLayout new; useRoundedCorners; hResizing: #rigid; vResizing: #rigid; extent: (self minimumWidth @ self minimumHeight). ]. "mode buttons" buttonPane := self paneForTabs: self modeTabs. buttonPane vResizing: #shrinkWrap; setNameTo: 'ButtonPane'; addMorphFront: self dismissButton; addMorphBack: self helpButton; color: (aColor := buttonPane color) darker; + layoutInset: 6 px; - layoutInset: 6; wrapDirection: nil; width: self width; layoutChanged; fullBounds. "Place holder for a tabs or text pane" tabsPane := Morph new setNameTo: 'TabPane'; hResizing: #spaceFill; yourself. + heights := { buttonPane height. 40 px }. - heights := { buttonPane height. 40 }. buttonPane vResizing: #spaceFill. self addMorph: buttonPane fullFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0) offsets: (0 @ 0 corner: 0 @ heights first)). self addMorph: tabsPane fullFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0) offsets: (0 @ heights first corner: 0 @ (heights first + heights second))). aBin := (PartsBin newPartsBinWithOrientation: #leftToRight from: #()) listDirection: #leftToRight; wrapDirection: #topToBottom; color: aColor lighter lighter; setNameTo: 'Parts'; dropEnabled: false; vResizing: #spaceFill; yourself. self addMorph: aBin fullFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 1) offsets: (0 @ (heights first + heights second) corner: 0 @ 0)). self color: (Color r: 0.0 g: 0.839 b: 0.226); setNameTo: 'Objects' translated. forStartup ifTrue: [ self showCategories. ]! Item was changed: ----- Method: PartsBin>>listDirection:quadList:withPreviousEntries: (in category '*Etoys-Squeakland-initialization') ----- listDirection: aListDirection quadList: quadList withPreviousEntries: aCollection "Initialize the receiver to run horizontally or vertically, obtaining its elements from the list of tuples of the form: (<receiver> <selector> <label> <balloonHelp>)" | aButton aClass oldDict | self layoutPolicy: TableLayout new. self listDirection: aListDirection. self wrapCentering: #topLeft. + self layoutInset: 2 px. - self layoutInset: 2. self cellPositioning: #bottomCenter. oldDict := Dictionary new. aCollection ifNotNil: [ aCollection do: [:e | oldDict at: e target put: e] ]. aListDirection == #leftToRight ifTrue: [self vResizing: #rigid. self hResizing: #spaceFill. self wrapDirection: #topToBottom] ifFalse: [self hResizing: #rigid. self vResizing: #spaceFill. self wrapDirection: #leftToRight]. quadList do: [:tuple | aClass := Smalltalk at: tuple first. aButton := oldDict at: aClass ifAbsent: []. (aButton isNil or: [#(TextMorph ScriptableButton) includes: aClass name]) ifTrue: [ aButton := IconicButtonWithLabel new initializeWithThumbnail: (self class thumbnailForQuad: tuple color: self color) withLabel: tuple third andColor: self color andSend: tuple second to: aClass. (tuple size > 3 and: [tuple fourth isEmptyOrNil not]) ifTrue: [aButton setBalloonText: tuple fourth]. ] ifFalse: [ aButton labelString: tuple third. aButton arguments: {aButton arguments first. tuple third}. (tuple size > 3 and: [tuple fourth isEmptyOrNil not]) ifTrue: [aButton setBalloonText: tuple fourth]. ]. self addMorphBack: aButton]! Item was changed: ----- Method: PlayingCardDeck>>staggerOffset (in category 'layout') ----- staggerOffset + ^18 px! - ^18! Item was changed: ----- Method: PlayingCardMorph class>>cardSize (in category 'access') ----- cardSize " a real hack, but I don't want to muck with Dan's class " + ^71 px @ 96 px! - ^71@96.! Item was changed: ----- Method: PlayingCardMorph class>>the:of: (in category 'initialize-release') ----- the: cardNumber of: suit + | image | + image := (PlayingCard the: cardNumber of: suit) cardForm. + image := image scaledToSize: image extent * RealEstateAgent scaleFactor. ^ self new + image: image; - image: (PlayingCard the: cardNumber of: suit) cardForm; cardNumber: cardNumber suitNumber: (self suits indexOf: suit)! Item was changed: ----- Method: SameGame>>buildButton:target:label:selector: (in category 'initialization') ----- buildButton: aButton target: aTarget label: aLabel selector: aSelector "wrap a button or switch in an alignmentMorph to allow a row of buttons to fill space" | a | aButton target: aTarget; label: aLabel; actionSelector: aSelector; + borderStyle: (BorderStyle raised width: 2 px); - borderStyle: (BorderStyle raised width: 2); color: color. a := AlignmentMorph newColumn wrapCentering: #center; cellPositioning: #topCenter; hResizing: #spaceFill; vResizing: #shrinkWrap; color: color. a addMorph: aButton. + ^ a! - ^ a - - ! Item was changed: ----- Method: SameGame>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" self listDirection: #topToBottom; wrapCentering: #center; cellPositioning: #topCenter; vResizing: #shrinkWrap; hResizing: #shrinkWrap; + layoutInset: 3 px; - layoutInset: 3; addMorph: self makeControls; addMorph: self board. helpText := nil. self newGame! Item was changed: ----- Method: SameGame>>makeControls (in category 'initialization') ----- makeControls | row | row := AlignmentMorph newRow color: color; borderWidth: 0; + layoutInset: 3 px. + row hResizing: #spaceFill; vResizing: #shrinkWrap; wrapCentering: #center; cellPositioning: #leftCenter; extent: 5 px @ 5 px. - layoutInset: 3. - row hResizing: #spaceFill; vResizing: #shrinkWrap; wrapCentering: #center; cellPositioning: #leftCenter; extent: 5@5. row addMorph: (self buildButton: SimpleSwitchMorph new target: self label: 'Help' translated selector: #help:). row addMorph: (self buildButton: SimpleButtonMorph new target: self label: 'Quit' translated selector: #delete). row addMorph: (self buildButton: SimpleButtonMorph new target: self board label: 'Hint' translated selector: #hint). row addMorph: (self buildButton: SimpleButtonMorph new target: self label: 'New game' translated selector: #newGame). selectionDisplay := LedMorph new digits: 2; + extent: (10 px * 2 @ 15 px). - extent: (2*10@15). row addMorph: (self wrapPanel: selectionDisplay label: 'Selection:' translated). scoreDisplay := LedMorph new digits: 4; + extent: (10 px * 4 @ 15 px). - extent: (4*10@15). row addMorph: (self wrapPanel: scoreDisplay label: 'Score:' translated). ^ row! Item was changed: ----- Method: SameGameBoard>>defaultBorderWidth (in category 'initialization') ----- defaultBorderWidth "answer the default border width for the receiver" + ^ 2 px! - ^ 2! Item was changed: ----- Method: SameGameTile>>initialize (in category 'initialization') ----- initialize super initialize. self label: ''. + self borderWidth: 2 px. + bounds := 0 @ 0 corner: 16 px @ 16 px. - self borderWidth: 2. - bounds := 0@0 corner: 16@16. offColor := Color gray. onColor := Color gray. switchState := false. oldSwitchState := false. disabled := false. + self useSquareCorners.! - self useSquareCorners - ! Item was removed: - ----- Method: SpectrumAnalyzerMorph>>addLevelSlider (in category 'private') ----- - addLevelSlider - - | levelSlider r | - levelSlider := SimpleSliderMorph new - color: color; - extent: 100@2; - target: soundInput; - actionSelector: #recordLevel:; - adjustToValue: soundInput recordLevel. - r := AlignmentMorph newRow - color: color; - layoutInset: 0; - wrapCentering: #center; cellPositioning: #leftCenter; - hResizing: #shrinkWrap; - vResizing: #rigid; - height: 24. - r addMorphBack: (StringMorph contents: '0 '). - r addMorphBack: levelSlider. - r addMorphBack: (StringMorph contents: ' 10'). - self addMorphBack: r. - ! Item was changed: ----- Method: SpectrumAnalyzerMorph>>addLevelSliderIn: (in category 'private') ----- addLevelSliderIn: aPoint | levelSlider r | + (levelSlider := SimpleSliderMorph new) - levelSlider := SimpleSliderMorph new color: color; + sliderColor: Color gray; + extent: (aPoint x * 0.75) asInteger @ (aPoint y * 0.6) asInteger; + minimumExtent: levelSlider extent; - extent: (aPoint x * 0.75) asInteger@(aPoint y*0.6) asInteger; target: soundInput; actionSelector: #recordLevel:; + orientation: #horizontal; adjustToValue: soundInput recordLevel. r := AlignmentMorph newRow color: color; layoutInset: 0; wrapCentering: #center; cellPositioning: #leftCenter; hResizing: #shrinkWrap; vResizing: #rigid; + height: aPoint y + 2 px. - height: aPoint y + 2. r addMorphBack: (StringMorph contents: '0 ' font: Preferences standardEToysButtonFont). r addMorphBack: levelSlider. r addMorphBack: (StringMorph contents: ' 10' font: Preferences standardEToysButtonFont). + self addMorphBack: r.! - self addMorphBack: r. - ! Item was changed: ----- Method: SpectrumAnalyzerMorph>>defaultBorderWidth (in category 'initialization') ----- defaultBorderWidth "answer the default border width for the receiver" + ^ 2 px! - ^ 2! Item was changed: ----- Method: SpectrumAnalyzerMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" | full | super initialize. "" self listDirection: #topToBottom. soundInput := SoundInputStream new samplingRate: 22050. fft := FFT new: 512. displayType := 'sonogram'. self hResizing: #shrinkWrap. self vResizing: #shrinkWrap. full := self addButtonRow. submorphs last addMorphBack: (self makeStatusLightIn: full extent). self addLevelSliderIn: full extent. self addMorphBack: (self makeLevelMeterIn: full extent). + self addMorphBack: (Morph new extent: 10 px @ 10 px; - self addMorphBack: (Morph new extent: 10 @ 10; color: Color transparent). "spacer" self resetDisplay! Item was removed: - ----- Method: SpectrumAnalyzerMorph>>makeLevelMeter (in category 'private') ----- - makeLevelMeter - - | outerBox | - outerBox := RectangleMorph new extent: 125@14; color: Color lightGray. - levelMeter := Morph new extent: 2@10; color: Color yellow. - levelMeter position: outerBox topLeft + (2@2). - outerBox addMorph: levelMeter. - ^ outerBox - ! Item was changed: ----- Method: SpectrumAnalyzerMorph>>makeLevelMeterIn: (in category 'private') ----- makeLevelMeterIn: aPoint | outerBox h | h := (aPoint y * 0.6) asInteger. + outerBox := Morph new extent: aPoint x asInteger @ h; color: Color gray. + levelMeter := Morph new extent: 1 px @ h; color: Color yellow. + levelMeter position: outerBox topLeft + (1 px @ 1 px). - outerBox := Morph new extent: (aPoint x) asInteger@h; color: Color gray. - levelMeter := Morph new extent: 1@h; color: Color yellow. - levelMeter position: outerBox topLeft + (1@1). outerBox addMorph: levelMeter. + ^ outerBox! - ^ outerBox - ! Item was removed: - ----- Method: SpectrumAnalyzerMorph>>makeStatusLight (in category 'private') ----- - makeStatusLight - - | s | - statusLight := RectangleMorph new extent: 24@19. - statusLight color: Color gray. - s := StringMorph contents: 'On' translated. - s position: statusLight center - (s extent // 2). - statusLight addMorph: s. - ^ statusLight - ! Item was changed: ----- Method: SpectrumAnalyzerMorph>>makeStatusLightIn: (in category 'private') ----- makeStatusLightIn: aPoint | s p | p := (aPoint x min: aPoint y) asPoint. statusLight := RectangleMorph new extent: p. statusLight color: Color gray. + s := StringMorph contents: '' font: Preferences standardButtonFont. - s := StringMorph contents: 'On' translated font: Preferences standardEToysFont. - s position: statusLight center - (s extent // 2). statusLight addMorph: s. + ^ statusLight! - ^ statusLight - ! Item was changed: ----- Method: SpectrumAnalyzerMorph>>showSignal (in category 'private') ----- showSignal "Display the actual signal waveform." displayType := 'signal'. self removeAllDisplays. graphMorph := GraphMorph new. + graphMorph extent: (400 px + (graphMorph borderWidth * 2)) @ 128 px. - graphMorph extent: (400 + (2 * graphMorph borderWidth))@128. graphMorph data: (Array new: 100 withAll: 0). graphMorph color: (Color r: 0.8 g: 1.0 b: 1.0). self addMorphBack: graphMorph. + self extent: 10 px @ 10 px. "shrink to minimum size"! - self extent: 10@10. "shrink to minimum size" - ! Item was changed: ----- Method: SpectrumAnalyzerMorph>>showSonogram (in category 'private') ----- showSonogram "Display a sonogram showing the frequency spectrum versus time." | zeros h w | displayType := 'sonogram'. self removeAllDisplays. h := fft n // 2. + h := h min: 512 px max: 64 px. + w := 400 px. - h := h min: 512 max: 64. - w := 400. sonogramMorph := Sonogram new extent: w@h minVal: 0.0 maxVal: 1.0 scrollDelta: w. zeros := Array new: sonogramMorph height withAll: 0. sonogramMorph width timesRepeat: [sonogramMorph plotColumn: zeros]. self addMorphBack: sonogramMorph. + self extent: 10 px @ 10 px. "shrink to minimum size"! - self extent: 10@10. "shrink to minimum size" - ! Item was changed: ----- Method: SpectrumAnalyzerMorph>>showSpectrum (in category 'private') ----- showSpectrum "Display the frequency spectrum." displayType := 'spectrum'. self removeAllDisplays. graphMorph := GraphMorph new. + graphMorph extent: ((fft n // 2) + (graphMorph borderWidth * 2)) @ 128 px. - graphMorph extent: ((fft n // 2) + (2 * graphMorph borderWidth))@128. graphMorph data: (Array new: fft n // 2 withAll: 0). self addMorphBack: graphMorph. + self extent: 10 px @ 10 px. "shrink to minimum size"! - self extent: 10@10. "shrink to minimum size" - ! Item was changed: ----- Method: SpectrumAnalyzerMorph>>step (in category 'stepping and presenter') ----- step "Update the record light, level meter, and display." | w | "update the record light and level meter" statusLight color: (soundInput isRecording ifTrue: [Color yellow] ifFalse: [Color gray]). statusLight firstSubmorph in: [:stringMorph | stringMorph contents: (soundInput isRecording ifTrue: ['On' translated] ifFalse: ['Off' translated]). stringMorph position: statusLight center - (stringMorph extent // 2)]. + w := ((121 px * soundInput meterLevel) // 100) max: 1. - w := ((121 * soundInput meterLevel) // 100) max: 1. levelMeter width: w. "update the display if any data is available" self updateDisplay.! Item was changed: ----- Method: Tetris>>buildButtonTarget:label:selector:help: (in category 'initialization') ----- buildButtonTarget: aTarget label: aLabel selector: aSelector help: aString ^self rowForButtons addMorph: ( SimpleButtonMorph new target: aTarget; label: aLabel; actionSelector: aSelector; + borderStyle: (BorderStyle raised width: 2 px); - borderStyle: (BorderStyle raised width: 2); color: color + )! - ) - - ! Item was changed: ----- Method: Tetris>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" board := TetrisBoard new game: self. self listDirection: #topToBottom; wrapCentering: #center; vResizing: #shrinkWrap; hResizing: #shrinkWrap; + layoutInset: 3 px; - layoutInset: 3; addMorphBack: self makeGameControls; addMorphBack: self makeMovementControls; addMorphBack: self showScoreDisplay; addMorphBack: board. board newGame! Item was changed: ----- Method: Tetris>>rowForButtons (in category 'initialization') ----- rowForButtons ^AlignmentMorph newRow color: color; borderWidth: 0; + layoutInset: 3 px; - layoutInset: 3; vResizing: #shrinkWrap; wrapCentering: #center ! Item was changed: ----- Method: Tetris>>showScoreDisplay (in category 'initialization') ----- showScoreDisplay ^ self rowForButtons hResizing: #shrinkWrap; addMorph: (self wrapPanel: ((scoreDisplay := LedMorph new) digits: 5; + extent: 10 px * 4 @ 15 px) label: 'Score:' translated)! - extent: 4 * 10 @ 15) label: 'Score:' translated)! Item was changed: ----- Method: TetrisBlock>>defaultBounds (in category 'initialization') ----- defaultBounds "answer the default bounds for the receiver" + ^ (2 px @ 2 px) negated extent: 1 px @ 1 px! - ^ (2 @ 2) negated extent: 1 @ 1! Item was changed: ----- Method: TetrisBoard>>cellSize (in category 'accessing') ----- cellSize + ^12 px @ 12 px! - ^12@12! Item was changed: ----- Method: TetrisBoard>>defaultBounds (in category 'initialization') ----- defaultBounds "answer the default bounds for the receiver" + ^ 0 @ 0 extent: self numColumns @ self numRows * self cellSize + (1 px @ 1 px)! - ^ 0 @ 0 extent: self numColumns @ self numRows * self cellSize + (1 @ 1)! Item was changed: ----- Method: WordGameLetterMorph>>id2: (in category 'initialization') ----- id2: idString "Add further clue id for acrostic puzzles." | idMorph | idString ifNotNil: [idMorph := StringMorph contents: idString font: IDFont. + idMorph align: idMorph bounds topRight with: self bounds topRight + (-1 px @ -1 px). - idMorph align: idMorph bounds topRight with: self bounds topRight + (-1@ -1). self addMorph: idMorph]. ! Item was changed: ----- Method: WordGameLetterMorph>>indexInQuote:id1: (in category 'initialization') ----- indexInQuote: qi id1: aString "Initialize me with the given index and an optional aString" | idMorph y | style = #boxed ifTrue: [aString isNil + ifTrue: [self extent: 18 px @ 16 px; + borderWidth: 1 px] + ifFalse: [self extent: 26 px @ 24 px; + borderWidth: 1 px]] - ifTrue: [self extent: 18 @ 16; - borderWidth: 1] - ifFalse: [self extent: 26 @ 24; - borderWidth: 1]] ifFalse: [aString isNil + ifTrue: [self extent: 18 px @ 16 px; - ifTrue: [self extent: 18 @ 16; borderWidth: 0] + ifFalse: [self extent: 18 px @ 26 px; - ifFalse: [self extent: 18 @ 26; borderWidth: 0]]. qi ifNil: [^ self color: Color gray]. "blank" self color: self normalColor. indexInQuote := qi. style == #underlined + ifTrue: [y := self bottom - 2 px. - ifTrue: [y := self bottom - 2. aString + ifNotNil: [y := y - IDFont ascent + 2 px]. - ifNotNil: [y := y - IDFont ascent + 2]. lineMorph := PolygonMorph + vertices: {self left + 2 px @ y. self right - 3 px @ y} - vertices: {self left + 2 @ y. self right - 3 @ y} color: Color gray + borderWidth: 1 px - borderWidth: 1 borderColor: Color gray. self addMorph: lineMorph. aString ifNil: [^ self]. idMorph := StringMorph contents: aString font: IDFont. + idMorph align: idMorph bounds bottomCenter with: self bounds bottomCenter + (0 @ (IDFont descent - 1 px)). - idMorph align: idMorph bounds bottomCenter with: self bounds bottomCenter + (0 @ (IDFont descent - 1)). self addMorphBack: idMorph] ifFalse: [aString ifNil: [^ self]. idMorph := StringMorph contents: aString font: IDFont. + idMorph align: idMorph bounds topLeft with: self bounds topLeft + (2 px @ -1 px). - idMorph align: idMorph bounds topLeft with: self bounds topLeft + (2 @ -1). self addMorph: idMorph " World addMorph: (WordGameLetterMorph new boxed indexInQuote: 123 id1: '123'; id2: 'H'; setLetter: $W). World addMorph: (WordGameLetterMorph new underlined indexInQuote: 123 id1: '123'; setLetter: $W). World addMorph: (WordGameLetterMorph new underlined indexInQuote: 123 id1: nil; setLetter: $W). "]! Item was changed: ----- Method: WordGameLetterMorph>>setLetter:color: (in category 'initialization') ----- setLetter: aLetter color: aColor letterMorph ifNotNil: [letterMorph delete]. letter := aLetter. letter ifNil: [^letterMorph := nil]. letterMorph := StringMorph contents: aLetter asString font: LetterFont. letterMorph color: aColor. style == #boxed ifTrue: [letterMorph align: letterMorph bounds bottomCenter + with: self bounds bottomCenter + (0 @ (LetterFont descent - 2 px))] - with: self bounds bottomCenter + (0 @ (LetterFont descent - 2))] ifFalse: [lineMorph isNil ifTrue: [letterMorph align: letterMorph bounds bottomCenter + with: self bounds bottomCenter + (0 @ (LetterFont descent - 4 px))] - with: self bounds bottomCenter + (0 @ (LetterFont descent - 4))] ifFalse: [letterMorph align: letterMorph bounds bottomCenter with: self center x @ (lineMorph top + LetterFont descent)]]. self addMorphBack: letterMorph!

1 0

The Trunk: MorphicExtras-ct.327.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.327.mcz ==================== Summary ==================== Name: MorphicExtras-ct.327 Author: ct Time: 25 August 2022, 2:00:16.466239 pm UUID: 44fc8304-1918-e145-88bb-9bc2ec35343b Ancestors: MorphicExtras-ct.323, MorphicExtras-ct.325, MorphicExtras-ct.326 Adds and improves high-dpi support for several morphs and examples: * BannerMorph (revised font, added comment on flex shell) * CurveMorph extraExampleTextFlow (removed scaling, added comment of flex morph) * Event Recorder * Objects Tool/Parts Bin (and improved #applyUserInterfaceTheme for theme/scale changes) * Piano Roll (also minor refactoring on PianoRollNoteMorph: renamed overloaded #fullBounds -> #boundsForSelection, added proper implementation of #outerBounds to fix invalidation issues, reused #[de]select)) * PolygonMorph extra examples * Recording Controls (revised from MorphicExtras-ct.325 (also fixed slider, improved color of record level slider, and removed obsolete construction selectors) * Score player (revised from MorphicExtras-ct.323) =============== Diff against MorphicExtras-ct.326 =============== Item was changed: ----- Method: BannerMorph>>createContents (in category 'initialize-release') ----- createContents | text | text := self contents asText addAttribute: TextEmphasis bold; - addAttribute: (TextFontReference toFont: - (StrikeFont familyName: #ComicPlain size: 39)); asMorph. + text fontName: 'Bitmap DejaVu Sans' pointSize: 31. text readOnly: true; flag: #ct. "We're no *that* life, yet :(" ^ ScreeningMorph new addMorph: (self createBackground + extent: (text fullBounds; extent); - extent: text extent; yourself); addMorph: text; showScreened; cellPositioning: #center; yourself! Item was changed: ----- Method: BannerMorph>>initialize (in category 'initialize-release') ----- initialize super initialize. + + "Note: No high-dpi support because the header font is not available in a sufficiently large font size, and it cannot be embedded in a flex shell as it uses #fillsOwner:. Instead, the entire receiver can be embedded in a flex shell." self extent: 300 @ 200. self changeProportionalLayout; addMorph: (Morph new color: Color transparent; changeTableLayout; listCentering: #center; wrapCentering: #center; addMorph: self createContents; yourself) fullFrame: LayoutFrame fullFrame; addMorph: self createHeader.! Item was changed: ----- Method: CurveMorph class>>extraExampleTextFlow (in category '*MorphicExtras-examples') ----- extraExampleTextFlow + "CurveMorph extraExampleTextFlow openInHand + + Note: No high-dpi support because text flow only matches a certain scaling factor." - "CurveMorph extraExampleTextFlow openInHand" | curve text | curve := CurveMorph + vertices: {135 @ 270. 75 @ 200. 50 @ 150. 100 @ 100. 125 @ 150. 175 @ 100. 200 @ 150. 175 @ 200 . 115 @ 340} - vertices: {135 @ 270. 75 @ 200. 50 @ 150. 100 @ 100. 125 @ 150. 175 @ 100. 200 @ 150. 175 @ 200 . 115 @ 340} * RealEstateAgent scaleFactor color: Color cyan + borderWidth: 25 - borderWidth: 25 * RealEstateAgent scaleFactor borderColor: Color salmon. curve makeOpen; beSmoothCurve. + text := (('Texts can also follow ........................................ an open curve. ' asText - text := ('Texts can also follow ........................................ an open curve. ' asText , ('So morphic!!' asText addAttribute: TextEmphasis italic; addAttribute: (TextColor color: Color blue); yourself)) + asMorph) + fontName: 'Bitmap DejaVu Sans' pointSize: 14.5; + yourself. - addAttribute: (TextFontChange fontNumber: (3.4 * RealEstateAgent scaleFactor) rounded); - asMorph. text textColor: Color yellow. curve addMorph: text. text followCurve. ^ curve! Item was changed: ----- Method: EventRecorderMorph>>addVoiceControls (in category 'sound') ----- addVoiceControls | levelSlider r meterBox | voiceRecorder := SoundRecorder new desiredSampleRate: 11025.0; "<==try real hard to get the low rate" codec: (GSMCodec new). "<--this should compress better than ADPCM.. is it too slow?" "codec: (ADPCMCodec new initializeForBitsPerSample: 4 samplesPerFrame: 0)." levelSlider := SimpleSliderMorph new color: color; + extent: 100 px @ 2 px; - extent: 100@2; target: voiceRecorder; actionSelector: #recordLevel:; adjustToValue: voiceRecorder recordLevel. r := AlignmentMorph newRow color: color; layoutInset: 0; wrapCentering: #center; cellPositioning: #leftCenter; hResizing: #shrinkWrap; vResizing: #rigid; + height: 24 px. - height: 24. r addMorphBack: (StringMorph contents: '0 '). r addMorphBack: levelSlider. r addMorphBack: (StringMorph contents: ' 10'). self addMorphBack: r. + meterBox := Morph new extent: 102 px @ 18 px; color: Color gray. + recordMeter := Morph new extent: 1 px @ 16 px; color: Color yellow. + recordMeter position: meterBox topLeft + (1 px @ 1 px). - meterBox := Morph new extent: 102@18; color: Color gray. - recordMeter := Morph new extent: 1@16; color: Color yellow. - recordMeter position: meterBox topLeft + (1@1). meterBox addMorph: recordMeter. r := AlignmentMorph newRow vResizing: #shrinkWrap. r addMorphBack: meterBox. + self addMorphBack: r.! - self addMorphBack: r. - ! Item was changed: ----- Method: EventRecorderMorph>>defaultBorderWidth (in category 'initialization') ----- defaultBorderWidth "answer the default border width for the receiver" + ^ 2 px! - ^ 2! Item was changed: ----- Method: EventRecorderMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" saved := true. self listDirection: #topToBottom; wrapCentering: #center; cellPositioning: #topCenter; hResizing: #shrinkWrap; vResizing: #shrinkWrap; + layoutInset: 2 px; + minCellSize: 4 px; - layoutInset: 2; - minCellSize: 4; addButtons! Item was changed: ----- Method: EventRecorderMorph>>makeARowForButtons (in category 'initialization') ----- makeARowForButtons ^AlignmentMorph newRow vResizing: #shrinkWrap; wrapCentering: #center; cellPositioning: #leftCenter; + minCellSize: 4 px; - minCellSize: 4; color: Color blue! Item was changed: ----- Method: EventRecorderMorph>>makeStatusLight (in category 'initialization') ----- makeStatusLight + ^ self makeStatusLightIn: 11 px @ 11 px! - ^statusLight := EllipseMorph new - extent: 11 @ 11; - color: Color green; - borderWidth: 0! Item was changed: ----- Method: Morph>>dismissButton (in category '*MorphicExtras-menus') ----- dismissButton "Answer a button whose action would be to dismiss the receiver, and whose action is to send #delete to the receiver" | aButton | aButton := SimpleButtonMorph new. aButton target: self topRendererOrSelf; color: Color lightRed; borderColor: Color lightRed muchDarker; + borderWidth: 1 px; - borderWidth: 1; label: 'X' font: Preferences standardButtonFont; actionSelector: #delete; setBalloonText: 'dismiss' translated. ^ aButton! Item was changed: ----- Method: ObjectsTool>>applyUserInterfaceTheme (in category 'updating') ----- applyUserInterfaceTheme super applyUserInterfaceTheme. + self setDefaultParameters. + + self tweakAppearanceAfterModeShift. + Project current addDeferredUIMessage: [ + self flag: #ct. "There is no guarantee that my submorphs will be updated before myself." + self layoutChanged].! - self setDefaultParameters.! Item was changed: ----- Method: ObjectsTool>>highlightOnlySubmorph:in: (in category 'tabs') ----- highlightOnlySubmorph: aMorph in: anotherMorph "Distinguish only aMorph with border highlighting (2-pixel wide red); make all my other submorphs have one-pixel-black highlighting. This is a rather special-purpose and hard-coded highlighting regime, of course. Later, if someone cared to do it, we could parameterize the widths and colors via properties, or some such." anotherMorph submorphs do: [:m | | color | color := m == aMorph ifTrue: [self buttonActiveColor] ifFalse: [self buttonColor]. m + borderWidth: 1 px; - borderWidth: 1; borderColor: color. + m firstSubmorph color: color]! - m firstSubmorph color: color] - ! Item was changed: ----- Method: ObjectsTool>>initializeForFlap (in category 'initialization') ----- initializeForFlap "Initialize the receiver to operate in a flap at the top of the screen." " Flaps newObjectsFlap openInWorld " | buttonPane aBin aColor heights tabsPane | self basicInitialize. self layoutInset: 0; layoutPolicy: ProportionalLayout new; hResizing: #shrinkWrap; vResizing: #rigid; + borderWidth: 2 px; borderColor: Color darkGray; - borderWidth: 2; borderColor: Color darkGray; extent: (self minimumWidth @ self minimumHeight). "mode buttons" buttonPane := self paneForTabs: self modeTabs. buttonPane vResizing: #shrinkWrap; setNameTo: 'ButtonPane'; color: (aColor := buttonPane color) darker; + layoutInset: 6 px; - layoutInset: 6; wrapDirection: nil; width: self width; layoutChanged; fullBounds. "Place holder for a tabs or text pane" tabsPane := Morph new setNameTo: 'TabPane'; hResizing: #spaceFill; yourself. + heights := { buttonPane height. 40 px }. - heights := { buttonPane height. 40 }. buttonPane vResizing: #spaceFill. self addMorph: buttonPane fullFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0) offsets: (0 @ 0 corner: 0 @ heights first)). self addMorph: tabsPane fullFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0) offsets: (0 @ heights first corner: 0 @ (heights first + heights second))). aBin := (PartsBin newPartsBinWithOrientation: #leftToRight from: #()) listDirection: #leftToRight; wrapDirection: #topToBottom; color: aColor lighter lighter; setNameTo: 'Parts'; dropEnabled: false; vResizing: #spaceFill; yourself. self addMorph: aBin fullFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 1) offsets: (0 @ (heights first + heights second) corner: 0 @ 0)). aBin color: (Color orange muchLighter); setNameTo: 'Objects' translated. self color: (Color orange muchLighter); + setNameTo: 'Objects' translated.! - setNameTo: 'Objects' translated. - ! Item was changed: ----- Method: ObjectsTool>>initializeToStandAlone (in category 'initialization') ----- initializeToStandAlone "Initialize the receiver so that it can live as a stand-alone morph" | buttonPane aBin aColor tabsPane | self basicInitialize. self layoutInset: 0; useRoundedCorners; hResizing: #rigid; vResizing: #shrinkWrap; extent: RealEstateAgent standardSize; listDirection: #topToBottom; wrapDirection: #none. "mode buttons" buttonPane := self paneForTabs: self modeTabs. buttonPane color: self baseBackgroundColor. buttonPane vResizing: #shrinkWrap; setNameTo: 'ButtonPane'; addMorphFront: self dismissButton; addMorphBack: self helpButton; color: (aColor := buttonPane color) darker; + layoutInset: 5 px; - layoutInset: 5; width: self width; layoutChanged; fullBounds. "Place holder for a tabs or text pane" tabsPane := Morph new. tabsPane color: self baseBackgroundColor; setNameTo: 'TabPane'; hResizing: #spaceFill; vResizing: #shrinkWrap. aBin := (PartsBin newPartsBinWithOrientation: #leftToRight from: #()) changeTableLayout; listDirection: #leftToRight; wrapDirection: #topToBottom; vResizing: #shrinkWrap; color: aColor lighter lighter; borderColor: aColor lighter lighter; setNameTo: 'Parts'; dropEnabled: false; yourself. self addMorphBack: buttonPane. self addMorphBack: tabsPane. self addMorphBack: aBin. + self fullBounds; layoutChanged. "ct: Required for appropriate scale-to-width in high-dpi mode." + self + borderWidth: 1 px; - borderWidth: 1; borderColor: self baseBorderColor; color: self baseBackgroundColor; setNameTo: 'Objects' translated; showCategories.! Item was changed: ----- Method: ObjectsTool>>minHeight (in category 'layout') ----- minHeight + ^(self minimumBottom - self top) max: 280 px! - ^(self minimumBottom - self top) max: 280! Item was changed: ----- Method: ObjectsTool>>minWidth (in category 'layout') ----- minWidth "Answer a width that assures that the alphabet fits in two rows. For olpc, this is increased in order to make the Connectors category not too absurdly tall." + ^ 400 px! - ^ 400! Item was changed: ----- Method: ObjectsTool>>minimumBottom (in category 'layout') ----- minimumBottom | iconsBottom partsBin | partsBin := self partsBin ifNil: [ ^self bottom ]. iconsBottom := partsBin submorphs isEmpty + ifTrue: [ partsBin top + 60 px ] - ifTrue: [ partsBin top + 60 ] ifFalse: [ partsBin submorphBounds bottom + partsBin layoutInset ]. ^iconsBottom + self layoutInset + self borderWidth! Item was changed: ----- Method: ObjectsTool>>newSearchPane (in category 'search') ----- newSearchPane "Answer a type-in pane for searches" | aTextMorph | aTextMorph := TextMorph new setProperty: #defaultContents toValue: ('' asText allBold addAttribute: (TextFontChange font3)); setTextStyle: (TextStyle fontArray: { Preferences standardEToysFont }); setDefaultContentsIfNil; on: #keyStroke send: #searchPaneCharacter: to: self; setNameTo: 'SearchPane'; setBalloonText: 'Type here and all entries that match will be shown.' translated; vResizing: #shrinkWrap; hResizing: #spaceFill; + margins: 4 px @ 6 px; - margins: 4@6; backgroundColor: Color white. ^ aTextMorph! Item was changed: ----- Method: ObjectsTool>>paneForTabs: (in category 'tabs') ----- paneForTabs: tabList "Answer a pane bearing tabs for the given list" | aPane | tabList do: [:t | t color: Color transparent. + t borderWidth: 1 px; - t borderWidth: 1; borderColor: Color black]. aPane := Morph new changeTableLayout; color: self baseBackgroundColor; listDirection: #leftToRight; wrapDirection: #topToBottom; vResizing: #spaceFill; hResizing: #spaceFill; + cellGap: 6 px; + layoutInset: 4 px; - cellGap: 6; - layoutInset: 4; listCentering: #center; addAllMorphs: tabList; yourself. aPane width: self layoutBounds width. ^ aPane! Item was changed: ----- Method: ObjectsTool>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters + + | paneColor | + self extent: self minimumWidth @ self minimumHeight. + {self buttonPane. self tabsPane} do: [:pane | + pane ifNotNil: [ + pane color: (paneColor := self baseBackgroundColor). + + pane allMorphs + select: [:morph | morph isButton] + thenDo: [:morph | morph label: morph label font: TextStyle defaultFont]]]. + self partsBin color: paneColor lighter lighter; borderColor: paneColor lighter lighter. + self borderColor: self baseBorderColor; + color: self baseBackgroundColor. + + self flag: #todo. "Make all fonts and icons larger"! - color: self baseBackgroundColor! Item was changed: PasteUpMorph subclass: #PartsBin + instanceVariableNames: 'knownScaleFactor' - instanceVariableNames: '' classVariableNames: 'Thumbnails' poolDictionaries: '' category: 'MorphicExtras-PartsBin'! Item was added: + ----- Method: PartsBin class>>applyUserInterfaceTheme (in category 'updating') ----- + applyUserInterfaceTheme + + self clearThumbnailCache. "scale factor might have changed"! Item was added: + ----- Method: PartsBin class>>themeProperties (in category 'updating') ----- + themeProperties + "Ensure that #applyUserInterfaceTheme is sent." + + ^ super themeProperties + , {{#placeholder. '<placeholder>'. 'Just a placeholder to ensure that this class is sent #applyUserInterfaceTheme updates.'}}! Item was added: + ----- Method: PartsBin>>applyUserInterfaceTheme (in category 'updating') ----- + applyUserInterfaceTheme + + | scaleFactor | + super applyUserInterfaceTheme. + + scaleFactor := RealEstateAgent scaleFactor. + scaleFactor = knownScaleFactor ifFalse: [ + | relativeScale | + self flag: #ct. "Simple heuristic to keep the state of all buttons intact. Result might be blurry, but at least is scaled properly." + + relativeScale := scaleFactor / knownScaleFactor. + self submorphs do: [:morph | + morph color: self color. + + morph labelMorph ifNotNil: [:sketch | + sketch extent: sketch extent * relativeScale]. + + morph extent: morph extent * relativeScale. + morph labelMorph ifNotNil: [:sketch | + sketch center: morph center]]. + knownScaleFactor := scaleFactor].! Item was added: + ----- Method: PartsBin>>initialize (in category 'initialization') ----- + initialize + + super initialize. + + knownScaleFactor := RealEstateAgent scaleFactor.! Item was changed: ----- Method: PartsBin>>listDirection:quadList:buttonClass: (in category 'initialization') ----- listDirection: aListDirection quadList: quadList buttonClass: buttonClass "Initialize the receiver to run horizontally or vertically, obtaining its elements from the list of tuples of the form: (<receiver> <selector> <label> <balloonHelp>) Used by external package Connectors." self layoutPolicy: TableLayout new. self listDirection: aListDirection. self wrapCentering: #topLeft. + self layoutInset: 2 px. - self layoutInset: 2. self cellPositioning: #bottomCenter. aListDirection == #leftToRight ifTrue: [self vResizing: #rigid. self hResizing: #spaceFill. self wrapDirection: #topToBottom] ifFalse: [self hResizing: #rigid. self vResizing: #spaceFill. self wrapDirection: #leftToRight]. quadList do: [:tuple | | aButton aClass | aClass := Smalltalk at: tuple first. aButton := buttonClass new initializeWithThumbnail: (self class thumbnailForQuad: tuple color: self color) withLabel: tuple third andColor: self color andSend: tuple second to: aClass. (tuple size > 3 and: [tuple fourth isEmptyOrNil not]) ifTrue: [aButton setBalloonText: tuple fourth]. self addMorphBack: aButton]! Item was changed: Morph subclass: #PianoRollNoteMorph instanceVariableNames: 'trackIndex indexInTrack hitLoc editMode selected notePlaying' classVariableNames: 'SoundPlaying' poolDictionaries: '' category: 'MorphicExtras-SoundInterface'! + !PianoRollNoteMorph commentStamp: 'ct 8/25/2022 12:12' prior: 0! + A PianoRollNoteMorph is drawn as a simple morph, but it carries the necessary state to locate its source sound event via its owner (a PianoRollScoreMorph) and the score therein. Simple editing of pitch and time placement is provided here.! - !PianoRollNoteMorph commentStamp: '<historical>' prior: 0! - A PianoRollNoteMorph is drawn as a simple mroph, but it carries the necessary state to locate its source sound event via its owner (a PianorRollScoreMorph) and the score therein. Simple editing of pitch and time placement is provided here.! Item was added: + ----- Method: PianoRollNoteMorph>>boundsForSelection (in category 'selecting') ----- + boundsForSelection + + ^ self bounds outsetBy: (self selected ifFalse: [0 px] ifTrue: [1 px])! Item was changed: ----- Method: PianoRollNoteMorph>>deselect (in category 'selecting') ----- deselect + selected = false ifTrue: [^ self]. - selected ifFalse: [^ self]. self changed. + selected := false.! - selected := false. - ! Item was changed: ----- Method: PianoRollNoteMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas selected + ifTrue: [aCanvas frameAndFillRectangle: self boundsForSelection fillColor: color borderWidth: 1 px borderColor: Color black] + ifFalse: [aCanvas fillRectangle: self bounds color: color].! - ifTrue: [aCanvas frameAndFillRectangle: self fullBounds fillColor: color borderWidth: 1 borderColor: Color black] - ifFalse: [aCanvas fillRectangle: self bounds color: color]. - ! Item was changed: ----- Method: PianoRollNoteMorph>>editPitch: (in category 'editing') ----- editPitch: evt | mk note | mk := owner midiKeyForY: evt cursorPoint y. note := (owner score tracks at: trackIndex) at: indexInTrack. note midiKey = mk ifTrue: [^ self]. note midiKey: mk. self playSound: (self soundOfDuration: 999.0). + self position: self position x @ ((owner yForMidiKey: mk) - 1 px). - self position: self position x @ ((owner yForMidiKey: mk) - 1) ! Item was removed: - ----- Method: PianoRollNoteMorph>>fullBounds (in category 'layout') ----- - fullBounds - - selected - ifTrue: [^ bounds expandBy: 1] - ifFalse: [^ bounds]! Item was changed: ----- Method: PianoRollNoteMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt hitLoc := evt cursorPoint. editMode := nil. owner submorphsDo: [:m | (m isKindOf: PianoRollNoteMorph) ifTrue: [m deselect]]. + self select. - selected := true. - self changed. owner changed. owner selection: (Array with: trackIndex with: indexInTrack with: indexInTrack). self playSound! Item was changed: ----- Method: PianoRollNoteMorph>>mouseMove: (in category 'event handling') ----- mouseMove: evt | delta offsetEvt | editMode isNil ifTrue: ["First movement determines edit mode" + ((delta := evt cursorPoint - hitLoc) dist: 0 @ 0) <= 2 px - ((delta := evt cursorPoint - hitLoc) dist: 0 @ 0) <= 2 ifTrue: [^self "No significant movement yet."]. delta x abs > delta y abs ifTrue: [delta x > 0 ifTrue: ["Horizontal drag" editMode := #selectNotes] ifFalse: [self playSound: nil. + offsetEvt := evt copy translateBy: 20 px @ 0. - offsetEvt := evt copy translateBy:(20 @ 0). self invokeNoteMenu: offsetEvt]] ifFalse: [editMode := #editPitch "Vertical drag"]]. editMode == #editPitch ifTrue: [self editPitch: evt]. editMode == #selectNotes ifTrue: [self selectNotes: evt]! Item was added: + ----- Method: PianoRollNoteMorph>>outerBounds (in category 'selecting') ----- + outerBounds + + ^ self bounds outsetBy: 1 px! Item was changed: ----- Method: PianoRollNoteMorph>>select (in category 'selecting') ----- select + selected = true ifTrue: [^ self]. + selected := true.! - selected ifTrue: [^ self]. - selected := true. - self changed! Item was changed: ----- Method: PianoRollNoteMorph>>trackIndex:indexInTrack: (in category 'initialization') ----- trackIndex: ti indexInTrack: i trackIndex := ti. indexInTrack := i. + self deselect.! - selected := false! Item was changed: ----- Method: PianoRollScoreMorph>>addNotes (in category 'drawing') ----- addNotes "Recompute the set of morphs that should be visible at the current scroll position." | visibleMorphs rightEdge topEdge rightEdgeTime | visibleMorphs := OrderedCollection new: 500. rightEdge := self right - self borderWidth. rightEdgeTime := self timeForX: rightEdge. + topEdge := self top + self borderWidth + (1 px clampLow: 1). - topEdge := self top + self borderWidth + 1. "Add ambient morphs first (they will be front-most)" score eventMorphsWithTimeDo: [:m :t | m addMorphsTo: visibleMorphs pianoRoll: self eventTime: t betweenTime: leftEdgeTime and: rightEdgeTime]. "Then add note morphs" score tracks withIndexDo: [:track :trackIndex | | done n i nRight nTop nLeft trackColor | trackColor := colorForTrack at: trackIndex. i := indexInTrack at: trackIndex. done := scorePlayer mutedForTrack: trackIndex. [done | (i > track size)] whileFalse: [ n := track at: i. (n isNoteEvent and: [n midiKey >= lowestNote]) ifTrue: [ n time > rightEdgeTime ifTrue: [done := true] ifFalse: [ nLeft := self xForTime: n time. + nTop := (self yForMidiKey: n midiKey) - 1 px. - nTop := (self yForMidiKey: n midiKey) - 1. nTop > topEdge ifTrue: [ + nRight := nLeft + (n duration * timeScale * RealEstateAgent scaleFactor) truncated - 1 px. - nRight := nLeft + (n duration * timeScale) truncated - 1. visibleMorphs add: ((PianoRollNoteMorph + newBounds: (nLeft @ nTop corner: nRight @ (nTop + 3 px)) - newBounds: (nLeft@nTop corner: nRight@(nTop + 3)) color: trackColor) trackIndex: trackIndex indexInTrack: i)]]]. i := i + 1]. (selection notNil and: [trackIndex = selection first and: [i >= selection second and: [(indexInTrack at: trackIndex) <= selection third]]]) ifTrue: [visibleMorphs do: [:vm | (vm isKindOf: PianoRollNoteMorph) ifTrue: [vm selectFrom: selection]]]]. "Add the cursor morph in front of all notes; height and position are set later." + cursor ifNil: [cursor := Morph newBounds: (self topLeft extent: 1 px @ 1 px) color: Color red]. - cursor ifNil: [cursor := Morph newBounds: (self topLeft extent: 1@1) color: Color red]. visibleMorphs addFirst: cursor. self changed. self removeAllMorphs. + self addAllMorphs: visibleMorphs.! - self addAllMorphs: visibleMorphs. - ! Item was changed: ----- Method: PianoRollScoreMorph>>drawMeasureLinesOn: (in category 'drawing') ----- drawMeasureLinesOn: aCanvas | ticksPerMeas x measureLineColor inner | showBeatLines ifNil: [showBeatLines := false]. showMeasureLines ifNil: [showMeasureLines := true]. notePerBeat ifNil: [self timeSignature: 4 over: 4]. showBeatLines ifTrue: [measureLineColor := Color gray: 0.8. ticksPerMeas := score ticksPerQuarterNote. inner := self innerBounds. (leftEdgeTime + ticksPerMeas truncateTo: ticksPerMeas) to: ((self timeForX: self right - self borderWidth) truncateTo: ticksPerMeas) by: ticksPerMeas do: [:tickTime | x := self xForTime: tickTime. + aCanvas fillRectangle: (x @ inner top extent: 1 px @ inner height) - aCanvas fillRectangle: (x @ inner top extent: 1 @ inner height) color: measureLineColor]]. + - showMeasureLines ifTrue: [measureLineColor := Color gray: 0.7. ticksPerMeas := beatsPerMeasure*score ticksPerQuarterNote*4//notePerBeat. inner := self innerBounds. (leftEdgeTime + ticksPerMeas truncateTo: ticksPerMeas) to: ((self timeForX: self right - self borderWidth) truncateTo: ticksPerMeas) by: ticksPerMeas do: [:tickTime | x := self xForTime: tickTime. + aCanvas fillRectangle: (x @ inner top extent: 1 px @ inner height) + color: (tickTime = 0 ifTrue: [Color black] ifFalse: [measureLineColor])]].! - aCanvas fillRectangle: (x @ inner top extent: 1 @ inner height) - color: (tickTime = 0 ifTrue: [Color black] ifFalse: [measureLineColor])]]. - ! Item was changed: ----- Method: PianoRollScoreMorph>>drawStaffOn: (in category 'drawing') ----- drawStaffOn: aCanvas | blackKeyColor l r topEdge y | self drawMeasureLinesOn: aCanvas. blackKeyColor := Color gray: 0.5. l := self left + self borderWidth. r := self right - self borderWidth. + topEdge := self top + self borderWidth + 3 px. - topEdge := self top + self borderWidth + 3. lowestNote to: self highestNote do: [:k | y := self yForMidiKey: k. y <= topEdge ifTrue: [^ self]. "over the top!!" (self isBlackKey: k) ifTrue: [ aCanvas + fillRectangle: (l @ y corner: r @ (y + 1 px)) + color: blackKeyColor]].! - fillRectangle: (l@y corner: r@(y + 1)) - color: blackKeyColor]]. - ! Item was changed: ----- Method: PianoRollScoreMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. "" + self extent: 400 px @ 300 px. - self extent: 400 @ 300. showMeasureLines := true. showBeatLines := false. self timeSignature: 4 over: 4. + self clipSubmorphs: true.! - self clipSubmorphs: true! Item was changed: ----- Method: PianoRollScoreMorph>>layoutChanged (in category 'layout') ----- layoutChanged "Override this to avoid propagating 'layoutChanged' when just adding/removing note objects." + ""fullBounds = bounds ifTrue: [^ self]."" - fullBounds = bounds ifTrue: [^ self]. super layoutChanged. ! Item was changed: ----- Method: PianoRollScoreMorph>>midiKeyForY: (in category 'geometry') ----- midiKeyForY: y + ^ (lowestNote - ((y - (bounds bottom - self borderWidth - 4 px)) // 3)) - ^ (lowestNote - ((y - (bounds bottom - self borderWidth - 4)) // 3)) clampLow: 0 high: self highestNote! Item was changed: ----- Method: PianoRollScoreMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt | noteMorphs chordRect | + (self notesInRect: ((evt cursorPoint extent: (1 px clampLow: 1) @ 0) expandBy: 2 px @ 30 px)) isEmpty - (self notesInRect: ((evt cursorPoint extent: 1@0) expandBy: 2@30)) isEmpty ifTrue: ["If not near a note, then put up score edit menu" ^ self invokeScoreMenu: evt]. "Clicked near (but not on) a note, so play all notes at the cursor time" + noteMorphs := self notesInRect: ((evt cursorPoint extent: (1 px clampLow: 1) @ 0) expandBy: 0 @ self height). + chordRect := (self innerBounds withLeft: evt cursorPoint x) withWidth: (1 px clampLow: 1). - noteMorphs := self notesInRect: ((evt cursorPoint extent: 1@0) expandBy: 0@self height). - chordRect := (self innerBounds withLeft: evt cursorPoint x) withWidth: 1. soundsPlayingMorph := Morph newBounds: chordRect color: Color green. self addMorphBack: soundsPlayingMorph. soundsPlaying := IdentityDictionary new. noteMorphs do: [:m | | sound | sound := m soundOfDuration: 999.0. soundsPlaying at: m put: sound. + SoundPlayer resumePlaying: sound quickStart: false].! - SoundPlayer resumePlaying: sound quickStart: false]. - - ! Item was changed: ----- Method: PianoRollScoreMorph>>mouseMove: (in category 'event handling') ----- mouseMove: evt | noteMorphs chordRect | soundsPlaying ifNil: [^ self]. self autoScrollForX: evt cursorPoint x. "Play all notes at the cursor time" + noteMorphs := self notesInRect: ((evt cursorPoint extent: (1 px clampLow: 1) @ 0) expandBy: 0 @ self height). + chordRect := (self innerBounds withLeft: evt cursorPoint x) withWidth: (1 px clampLow: 1). - noteMorphs := self notesInRect: ((evt cursorPoint extent: 1@0) expandBy: 0@self height). - chordRect := (self innerBounds withLeft: evt cursorPoint x) withWidth: 1. soundsPlayingMorph delete. soundsPlayingMorph := Morph newBounds: chordRect color: Color green. self addMorphBack: soundsPlayingMorph. noteMorphs do: [:m | | sound | "Add any new sounds" (soundsPlaying includesKey: m) ifFalse: [sound := m soundOfDuration: 999.0. soundsPlaying at: m put: sound. SoundPlayer resumePlaying: sound quickStart: false]]. soundsPlaying keys do: [:m | "Remove any sounds no longer in selection." (noteMorphs includes: m) ifFalse: [(soundsPlaying at: m) stopGracefully. + soundsPlaying removeKey: m]].! - soundsPlaying removeKey: m]]. - - ! Item was changed: ----- Method: PianoRollScoreMorph>>moveCursorToTime: (in category 'scrolling') ----- moveCursorToTime: scoreTime | cursorOffset desiredCursorHeight | scorePlayer isPlaying ifTrue: + [cursorOffset := ((scoreTime - leftEdgeTime) asFloat * timeScale * RealEstateAgent scaleFactor) asInteger. - [cursorOffset := ((scoreTime - leftEdgeTime) asFloat * timeScale) asInteger. (cursorOffset < 0 + or: [cursorOffset > (self width - 20 px)]) - or: [cursorOffset > (self width-20)]) ifTrue: + [self goToTime: scoreTime - (20 px / timeScale). - [self goToTime: scoreTime - (20/timeScale). cursorOffset := ((scoreTime - leftEdgeTime) asFloat * timeScale) asInteger]] ifFalse: [self goToTime: (scoreTime - (self width//2 / timeScale) max: (self width//10 / timeScale) negated). cursorOffset := ((scoreTime - leftEdgeTime) asFloat * timeScale) asInteger]. cursor position: (self left + self borderWidth + cursorOffset)@(self top + self borderWidth). desiredCursorHeight := self height. + cursor height ~= desiredCursorHeight ifTrue: [cursor extent: (1 px clampLow: 1) @ desiredCursorHeight].! - cursor height ~= desiredCursorHeight ifTrue: [cursor extent: 1@desiredCursorHeight]. - ! Item was changed: ----- Method: PianoRollScoreMorph>>timeForX: (in category 'geometry') ----- timeForX: aNumber + ^ ((aNumber - self left - self borderWidth) asFloat / timeScale / RealEstateAgent scaleFactor + leftEdgeTime) asInteger! - ^ ((aNumber - self left - self borderWidth) asFloat / timeScale + leftEdgeTime) asInteger! Item was changed: ----- Method: PianoRollScoreMorph>>xForTime: (in category 'geometry') ----- xForTime: aNumber + ^ ((aNumber - leftEdgeTime) asFloat * timeScale * RealEstateAgent scaleFactor) asInteger + self left + self borderWidth - ^ ((aNumber - leftEdgeTime) asFloat * timeScale) asInteger + self left + self borderWidth ! Item was changed: ----- Method: PianoRollScoreMorph>>yForMidiKey: (in category 'geometry') ----- yForMidiKey: midiKey + ^ (self bottom - self borderWidth - 4 px) - (3 * (midiKey - lowestNote)) - ^ (self bottom - self borderWidth - 4) - (3 * (midiKey - lowestNote)) ! Item was changed: ----- Method: PolygonMorph class>>extraExampleTextFlow (in category '*MorphicExtras-examples') ----- extraExampleTextFlow "PolygonMorph extraExampleTextFlow openInHand" | polygon text obstacle | polygon := self new. polygon setVertices: self extraCircularVertices; + extent: 360 px @ 380 px; - extent: 309 asPoint; beSmoothCurve; color: Color lightGray; addHandles. text := (TextMorph string: 'TextMorphs can be chained together, causing their contents to flow between containers as either the contents or the containers change. If a TextMorph is embedded in another Morph, you can ask it to have fill the shape of that Morph. Moreover, you can ask it to avoid occlusions, in which case it will do its best to avoid collisions with siblings being in front of it. If a TextMorph is embedded in a CurveMorph, you can ask it to have the text follow the curve, as illustrated here.' asTextMorph fontName: #BitstreamVeraSans + size: 14 px) - size: 14) textColor: Color white; fillsOwner: true; yourself. obstacle := StarMorph new + center: polygon center - (50 px @ 25 px); + extent: 81 px asPoint; - center: polygon center - (50 @ 25); - extent: 81 asPoint; color: Color orchid; yourself. polygon addMorph: text; addMorph: obstacle. text centered. text container avoidsOcclusions: true. ^ polygon! Item was changed: ----- Method: PolygonMorph class>>extraExampleTrapeze (in category '*MorphicExtras-examples') ----- extraExampleTrapeze "PolygonMorph extraExampleTrapeze openInHand" | polygon text | polygon := self new. polygon + setVertices: {0 @ 120 px. 275 px @ 120 px. 200 px @ 0. 75 px @ 0}; + addHandles; - setVertices: {0 @ 100. 275 @ 100. 200 @ 0. 75 @ 0}; - addHandles ; balloonText: 'Click and drag the handles to change my shape'. text := '<b>Polygons</b> can be closed or open, filled or empty as well as lined or convex and can have directed arrows, bevelled borders and last but not least adapted handles.' asTextFromHtml asMorph + beAllFont: (TextStyle default fontOfSize: 14 px); - beAllFont: (TextStyle default fontOfSize: 14); fillsOwner: true; yourself. polygon addMorph: text. text centered. ^ polygon! Item was changed: ----- Method: PolygonMorph class>>extraExampleTrapezePlus (in category '*MorphicExtras-examples') ----- extraExampleTrapezePlus "PolygonMorph extraExampleTrapezePlus openInHand" "Some additional decoration" ^ self extraExampleTrapeze fillStyle: ((GradientFillStyle ramp: { 0.0 -> Color orange. 0.7 -> Color magenta twiceLighter. 1.0 -> Color red muchLighter }) + origin: 0 @ 0; direction: 275 px @ 100 px; - origin: 0 @ 0; direction: 275 @ 100; yourself); + borderWidth: 2 px; - borderWidth: 2; borderColor: Color blue; + dashedBorder: {35 px. 20 px. Color yellow}; - dashedBorder: {35. 20. Color yellow}; yourself! Item was changed: ----- Method: RecordingControlsMorph>>addButtonRows (in category 'initialization') ----- addButtonRows | r fullWidth | r := AlignmentMorph newRow vResizing: #shrinkWrap. + - - r addMorphBack: (self buttonName: 'Morph' translated action: #makeSoundMorph). + r addMorphBack: (Morph new extent: 4 px @ 1 px; color: Color transparent). - r addMorphBack: (Morph new extent: 4@1; color: Color transparent). r addMorphBack: (self buttonName: 'Tile' translated action: #makeTile). + r addMorphBack: (Morph new extent: 4 px @ 1 px; color: Color transparent). - r addMorphBack: (Morph new extent: 4@1; color: Color transparent). r addMorphBack: (self buttonName: 'Trim' translated action: #trim). + r addMorphBack: (Morph new extent: 4 px @ 1 px; color: Color transparent). - r addMorphBack: (Morph new extent: 4@1; color: Color transparent). r addMorphBack: (self buttonName: 'Show' translated action: #showEditor). self addMorphBack: r. r layoutChanged. fullWidth := r fullBounds width. + - r := AlignmentMorph newRow vResizing: #shrinkWrap. r addMorphBack: (self buttonName: 'Record' translated action: #record). + r addMorphBack: (Morph new extent: 4 px @ 1 px; color: Color transparent). - r addMorphBack: (Morph new extent: 4@1; color: Color transparent). r addMorphBack: (self buttonName: 'Stop' translated action: #stop). + r addMorphBack: (Morph new extent: 4 px @ 1 px; color: Color transparent). - r addMorphBack: (Morph new extent: 4@1; color: Color transparent). r addMorphBack: (self buttonName: 'Play' translated action: #playback). + r addMorphBack: (Morph new extent: 4 px @ 1 px; color: Color transparent). - r addMorphBack: (Morph new extent: 4@1; color: Color transparent). r addMorphBack: (self buttonName: 'Codec' translated action: #chooseCodec). r addMorphBack: self makeStatusLight. self addMorphBack: r. Smalltalk at: #OggSpeexCodec ifPresent: [:c | self changeCodec: c name: 'Speex']. r layoutChanged. fullWidth := fullWidth max: r fullBounds width. + ^ fullWidth @ r fullBounds height! - ^ fullWidth@(r fullBounds height). - ! Item was removed: - ----- Method: RecordingControlsMorph>>addRecordLevelSlider (in category 'other') ----- - addRecordLevelSlider - - | levelSlider r | - levelSlider := SimpleSliderMorph new - color: color; - extent: 100@2; - target: recorder; - actionSelector: #recordLevel:; - adjustToValue: recorder recordLevel. - r := AlignmentMorph newRow - color: color; - layoutInset: 0; - wrapCentering: #center; cellPositioning: #leftCenter; - hResizing: #shrinkWrap; - vResizing: #rigid; - height: 24. - r addMorphBack: (StringMorph contents: '0 '). - r addMorphBack: levelSlider. - r addMorphBack: (StringMorph contents: ' 10'). - self addMorphBack: r. - ! Item was changed: ----- Method: RecordingControlsMorph>>addRecordLevelSliderIn: (in category 'other') ----- addRecordLevelSliderIn: aPoint | levelSlider r | + (levelSlider := SimpleSliderMorph new) - levelSlider := SimpleSliderMorph new color: color darker; + sliderColor: Color gray; + extent: (aPoint x * 0.75) asInteger @ (aPoint y * 0.6) asInteger; + minimumExtent: levelSlider extent; - extent: (aPoint x * 0.75) asInteger@(aPoint y*0.6) asInteger; target: recorder; actionSelector: #recordLevel:; + orientation: #horizontal; adjustToValue: recorder recordLevel. r := AlignmentMorph newRow color: color; layoutInset: 0; wrapCentering: #center; cellPositioning: #leftCenter; hResizing: #shrinkWrap; vResizing: #rigid; + height: aPoint y + 2 px. + r addMorphBack: (StringMorph contents: '0 ' font: TextStyle defaultFont). - height: aPoint y + 2. - r addMorphBack: (StringMorph contents: '0 ' font: Preferences standardButtonFont). r addMorphBack: levelSlider. + r addMorphBack: (StringMorph contents: ' 10' font: TextStyle defaultFont). + self addMorphBack: r.! - r addMorphBack: (StringMorph contents: ' 10' font: Preferences standardButtonFont). - self addMorphBack: r. - ! Item was changed: ----- Method: RecordingControlsMorph>>buttonName:action: (in category 'other') ----- buttonName: aString action: aSymbol ^ SimpleButtonMorph new target: self; + label: aString; - label: aString font: Preferences standardButtonFont; actionSelector: aSymbol ! Item was changed: ----- Method: RecordingControlsMorph>>initialize (in category 'initialization') ----- initialize | r full | super initialize. self hResizing: #shrinkWrap; vResizing: #shrinkWrap. + self borderWidth: 2 px. - self borderWidth: 2. self listDirection: #topToBottom. recorder := SoundRecorder new. full := self addButtonRows. self addRecordLevelSliderIn: full. r := AlignmentMorph newRow vResizing: #shrinkWrap. r addMorphBack: (self makeRecordMeterIn: full). self addMorphBack: r. + self extent: 10 @ 10. "make minimum size"! - self extent: 10@10. "make minimum size" - ! Item was removed: - ----- Method: RecordingControlsMorph>>makeRecordMeter (in category 'other') ----- - makeRecordMeter - - | outerBox | - outerBox := Morph new extent: 102@18; color: Color gray. - recordMeter := Morph new extent: 1@16; color: Color yellow. - recordMeter position: outerBox topLeft + (1@1). - outerBox addMorph: recordMeter. - ^ outerBox - ! Item was changed: ----- Method: RecordingControlsMorph>>makeRecordMeterIn: (in category 'other') ----- makeRecordMeterIn: aPoint | outerBox h | h := (aPoint y * 0.6) asInteger. + outerBox := Morph new extent: aPoint x asInteger @ h; color: Color gray. + recordMeter := Morph new extent: 1 px @ h; color: Color yellow. + recordMeter position: outerBox topLeft + (1 px @ 1 px). - outerBox := Morph new extent: (aPoint x) asInteger@h; color: Color gray. - recordMeter := Morph new extent: 1@h; color: Color yellow. - recordMeter position: outerBox topLeft + (1@1). outerBox addMorph: recordMeter. + ^ outerBox! - ^ outerBox - ! 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 px; - layoutInset: 3; onScorePlayer: ScorePlayer new initialize; + extent: 20 px @ 20 px.! - extent: 20 @ 20 ! Item was changed: ----- Method: ScorePlayerMorph>>makeAPauseEvent: (in category 'menu') ----- makeAPauseEvent: evt | newWidget | newWidget := AlignmentMorph newRow. newWidget color: Color orange; borderWidth: 0; layoutInset: 0; hResizing: #shrinkWrap; vResizing: #shrinkWrap; + extent: 5 px @ 5 px; - extent: 5@5; addMorph: (StringMorph contents: '[pause]' translated) lock; addMouseUpActionWith: ( MessageSend receiver: self selector: #showResumeButtonInTheWorld ). evt hand attachMorph: newWidget.! 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; + minWidth: 101 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; + minWidth: 101 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 - ! Item was changed: ----- Method: Thumbnail>>setStandardDefaultMetrics (in category 'initialization') ----- setStandardDefaultMetrics "Provide the current choices for min.max width/height for thumbnails" + self maxWidth: 60 px minHeight: 32 px. + self setProperty: #minimumWidth toValue: 16 px.! - self maxWidth: 60 minHeight: 32. - self setProperty: #minimumWidth toValue: 16!

1 0

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

25 Aug '22

Christoph Thiede uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-ct.478.mcz ==================== Summary ==================== Name: EToys-ct.478 Author: ct Time: 25 August 2022, 12:49:22.03798 pm UUID: 009fb68f-4424-e944-90f5-9e531667c680 Ancestors: EToys-ct.477 Spectrum Analyzer: Reflect status changes in label text (in addition to existing label color) =============== Diff against EToys-ct.477 =============== Item was changed: ----- Method: SpectrumAnalyzerMorph>>step (in category 'stepping and presenter') ----- step "Update the record light, level meter, and display." | w | "update the record light and level meter" + statusLight color: + (soundInput isRecording ifTrue: [Color yellow] ifFalse: [Color gray]). + statusLight firstSubmorph in: [:stringMorph | + stringMorph contents: + (soundInput isRecording ifTrue: ['On' translated] ifFalse: ['Off' translated]). + stringMorph position: statusLight center - (stringMorph extent // 2)]. + - soundInput isRecording - ifTrue: [statusLight color: Color yellow] - ifFalse: [statusLight color: Color gray]. w := ((121 * soundInput meterLevel) // 100) max: 1. + levelMeter width: w. + - levelMeter width ~= w ifTrue: [levelMeter width: w]. - "update the display if any data is available" + self updateDisplay.! - self updateDisplay. - !

1 0

The Trunk: Morphic-ct.2035.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.2035.mcz ==================== Summary ==================== Name: Morphic-ct.2035 Author: ct Time: 25 August 2022, 12:40:45.409239 pm UUID: 4f0a792b-9dac-e747-8026-688f782d1540 Ancestors: Morphic-ct.2034 ProjectViewMorph: Adds missing #refreshWindowColor to so that windows look even nice without making them the key window. =============== Diff against Morphic-ct.2034 =============== Item was changed: ----- Method: ProjectViewMorph class>>newProjectViewInAWindowFor: (in category 'project window creation') ----- newProjectViewInAWindowFor: aProject "Return an instance of me on a new Morphic project (in a SystemWindow)." | window proj | proj := self on: aProject. window := (SystemWindow labelled: aProject name) model: aProject. window extent: proj extent. window addMorph: proj frame: (0@0 corner: 1.0(a)1.0). proj borderWidth: 0. + window refreshWindowColor. ^ window !

1 0

The Trunk: Morphic-ct.2034.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.2034.mcz ==================== Summary ==================== Name: Morphic-ct.2034 Author: ct Time: 25 August 2022, 12:38:20.942239 pm UUID: fb393ff4-a8fe-6340-8eb7-9e2654cad582 Ancestors: Morphic-ct.2031 Adds and improves high-dpi support for SimpleButtonMorph (revises Morphic-ct.2027) and IconicButton. =============== Diff against Morphic-ct.2031 =============== Item was changed: ----- Method: IconicButton>>borderNormal (in category 'initialization') ----- borderNormal + self borderStyle: (BorderStyle width: 2 px color: Color transparent).! - self borderStyle: (BorderStyle width: 2 color: Color transparent).! Item was changed: ----- Method: IconicButton>>borderThick (in category 'initialization') ----- borderThick + self borderStyle: (BorderStyle width: 2 px color: self raisedColor twiceDarker).! - self borderStyle: (BorderStyle width: 2 color: self raisedColor twiceDarker).! Item was changed: ----- Method: IconicButton>>defaultBorderWidth (in category 'initialization') ----- defaultBorderWidth + ^ 2 px! - ^ 2! Item was changed: ----- Method: IconicButton>>initializeWithThumbnail:withLabel:andColor:andSend:to: (in category 'initialization') ----- initializeWithThumbnail: aThumbnail withLabel: aLabel andColor: aColor andSend: aSelector to: aReceiver "Initialize the receiver to show aThumbnail on its face, giving it the label supplied and arranging for it, when the button goes down on it, to obtain a new morph by sending the supplied selector to the supplied receiver" | labeledItem nonTranslucent | nonTranslucent := aColor asNontranslucentColor. labeledItem := AlignmentMorph newColumn. labeledItem color: nonTranslucent. labeledItem borderWidth: 0. labeledItem + layoutInset: 4 px @ 0; - layoutInset: 4@0; cellPositioning: #center. labeledItem addMorph: aThumbnail. + labeledItem addMorphBack: (Morph new extent: (4 px @ 4 px)) beTransparent. - labeledItem addMorphBack: (Morph new extent: (4@4)) beTransparent. labeledItem addMorphBack: (TextMorph new backgroundColor: nonTranslucent; contentsAsIs: aLabel; beAllFont: Preferences standardEToysFont; centered). self beTransparent; labelGraphic: ((labeledItem imageForm: 32 backgroundColor: nonTranslucent forRectangle: labeledItem fullBounds) replaceColor: nonTranslucent withColor: Color transparent); borderWidth: 0; target: aReceiver; actionSelector: #launchPartVia:label:; arguments: {aSelector. aLabel}; actWhen: #buttonDown. self stationarySetup.! Item was changed: ----- Method: IconicButton>>labelGraphic: (in category 'label') ----- labelGraphic: aForm | oldLabel graphicalMorph | (oldLabel := self findA: SketchMorph) ifNotNil: [oldLabel delete]. graphicalMorph := SketchMorph withForm: aForm. + self extent: graphicalMorph extent + (self borderWidth + 6 px). - self extent: graphicalMorph extent + (self borderWidth + 6). graphicalMorph position: self center - (graphicalMorph extent // 2). self addMorph: graphicalMorph. graphicalMorph baseGraphic; + lock.! - lock. - ! Item was changed: ----- Method: IconicButton>>shedSelvedge (in category 'ui') ----- shedSelvedge + self extent: (self extent - (6 px @ 6 px))! - self extent: (self extent - (6@6))! Item was changed: ----- Method: SimpleButtonMorph>>fitContents (in category 'layout') ----- fitContents | aMorph aCenter | aCenter := self center. self hasSubmorphs ifFalse: [^self]. aMorph := self firstSubmorph. + self extent: aMorph extent + (self borderWidth + 6 px). - self extent: aMorph extent + (self borderWidth + 6). self center: aCenter. aMorph position: aCenter - (aMorph extent // 2)! Item was changed: ----- Method: SimpleButtonMorph>>initializeAllButLabel (in category 'initialization') ----- initializeAllButLabel super initialize. self + borderWidth: 1 px; - borderWidth: 1 ; color: (Color r: 0.4 g: 0.8 b: 0.6) ; borderColor: self color darker ; borderStyle: BorderStyle thinGray. target := nil. actionSelector := #flash. arguments := Array empty. actWhen := #buttonUp!

1 0

The Trunk: MorphicExtras-ct.326.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.326.mcz ==================== Summary ==================== Name: MorphicExtras-ct.326 Author: ct Time: 25 August 2022, 12:27:22.96198 pm UUID: 822538c1-96ba-424a-a003-00bd197fadb0 Ancestors: MorphicExtras-eem.322 Fixes error flood in Piano Roll for invalid MIDI key when dragging a note out of the vertical bounds. =============== Diff against MorphicExtras-eem.322 =============== Item was changed: ----- Method: PianoRollScoreMorph>>drawStaffOn: (in category 'drawing') ----- drawStaffOn: aCanvas | blackKeyColor l r topEdge y | self drawMeasureLinesOn: aCanvas. blackKeyColor := Color gray: 0.5. l := self left + self borderWidth. r := self right - self borderWidth. topEdge := self top + self borderWidth + 3. + lowestNote to: self highestNote do: [:k | - lowestNote to: 127 do: [:k | y := self yForMidiKey: k. y <= topEdge ifTrue: [^ self]. "over the top!!" (self isBlackKey: k) ifTrue: [ aCanvas fillRectangle: (l@y corner: r@(y + 1)) color: blackKeyColor]]. ! Item was added: + ----- Method: PianoRollScoreMorph>>highestNote (in category 'private') ----- + highestNote + + ^ 127! Item was changed: ----- Method: PianoRollScoreMorph>>midiKeyForY: (in category 'geometry') ----- midiKeyForY: y + ^ (lowestNote - ((y - (bounds bottom - self borderWidth - 4)) // 3)) + clampLow: 0 high: self highestNote! - ^ lowestNote - ((y - (bounds bottom - self borderWidth - 4)) // 3) - !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2022