Squeak-dev August 2022

squeak-dev@lists.squeakfoundation.org

30 participants
157 discussions

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

[ANN] Roguerrants for Squeak 6.0 (and 5.3)
by Stéphane Rollandin 25 Aug '22

25 Aug '22

Hello all, I just uploaded the latest version of Roguerrants, a 2.5D parallaxed game engine for roguelikes (sort of). Lots of new stuff. Many demos and documentation in the image itself, provided now in two versions: one based on Squeak 5.3 (where I will still develop for a while) and one based on Squeak 6.0 That's here: http://www.zogotounga.net/comp/squeak/rogue.htm Stef

3 3

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

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

25 Aug '22

A new version of ToolBuilder-Morphic was added to project The Inbox: http://source.squeak.org/inbox/ToolBuilder-Morphic-ct.321.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-ct.321 Author: ct Time: 25 August 2022, 11:20:41.575824 am UUID: ff7ee507-468f-4547-be2c-75a173a05d00 Ancestors: ToolBuilder-Morphic-ct.320 Adjusts order of selectors when building a tree to ensure that all setter selectors are available when updating the getters. For instance, this change fixes the label of the following window: ToolBuilder open: (HelpBrowser new rootTopic: CustomHelp; showTopicNamed: #basicDevelopmentTools; yourself) I did not notice any performance impact; however, I also did not test performance systematically (and I don't even know a prime example of a tree application in the trunk that uses all selectors). =============== Diff against ToolBuilder-Morphic-ct.320 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableTree: (in category 'widgets required') ----- buildPluggableTree: aSpec | widget | widget := self treeClass new. self register: widget id: aSpec name. widget getLabelSelector: aSpec label. widget getIconSelector: aSpec icon. widget model: aSpec model. widget nodeClass: aSpec nodeClass. widget getRootsSelector: aSpec roots. widget getChildrenSelector: aSpec getChildren. widget hasChildrenSelector: aSpec hasChildren. - widget getSelectedSelector: aSpec getSelected. widget setSelectedSelector: aSpec setSelected. - widget getSelectedPathSelector: aSpec getSelectedPath. widget setSelectedPathSelector: aSpec setSelectedPath. - widget setSelectedParentSelector: aSpec setSelectedParent. + "order matters: all setters should be available when updating the getters" + widget getSelectedSelector: aSpec getSelected. + widget getSelectedPathSelector: aSpec getSelectedPath. + - widget getHelpSelector: aSpec help. widget getMenuSelector: aSpec menu. widget keystrokeActionSelector: aSpec keyPress. widget autoDeselect: aSpec autoDeselect. widget doubleClickSelector: aSpec doubleClick. widget dropItemSelector: aSpec dropItem. widget wantsDropSelector: aSpec dropAccept. widget dragItemSelector: aSpec dragItem. widget dragStartedSelector: aSpec dragStarted. widget dragTypeSelector: aSpec dragType. widget columns: aSpec columns. "Override default scroll bar policies if needed. Widget will use preference values otherwise." aSpec hScrollBarPolicy ifNotNil: [:policy | policy caseOf: { [#always] -> [widget alwaysShowHScrollBar]. [#never] -> [widget hideHScrollBarIndefinitely]. [#whenNeeded] -> [widget showHScrollBarOnlyWhenNeeded]. } ]. aSpec vScrollBarPolicy ifNotNil: [:policy | policy caseOf: { [#always] -> [widget alwaysShowVScrollBar]. [#never] -> [widget hideVScrollBarIndefinitely]. [#whenNeeded] -> [widget showVScrollBarOnlyWhenNeeded]. } ]. self setFrame: aSpec frame in: widget. self setLayoutHintsFor: widget spec: aSpec. parent ifNotNil:[self add: widget to: parent]. " panes ifNotNil:[ aSpec roots ifNotNil:[panes add: aSpec roots]. ]. " ^widget!

1 0

Morphic Bug: Volatile TableLayout
by christoph.thiede＠student.hpi.uni-potsdam.de 25 Aug '22

25 Aug '22

Hi all, I've observed and reproduced a case of "volatile table layout" in Morphic: inner := Morph new color: Color red. f := inner addFlexShell scale: 0.4; yourself. outer := Morph new color: Color yellow. outer changeTableLayout. outer addMorph: f. outer addMorph: (Morph new extent: 30 @ 10). f layoutChanged. outer fullBounds. f scale. "0.38888888888888895" f layoutChanged. outer fullBounds. f scale. "0.37654320987654327" f layoutChanged. outer fullBounds. f scale. "0.36282578875171484" "..." The incremental shrinkage of #scale takes place in TransformationMorph>>extent: (see screenshot). I suppose this is the cause of a rounding error (scale is exact, but bounds/fullBounds are rounded), but I'm not sure. The following stabilizes my concrete case, but I'm not sure whether this is the actual solution or just a workaround: TransformationMorph >> extent: newExtent + self extent = newExtent ifTrue: [^ self]. self renderedMorph == self ifTrue: [super extent: newExtent] ifFalse: [ self adjustAfter: [ | scaleFactor | scaleFactor := (self scale * newExtent r / self fullBounds extent r) max: 0.1. self scale: (scaleFactor detentBy: 0.1 atMultiplesOf: 1.0 snap: false)]]. Looking forward to your feedback! Best, Christoph --- Sent from Squeak Inbox Talk ["volatileTableLayoutStack.png"]

3 2

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

25 Aug '22

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.2032.mcz ==================== Summary ==================== Name: Morphic-ct.2032 Author: ct Time: 24 August 2022, 12:15:59.039424 pm UUID: 385fbab8-ecc3-9f42-8b04-5ce73768f082 Ancestors: Morphic-ct.2031 Proposal: After resizing the display, also make all open dialog windows and progress morphs visible. =============== Diff against Morphic-ct.2031 =============== Item was added: + ----- Method: DialogWindow>>makeMeVisible (in category 'updating') ----- + makeMeVisible + "Assure that the receiver is visible within the current world bounds." + + self world extent > (0 @ 0) ifFalse: [^ self]. + + ((self world bounds insetBy: (0 @ 0 corner: self firstSubmorph height asPoint)) + containsPoint: self position) ifTrue: [^ self "OK -- at least my top left is visible"]. + + "window not on screen (probably due to reframe) -- move it now" + self position: (RealEstateAgent initialFrameFor: self initialExtent: self extent world: self world) topLeft.! Item was changed: ----- Method: PasteUpMorph>>fullRepaintNeeded (in category 'world state') ----- fullRepaintNeeded worldState doFullRepaint. + self submorphsDo: [:morph | + (morph respondsTo: #makeMeVisible) + ifTrue: [morph makeMeVisible]]. + SystemProgressMorph fullRepaintNeeded.! - SystemWindow windowsIn: self - satisfying: [:w | w makeMeVisible. false]. - - ! Item was added: + ----- Method: SystemProgressMorph class>>fullRepaintNeeded (in category 'class initialization') ----- + fullRepaintNeeded + + UniqueInstance ifNotNil: [UniqueInstance recenter].! Item was changed: + ----- Method: SystemWindow>>makeMeVisible (in category 'updating') ----- + makeMeVisible + "Assure that the receiver is visible within the current world bounds." - ----- Method: SystemWindow>>makeMeVisible (in category 'drawing') ----- - makeMeVisible + self world extent > (0 @ 0) ifFalse: [^ self]. - self world extent > (0@0) ifFalse: [^ self]. + ((self world bounds insetBy: (0 @ 0 corner: self labelHeight asPoint)) - ((self world bounds insetBy: (0@0 corner: self labelHeight asPoint)) containsPoint: self position) ifTrue: [^ self "OK -- at least my top left is visible"]. "window not on screen (probably due to reframe) -- move it now" + self position: (self isCollapsed + ifTrue: [RealEstateAgent assignCollapsePointFor: self] + ifFalse: [(RealEstateAgent initialFrameFor: self initialExtent: self extent world: self world) topLeft]).! - self isCollapsed - ifTrue: [self position: (RealEstateAgent assignCollapsePointFor: self)] - ifFalse: [self position: (RealEstateAgent initialFrameFor: self initialExtent: self extent world: self world) topLeft]. - - !

4 4

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

24 Aug '22

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.2033.mcz ==================== Summary ==================== Name: Morphic-ct.2033 Author: ct Time: 24 August 2022, 6:02:53.835133 pm UUID: 6b380927-4044-c24d-a1cb-b4f6feb6dae3 Ancestors: Morphic-ct.2031 Fixes an drawing/invalidation issue with TransformMorphs. When an ancestor of a TransformMorph is moved directly, it invalidates both its old and its new bounds, so the damageRect can legitimately excess the bounds of the TransformMorph. Solution: Remove the intersection of the damage rect with the TransformMorph's bounds. Reprocase: m := Morph new. f := m addFlexShell rotationDegrees: 15; yourself. f openInWorld. f center: f world center. "Do this separately" m position: m position + 10. Please review. =============== Diff against Morphic-ct.2031 =============== Item was changed: ----- Method: TransformMorph>>invalidRect:from: (in category 'change reporting') ----- invalidRect: damageRect from: aMorph "Translate damage reports from submorphs by the scrollOffset." + + ^ super + invalidRect: (aMorph == self + ifTrue: [damageRect] + ifFalse: [(transform localBoundsToGlobal: damageRect) expanded]) + from: self! - aMorph == self - ifTrue:[super invalidRect: damageRect from: self] - ifFalse:[super invalidRect: (((transform localBoundsToGlobal: damageRect) intersect: bounds) expanded) from: self].!

1 0

The Trunk: Morphic-ct.2031.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.2031.mcz ==================== Summary ==================== Name: Morphic-ct.2031 Author: ct Time: 24 August 2022, 12:13:26.793424 pm UUID: c66506c8-e4ae-984d-8c5e-166fc9239dc9 Ancestors: Morphic-ct.2030 Adds missing #cleanUp on SystemProgressMorph. =============== Diff against Morphic-ct.2030 =============== Item was added: + ----- Method: SystemProgressMorph class>>applyUserInterfaceTheme (in category 'preferences') ----- + applyUserInterfaceTheme + + self initialize. + "no reset here - unique instance is updated on instance side"! Item was added: + ----- Method: SystemProgressMorph class>>cleanUp (in category 'class initialization') ----- + cleanUp + + self initialize; reset.!

1 0

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

Jump to page: