Squeak-dev February 2022

squeak-dev@lists.squeakfoundation.org

30 participants
332 discussions

SqueakSSLTest on Slackware Linux 15
by stes＠PANDORA.BE 28 Feb '22

28 Feb '22

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA256 Hi, Latest Subversion (SVN) sources for Squeak Classical VM on Slackware Linux . Builds fine on Slackware Linux 15.0 withLinux kernel 5.15.19 and gcc 11.2 This Linux distribution ships OpenSSL 1.1.1m libraries. The Squeak VM builds fine and seems to be linked against ssl lib 1.1.1m BUT ... as reported in the past, the "SUnit" tests for SSL have some issues. I am using Squeak4.6-15118.zip images with this VM. In the testrunner, SqueakSSLTest #testSocketConnect seems to hang for me. I think I reported this a few months ago for SUSE SLES 15SP3 and for Fedora. As far as I understand the VM support for OpenSSL 1.1.1 actually works, but the Squeak4.6 image 15118 has some tests that hang/fail, where the issue is, I believe, with the test framework, rather than with the VM support plugin for SSL. So the plugin SSL actually works I think, but the tests fail. When I update the image (using the menu -> Update Squeak) it still is 15118, so I think 15118 is truly the latest 4.6 image. Is there a fix for the SUnit test framework for the SqueakSSL-Tests for OpenSSL 1.1.1m on Slackware Linux 15 ? Regards, David Stes -----BEGIN PGP SIGNATURE----- Version: GnuPG v2 iQEcBAEBCAAGBQJiFmvqAAoJENdFDkXGicizyxkIAJUpZGAqlMRAMeaxLUPbP8m+ yU6l3Wqv15cpdoeDulIu7D6AyvgrdgIkKIo02sSVskvmtgWGXPhgB2QkKbIMYN2z +ctsJqLTKxV26y7Gtcr6HkGDuvVGf8lKEeEHhWtMT09YEpwI7Dq3BtEWJ5r5PXpz dnfkVmsuMWY8REBwapQB9xO6EE3Mpk5oGFprMY1+72lHC4N56lGChr4mIZOpQFpR Hfzx92M49MuoFurYooMV5u9Fd/Iw37Ieux3Law1XFj8FsbrGdZEukdDu6aug2z18 IitPzQfNAOdsGNGaLXct/ugZHxaxQoPLLqfk/YqemR5JQFFFj7Qh9gmII+jsNvY= =G/CA -----END PGP SIGNATURE-----

2 3

The Trunk: Morphic-mt.1913.mcz
by commits＠source.squeak.org 28 Feb '22

28 Feb '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1913.mcz ==================== Summary ==================== Name: Morphic-mt.1913 Author: mt Time: 28 February 2022, 11:19:33.058532 am UUID: a6a11681-f9b0-4ab7-9da6-a8411611639a Ancestors: Morphic-mt.1912 Fixes a regression in text-cursor (i.e. caret) visibility. It is now visible again during type-in, not blinking. I removed the extra #hasFocus check in the caret's display routines. Now we notice some inconsistency in caret management when building new paragraphs. There are still some extra carets visible after tool construction I have to figure out. It might be related to unnecessary editor instances... =============== Diff against Morphic-mt.1912 =============== Item was changed: ----- Method: NewParagraph>>showCaret (in category 'access') ----- showCaret + ^showCaret ifNil:[true] - ^showCaret ifNil:[false] ! Item was changed: ----- Method: TextMorph>>createParagraph (in category 'private') ----- createParagraph self setProperty: #CreatingParagraph toValue: true. [ self setDefaultContentsIfNil. "...Code here to recreate the paragraph..." paragraph := (self paragraphClass new textOwner: self owner). paragraph wantsColumnBreaks: successor notNil. paragraph compose: text style: textStyle from: self startingIndex in: self container. wrapFlag ifFalse: ["Was given huge container at first... now adjust" paragraph adjustRightX]. paragraph focused: (self currentHand keyboardFocus == self). paragraph + showCaret: self hasFocus; caretColor: self caretColor; selectionColor: self selectionColor; unfocusedSelectionColor: self unfocusedSelectionColor. self fit. ] ensure: [self removeProperty: #CreatingParagraph]. ^ paragraph!

2 3

The Trunk: Morphic-mt.1914.mcz
by commits＠source.squeak.org 28 Feb '22

28 Feb '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1914.mcz ==================== Summary ==================== Name: Morphic-mt.1914 Author: mt Time: 28 February 2022, 12:43:57.322532 pm UUID: 5f3c3711-be3d-46f3-994e-446ca3c415db Ancestors: Morphic-mt.1913 Removes the 'allButtons' hack from PluggableButtonMorph because it was in serious conflict with how layouting and event dispatching works (e.g. #visible: and #disableLayout:) in Morphic. =============== Diff against Morphic-mt.1913 =============== Item was changed: Morph subclass: #PluggableButtonMorph + instanceVariableNames: 'model label font getStateSelector actionSelector getLabelSelector getMenuSelector shortcutCharacter askBeforeChanging triggerOnMouseDown offColor onColor feedbackColor showSelectionFeedback arguments argumentsProvider argumentsSelector style hoverColor borderColor textColor labelOffset wantsGradient' - instanceVariableNames: 'model label font getStateSelector actionSelector getLabelSelector getMenuSelector shortcutCharacter askBeforeChanging triggerOnMouseDown offColor onColor feedbackColor showSelectionFeedback allButtons arguments argumentsProvider argumentsSelector style hoverColor borderColor textColor labelOffset wantsGradient' classVariableNames: 'GradientButton RoundedButtonCorners' poolDictionaries: '' category: 'Morphic-Pluggable Widgets'! !PluggableButtonMorph commentStamp: '<historical>' prior: 0! A PluggableButtonMorph is a combination of an indicator for a boolean value stored in its model and an action button. The action of a button is often, but not always, to toggle the boolean value that it shows. Its pluggable selectors are: getStateSelector fetch a boolean value from the model actionSelector invoke this button's action on the model getLabelSelector fetch this button's lable from the model getMenuSelector fetch a pop-up menu for this button from the model Any of the above selectors can be nil, meaning that the model does not supply behavior for the given action, and the default behavior should be used. For example, if getStateSelector is nil, then this button shows the state of a read-only boolean that is always false. The model informs its view(s) of changes by sending #changed: to itself with getStateSelector as a parameter. The view tells the model when the button is pressed by sending actionSelector. If the actionSelector takes one or more arguments, then the following are relevant: arguments A list of arguments to provide when the actionSelector is called. argumentsProvider The object that is sent the argumentSelector to obtain arguments, if dynamic argumentsSelector The message sent to the argumentProvider to obtain the arguments. Options: askBeforeChanging have model ask user before allowing a change that could lose edits triggerOnMouseDown do this button's action on mouse down (vs. up) transition shortcutCharacter a place to record an optional shortcut key ! Item was changed: ----- Method: PluggableButtonMorph>>mouseDown: (in category 'event handling') ----- mouseDown: evt - "Details: If this button is triggered on mouse down or the event is the menu gesture, handle it immediately. Otherwise, make a list of buttons (including the receiver) for mouseMove feedback. This allows a simple radio-button effect among the button submorphs of a given morph." - allButtons := nil. evt yellowButtonPressed ifTrue: [^ self invokeMenu: evt]. triggerOnMouseDown ifTrue: [self performAction] + ifFalse: [self updateFillStyle: evt]. - ifFalse: [ - allButtons := owner submorphs select: [:m | m class = self class]. - self updateFillStyle: evt]. ! Item was changed: ----- Method: PluggableButtonMorph>>mouseMove: (in category 'event handling') ----- mouseMove: evt + self updateFillStyle: evt.! - allButtons ifNil: [^ self]. - allButtons do: [:m | m updateFillStyle: evt].! Item was changed: ----- Method: PluggableButtonMorph>>mouseUp: (in category 'event handling') ----- mouseUp: evt self updateFillStyle: evt. + (self containsPoint: evt cursorPoint) + ifTrue: [self performAction].! - - allButtons ifNil: [^ self]. - allButtons do: [:m | - (m containsPoint: evt cursorPoint) ifTrue: [m performAction]]. - allButtons := nil. - self changed. - !

1 0

The Trunk: TrueType-mt.76.mcz
by commits＠source.squeak.org 28 Feb '22

28 Feb '22

Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-mt.76.mcz ==================== Summary ==================== Name: TrueType-mt.76 Author: mt Time: 28 February 2022, 9:59:16.762504 am UUID: 36d27c31-4d56-4248-a6d2-de0a9dbdc3da Ancestors: TrueType-mt.75 Complement Graphics-mt.488. =============== Diff against TrueType-mt.75 =============== Item was changed: ----- Method: TTCFont class>>shutDown: (in category 'class initialization') ----- shutDown: quitting + "Only flush the cache on save-and-quit unless overridden by #compressOnSnapshot preference. This means that the image will be slightly larger when save-no-quit. Yet, it makes sense to keep up the font rendering performance when the user keeps on working." - "Only flush the cache on save-and-quit. This means that the image will be slightly larger when save-no-quit. Yet, it makes sense to keep up the font rendering performance when the user keeps on working. Or does it?" "Flush the glyph cache" + (quitting or: [Form compressOnSnapshot]) ifFalse: [^ self]. - quitting ifFalse: [^ self]. GlyphCacheData atAllPut: nil. GlyphCacheIndex := 0. ShutdownList ifNotNil:[ShutdownList do:[:fnt| fnt flushCache]]. ShutdownList := WeakSet new. !

1 0

The Trunk: Graphics-mt.488.mcz
by commits＠source.squeak.org 28 Feb '22

28 Feb '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.488.mcz ==================== Summary ==================== Name: Graphics-mt.488 Author: mt Time: 28 February 2022, 9:57:52.349504 am UUID: 6a3701f5-fea3-4e1f-9d66-005169bbfb5e Ancestors: Graphics-mt.487 Make it a preference whether to compress all graphics data or not when snapshotting but not quitting. Keep the default as it always was: compress graphics data to reduce .image file size. =============== Diff against Graphics-mt.487 =============== Item was changed: DisplayMedium subclass: #Form instanceVariableNames: 'bits width height depth offset' + classVariableNames: 'CompressOnSnapshot' - classVariableNames: '' poolDictionaries: '' category: 'Graphics-Display Objects'! !Form commentStamp: 'cbc 5/5/2017 10:07' prior: 0! A rectangular array of pixels, used for holding images. All pictures, including character images are Forms. The depth of a Form is how many bits are used to specify the color at each pixel. The actual bits are held in a Bitmap, whose internal structure is different at each depth. Class Color allows you to deal with colors without knowing how they are actually encoded inside a Bitmap. The supported depths (in bits) are 1, 2, 4, 8, 16, and 32. The number of actual colors at these depths are: 2, 4, 16, 256, 32768, and 16 million. Forms are indexed starting at 0 instead of 1; thus, the top-left pixel of a Form has coordinates 0@0. Forms are combined using BitBlt. See the comment in class BitBlt. Forms that repeat many times to fill a large destination are InfiniteForms. colorAt: x@y Returns the abstract Color at this location displayAt: x@y shows this form on the screen displayOn: aMedium at: x@y shows this form in a Window, a Form, or other DisplayMedium fillColor: aColor Set all the pixels to the color. edit launch an editor to change the bits of this form. pixelValueAt: x@y The encoded color. The encoding depends on the depth. Note: If you want to hook up other external forms/displayScreens, please look at the (successful) Graphics-External package in http://www.squeaksource.com/Balloon3D.! Item was added: + ----- Method: Form class>>compressOnSnapshot (in category 'preferences') ----- + compressOnSnapshot + <preference: 'Always compress graphics data on snapshot' + categoryList: #(performance Graphics) + description: 'When enabled, graphics data such as all instances of Form are compressed during image snapshots -- even when the image will not quit after the snapshot. This includes cache clean-up such as the TrueType glyph cache. Disable to avoid render lags after snapshots at the cost of a bigger footprint of your .image file. Note that snapshot-and-quit always compresses graphics data.' + type: #Boolean> + + ^ CompressOnSnapshot ifNil: [true]! Item was added: + ----- Method: Form class>>compressOnSnapshot: (in category 'preferences') ----- + compressOnSnapshot: aBoolean + + CompressOnSnapshot := aBoolean.! Item was changed: ----- Method: Form class>>shutDown: (in category 'shut down') ----- shutDown: quitting + "When quitting, compress all instances in the system. Will decompress on demand after start-up. Note that #compressOnShapshot can avoid hibernating forms during no-quit snapshotting to keep the system as responsive as possible directly after." - "When quitting, compress all instances in the system. Will decompress on demand after start-up. Note that we avoid hibernating forms during no-quit snapshotting to keep the system as responsive as possible directly after." "Form shutDown: true" + (quitting or: [self compressOnSnapshot]) ifTrue: [ - quitting ifTrue: [ Form allInstancesDo: [:f | f hibernate]. ColorForm allInstancesDo: [:f | f hibernate]].!

1 0

The Inbox: Tools-ct.1136.mcz
by commits＠source.squeak.org 28 Feb '22

28 Feb '22

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-ct.1136.mcz ==================== Summary ==================== Name: Tools-ct.1136 Author: ct Time: 25 February 2022, 4:51:14.742129 pm UUID: d3396d11-145e-294d-b51c-805c6b3b64ab Ancestors: Tools-mt.1135 Revises senders/implementors in message traces so that: * using the buttons always spawns a new window * you can press shift to invert whether the new messages will be appended to the existing window or opened in a new window See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-February/218946… =============== Diff against Tools-mt.1135 =============== Item was changed: ----- Method: MessageTrace>>browseAllCallsOn:requestor: (in category 'actions') ----- browseAllCallsOn: selectorSymbol requestor: anObject "Overwritten to modify the trace if the request origins from a model-menu command such as the message-list menu (shortcut)." + (((Preferences traceMessages and: [anObject ~= #button] and: [selectorSymbol = self selectedMessageName]) xor: Sensor shiftPressed) + and: [self hasUnacceptedEdits not]) - (selectorSymbol = self selectedMessageName - and: [ Preferences traceMessages ] and: [ self hasUnacceptedEdits not ]) ifTrue: [ self addParentMethodsSending: selectorSymbol ] ifFalse: [ super browseAllCallsOn: selectorSymbol requestor: anObject ].! Item was changed: ----- Method: MessageTrace>>browseAllImplementorsOf:requestor: (in category 'actions') ----- browseAllImplementorsOf: selectorSymbol requestor: anObject "Overwritten to modify the trace if the request origins from a model-menu command such as the message-list menu (shortcut)." | selectorToBrowse | selectorToBrowse := self selection ifNil: [ selectorSymbol ] ifNotNil: [ self getImplementorNamed: selectorSymbol asSymbol "since we can get passed literals"]. + (((Preferences traceMessages and: [anObject ~= #button]) xor: Sensor shiftPressed) and: [self hasUnacceptedEdits not]) - (Preferences traceMessages and: [ self hasUnacceptedEdits not ]) ifTrue: [ self addChildMethodsNamed: selectorToBrowse ] ifFalse: [ super browseAllImplementorsOf: selectorToBrowse requestor: anObject ].! Item was added: + ----- Method: MessageTrace>>browseMessagesFromButton (in category 'controls') ----- + browseMessagesFromButton + + self getSelectorAndSendQuery: #browseAllImplementorsOf:requestor: to: self with: #(button).! Item was added: + ----- Method: MessageTrace>>browseSendersOfMessagesFromButton (in category 'controls') ----- + browseSendersOfMessagesFromButton + + self getSelectorAndSendQuery: #browseAllCallsOn:requestor: to: self with: #(button).! Item was added: + ----- Method: MessageTrace>>optionalButtonPairs (in category 'controls') ----- + optionalButtonPairs + + ^ super optionalButtonPairs collect: [:spec | + spec second + caseOf: + {[#browseSendersOfMessages] -> [spec copy + at: 2 put: #browseSendersOfMessagesFromButton; + yourself]. + [#browseMessages] -> [spec copy + at: 2 put: #browseMessagesFromButton; + yourself]} + otherwise: [spec]]!

2 1

[ANN] Fuel 5.0.0
by Max Leske 28 Feb '22

28 Feb '22

Hi everyone, I'm happy to announce Fuel version 5.0.0 today. The changes to 4.0.0 aren't huge but I've had to adjust the format once more. 5.0.0 comes with full support for stateful traits, i.e. traits with instance variables. You can find the release notes here: https://theseion.github.io/Fuel/releases/5.0.0/. Cheers, Max (on behalf of the Fuel team)

2 1

MCMergeBrowser has broken diffs
by Eliot Miranda 28 Feb '22

28 Feb '22

Hi, I'm merging a VMMaker.oscog commit into an image with an experiment in progress. Two methods are hence in conflict. In the MCMergeBrowser these two methods show only the in-image variant, not the diff of the in-image and incoming methods, as was previously (and must be) the case. This is after ========== Update of trunk completed: 21017 -> 21069 ========== _,,,^..^,,,_ best, Eliot

2 4

The Trunk: Morphic-mt.1912.mcz
by commits＠source.squeak.org 27 Feb '22

27 Feb '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1912.mcz ==================== Summary ==================== Name: Morphic-mt.1912 Author: mt Time: 27 February 2022, 10:23:42.921069 am UUID: d7cb5bf3-f530-a54c-854c-232ecc5d5236 Ancestors: Morphic-mt.1911 For any new text field, the caret should not be visible because we assume that its has not yet gotten the input focus. =============== Diff against Morphic-mt.1911 =============== Item was changed: ----- Method: NewParagraph>>showCaret (in category 'access') ----- showCaret + ^showCaret ifNil:[false] - ^showCaret ifNil:[true] !

1 0

The Trunk: Morphic-mt.1911.mcz
by commits＠source.squeak.org 27 Feb '22

27 Feb '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1911.mcz ==================== Summary ==================== Name: Morphic-mt.1911 Author: mt Time: 27 February 2022, 9:53:05.101069 am UUID: a4978814-746a-4e4f-aff1-8508843ecebb Ancestors: Morphic-tonyg.1910 Further tweaks text cursors for various scale factors. =============== Diff against Morphic-tonyg.1910 =============== Item was changed: ----- Method: NewParagraph>>caretWidth (in category 'access') ----- caretWidth + + ^ Editor dumbbellCursor + ifTrue: [ | w | + w := (3 * RealEstateAgent scaleFactor) truncated. + w even ifTrue: [w := w + 1] ifFalse: [w] ] + ifFalse: [ (2 * RealEstateAgent scaleFactor) truncated ]! - ^ ((Editor dumbbellCursor - ifTrue: [ 3 ] - ifFalse: [ 2 ]) "pixels" * RealEstateAgent scaleFactor) truncated! Item was changed: ----- Method: NewParagraph>>displayDumbbellCursorOn:at:in: (in category 'display') ----- displayDumbbellCursorOn: aCanvas at: leftX in: line + "Draw a dumbbell-shaped cursor. Draw lines instead of a polygon to hopefully be faster." + | w wHalf b | + w := caretRect width. + wHalf := w // 2. + b := wHalf - 1. + b even ifTrue: [b := b - 1]. + b := b max: 1. - | w | - w := (2 "pixels" * (RealEstateAgent scaleFactor max: 1)) truncated. - self focused ifFalse: [^ w]. - - 1 to: w - do: - [:i | - "Draw caret triangles at top and bottom" + 1 to: wHalf+1 do: [:i | "Draw caret triangles at top and bottom" + aCanvas + line: leftX + i - 1 @ (line top + i - 1) + to: leftX + w - i @ (line top + i - 1) + color: self caretColor. + aCanvas + line: leftX + i - 1 @ (line bottom - i) + to: leftX + w - i @ (line bottom - i) + color: self caretColor]. - aCanvas fillRectangle: ((leftX - w + i - 1) @ (line top + i - 1) - extent: ((w - i) * 2 + 3) @ 1) - color: self caretColor. - aCanvas fillRectangle: ((leftX - w + i - 1) @ (line bottom - i) - extent: ((w - i) * 2 + 3) @ 1) - color: self caretColor]. + b = 1 + ifTrue: [ + aCanvas + line: leftX + wHalf @ line top + to: leftX + wHalf @ (line bottom-1) + color: self caretColor] + ifFalse: [ | o | + o := leftX + wHalf - (b//2). + aCanvas + fillRectangle: (o @ line top corner: o + b @ line bottom) + color: self caretColor]! - aCanvas - fillRectangle: (leftX - (w // 4) @ line top rect: leftX + (w + 1 / 2) ceiling @ line bottom - 1) - color: self caretColor. - - ^ w! Item was changed: ----- Method: NewParagraph>>displaySelectionInLine:on: (in category 'display') ----- displaySelectionInLine: line on: aCanvas + | leftX rightX | - | leftX rightX w | selectionStart ifNil: [^self]. "No selection" aCanvas isShadowDrawing ifTrue: [ ^self ]. "don't draw selection with shadow" selectionStart = selectionStop ifTrue: ["Only show caret on line where clicked" selectionStart textLine ~= line ifTrue: [^self]] ifFalse: ["Test entire selection before or after here" (selectionStop stringIndex < line first or: [selectionStart stringIndex > (line last + 1)]) ifTrue: [^self]. "No selection on this line" (selectionStop stringIndex = line first and: [selectionStop textLine ~= line]) ifTrue: [^self]. "Selection ends on line above" (selectionStart stringIndex = (line last + 1) and: [selectionStop textLine ~= line]) ifTrue: [^self]]. "Selection begins on line below" leftX := (selectionStart stringIndex <= line first ifTrue: [line ] ifFalse: [selectionStart ])left. rightX := (selectionStop stringIndex > (line last + 1) or: [selectionStop stringIndex = (line last + 1) and: [selectionStop textLine ~= line]]) ifTrue: [line right] ifFalse: [selectionStop left]. selectionStart = selectionStop + ifTrue: [ | w pos | + w := caretRect ifNotNil: [caretRect width] ifNil: [self caretWidth]. + pos := leftX - (w // 2). + caretRect := pos @ line top corner: (pos + w) @ line bottom. + self showCaret ifFalse: [^ self "e.g., not #focused"]. + Editor dumbbellCursor + ifTrue: [self displayDumbbellCursorOn: aCanvas at: pos in: line] + ifFalse: [self displaySimpleCursorOn: aCanvas at: pos in: line]] - ifTrue: [ - rightX := rightX + 1. - w := caretRect ifNotNil: [caretRect width] ifNil: [2] "sigh...". - caretRect := (leftX - (w // 2)) @ line top corner: (rightX + (w // 2)) @ line bottom. - self showCaret ifFalse: [^self]. - w := (Editor dumbbellCursor - ifTrue: [self displayDumbbellCursorOn: aCanvas at: leftX in: line] - ifFalse: [self displaySimpleCursorOn: aCanvas at: leftX in: line]). - caretRect := (leftX-w) @ line top corner: (rightX+w)@ line bottom] ifFalse: [ caretRect := nil. aCanvas fillRectangle: (leftX @ line top corner: rightX @ line bottom) color: (self focused ifTrue: [self selectionColor] ifFalse: [self unfocusedSelectionColor])]! Item was changed: ----- Method: NewParagraph>>displaySimpleCursorOn:at:in: (in category 'display') ----- displaySimpleCursorOn: aCanvas at: leftX in: line + | w aa | + w := caretRect width // 2 max: 1. + aa := caretRect width - w. + + w = 1 + ifFalse: [ + aCanvas + fillRectangle: (leftX @ line top corner: leftX + w @ line bottom) + color: self caretColor] + ifTrue: [ + aCanvas + line: leftX @ line top + to: leftX @ (line bottom-1) + color: self caretColor]. + + aa > 0 ifTrue: [ + aa = 1 + ifFalse: [ + aCanvas + fillRectangle: (leftX+w @ line top rect: leftX+w +aa @ line bottom) + color: (self caretColor alpha: 0.3)] - | scale width | - self focused ifFalse: [^ 1]. - - scale := RealEstateAgent scaleFactor. - width := 1.7 "pixels" * (scale max: 1). - - aCanvas - fillRectangle: (leftX @ (line top + 1) rect: leftX + width truncated @ (line bottom - 1)) - color: self caretColor. - "Manual anti-aliasing for smaller scales" - (width < 3 - and: [scale >= 1 "but not for tiny scales where every pixel counts"] - and: [width fractionPart > 0]) ifTrue: [ aCanvas + line: leftX+w @ line top + to: leftX+w @ (line bottom-1) + color: (self caretColor alpha: 0.3)]].! - line: leftX + width truncated @ (line top + 1) - to: leftX + width truncated @ (line bottom - 2) - color: (self caretColor alpha: 1 - width fractionPart)]. - - ^ width ceiling!

1 0

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

Jump to page: