Squeak-dev August 2022

squeak-dev@lists.squeakfoundation.org

30 participants
157 discussions

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

24 Aug '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1617.mcz ==================== Summary ==================== Name: Morphic-ct.1617 Author: ct Time: 12 January 2020, 3:34:20.453555 am UUID: d75dd5ad-8420-c443-9314-c01d96409fae Ancestors: Morphic-tpr.1616 Fixes #applyUserInterfaceTheme on SystemProgressMorph really! Explanation: Resetting the ProgressMorph from the class side is definively bad, because it deletes the progress morph if currently visible. The current instance-side implementation was not reliable either, because if the UniqueInstance is not in world, it cannot apply the new UI theme. Thus we need to override #canApplyUserInterfaceTheme from Morph. This commit replaces Morphic-ct.1615. See also: http://forum.world.st/SystemProgressMorph-applyUserInterfaceTheme-td5108129… =============== Diff against Morphic-tpr.1616 =============== Item was removed: - ----- Method: SystemProgressMorph class>>applyUserInterfaceTheme (in category 'preferences') ----- - applyUserInterfaceTheme - - self reset.! Item was added: + ----- Method: SystemProgressMorph>>canApplyUserInterfaceTheme (in category 'updating') ----- + canApplyUserInterfaceTheme + + ^ true!

1 0

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

24 Aug '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2030.mcz ==================== Summary ==================== Name: Morphic-ct.2030 Author: ct Time: 24 August 2022, 12:07:05.374424 pm UUID: 4fc95e51-9bec-7b4e-90a6-bedabbf1814e Ancestors: Morphic-ct.2029, Morphic-ct.1617 Merges Morphic-ct.1617: Fixes #applyUserInterfaceTheme on SystemProgressMorph. =============== Diff against Morphic-ct.2029 =============== Item was removed: - ----- Method: SystemProgressMorph class>>applyUserInterfaceTheme (in category 'preferences') ----- - applyUserInterfaceTheme - - self initialize; reset.! Item was added: + ----- Method: SystemProgressMorph>>canApplyUserInterfaceTheme (in category 'updating') ----- + canApplyUserInterfaceTheme + + ^ true!

1 0

etoys stack patch
by Lauren Pullen 24 Aug '22

24 Aug '22

Hi all, I'd post this using Monticello, but when I go to save it to the Inbox all of EToys is marked as changed... ... Subject: fix StackMorph display Use icons and fix corrupt characters in StackMorph's control panes to look like BooklikeMorph.

1 1

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

23 Aug '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2029.mcz ==================== Summary ==================== Name: Morphic-ct.2029 Author: ct Time: 23 August 2022, 1:44:06.758308 pm UUID: 929c72ba-79de-ca41-bfad-4182ac5f0d3f Ancestors: Morphic-ct.2028 Adds public #updateThumbnail: on ProjectViewMorph. =============== Diff against Morphic-ct.2028 =============== Item was changed: ----- Method: ProjectViewMorph>>on: (in category 'events') ----- on: aProject project := aProject. self addProjectNameMorphFiller. + self updateThumbnail: false.! - lastProjectThumbnail := nil. - project viewSize ifNil: [project viewSize: self extent]. - project thumbnail: project previewImageForm. - self extent: project thumbnail extent.! Item was added: + ----- Method: ProjectViewMorph>>updateThumbnail: (in category 'accessing') ----- + updateThumbnail: forceExtent + "Update the thumbnail of the receiver. If forceExtent is false, keep the extent of the previous thumbnail, if any. After scaling up the receiver, this message should be sent with forceExtent = true." + + lastProjectThumbnail := nil. + (forceExtent or: [project viewSize isNil]) ifTrue: [ + project viewSize: self extent]. + project thumbnail: project previewImageForm. + self extent: project thumbnail extent.!

1 0

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

23 Aug '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2028.mcz ==================== Summary ==================== Name: Morphic-ct.2028 Author: ct Time: 23 August 2022, 1:14:55.320308 pm UUID: e4fc5959-8c38-f04e-a993-2315a0f6c00c Ancestors: Morphic-ct.2027, Morphic-ct.1687 Merges Morphic-ct.1687: Fixes SystemWindow >> #collapseOrExpand if the window being collapsed is not in world. =============== Diff against Morphic-ct.2027 =============== Item was changed: ----- Method: SystemWindow>>collapseOrExpand (in category 'resize/collapse') ----- collapseOrExpand "Collapse or expand the window, depending on existing state" | cf | isCollapsed ifTrue: ["Expand -- restore panes to morphics structure" isCollapsed := false. self beKeyWindow. "Bring to frint first" Preferences collapseWindowsInPlace ifTrue: [fullFrame := fullFrame align: fullFrame topLeft with: self getBoundsWithFlex topLeft] ifFalse: [collapsedFrame := self getBoundsWithFlex]. collapseBox ifNotNil: [collapseBox setBalloonText: 'collapse this window' translated]. self setBoundsWithFlex: fullFrame. paneMorphs reverseDo: [:m | self addMorph: m unlock. self world startSteppingSubmorphsOf: m]. self addPaneSplitters. - self addGrips. (self hasProperty: #applyTheme) ifTrue: [ self removeProperty: #applyTheme. self userInterfaceTheme applyTo: self allMorphs]] ifFalse: ["Collapse -- remove panes from morphics structure" isCollapsed := true. fullFrame := self getBoundsWithFlex. "First save latest fullFrame" paneMorphs do: [:m | m delete; releaseCachedState]. self removePaneSplitters. + self removeCornerGrips. - self removeGrips. model modelSleep. cf := self getCollapsedFrame. (collapsedFrame isNil and: [Preferences collapseWindowsInPlace not]) ifTrue: [collapsedFrame := cf]. self setBoundsWithFlex: cf. collapseBox ifNotNil: [collapseBox setBalloonText: 'expand this window' translated ]. expandBox ifNotNil: [expandBox setBalloonText: 'expand this window' translated ]. + self isInWorld ifTrue: [self sendToBack]]. + self layoutChanged.! - self sendToBack]. - self layoutChanged!

1 0

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

23 Aug '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.2027.mcz ==================== Summary ==================== Name: Morphic-ct.2027 Author: ct Time: 23 August 2022, 1:06:20.364308 pm UUID: d042a989-c812-3b4d-b00e-f50e4c387956 Ancestors: Morphic-mt.2025 Improves high-dpi support for SimpleButtonMorph and deduplicates #label:[font:]. =============== Diff against Morphic-mt.2025 =============== Item was changed: ----- Method: SimpleButtonMorph>>label: (in category 'accessing') ----- label: aString + ^ self label: aString font: nil! - | oldLabel m | - (oldLabel := self findA: StringMorph) - ifNotNil: [oldLabel delete]. - m := StringMorph contents: aString font: TextStyle defaultFont. - self extent: m extent + (self borderWidth + 6). - m position: self center - (m extent // 2). - self addMorph: m. - m lock! Item was changed: ----- Method: SimpleButtonMorph>>label:font: (in category 'accessing') ----- label: aString font: aFont | oldLabel m | (oldLabel := self findA: StringMorph) ifNotNil: [oldLabel delete]. + m := StringMorph contents: aString font: (aFont ifNil: [TextStyle defaultFont]). + self extent: m extent + (self borderWidth + 6 px). - m := StringMorph contents: aString font: (aFont ifNil: [Preferences standardButtonFont]). - self extent: (m width + 6) @ (m height + 6). m position: self center - (m extent // 2). self addMorph: m. + m lock.! - m lock - !

2 1

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

23 Aug '22

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/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 - !

2 1

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

23 Aug '22

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-ct.324.mcz ==================== Summary ==================== Name: MorphicExtras-ct.324 Author: ct Time: 23 August 2022, 12:39:40.403308 pm UUID: 293d6c50-c8a0-4746-b2aa-3adb1d631288 Ancestors: MorphicExtras-eem.322 Fixes high-dpi support in RecordingControlsMorph. =============== Diff against MorphicExtras-eem.322 =============== Item was changed: ----- Method: RecordingControlsMorph>>addRecordLevelSliderIn: (in category 'other') ----- addRecordLevelSliderIn: aPoint | levelSlider r | levelSlider := SimpleSliderMorph new color: color darker; extent: (aPoint x * 0.75) asInteger@(aPoint y*0.6) asInteger; target: recorder; actionSelector: #recordLevel:; 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 !

1 0

FFI windows API examples
by Nicolas Cellier 23 Aug '22

23 Aug '22

Hi all, in recent FFI, I tried to evaluate the example in Win32Window comment. I would expect (Win32Window getFocus) to return an instance of Win32Window. But it returns a (Small)Integer. Using (Win32Window new value: Win32Window getFocus) as a workaround does not work either, we cannot send getDC to it, because Win32Window new returns an instance of Win32Handle, not Win32Window... Because externalType has not been (*auto)generated for subclasses of Win32Handle... Probably because they have no (MC) method definition recognized as isExternalStructureFieldDefinition... How to make simple examples like this work? Nicolas

2 3

The Inbox: Morphic-ct.2026.mcz
by commits＠source.squeak.org 22 Aug '22

22 Aug '22

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.2026.mcz ==================== Summary ==================== Name: Morphic-ct.2026 Author: ct Time: 22 August 2022, 6:00:53.823827 pm UUID: 751b9c82-f5ce-284c-9ab1-5adc1e2616f9 Ancestors: Morphic-mt.2025 Uses shorthand URL for the new issue tracker. Please confirm that this shortcut should be used. Best, Christoph =============== Diff against Morphic-mt.2025 =============== Item was changed: ----- Method: TheWorldMainDockingBar>>sendFeedback (in category 'menu actions') ----- sendFeedback | url os vm hash image | + url := 'https://bugs.squeak.org/'. - url := 'https://github.com/squeak-smalltalk/squeak-object-memory/issues'. ([Smalltalk vm platformSourceVersion] on: Warning do: ["Ignore"]) ifNotNil: [:info | | tokens | tokens := info findTokens. vm := tokens at: 2. hash := tokens atLast: 4]. os := Smalltalk os platformName, ' ', Smalltalk os osVersion, ' ', Smalltalk os platformSubtype. image := SystemVersion current version, ' #', SystemVersion current highestUpdate. self inform: ('Please visit the following website to report on bugs, requests, and other issues: <a href="{1}">{1}</a> Make sure that you always include information about your current environment such as: OS: {2} VM: {3} ({4}) SQ: {5} ({6} bit) You can find more in the <a href="code://SystemReporter open">System Reporter</a>.' translated format: {url. os. vm. hash. image. Smalltalk image wordSize * 8}) asTextFromHtml!

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
16
Older →

Jump to page: