Leon Matthes uploaded a new version of CogTools to project VM Maker: http://source.squeak.org/VMMaker/CogTools.threaded-LM.100.mcz
==================== Summary ====================
Name: CogTools.threaded-LM.100 Author: LM Time: 14 March 2024, 6:53:15.21034 pm UUID: 7f0734a1-9058-46e4-98db-d453ff3a2cd0 Ancestors: CogTools.threaded-LM.99
ThreadInspector: use stepped horizontal owner line
=============== Diff against CogTools.threaded-LM.99 ===============
Item was changed: ----- Method: PlotSeries>>drawOn: (in category 'drawing') ----- drawOn: aCanvas points isEmpty ifTrue: [^ self]. "" drawArea ifTrue: ["" type == #straightened ifTrue: [self drawStraightenedAreaOn: aCanvas]. type == #stepped + ifTrue: [self drawSteppedAreaOn: aCanvas]]. - ifTrue: [self drawSteppedAreaOn: aCanvas]. - type == #steppedHorizontal - ifTrue: [self drawSteppedHorizontalLineOn: aCanvas]]. drawLine ifTrue: ["" type == #straightened ifTrue: [self drawStraightenedLineOn: aCanvas]. type == #stepped + ifTrue: [self drawSteppedLineOn: aCanvas]. + type == #steppedHorizontal + ifTrue: [self drawSteppedHorizontalLineOn: aCanvas]]. - ifTrue: [self drawSteppedLineOn: aCanvas]]. drawPoints ifTrue: [self drawPointsOn: aCanvas]!
Item was changed: ----- Method: PlotSeries>>drawSteppedHorizontalLineOn: (in category 'drawing') ----- drawSteppedHorizontalLineOn: aCanvas | lineColor lastScaledPoint | lineColor := self lineColor. lastScaledPoint := nil. points do: [:point | | scaledPoint | scaledPoint := point scaledPoint. lastScaledPoint ifNotNil: [aCanvas line: lastScaledPoint to: scaledPoint x @ lastScaledPoint y width: width color: lineColor.]. lastScaledPoint := scaledPoint]!