Packages February 2022

packages@lists.squeakfoundation.org

1 participants
200 discussions

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: 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!

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 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

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

27 Feb '22

Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-mt.75.mcz ==================== Summary ==================== Name: TrueType-mt.75 Author: mt Time: 27 February 2022, 8:40:53.173726 am UUID: 04f4f27b-dadc-2142-b9ca-0f1b70152802 Ancestors: TrueType-mt.74 Adds missing selectors to (legacy) TTCFontSet. =============== Diff against TrueType-mt.74 =============== Item was added: + ----- Method: TTCFontSet>>extraGlyphScale: (in category 'editing') ----- + extraGlyphScale: aFactor + + ^ fontArray do: [:font | font extraGlyphScale: aFactor]! Item was added: + ----- Method: TTCFontSet>>extraLineGap: (in category 'editing') ----- + extraLineGap: aNumber + + ^ fontArray do: [:font | font extraLineGap: aNumber]! Item was added: + ----- Method: TTCFontSet>>privateExtraGlyphScale: (in category 'editing') ----- + privateExtraGlyphScale: aFactor + + ^ fontArray do: [:font | font privateExtraGlyphScale: aFactor]! Item was added: + ----- Method: TTCFontSet>>privateExtraLineGap: (in category 'editing') ----- + privateExtraLineGap: aNumber + + ^ fontArray do: [:font | font privateExtraLineGap: aNumber]!

1 0

The Trunk: Tools-ct.1137.mcz
by commits＠source.squeak.org 26 Feb '22

26 Feb '22

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1137.mcz ==================== Summary ==================== Name: Tools-ct.1137 Author: ct Time: 27 February 2022, 12:36:01.823424 am UUID: d030f7cb-5802-e94d-be35-d119d34f8255 Ancestors: Tools-mt.1135 When renaming a changeset and canceling the name dialog/not entering a new name, do not play an error sound. The user has decided to do nothing, so there is no reason to indicate another error. =============== Diff against Tools-mt.1135 =============== Item was changed: ----- Method: ChangeSorter>>rename (in category 'changeSet menu') ----- rename "Store a new name string into the selected ChangeSet. reject duplicate name; allow user to back out" | newName | newName := Project uiManager request: 'New name for this change set' translated initialAnswer: myChangeSet name. (newName = myChangeSet name or: [newName size = 0]) ifTrue: + [^ self]. - [^ Beeper beep]. (ChangeSet named: newName) ifNotNil: [^ Project uiManager inform: 'Sorry that name is already used' translated]. myChangeSet name: newName. self update. self changed: #mainButtonName. self changed: #relabel.!

1 0

The Trunk: Morphic-tonyg.1910.mcz
by commits＠source.squeak.org 26 Feb '22

26 Feb '22

Tony Garnock-Jones uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tonyg.1910.mcz ==================== Summary ==================== Name: Morphic-tonyg.1910 Author: tonyg Time: 26 February 2022, 5:13:47.127408 pm UUID: 5663b671-63a4-4185-8750-5606cd79c3d9 Ancestors: Morphic-ct.1909 Do not show keyboard help (a balloon) if Preferences balloonHelpEnabled is false. =============== Diff against Morphic-ct.1909 =============== Item was changed: ----- Method: MenuMorph>>showKeyboardHelp (in category 'keystroke helpers') ----- showKeyboardHelp | help | + + Preferences balloonHelpEnabled ifFalse: [^ self]. + help := self balloonMorphClass string: 'Enter text to narrow selection\down to matching items' translated withCRs for: self corner: #topLeft. help popUpAt: self topCenter forHand: self activeHand!

1 0

The Trunk: Morphic-ct.1909.mcz
by commits＠source.squeak.org 25 Feb '22

25 Feb '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1909.mcz ==================== Summary ==================== Name: Morphic-ct.1909 Author: ct Time: 25 February 2022, 4:33:31.520129 pm UUID: 99e9076d-aa95-0a46-9dad-9269468c3948 Ancestors: Morphic-mt.1908 Fine-tunes the appearance of Morphic text cursors for different scale factors and restores anti-aliasing. Thanks to Marcel for the feedback! Follow-up of Morphic-ct.1899. =============== Diff against Morphic-mt.1908 =============== Item was changed: ----- Method: NewParagraph>>displayDumbbellCursorOn:at:in: (in category 'display') ----- displayDumbbellCursorOn: aCanvas at: leftX in: line | w | + w := (2 "pixels" * (RealEstateAgent scaleFactor max: 1)) truncated. - w := (3 "pixels" * (RealEstateAgent scaleFactor max: 1)) truncated. self focused ifFalse: [^ w]. 1 to: w do: [:i | "Draw caret triangles at top and bottom" 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]. aCanvas + fillRectangle: (leftX - (w // 4) @ line top rect: leftX + (w + 1 / 2) ceiling @ line bottom - 1) - fillRectangle: (leftX - (w // 4) @ line top rect: leftX + (w + 1 // 2) @ line bottom - 1) color: self caretColor. ^ w! Item was changed: ----- Method: NewParagraph>>displaySimpleCursorOn:at:in: (in category 'display') ----- displaySimpleCursorOn: aCanvas at: leftX in: line + | scale width | - | width | self focused ifFalse: [^ 1]. + scale := RealEstateAgent scaleFactor. + width := 1.7 "pixels" * (scale max: 1). - width := (2 "pixels" * (RealEstateAgent scaleFactor max: 1)) truncated. aCanvas + fillRectangle: (leftX @ (line top + 1) rect: leftX + width truncated @ (line bottom - 1)) - fillRectangle: (leftX @ (line top + 1) rect: leftX + width @ 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 + width truncated @ (line top + 1) + to: leftX + width truncated @ (line bottom - 2) + color: (self caretColor alpha: 1 - width fractionPart)]. + + ^ width ceiling! - - ^ width!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2022