Packages February 2022

packages@lists.squeakfoundation.org

1 participants
200 discussions

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

24 Feb '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1907.mcz ==================== Summary ==================== Name: Morphic-ct.1907 Author: ct Time: 24 February 2022, 6:22:54.203653 pm UUID: a6a31081-eb65-4f42-b62f-208b5528328a Ancestors: Morphic-ct.1906, Morphic-ct.1899 Merges Morphic-ct.1899 (making caret width in Morphic dpi-aware). This revision converts "// 1" -> "truncated". Thanks to Marcel for the review! =============== Diff against Morphic-ct.1906 =============== Item was changed: ----- Method: NewParagraph>>caretWidth (in category 'access') ----- caretWidth + ^ ((Editor dumbbellCursor - ^ Editor dumbbellCursor ifTrue: [ 3 ] + ifFalse: [ 2 ]) "pixels" * RealEstateAgent scaleFactor) truncated! - ifFalse: [ 2 ]! Item was changed: ----- Method: NewParagraph>>displayDumbbellCursorOn:at:in: (in category 'display') ----- displayDumbbellCursorOn: aCanvas at: leftX in: line | w | + w := (3 "pixels" * (RealEstateAgent scaleFactor max: 1)) truncated. - w := 2. 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) @ line bottom - 1) - line: leftX @ line top - to: leftX @ (line bottom-1) color: self caretColor. ^ w! Item was changed: ----- Method: NewParagraph>>displaySelectionInLine:on: (in category 'display') ----- displaySelectionInLine: line on: aCanvas | 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: [ rightX := rightX + 1. + w := caretRect ifNotNil: [caretRect width] ifNil: [2] "sigh...". + caretRect := (leftX - (w // 2)) @ line top corner: (rightX + (w // 2)) @ line bottom. - caretRect := (leftX-2) @ line top corner: (rightX+2)@ line bottom. "sigh..." 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 + | width | self focused ifFalse: [^ 1]. + width := (2 "pixels" * (RealEstateAgent scaleFactor max: 1)) truncated. + aCanvas + fillRectangle: (leftX @ (line top + 1) rect: leftX + width @ line bottom - 1) - line: leftX @ (line top+1) - to: leftX @ (line bottom-1) color: self caretColor. + + ^ width! - - aCanvas - line: leftX+1 @ (line top+1) - to: leftX+1 @ (line bottom-1) - color: (self caretColor alpha: 0.3). - - ^ 1!

1 0

The Treated Inbox: Morphic-ct.1905.mcz
by commits＠source.squeak.org 24 Feb '22

24 Feb '22

Christoph Thiede uploaded a new version of Morphic to project The Treated Inbox: http://source.squeak.org/treated/Morphic-ct.1905.mcz ==================== Summary ==================== Name: Morphic-ct.1905 Author: ct Time: 24 February 2022, 11:59:10.222147 am UUID: ac4eb336-4623-5f48-9485-b4e46c636580 Ancestors: Morphic-mt.1904 Proposal: For Morph extensions, establish the common return value semantics known from most other collection protocols. I.e., #setProperty:... now answers the added value and #removeProperty: answers the removed value. This can also help us to clean up a number of senders, browse this for an impression: self systemNavigation browseAllCallsOn: #removeProperty: and: #valueOfProperty: =============== Diff against Morphic-mt.1904 =============== Item was changed: ----- Method: Morph>>removeProperty: (in category 'accessing - properties') ----- removeProperty: aSymbol + "Remove the property named aSymbol if it exists. Answer the old value or nil." - "removes the property named aSymbol if it exists" extension ifNil: [^ self]. + ^ extension removeProperty: aSymbol! - extension removeProperty: aSymbol! Item was changed: ----- Method: Morph>>setProperties: (in category 'accessing - properties') ----- setProperties: aList + "Set many properties at once from a list of prop, value, prop, value. Answer the list." - "Set many properties at once from a list of prop, value, prop, value" 1 to: aList size by: 2 do: [:ii | + self setProperty: (aList at: ii) toValue: (aList at: ii+1)]. + ^ aList! - self setProperty: (aList at: ii) toValue: (aList at: ii+1)].! Item was changed: ----- Method: Morph>>setProperty:toValue: (in category 'accessing - properties') ----- setProperty: aSymbol toValue: anObject + "Change the receiver's property named aSymbol to anObject. Answer anObject." - "change the receiver's property named aSymbol to anObject" anObject ifNil: [^ self removeProperty: aSymbol]. + ^ self assureExtension setProperty: aSymbol toValue: anObject! - self assureExtension setProperty: aSymbol toValue: anObject! Item was changed: ----- Method: MorphExtension>>removeProperty: (in category 'accessing - other properties') ----- removeProperty: aSymbol + "Removes the property named aSymbol if it exists. Answer the old value or nil." + | value | - "removes the property named aSymbol if it exists" otherProperties ifNil: [^ self]. + value := otherProperties removeKey: aSymbol ifAbsent: []. + otherProperties isEmpty ifTrue: [self removeOtherProperties]. + ^ value! - otherProperties removeKey: aSymbol ifAbsent: []. - otherProperties isEmpty ifTrue: [self removeOtherProperties]! Item was changed: ----- Method: MorphExtension>>setProperty:toValue: (in category 'accessing - other properties') ----- setProperty: aSymbol toValue: abObject + "Change the receiver's property named aSymbol to anObject. Answer anObject." + ^ self assureOtherProperties at: aSymbol put: abObject! - "change the receiver's property named aSymbol to anObject" - self assureOtherProperties at: aSymbol put: abObject!

1 0

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

24 Feb '22

Christoph Thiede uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1906.mcz ==================== Summary ==================== Name: Morphic-ct.1906 Author: ct Time: 24 February 2022, 5:41:18.342147 pm UUID: 4cdef9c0-ecb4-1c40-bb54-8fd5153939e6 Ancestors: Morphic-mt.1904 For Morph properties, establishes the common return value semantics known from most other collection protocols. I.e., #setProperty:... now answers the added value and #removeProperty: answers the removed value. This can also help us to clean up a number of senders, browse this for an impression: self systemNavigation browseAllCallsOn: #removeProperty: and: #valueOfProperty: Thanks to Marcel for the review! Treats Morphic-ct.1905. =============== Diff against Morphic-mt.1904 =============== Item was changed: ----- Method: Morph>>removeProperty: (in category 'accessing - properties') ----- removeProperty: aSymbol + "Remove the property named aSymbol if it exists. Answer the old value or nil." + extension ifNil: [^ nil]. + ^ extension removeProperty: aSymbol! - "removes the property named aSymbol if it exists" - extension ifNil: [^ self]. - extension removeProperty: aSymbol! Item was changed: ----- Method: Morph>>setProperties: (in category 'accessing - properties') ----- setProperties: aList + "Set many properties at once from a list of prop, value, prop, value. Answer the list." - "Set many properties at once from a list of prop, value, prop, value" 1 to: aList size by: 2 do: [:ii | + self setProperty: (aList at: ii) toValue: (aList at: ii+1)]. + ^ aList! - self setProperty: (aList at: ii) toValue: (aList at: ii+1)].! Item was changed: ----- Method: Morph>>setProperty:toValue: (in category 'accessing - properties') ----- setProperty: aSymbol toValue: anObject + "Change the receiver's property named aSymbol to anObject. Answer anObject." + anObject ifNil: [ + self removeProperty: aSymbol. + ^ anObject]. + ^ self assureExtension setProperty: aSymbol toValue: anObject! - "change the receiver's property named aSymbol to anObject" - anObject ifNil: [^ self removeProperty: aSymbol]. - self assureExtension setProperty: aSymbol toValue: anObject! Item was changed: ----- Method: MorphExtension>>removeProperty: (in category 'accessing - other properties') ----- removeProperty: aSymbol + "Removes the property named aSymbol if it exists. Answer the old value or nil." + | value | + otherProperties ifNil: [^ nil]. + value := otherProperties removeKey: aSymbol ifAbsent: []. + otherProperties ifEmpty: [self removeOtherProperties]. + ^ value! - "removes the property named aSymbol if it exists" - otherProperties ifNil: [^ self]. - otherProperties removeKey: aSymbol ifAbsent: []. - otherProperties isEmpty ifTrue: [self removeOtherProperties]! Item was changed: ----- Method: MorphExtension>>setProperty:toValue: (in category 'accessing - other properties') ----- setProperty: aSymbol toValue: abObject + "Change the receiver's property named aSymbol to anObject. Answer anObject." + ^ self assureOtherProperties at: aSymbol put: abObject! - "change the receiver's property named aSymbol to anObject" - self assureOtherProperties at: aSymbol put: abObject!

1 0

The Trunk: ST80-mt.279.mcz
by commits＠source.squeak.org 22 Feb '22

22 Feb '22

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.279.mcz ==================== Summary ==================== Name: ST80-mt.279 Author: mt Time: 22 February 2022, 8:41:55.006334 am UUID: 3d65bef8-ad3a-c843-9848-f3845292dafd Ancestors: ST80-mt.278 Fixes regression in MVC text composition. =============== Diff against ST80-mt.278 =============== Item was changed: ----- Method: CompositionScanner>>composeLine:fromCharacterIndex:inParagraph: (in category '*ST80-Support') ----- composeLine: lineIndex fromCharacterIndex: startIndex inParagraph: aParagraph "Answer an instance of TextLineInterval that represents the next line in the paragraph." + | runLength stopCondition | - | runLength stopCondition lineSpacing | destX := spaceX := leftMargin := aParagraph leftMarginForCompositionForLine: lineIndex. destY := 0. rightMargin := aParagraph rightMarginForComposition. leftMargin >= rightMargin ifTrue: [self error: 'No room between margins to compose']. lastIndex := startIndex. "scanning sets last index" lineHeight := baseline := 0. "Will be increased by setFont" lineGap := lineGapSlice := -9999. "Will be increased by setFont; allow negative to show all effects of a custom #extraGap value. See TTFontDescription." topMargin := bottomMargin := 0. self setStopConditions. "also sets font" self handleIndentation. runLength := text runLengthFor: startIndex. runStopIndex := (lastIndex := startIndex) + (runLength - 1). line := TextLineInterval start: lastIndex stop: 0 internalSpaces: 0 paddingWidth: 0. nextIndexAfterLineBreak := spaceCount := 0. lastBreakIsNotASpace := false. [stopCondition := self scanCharactersFrom: lastIndex to: runStopIndex in: text string rightX: rightMargin. "See setStopConditions for stopping conditions for composing." self perform: stopCondition] whileFalse. + self flag: #margins. "mt: Note that this path does not support #lineSpacing because ST80's text views do not use TextComposer but TextLineInterval and their own legacy Paragraph class." - lineHeight := lineHeight + lineGap. - baseline := baseline + lineGapSlice. + ^ line + lineHeight: lineHeight + lineGap + baseline: baseline + lineGapSlice! - "TODO: Allow special characters or text attributes to accumulate extra top or bottom margin." - (lineSpacing := textStyle lineSpacing) = 0.0 - ifFalse: [bottomMargin := bottomMargin + (lineSpacing * lineHeight) truncated]. - - line lineHeight: lineHeight baseline: baseline. - line topMargin: topMargin bottomMargin: bottomMargin. - - ^ line!

1 0

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

21 Feb '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.486.mcz ==================== Summary ==================== Name: Graphics-mt.486 Author: mt Time: 21 February 2022, 5:06:38.314875 pm UUID: f5395b09-31fa-994e-b227-0dc8166d79d7 Ancestors: Graphics-mt.485 Updates commentary around primitive 103 and its issues with TTCFont. Thanks to Tony (tonyg) for the pointer! =============== Diff against Graphics-mt.485 =============== Item was changed: ----- Method: CharacterScanner>>primScanCharactersFrom:to:in:rightX:stopConditions:kern: (in category 'scanning') ----- primScanCharactersFrom: startIndex to: stopIndex in: sourceString rightX: rightX stopConditions: stops kern: kernDelta + "Primitive. This is the inner loop of text display--but see #scanCharactersFrom:to:in:rightX: which would get the string, stopConditions and displaying from the instance. March through sourceString from startIndex to stopIndex. If any character is flagged with a non-nil entry in stops, then return the corresponding value. Determine width of each character from xTable, indexed by map. If destX would exceed rightX, then return stops at: 258. Advance destX by the width of the character. If stopIndex has been reached, then return stops at: 257. + + Optional. See Object documentation whatIsAPrimitive. + + NOTE THAT this primitive does only work for our legacy StrikeFont because #setActualFont: needs #xTable and #characterToGlyphMap, which are both not available for TTCFont this way and thus we end up calling #widthOf: manually on the font." + - "Primitive. This is the inner loop of text display--but see - scanCharactersFrom: to:rightX: which would get the string, - stopConditions and displaying from the instance. March through source - String from startIndex to stopIndex. If any character is flagged with a - non-nil entry in stops, then return the corresponding value. Determine - width of each character from xTable, indexed by map. - If dextX would exceed rightX, then return stops at: 258. - Advance destX by the width of the character. If stopIndex has been - reached, then return stops at: 257. Optional. - See Object documentation whatIsAPrimitive. - Historical note: this primitive has been unusable since about Squeak 2.8 when the shape of the CharracterScanner class changed. It is left here as a reminder that the actual primitive still needs supporting in the VM to keep old images such as Scratch1.4 alive - tpr" <primitive: 103> + ^self basicScanByteCharactersFrom: startIndex to: stopIndex in: sourceString rightX: rightX + + "Here are some sketchy benchmarks to illustrate the performance issue regarding the use of TrueType fonts: + + 1) TTCFont only; with primitive fail + '1,160 per second. 865 microseconds per run. 0.44 % GC time.' + + 2) TTCFont only; without primitive fail + '5,730 per second. 175 microseconds per run. 6.12 % GC time.' + + 3) StrikeFont only; using primitive 103 + '29,700 per second. 33.6 microseconds per run. 1.11978 % GC time.' + + 4) StrikeFont only; without primitive 103 + '13,900 per second. 71.7 microseconds per run. 1.17976 % GC time.' + + "! - ^self basicScanByteCharactersFrom: startIndex to: stopIndex in: sourceString rightX: rightX !

1 0

The Trunk: Collections-mt.990.mcz
by commits＠source.squeak.org 21 Feb '22

21 Feb '22

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.990.mcz ==================== Summary ==================== Name: Collections-mt.990 Author: mt Time: 21 February 2022, 4:37:12.410875 pm UUID: cef34928-08c4-154a-b1ec-1cbd6e18b725 Ancestors: Collections-mt.989 Let CMD+0 also remove custom fonts in a text selection, not just colors etc. This means that the selection will then be formatted using the text style's default font. Until now, it was easy to change a font via CMD+k but hard to revert that modification. =============== Diff against Collections-mt.989 =============== Item was added: + ----- Method: TextFontChange>>dominatedByCmd0 (in category 'testing') ----- + dominatedByCmd0 + "Revert to default font using current paragraph's text style. See TextStyle >> #defaultFont." + + ^ true!

1 0

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

21 Feb '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1904.mcz ==================== Summary ==================== Name: Morphic-mt.1904 Author: mt Time: 21 February 2022, 4:27:51.232875 pm UUID: 46a193b0-46ff-b04b-9114-ed54b892efa8 Ancestors: Morphic-mt.1903 Improves FontChooserTool to support not-yet-installed fonts. In change-style dialog (in text fields) do not show aliased styles such as our current ComicSansMS. And whenever a TextMorph gets a new text style, it must want to be redrawn, not just releasing its paragraph and hoping for somebody else to tell the environment. :-) =============== Diff against Morphic-mt.1903 =============== Item was changed: ----- Method: FontChooserTool>>fontList (in category 'font list') ----- fontList "List of available font family names. Avoid StrikeFonts if PPI is not 96.0." fontList ifNotNil: [^ fontList]. fontList := TextStyle knownTextStylesWithoutDefault. + self getFontFromRequestor ifNotNil: [:font | + (fontList includes: font familyName) ifFalse: [ + fontList := (fontList, {font familyName}) sorted]]. TextStyle pixelsPerInch = 96.0 ifFalse: [ fontList := fontList select: [:styleName | (TextStyle named: styleName) isTTCStyle]]. ^ fontList! Item was changed: ----- Method: FontChooserTool>>fontListIconAt: (in category 'font list') ----- fontListIconAt: index + ^ ToolIcons iconNamed: ( ((TextStyle named: (self fontList at: index)) + ifNil: [self getFontFromRequestor ifNotNil: [:font | TextStyle fontArray: {font} "Not yet installed" ]]) + ifNil: [#blank16] + ifNotNil: [:style | style isTTCStyle ifTrue: [#font] ifFalse: [#blank16]] )! - ^ ToolIcons iconNamed: ((TextStyle named: (self fontList at: index)) - ifNil: [#blank16] - ifNotNil: [:style | style isTTCStyle ifTrue: [#font] ifFalse: [#blank16]])! Item was added: + ----- Method: FontChooserTool>>getFontFromRequestor (in category 'updating') ----- + getFontFromRequestor + + ^ (getSelector isSymbol and:[target notNil]) + ifTrue:[target perform: getSelector] + ifFalse:[getSelector]! Item was changed: ----- Method: FontChooserTool>>getSelector: (in category 'accessing') ----- getSelector: aSelectorSymbolOrFont "Set the value of getSelector" + getSelector := aSelectorSymbolOrFont. + self updateFromRequestor.! - getSelector := aSelectorSymbolOrFont! Item was changed: ----- Method: FontChooserTool>>pointSize: (in category 'point size') ----- pointSize: aNumber pointSize := aNumber. self changed: #selectedFontTextStyle. self changed: #contents. self changed: #pointSizeList. + self changed: #selectedPointSizeIndex. + self changed: #pointSizeInput.! - self changed: #selectedPointSizeIndex.! Item was changed: ----- Method: FontChooserTool>>selectedFont (in category 'font list') ----- selectedFont "Generate missing pointSIze only if TrueType font." + | style | + ^ (style := self selectedTextStyle) isTTCStyle + ifTrue: [ style fontArray size = 1 "Font not yet installed..." + ifTrue: [style defaultFont] + ifFalse: [TTCFont familyName: self selectedFontFamily pointSize: pointSize emphasized: emphasis]] - ^ self selectedTextStyle isTTCStyle - ifTrue: [TTCFont familyName: self selectedFontFamily pointSize: pointSize emphasized: emphasis] ifFalse: [ | font | + font := (style fontOfPointSize: pointSize) emphasized: emphasis. + pointSize := font pointSize. "Can be different for StrikeFont." - font := (self selectedTextStyle fontOfPointSize: pointSize) emphasized: emphasis. - pointSize := font pointSize. "Can be different." self changed: #selectedPointSizeIndex. font]! Item was changed: ----- Method: FontChooserTool>>selectedFontIndex (in category 'font list') ----- selectedFontIndex + + ^ selectedFontIndex ifNil: [0]! - | font textStyleName family | - selectedFontIndex ifNotNil: [^selectedFontIndex]. - selectedFontIndex := 0. - font := (getSelector isSymbol and:[target notNil]) - ifTrue:[target perform: getSelector] - ifFalse:[getSelector]. - font ifNotNil:[ - emphasis := font emphasis. - pointSize := font pointSize. - textStyleName := font textStyleName. - family := self fontList detect:[:f | f = textStyleName] ifNone:[]. - ]. - selectedFontIndex := self fontList indexOf: family. - self selectedFontIndex: selectedFontIndex. - ^selectedFontIndex! Item was changed: ----- Method: FontChooserTool>>selectedPointSizeIndex (in category 'point size') ----- selectedPointSizeIndex + + ^ pointSize + ifNil: [0] + ifNotNil: [self pointSizeList indexOf: (pointSize printShowingDecimalPlaces: 1)]! - ^self pointSizeList indexOf: (pointSize printShowingDecimalPlaces: 1), ' '! Item was changed: ----- Method: FontChooserTool>>selectedTextStyle (in category 'font list') ----- selectedTextStyle + ^ (TextStyle named: self selectedFontFamily) + ifNil: [ self getFontFromRequestor + ifNil: [ TextStyle default ] + ifNotNil: [:font | TextStyle fontArray: {font} "Not yet installed" ]].! - ^TextStyle named: (self selectedFontFamily ifNil:[^TextStyle default]).! Item was added: + ----- Method: FontChooserTool>>updateFromRequestor (in category 'updating') ----- + updateFromRequestor + + + self getFontFromRequestor ifNotNil: [ :font | + | textStyleName | + textStyleName := font textStyleName. + self fontList + detect: [:f | f = textStyleName] + ifFound: [:family | self selectedFontIndex: (self fontList indexOf: family)]. + self selectedFontStyleIndex: font emphasis + 1. + self pointSize: font pointSize].! Item was changed: ----- Method: TextEditor>>changeStyle (in category 'attributes') ----- changeStyle "Let user change styles for the current text pane." | known knownTTCStyles knownLegacyStyles defaultStyles newStyle current currentName menuList | current := morph textStyle. currentName := current defaultFamilyName. + knownTTCStyles := ((TextStyle actualTextStyles + select: [:ea | ea isTTCStyle + "No aliased text styles here..." + and: [(TextStyle named: ea defaultFamilyName) == ea]]) - knownTTCStyles := ((TextStyle actualTextStyles select: [:ea | ea isTTCStyle]) sorted: [:a :b | a defaultFamilyName <= b defaultFamilyName]) collect: [:ea | ea defaultFamilyName -> ea] as: OrderedDictionary. knownLegacyStyles := ((TextStyle actualTextStyles reject: [:ea | ea isTTCStyle]) sorted: [:a :b | a defaultFamilyName <= b defaultFamilyName]) collect: [:ea | ea defaultFamilyName -> ea] as: OrderedDictionary. defaultStyles := ((TextStyle defaultFamilyNames collect: [:ea | ea -> (TextStyle named: ea)] as: OrderedDictionary) reject: [:ea | ea isNil "undefined default styles"]) sorted: [:a :b | a key <= b key]. known := defaultStyles, {'---' -> nil}, knownTTCStyles, {'--- ' -> nil}, knownLegacyStyles. menuList := Array streamContents: [:s | known keysAndValuesDo: [ :knownName :knownStyle | s nextPut: (((knownStyle notNil and: [knownStyle defaultFamilyName = currentName]) ifTrue: [ (' > ', knownName, ' (current)' translated) asText ] ifFalse: [ knownName asText ]) addAttribute: (TextFontReference toFont: (knownStyle ifNil: [TextStyle default])defaultFont); yourself)]]. known := known values. newStyle := Project uiManager chooseFrom: menuList values: known. newStyle ifNotNil: [morph textStyle: newStyle copy]. ^ true! Item was changed: ----- Method: TextMorph>>textStyle: (in category 'accessing') ----- textStyle: aTextStyle "Change the receiver's set of fonts to aTextStyle. You can access those fonts via the TextFontChange text attribute. If you want to enfore a specific font face or point size, use #font: instead. NOTE THAT you must provide either a freshly created instance of TextStyle or a copy of an existing one. NEVER use, for example, TextStyle class >> #default directly. Also see senders and implementors of #asNewTextStyle." textStyle := aTextStyle. + self releaseParagraph; changed.! - self releaseParagraph.!

1 0

The Trunk: MorphicExtras-mt.307.mcz
by commits＠source.squeak.org 21 Feb '22

21 Feb '22

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.307.mcz ==================== Summary ==================== Name: MorphicExtras-mt.307 Author: mt Time: 21 February 2022, 4:13:36.605875 pm UUID: d5d63a59-0bb0-7546-9f6f-ca4d5aa121e7 Ancestors: MorphicExtras-mt.306 Complements Graphics-mt.483 =============== Diff against MorphicExtras-mt.306 =============== Item was changed: ----- Method: FlapTab>>assumeString:font:orientation:color: (in category 'textual tabs') ----- assumeString: aString font: aFont orientation: orientationSymbol color: aColor | aTextMorph workString tabStyle | labelString := aString asString. workString := orientationSymbol == #vertical ifTrue: [String streamContents: [:s | labelString do: [:c | s nextPut: c] separatedBy: [s nextPut: Character cr]]] ifFalse: [labelString]. + tabStyle := TextStyle new - tabStyle := (TextStyle new) - leading: 0; newFontArray: (Array with: aFont). aTextMorph := (TextMorph new setTextStyle: tabStyle) contents: (workString asText addAttribute: (TextKern kern: 3)). aTextMorph wrapFlag: true. self removeAllMorphs. self borderStyle: (BorderStyle raised width: 2). aColor ifNotNil: [self color: aColor]. self addMorph: aTextMorph centered. aTextMorph lock " FlapTab allSubInstancesDo: [:ft | ft reformatTextualTab] "!

1 0

The Trunk: ST80-mt.278.mcz
by commits＠source.squeak.org 21 Feb '22

21 Feb '22

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.278.mcz ==================== Summary ==================== Name: ST80-mt.278 Author: mt Time: 21 February 2022, 4:02:07.924099 pm UUID: f1296b11-db9c-3640-8b51-270b595554aa Ancestors: ST80-ct.277 Complements Graphics-mt.483 =============== Diff against ST80-ct.277 =============== Item was changed: ----- Method: CompositionScanner>>composeLine:fromCharacterIndex:inParagraph: (in category '*ST80-Support') ----- composeLine: lineIndex fromCharacterIndex: startIndex inParagraph: aParagraph "Answer an instance of TextLineInterval that represents the next line in the paragraph." + | runLength stopCondition lineSpacing | - | runLength stopCondition | destX := spaceX := leftMargin := aParagraph leftMarginForCompositionForLine: lineIndex. destY := 0. rightMargin := aParagraph rightMarginForComposition. leftMargin >= rightMargin ifTrue: [self error: 'No room between margins to compose']. lastIndex := startIndex. "scanning sets last index" + lineHeight := baseline := 0. "Will be increased by setFont" + lineGap := lineGapSlice := -9999. "Will be increased by setFont; allow negative to show all effects of a custom #extraGap value. See TTFontDescription." + topMargin := bottomMargin := 0. - lineHeight := baseline := lineGap := lineGapSlice := 0. "Will be increased by setFont" self setStopConditions. "also sets font" self handleIndentation. runLength := text runLengthFor: startIndex. runStopIndex := (lastIndex := startIndex) + (runLength - 1). line := TextLineInterval start: lastIndex stop: 0 internalSpaces: 0 paddingWidth: 0. nextIndexAfterLineBreak := spaceCount := 0. lastBreakIsNotASpace := false. [stopCondition := self scanCharactersFrom: lastIndex to: runStopIndex in: text string rightX: rightMargin. "See setStopConditions for stopping conditions for composing." self perform: stopCondition] whileFalse. + lineHeight := lineHeight + lineGap. + baseline := baseline + lineGapSlice. + + "TODO: Allow special characters or text attributes to accumulate extra top or bottom margin." + (lineSpacing := textStyle lineSpacing) = 0.0 + ifFalse: [bottomMargin := bottomMargin + (lineSpacing * lineHeight) truncated]. + + line lineHeight: lineHeight baseline: baseline. + line topMargin: topMargin bottomMargin: bottomMargin. + + ^ line! - ^line - lineHeight: lineHeight + lineGap - baseline: baseline + lineGapSlice! Item was changed: ----- Method: PluggableButtonView>>centerAlignLabelWith: (in category 'private') ----- centerAlignLabelWith: aPoint "Align the center of the label with aPoint." | alignPt | alignPt := label boundingBox center. (label isKindOf: Paragraph) ifTrue: + [alignPt := alignPt + (0@(label textStyle defaultFont lineGapSlice))]. - [alignPt := alignPt + (0@(label textStyle leading))]. (label isForm) ifTrue: [label offset: 0 @ 0]. label align: alignPt with: aPoint !

1 0

The Trunk: MultilingualTests-mt.40.mcz
by commits＠source.squeak.org 21 Feb '22

21 Feb '22

Marcel Taeumel uploaded a new version of MultilingualTests to project The Trunk: http://source.squeak.org/trunk/MultilingualTests-mt.40.mcz ==================== Summary ==================== Name: MultilingualTests-mt.40 Author: mt Time: 21 February 2022, 4:01:37.114099 pm UUID: d66e3af4-9e71-c344-a67a-6f3eb06189f4 Ancestors: MultilingualTests-mt.39 Complements Graphics-mt.483 =============== Diff against MultilingualTests-mt.39 =============== Item was changed: ----- Method: FontTest>>testMultistringFallbackFont (in category 'tests') ----- testMultistringFallbackFont "self debug: #testMultistringFallbackFont" | text p style height width | [(TextStyle default fontArray at: JapaneseEnvironment leadingChar) ifNil: [^ self]] ifError: [:err :rcvr | ^ self]. text := ((#(20983874 20983876 20983878 ) collect: [:e | e asCharacter]) as: String) asText. p := NewParagraph new. + style := TextStyle new newFontArray: {Preferences standardFlapFont}. - style := TextStyle new leading: 0; newFontArray: {Preferences standardFlapFont}. p compose: text style: style from: 1 in: (0 @ 0 corner: 100 @ 100). "See CompositionScanner>>setActualFont: & CompositionScanner>>composeFrom:inRectangle:firstLine:leftSide:rightSide:" + height := style defaultFont lineGrid. - height := style defaultFont height + style leading. width := p caretWidth + (text inject: 0 into: [:tally :next | tally + (style defaultFont widthOf: next)]). p adjustRightX. self assert: p extent = (width @ height). "Display getCanvas paragraph: p bounds: (10 @ 10 extent: 100 @ 100) color: Color black"! Item was changed: ----- Method: FontTest>>testMultistringFont (in category 'tests') ----- testMultistringFont "self debug: #testMultistringFont" | text p style height width | [(TextStyle default fontArray at: JapaneseEnvironment leadingChar) ifNil: [^ self]] ifError: [:err :rcvr | ^ self]. text := ((#(20983874 20983876 20983878 ) collect: [:e | e asCharacter]) as: String) asText. p := NewParagraph new. style := TextStyle default. p compose: text style: style from: 1 in: (0 @ 0 corner: 100 @ 100). "See CompositionScanner>>setActualFont: & CompositionScanner>>composeFrom:inRectangle:firstLine:leftSide:rightSide:" + height := style defaultFont lineGrid. - height := style defaultFont height + style leading. width := p caretWidth + (text inject: 0 into: [:tally :next | tally + (style defaultFont widthOf: next)]). p adjustRightX. self assert: p extent = (width @ height). "Display getCanvas paragraph: p bounds: (10 @ 10 extent: 100 @ 100) color: Color black"! Item was changed: ----- Method: FontTest>>testParagraph (in category 'tests') ----- testParagraph "self debug: #testParagraph" | text p style height width | text := 'test' asText. p := NewParagraph new. style := TextStyle default. p compose: text style: style from: 1 in: (0 @ 0 corner: 1000000 @ 1000000). "See CompositionScanner>>setActualFont: & CompositionScanner>>composeFrom:inRectangle:firstLine:leftSide:rightSide:" + height := style defaultFont lineGrid. - height := style defaultFont height + style leading. width := (text inject: 0 into: [:tally :next | tally + (style defaultFont widthOf: next)]) + p caretWidth. "because it is added by the paragraph formatting" p adjustRightX. self assert: p extent = (width @ height)! Item was changed: ----- Method: FontTest>>testParagraphFallback (in category 'tests') ----- testParagraphFallback "self debug: #testParagraphFallback" | text p style height width e expect | e := (Character value: 257) asString. text := ('test' , e , e , e , e , 'test') asText. expect := 'test????test'. p := NewParagraph new. style := TextStyle default. p compose: text style: style from: 1 in: (0 @ 0 corner: 1000000 @ 1000000). "See CompositionScanner>>setActualFont: & CompositionScanner>>composeFrom:inRectangle:firstLine:leftSide:rightSide:" + height := style defaultFont lineGrid. - height := style defaultFont height + style leading. width := (expect inject: 0 into: [:tally :next | tally + (style defaultFont widthOf: next)]) + p caretWidth. p adjustRightX. self assert: p extent = (width @ height). "Display getCanvas paragraph: p bounds: (10 @ 10 extent: 100 @ 100) color: Color black"!

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