Packages February 2022

packages@lists.squeakfoundation.org

1 participants
200 discussions

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

11 Feb '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.479.mcz ==================== Summary ==================== Name: Graphics-mt.479 Author: mt Time: 11 February 2022, 10:17:15.672479 am UUID: dac43fc9-8dd5-8242-adcb-2ff421c27e9b Ancestors: Graphics-mt.478 Fixes tabs in text fields. Adds a new preference #numSpacesPerTab and use a field's current text style's default font to compute the correct tab spacing. Note that Squeak's default has always been 6 spaces per tab, based on Text class >> #initTextConstants (4px for default space and 24px for default tab). So, we keep that default for now. =============== Diff against Graphics-mt.478 =============== Item was changed: ----- Method: StrikeFont>>newFromStrike: (in category 'file in/out') ----- newFromStrike: fileName "Build an instance from the strike font file name. The '.strike' extension is optional." | strike startName raster16 | name := fileName copyUpTo: $.. "assumes extension (if any) is '.strike'" strike := FileStream readOnlyFileNamed: name, '.strike.'. strike binary. "strip off direcory name if any" startName := name size. [startName > 0 and: [((name at: startName) ~= $>) & ((name at: startName) ~= $])]] whileTrue: [startName := startName - 1]. name := name copyFrom: startName+1 to: name size. type := strike nextWord. "type is ignored now -- simplest assumed. Kept here to make writing and consistency more straightforward." minAscii := strike nextWord. maxAscii := strike nextWord. maxWidth := strike nextWord. strikeLength := strike nextWord. ascent := strike nextWord. descent := strike nextWord. "xOffset :=" strike nextWord. raster16 := strike nextWord. superscript := ascent - descent // 3. subscript := descent - ascent // 3. emphasis := 0. glyphs := Form extent: (raster16 * 16) @ (self height) offset: 0@0. glyphs bits fromByteStream: strike. xTable := (Array new: maxAscii + 3) atAllPut: 0. (minAscii + 1 to: maxAscii + 3) do: [:index | xTable at: index put: strike nextWord]. "Set up space character" ((xTable at: (Space asciiValue + 2)) = 0 or: [(xTable at: (Space asciiValue + 2)) = (xTable at: (Space asciiValue + 1))]) ifTrue: [(Space asciiValue + 2) to: xTable size do: + [:index | xTable at: index put: ((xTable at: index) + 4 "DefaultSpace")]]. - [:index | xTable at: index put: ((xTable at: index) + DefaultSpace)]]. strike close. characterToGlyphMap := nil.! Item was changed: ----- Method: StrikeFont>>readFromStrike2Stream: (in category 'file in/out') ----- readFromStrike2Stream: file "Build an instance from the supplied binary stream on data in strike2 format" type := file nextInt32. type = 2 ifFalse: [file close. self error: 'not strike2 format']. minAscii := file nextInt32. maxAscii := file nextInt32. maxWidth := file nextInt32. ascent := file nextInt32. descent := file nextInt32. pointSize := file nextInt32. superscript := ascent - descent // 3. subscript := descent - ascent // 3. emphasis := file nextInt32. xTable := (Array new: maxAscii + 3) atAllPut: 0. (minAscii + 1 to: maxAscii + 3) do: [:index | xTable at: index put: file nextInt32]. glyphs := Form new readFrom: file. "Set up space character" ((xTable at: (Space asciiValue + 2)) = 0 or: [(xTable at: (Space asciiValue + 2)) = (xTable at: (Space asciiValue + 1))]) ifTrue: [(Space asciiValue + 2) to: xTable size do: + [:index | xTable at: index put: ((xTable at: index) + 4 "DefaultSpace")]]. - [:index | xTable at: index put: ((xTable at: index) + DefaultSpace)]]. characterToGlyphMap := nil.! Item was changed: Object subclass: #TextStyle instanceVariableNames: 'fontArray fontFamilySize lineGrid baseline alignment firstIndent restIndent rightIndent tabsArray marginTabsArray leading leadingSlice defaultFontIndex' + classVariableNames: 'NumSpacesPerTab' - classVariableNames: '' poolDictionaries: 'TextConstants' category: 'Graphics-Text'! !TextStyle commentStamp: '<historical>' prior: 0! A textStyle comprises the formatting information for composing and displaying a unit (usually a paragraph) of text. Typically one makes a copy of a master textStyle (such as TextStyle default), and then that copy may get altered in the process of editing. Bad things can happen if you do not copy first. Each of my instances consists of... fontArray An array of StrikeFonts fontFamilySize unused lineGrid An integer; default line spacing for paragraphs baseline An integer; default baseline (dist from line top to bottom of an 'a') alignment An integer; text alignment, see TextStyle alignment: firstIndent An integer; indent of first line in pixels restIndent An integer; indent of remaining lines in pixels rightIndent An integer; indent of right margin rel to section tabsArray An array of integers giving tab offsets in pixels marginTabsArray An array of margin tabs leading An integer giving default vertical line separation For a concrete example, look at TextStyle default copy inspect! Item was added: + ----- Method: TextStyle class>>numSpacesPerTab (in category 'preferences') ----- + numSpacesPerTab + <preference: 'Tab width (i.e., number of spaces)' + categoryList: #(tools visuals) + description: 'Amount of spaces to be used when calculating the width of a tab character for a specific font face and point size.' + type: #Number> + ^ NumSpacesPerTab ifNil: [6]! Item was added: + ----- Method: TextStyle class>>numSpacesPerTab: (in category 'preferences') ----- + numSpacesPerTab: anInteger + + anInteger = NumSpacesPerTab ifTrue: [^ self]. + NumSpacesPerTab := anInteger ifNotNil: [anInteger truncated max: 1]. + TextStyle allInstancesDo: [:ea | ea initializeTabsArray]. + + "Avoid dependency to Morphic project..." + (self environment classNamed: #TextMorph) + ifNotNil: [:tmClass | tmClass allSubInstancesDo: [:tm | + tm releaseParagraph; changed]].! Item was changed: ----- Method: TextStyle>>defaultFontIndex: (in category 'default font') ----- defaultFontIndex: anIndex defaultFontIndex := anIndex. leading := self defaultFont lineGap. leadingSlice := self defaultFont lineGapSlice. lineGrid := self defaultFont height + leading. + baseline := self defaultFont ascent + leadingSlice. + + self initializeTabsArray.! - baseline := self defaultFont ascent + leadingSlice.! Item was added: + ----- Method: TextStyle>>initializeTabsArray (in category 'initialize-release') ----- + initializeTabsArray + + | fontToUse numSpacesPerTab tabWidth maxWidth | + self flag: #discuss. "mt: Add cache per font and pointSize? Maybe it is not worth it..." + + numSpacesPerTab := self class numSpacesPerTab. + fontToUse := self defaultFont. + maxWidth := Display width max: 3840. + tabWidth := (fontToUse widthOf: Character space) * numSpacesPerTab. + + "Note that using Interval via #to:by: and #asArray would be about 4x slower." + tabsArray := Array new: maxWidth // tabWidth. + 1 to: tabsArray size do: [:i | tabsArray at: i put: tabWidth * i]. + + marginTabsArray := Array new: (maxWidth // tabWidth) // 2. + 1 to: marginTabsArray size do: [:i | | offset | + marginTabsArray at: i put: (Array with: (offset := tabWidth * i) with: offset)].! Item was changed: ----- Method: TextStyle>>newFontArray: (in category 'private') ----- newFontArray: anArray "Currently there is no supporting protocol for changing these arrays. If an editor wishes to implement margin setting, then a copy of the default should be stored with these instance variables. , Make size depend on first font." fontArray := anArray. self defaultFontIndex: 1. alignment := 0. firstIndent := 0. restIndent := 0. rightIndent := 0. - tabsArray := DefaultTabsArray. - marginTabsArray := DefaultMarginTabsArray " TextStyle allInstancesDo: [:ts | ts newFontArray: TextStyle default fontArray]. "! Item was changed: ----- Method: TextStyle>>tabWidth (in category 'tabs and margins') ----- tabWidth "Answer the width of a tab." + ^ tabsArray at: 1 ifAbsent: [24]! - ^DefaultTab! Item was changed: + (PackageInfo named: 'Graphics') postscript: '"Compute the correct tab widths per style using its current default font." + TextStyle allInstancesDo: [:ea | ea initializeTabsArray].'! - (PackageInfo named: 'Graphics') postscript: '"Unpack unnecessary StrikeFontSet in Accuny." - (TextStyle named: ''Accuny'') ifNotNil: [:style | - style fontArray withIndexDo: [:fontSet :index | - ((fontSet isKindOf: StrikeFontSet) and: [fontSet fontArray size = 1]) - ifTrue: [style fontArray at: index put: fontSet fontArray first]]]. - - "Fix font names for Atlanta." - (TextStyle named: ''Atlanta'') fontArray do: [:font | - font name last isDigit ifFalse: [font name: font name, font pointSize]]. - - "Fix PPI to be around 96 in all pre-rendered fonts." - (TextStyle knownTextStylesWithoutDefault - collect: [:ea | TextStyle named: ea] - thenSelect: [:style | style defaultFont isTTCFont not]) - do: [:style | style fontArray do: [:font | - font pointSize: ((72 * font height / 96) roundTo: 0.5). - font derivativeFonts do: [:derivate | - derivate pointSize: font pointSize]]].'!

1 0

The Trunk: Morphic-eem.1889.mcz
by commits＠source.squeak.org 10 Feb '22

10 Feb '22

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.1889.mcz ==================== Summary ==================== Name: Morphic-eem.1889 Author: eem Time: 10 February 2022, 8:16:41.060253 am UUID: 9df9b58d-cdd3-49b0-a38c-6cb9c60bab5f Ancestors: Morphic-mt.1888 Nuke assignment of nil to Undeclared variable =============== Diff against Morphic-mt.1888 =============== Item was changed: ----- Method: FontImporterTool>>currentSelection: (in category 'accessing') ----- currentSelection: anObject anObject = currentSelection ifTrue: [^ self]. currentSelection := anObject. - selectedFont := nil. self changed: #currentSelection. self changed: #previewText. self changed: #selectedFontTextStyle. self changed: #filename. self changed: #copyright.!

1 0

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

10 Feb '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1888.mcz ==================== Summary ==================== Name: Morphic-mt.1888 Author: mt Time: 10 February 2022, 4:51:06.860843 pm UUID: fa77d448-7885-a943-aada-a35604dd518a Ancestors: Morphic-mt.1887 Ha! We can just use a centered text style. No need to configure a piece of text with specific attributes. :-) =============== Diff against Morphic-mt.1887 =============== Item was changed: ----- Method: FontChooserTool>>buildPointSizeInputWith: (in category 'toolbuilder') ----- buildPointSizeInputWith: builder "Build the font choosers list of point sizes" | listSpec | listSpec := builder pluggableInputFieldSpec new. listSpec model: self; plainTextOnly: true; + getText: #pointSizeInput; - getText: #pointSizeInput; setText: #pointSizeInput:; + textStyle: TextStyle default copy centered; softLineWrap: true. ^listSpec ! Item was changed: ----- Method: FontChooserTool>>buildWith: (in category 'toolbuilder') ----- buildWith: builder "Create the ui for the browser" "ToolBuilder open: self" | windowSpec hDiv | hDiv := 0.55. self offerStyleList ifTrue:[ windowSpec := self buildWindowWith: builder specs: { (0@0 corner: 0.5@hDiv) -> [self buildFontListWith: builder]. (0.5@0 corner: 0.8@hDiv) -> [self buildStyleListWith: builder]. (LayoutFrame fractions: (0.8@0 corner: 1.0@hDiv) offsets: (0@0 corner: 0 @ self pointSizeInputHeight negated)) -> [self buildPointSizeListWith: builder]. (LayoutFrame fractions: (0.8@hDiv corner: 1.0@hDiv) offsets: (0@self pointSizeInputHeight negated corner: 0@0)) -> [self buildPointSizeInputWith: builder]. (LayoutFrame fractions: (0.0@hDiv corner: 1.0(a)1.0) offsets: (0@0 corner: 0 @ self buttonHeight negated)) -> [self buildPreviewPaneWith: builder]. (LayoutFrame fractions: (0@1 corner: 1@1) offsets: (0@ self buttonHeight negated corner: 0@0)) -> [self buildButtonBarWith: builder]. }. ] ifFalse:[ windowSpec := self buildWindowWith: builder specs: { (0@0 corner: 0.7@hDiv) -> [self buildFontListWith: builder]. (LayoutFrame fractions: (0.7@0 corner: 1.0@hDiv) offsets: (0@0 corner: 0 @ self pointSizeInputHeight negated)) -> [self buildPointSizeListWith: builder]. (LayoutFrame fractions: (0.7@hDiv corner: 1.0@hDiv) offsets: (0@self pointSizeInputHeight negated corner: 0@0)) -> [self buildPointSizeInputWith: builder]. (LayoutFrame fractions: (0.0@hDiv corner: 1.0(a)1.0) offsets: (0@0 corner: 0 @ self buttonHeight negated)) -> [self buildPreviewPaneWith: builder]. (LayoutFrame fractions: (0@1 corner: 1@1) offsets: (0@ self buttonHeight negated corner: 0@0)) -> [self buildButtonBarWith: builder]. }. ]. windowSpec extent: self initialExtent. window := builder build: windowSpec. "Now that the window has been built, notify selection again to scroll it into view." self changed: #selectedFontIndex. self changed: #selectedFontStyleIndex. self changed: #selectedPointSizeIndex. - self changed: #textStyle with: self selectedFontTextStyle. ^window! Item was changed: ----- Method: FontChooserTool>>pointSizeInput (in category 'point size') ----- pointSizeInput + ^ self pointSize asString! - ^ self pointSize asString asText - addAttribute: TextAlignment centered; - yourself!

1 0

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

10 Feb '22

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.276.mcz ==================== Summary ==================== Name: ST80-mt.276 Author: mt Time: 10 February 2022, 4:49:59.714843 pm UUID: 1ebb1c93-8301-c740-be8f-a156e24c12fe Ancestors: ST80-mt.275 Complements Graphics-mt.478 =============== Diff against ST80-mt.275 =============== 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 | 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 := lineGap := lineGapSlice := 0. "Will be increased by setFont" - lineHeight := textStyle lineGrid. "may be increased by setFont:..." - baseline := textStyle baseline. 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. ^line + lineHeight: lineHeight + lineGap + baseline: baseline + lineGapSlice! - lineHeight: lineHeight + textStyle leading - baseline: baseline + textStyle leadingSlice!

1 0

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

10 Feb '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.478.mcz ==================== Summary ==================== Name: Graphics-mt.478 Author: mt Time: 10 February 2022, 4:49:27.975843 pm UUID: 32a81c5c-3292-d14e-ab72-3f144adc8bad Ancestors: Graphics-mt.477 Fixes lineGap for text paragraphs with mixed fonts (or point sizes). =============== Diff against Graphics-mt.477 =============== Item was changed: CharacterScanner subclass: #CompositionScanner + instanceVariableNames: 'spaceX spaceIndex lineHeight baseline lineGap lineGapSlice lineHeightAtSpace baselineAtSpace lastBreakIsNotASpace nextIndexAfterLineBreak' - instanceVariableNames: 'spaceX spaceIndex lineHeight baseline lineHeightAtSpace baselineAtSpace lastBreakIsNotASpace nextIndexAfterLineBreak' classVariableNames: '' poolDictionaries: '' category: 'Graphics-Text'! !CompositionScanner commentStamp: 'nice 10/6/2013 23:24' prior: 0! A CompositionScanner measures text and determines where line breaks. Given a rectangular zone on input, it is used to split text in horizontal lines, and produce information about those lines on output (at which index a line starts/stops, which vertical space does the line require, which horizontal space if left for adjusting inter-word spacing, etc...) Instance Variables baseline: <Number> baselineAtSpace: <Number> lastBreakIsNotASpace: <Boolean> lineHeight: <Number> lineHeightAtSpace: <Number> nextIndexAfterLineBreak: <Integer> spaceIndex: <Integer> spaceX: <Number> baseline - the distance between top of line and the base line (that is the bottom of latin characters abcdehiklmnorstuvwx in most fonts) baselineAtSpace - memorize the baseline at last encountered space or other breakable character. This is necessary because the CompositionScanner wants to break line at a breakable character. If a word layout overflows the right margin, the scanner has to roll back and restore the line state to last encountered breakable character. lastBreakIsNotASpace - indicates that the last breakable character was not a space. This is necessary because handling a line break at a space differs from non space. If line break occurs on space, the space won't be displayed in next line. If it's another breakable character, it has to be displayed on next line. lineHeight - the total line height from top to bottom, including inter-line spacing. lineHeightAtSpace - the line height at last encountered space or other breakable character. See baselineAtSpace for explanation. nextIndexAfterLineBreak - the index of character after the last line break that was encountered. spaceIndex - the index of last space or other breakable character that was encountered spaceX - the distance from left of composition zone to left of last encountered space or other breakable character See baselineAtSpace for explanation. Note: if a line breaks on a space, a linefeed or a carriage return, then the space, linefeed or carriage return is integrated in the line. If there is a carriage return - linefeed pair, the pair is integrated to the line as if it were a single line break for compatibility with legacy software.! Item was changed: ----- Method: CompositionScanner>>composeFrom:inRectangle:firstLine:leftSide:rightSide: (in category 'scanning') ----- composeFrom: startIndex inRectangle: lineRectangle firstLine: firstLine leftSide: leftSide rightSide: rightSide "Answer an instance of TextLineInterval that represents the next line in the paragraph." | runLength stopCondition | "Set up margins" leftMargin := lineRectangle left. leftSide ifTrue: [leftMargin := leftMargin + (firstLine ifTrue: [textStyle firstIndent] ifFalse: [textStyle restIndent])]. destX := spaceX := leftMargin. rightMargin := lineRectangle right. rightSide ifTrue: [rightMargin := rightMargin - textStyle rightIndent]. lastIndex := startIndex. "scanning sets last index" destY := lineRectangle top. + lineHeight := baseline := lineGap := lineGapSlice := 0. "Will be increased by setFont" - lineHeight := baseline := 0. "Will be increased by setFont" line := (TextLine start: lastIndex stop: 0 internalSpaces: 0 paddingWidth: 0) rectangle: lineRectangle. self setStopConditions. "also sets font" runLength := text runLengthFor: startIndex. runStopIndex := (lastIndex := startIndex) + (runLength - 1). nextIndexAfterLineBreak := spaceCount := 0. lastBreakIsNotASpace := false. self handleIndentation. leftMargin := destX. line leftMargin: leftMargin. [stopCondition := self scanCharactersFrom: lastIndex to: runStopIndex in: text string rightX: rightMargin. "See setStopConditions for stopping conditions for composing." self perform: stopCondition] whileFalse. ^ line + lineHeight: lineHeight + lineGap + baseline: baseline + lineGapSlice! - lineHeight: lineHeight + textStyle leading - baseline: baseline + textStyle leadingSlice! Item was changed: ----- Method: CompositionScanner>>computeDefaultLineHeight (in category 'scanning') ----- computeDefaultLineHeight "Compute the default line height for a potentially empty text" rightMargin notNil ifTrue: [lastIndex := 1. self setFont. + ^ lineHeight + lineGap] - ^ lineHeight + textStyle leading] ifFalse: [^textStyle lineGrid]! Item was changed: ----- Method: CompositionScanner>>setActualFont: (in category 'text attributes') ----- setActualFont: aFont "Keep track of max height and ascent for auto lineheight" | descent | super setActualFont: aFont. lineHeight == nil ifTrue: [descent := font descent. baseline := font ascent. + lineHeight := baseline + descent. + lineGap := aFont lineGap. + lineGapSlice := aFont lineGapSlice] - lineHeight := baseline + descent] ifFalse: [descent := lineHeight - baseline max: font descent. baseline := baseline max: font ascent. + lineHeight := lineHeight max: baseline + descent. + lineGap := lineGap max: aFont lineGap. + lineGapSlice := lineGapSlice max: aFont lineGapSlice]! - lineHeight := lineHeight max: baseline + descent]!

1 0

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

10 Feb '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1887.mcz ==================== Summary ==================== Name: Morphic-mt.1887 Author: mt Time: 10 February 2022, 2:58:42.857689 pm UUID: 544258e2-bbbd-4b4d-b7bd-9b6fc592d382 Ancestors: Morphic-mt.1886 Revise recent layout tweaks in FontImporterTool. Use #helpFieldHeight abstraction and #standardBalloonHelpFont to show a font's copyright because that's kind of a helpful information about the font. (... was regular text field + button font ...) =============== Diff against Morphic-mt.1886 =============== Item was changed: ----- Method: FontImporterTool>>buildPreviewPaneWith: (in category 'toolbuilder') ----- buildPreviewPaneWith: builder "Build the preview panel" ^ builder pluggablePanelSpec new " wantsResizeHandles: true;" children: { builder pluggableTextSpec new model: self; getText: #filename; readOnly: true; indicateUnacceptedChanges: false; font: self filenameFont; frame: (LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@ self filenameHeight)); yourself. builder pluggableTextSpec new model: self; getText: #previewText; textStyle: #selectedFontTextStyle; askBeforeDiscardingEdits: false; indicateUnacceptedChanges: false; softLineWrap: false; frame: (LayoutFrame fractions: (0@0 corner: 1@1) offsets: (0@ self filenameHeight corner: 0@ (self copyrightHeight negated))); yourself. builder pluggableTextSpec new model: self; getText: #copyright; + font: Preferences standardBalloonHelpFont; - font: Preferences standardButtonFont; readOnly: true; indicateUnacceptedChanges: false; frame: (LayoutFrame fractions: (0@1 corner: 1@1) offsets: (0 @ (self copyrightHeight negated) corner: 0 @ 0)); yourself }; yourself! Item was changed: ----- Method: FontImporterTool>>copyrightHeight (in category 'layout') ----- copyrightHeight + ^ ToolBuilder default helpFieldHeightFor: 3! - ^ ToolBuilder default inputFieldHeightFor: 2 "lines of normal text"!

1 0

The Trunk: ToolBuilder-Morphic-mt.302.mcz
by commits＠source.squeak.org 10 Feb '22

10 Feb '22

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.302.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.302 Author: mt Time: 10 February 2022, 2:56:58.523689 pm UUID: 0e7eb88c-985d-5349-bdcb-a6d1ef493b2a Ancestors: ToolBuilder-Morphic-mt.301 Speed up access to layout constants #buttonRowHeight, #inputFieldHeight, and #textFieldHeight. Depends on Morphic-mt.1886. =============== Diff against ToolBuilder-Morphic-mt.301 =============== Item was changed: ToolBuilder subclass: #MorphicToolBuilder instanceVariableNames: 'widgets panes parentMenu' + classVariableNames: 'ButtonBorderWidth ListBorderWidth TextBorderWidth' - classVariableNames: '' poolDictionaries: '' category: 'ToolBuilder-Morphic'! !MorphicToolBuilder commentStamp: 'ar 2/11/2005 15:02' prior: 0! The Morphic tool builder.! Item was added: + ----- Method: MorphicToolBuilder class>>themeProperties (in category 'preferences') ----- + themeProperties + "Let theme switches clear my cache. See #applyUserInterfaceTheme." + + ^ { + { #textBorderWidth. 'tool construction'. ''}. + { #listBorderWidth. 'tool construction'. ''}. + { #buttonBorderWidth. 'tool construction'. ''}. + }! Item was added: + ----- Method: MorphicToolBuilder>>applyUserInterfaceTheme (in category 'updating') ----- + applyUserInterfaceTheme + + TextBorderWidth := nil. + ListBorderWidth := nil. + ButtonBorderWidth := nil.! Item was changed: ----- Method: MorphicToolBuilder>>buttonRowHeight (in category 'layout hints') ----- buttonRowHeight | defaultMargins | + defaultMargins := PluggableButtonMorph labelMargins. - defaultMargins := PluggableButtonMorph new layoutInset. defaultMargins := defaultMargins ifNil: [0] ifNotNil: [:margins | margins isRectangle ifTrue: [margins top + margins bottom] ifFalse: [margins isPoint ifTrue: [margins y + margins y] ifFalse: [margins + margins]]]. + ButtonBorderWidth ifNil: [ButtonBorderWidth := (((UserInterfaceTheme current get: #borderWidth for: PluggableTextMorph) ifNil: [1]) * RealEstateAgent scaleFactor) truncated * 2]. + ^ (Preferences standardButtonFont lineGrid asFloat * 1.6) truncated "already includes the system's current #scaleFactor" + defaultMargins "already includes the system's current #scaleFactor" + + ButtonBorderWidth! - + ((((UserInterfaceTheme current get: #borderWidth for: #PluggableButtonMorph) ifNil: [1]) * RealEstateAgent scaleFactor) truncated * 2)! Item was added: + ----- Method: MorphicToolBuilder>>helpFieldHeightFor: (in category 'layout hints') ----- + helpFieldHeightFor: numLines + + ^ self textFieldHeightFor: numLines font: Preferences standardBalloonHelpFont! Item was changed: ----- Method: MorphicToolBuilder>>inputFieldHeightFor: (in category 'layout hints') ----- inputFieldHeightFor: numLines + ^ self textFieldHeightFor: numLines font: TextStyle defaultFont! - | defaultMargins | - defaultMargins := TextMorph new margins. - defaultMargins := defaultMargins ifNil: [0] ifNotNil: [:margins | - margins isRectangle - ifTrue: [margins top + margins bottom] - ifFalse: [margins isPoint - ifTrue: [margins y + margins y] - ifFalse: [margins + margins]]]. - - ^ (TextStyle defaultFont lineGrid * numLines) "already includes the system's current #scaleFactor" - + defaultMargins "already includes the system's current #scaleFactor" - + ((((UserInterfaceTheme current get: #borderWidth for: #PluggableTextMorph) ifNil: [1]) * RealEstateAgent scaleFactor) truncated * 2)! Item was changed: ----- Method: MorphicToolBuilder>>listHeightFor: (in category 'layout hints') ----- listHeightFor: numLines | defaultMargins | + defaultMargins := PluggableListMorph listMargins. - defaultMargins := LazyListMorph new layoutInset. defaultMargins := defaultMargins ifNil: [0] ifNotNil: [:margins | margins isRectangle ifTrue: [margins top + margins bottom] ifFalse: [margins isPoint ifTrue: [margins y + margins y] ifFalse: [margins + margins]]]. + ListBorderWidth ifNil: [ListBorderWidth := (((UserInterfaceTheme current get: #borderWidth for: PluggableTextMorph) ifNil: [1]) * RealEstateAgent scaleFactor) truncated * 2]. + ^ (Preferences standardListFont lineGridForMorphs * numLines) "already includes the system's current #scaleFactor" + defaultMargins "already includes the system's current #scaleFactor" + + ListBorderWidth! - + ((((UserInterfaceTheme current get: #borderWidth for: #PluggableListMorph) ifNil: [1]) * RealEstateAgent scaleFactor) truncated * 2)! Item was added: + ----- Method: MorphicToolBuilder>>textFieldHeightFor:font: (in category 'layout hints') ----- + textFieldHeightFor: numLines font: font + + | defaultMargins | + defaultMargins := PluggableTextMorph textMargins. + defaultMargins := defaultMargins ifNil: [0] ifNotNil: [:margins | + margins isRectangle + ifTrue: [margins top + margins bottom] + ifFalse: [margins isPoint + ifTrue: [margins y + margins y] + ifFalse: [margins + margins]]]. + + TextBorderWidth ifNil: [TextBorderWidth := (((UserInterfaceTheme current get: #borderWidth for: PluggableTextMorph) ifNil: [1]) * RealEstateAgent scaleFactor) truncated * 2]. + + ^ (font lineGrid * numLines) "already includes the system's current #scaleFactor" + + defaultMargins "already includes the system's current #scaleFactor" + + TextBorderWidth!

1 0

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

10 Feb '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1886.mcz ==================== Summary ==================== Name: Morphic-mt.1886 Author: mt Time: 10 February 2022, 2:54:49.439689 pm UUID: ad58f319-2312-604e-b912-bfbdf876c0a3 Ancestors: Morphic-mt.1885 Fixes issues around font/style/color configuration in dialog messages. Extracts layout defaults for buttons, lists, and text fields to class-side method. Complements PreferenceBrowser-mt.133. =============== Diff against Morphic-mt.1885 =============== Item was changed: ----- Method: DialogWindow>>setMessageParameters (in category 'initialization') ----- setMessageParameters | fontToUse colorToUse | messageMorph ifNil: [^ self]. fontToUse := self userInterfaceTheme font ifNil: [TextStyle defaultFont]. colorToUse := self userInterfaceTheme textColor ifNil: [Color black]. messageMorph hResizing: #shrinkWrap; vResizing: #shrinkWrap; + textColor: colorToUse; + textStyle: fontToUse asNewTextStyle. "Use style with other point sizes available"! - textColor: colorToUse. - - messageMorph contents - addAttribute: (TextFontReference toFont: fontToUse) - unless: [:attrs | attrs anySatisfy: [:each | - "Do not overwrite existing font attributes." - each class == TextFontChange or: [each class == TextFontReference]]]. - messageMorph contents - addAttribute: (TextColor color: colorToUse) - unless: [:attrs | attrs anySatisfy: [:each | - "Do not overwrite existing color attributes" - each class == TextColor or: [each mayActOnClick "usually colored, too"]]].! Item was changed: ----- Method: LazyListMorph>>initialize (in category 'initialization') ----- initialize super initialize. self color: Color black. - self cellInset: 3@0. font := Preferences standardListFont. listItems := nil. listIcons := nil. listFilterOffsets := nil. selectedRow := nil. selectedRows := PluggableSet integerSet. preSelectedRow := nil.! Item was added: + ----- Method: PluggableButtonMorph class>>labelMargins (in category 'defaults') ----- + labelMargins + + | inset | + inset := (4 * RealEstateAgent scaleFactor) truncated. + ^ inset @ 0 corner: inset @ 0! Item was changed: ----- Method: PluggableButtonMorph>>defaultLayoutInset (in category 'layout') ----- defaultLayoutInset + ^ self class labelMargins! - | inset | - inset := (4 * RealEstateAgent scaleFactor) truncated. - ^ inset @ 0 corner: inset @ 0! Item was added: + ----- Method: PluggableListMorph class>>listMargins (in category 'defaults') ----- + listMargins + + ^(3 * RealEstateAgent scaleFactor) truncated @0 corner: 0@0! Item was changed: ----- Method: PluggableListMorph>>createListMorph (in category 'initialization') ----- createListMorph ^ self listMorphClass new listSource: self; + cellInset: self class listMargins; hResizing: #spaceFill; vResizing: #shrinkWrap; cellPositioning: #leftCenter; setProperty: #indicateKeyboardFocus toValue: #never; yourself.! Item was added: + ----- Method: PluggableTextMorph class>>textMargins (in category 'defaults') ----- + textMargins + + ^ (3 * RealEstateAgent scaleFactor) truncated @0 corner: 0@0! Item was changed: ----- Method: PluggableTextMorph>>initializeTextMorph (in category 'initialization') ----- initializeTextMorph textMorph := self textMorphClass new + margins: self class textMargins; - margins: (3@0 corner: 0@0); setEditView: self; hResizing: #shrinkWrap; vResizing: #shrinkWrap; setProperty: #indicateKeyboardFocus toValue: #never; yourself. LegacyShortcutsFilter legacyShortcutsEnabled ifTrue: [textMorph addKeyboardCaptureFilter: LegacyShortcutsFilter].! Item was changed: ----- Method: TheWorldMainDockingBar>>themesAndWindowColorsOn: (in category 'submenu - extras') ----- themesAndWindowColorsOn: menu | themes | menu addItem:[:item| item contents: 'Fonts' translated; subMenuUpdater: Preferences selector: #fontConfigurationMenu:; icon: MenuIcons smallFontsIcon]. menu addLine. menu addItem:[:item| item contents: (Model useColorfulWindows ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Colorful Windows' translated; target: self; selector: #toggleColorfulWindows]. menu addItem:[:item| item contents: (SystemWindow gradientWindow not ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Flat Widget Look' translated; target: self; selector: #toggleGradients]. menu addLine. menu addItem:[:item | item contents: (((Preferences valueOfFlag: #menuAppearance3d ifAbsent: [false]) and: [Morph useSoftDropShadow]) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Soft Shadows' translated; target: self; selector: #toggleSoftShadows]. menu addItem:[:item | item contents: (((Preferences valueOfFlag: #menuAppearance3d ifAbsent: [false]) and: [Morph useSoftDropShadow not]) ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Hard Shadows' translated; target: self; selector: #toggleHardShadows]. menu addLine. menu addItem:[:item | item + contents: (SystemWindow roundedWindowCorners ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Rounded Window/Dialog Look' translated; - contents: (SystemWindow roundedWindowCorners ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Rounded Window/Dialog/Menu Look' translated; target: self; selector: #toggleRoundedWindowLook]. menu addItem:[:item | item + contents: (PluggableButtonMorph roundedButtonCorners ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Rounded Button/Scrollbar/Menu Look' translated; - contents: (PluggableButtonMorph roundedButtonCorners ifTrue: ['<yes>'] ifFalse: ['<no>']), 'Rounded Button/Scrollbar Look' translated; target: self; selector: #toggleRoundedButtonLook]. menu addLine. themes := UserInterfaceTheme allThemes asArray sort: #name ascending. themes := themes select: [ :each | each isGenuine]. themes ifEmpty: [ menu addItem: [ :item | item contents: '(No UI themes found.)' translated; isEnabled: false ] ]. themes do: [ :each | menu addItem: [ :item | item contents: (UserInterfaceTheme current name = each name ifTrue: ['<yes>'] ifFalse: ['<no>']), each name; target: each; selector: #applyScaled ] ]. menu addLine; add: 'Set Etoys Mode' translated target: ReleaseBuilderSqueakland selector: #setEtoysMode. menu addLine; add: 'Restore UI theme background' translated target: self selector: #restoreThemeBackground; add: 'Reset all UI themes' translated target: self selector: #resetAllThemes; add: 'Edit current UI theme...' translated target: self selector: #editCurrentTheme.! Item was changed: ----- Method: TheWorldMainDockingBar>>toggleRoundedButtonLook (in category 'submenu - extras') ----- toggleRoundedButtonLook | switch | switch := PluggableButtonMorph roundedButtonCorners not. PluggableButtonMorph roundedButtonCorners: switch. + ScrollBar roundedScrollBarLook: switch. + MenuMorph roundedMenuCorners: switch.! - ScrollBar roundedScrollBarLook: switch.! Item was changed: ----- Method: TheWorldMainDockingBar>>toggleRoundedWindowLook (in category 'submenu - extras') ----- toggleRoundedWindowLook | switch | switch := SystemWindow roundedWindowCorners not. SystemWindow roundedWindowCorners: switch. + DialogWindow roundedDialogCorners: switch.! - DialogWindow roundedDialogCorners: switch. - MenuMorph roundedMenuCorners: switch.!

1 0

The Trunk: ToolBuilder-Kernel-mt.155.mcz
by commits＠source.squeak.org 10 Feb '22

10 Feb '22

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.155.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.155 Author: mt Time: 10 February 2022, 2:51:44.426689 pm UUID: b05848f8-55d7-ac4c-bbad-84d8b93ff760 Ancestors: ToolBuilder-Kernel-mt.154 Adds #helpFieldHeight as layout hint for tool construction. Use it to integrate informational panels into your tool layout. For example, the FontImporterTool shows the font's copyright information in such a text field. =============== Diff against ToolBuilder-Kernel-mt.154 =============== Item was added: + ----- Method: ToolBuilder>>helpFieldHeight (in category 'layout hints') ----- + helpFieldHeight + + ^ self helpFieldHeightFor: 1! Item was added: + ----- Method: ToolBuilder>>helpFieldHeightFor: (in category 'layout hints') ----- + helpFieldHeightFor: numLines + "Answers the height in pixels a help field typically needs to be drawn without clipping using a ProportionalLayout and LayoutFrame." + + ^ (Preferences standardBalloonHelpFont lineGrid * 3/2) truncated * numLines!

1 0

The Trunk: System-mt.1307.mcz
by commits＠source.squeak.org 10 Feb '22

10 Feb '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1307.mcz ==================== Summary ==================== Name: System-mt.1307 Author: mt Time: 10 February 2022, 2:49:48.554689 pm UUID: 03eb1730-02e1-5442-bf99-6d88d0dc7814 Ancestors: System-dtl.1306 Tweaks some very intensive tool colors in "Solarized (light)" theme. Debuggers and Transcripts look more friendly now. =============== Diff against System-dtl.1306 =============== Item was changed: ----- Method: SolarizedTheme class>>addLightWindowColors: (in category 'instance creation') ----- addLightWindowColors: theme "You have to create dark first. doIt: [self createDark. self createLight apply.]" theme set: #uniformWindowColor for: #Model to: (self lightBackgroundHighlights adjustBrightness: -0.16 "darker twice"); set: #unfocusedWindowColorModifier for: #SystemWindow to: [ [:color | color adjustBrightness: 0.16 "lighter twice"] ]; set: #unfocusedLabelColor for: #SystemWindow to: self lightContentEmphasized; set: #focusedLabelColor for: #SystemWindow to: self lightContentEmphasizedMore; set: #customWindowColor for: #Browser to: self green; set: #customWindowColor for: #ChangeList to: self blue; set: #customWindowColor for: #ChangeSorter to: self blue; set: #customWindowColor for: #ChatNotes to: self magenta; set: #customWindowColor for: #ClassCommentVersionsBrowser to: self violet; + set: #customWindowColor for: #Debugger to: (self red adjustSaturation: -0.27 brightness: 0.27); - set: #customWindowColor for: #Debugger to: self red; set: #customWindowColor for: #DualChangeSorter to: self blue; set: #customWindowColor for: #FileContentsBrowser to: self yellow; set: #customWindowColor for: #FileList to: self yellow; set: #customWindowColor for: #InstanceBrowser to: self cyan; set: #customWindowColor for: #Lexicon to: self cyan; set: #customWindowColor for: #MCTool to: self violet; set: #customWindowColor for: #MessageNames to: self green; set: #customWindowColor for: #MessageSet to: self cyan; set: #customWindowColor for: #PackagePaneBrowser to: self green; set: #customWindowColor for: #PluggableFileList to: self yellow; set: #customWindowColor for: #PreferenceBrowser to: self cyan; + set: #customWindowColor for: #SMLoader to: (self orange adjustSaturation: -0.18 brightness: 0.18); + set: #customWindowColor for: #SMLoaderPlus to: (self orange adjustSaturation: -0.18 brightness: 0.18); + set: #customWindowColor for: #SMReleaseBrowser to: (self orange adjustSaturation: -0.18 brightness: 0.18); - set: #customWindowColor for: #SMLoader to: self orange; - set: #customWindowColor for: #SMLoaderPlus to: self orange; - set: #customWindowColor for: #SMReleaseBrowser to: self orange; set: #customWindowColor for: #ScriptingDomain to: self yellow; set: #customWindowColor for: #SelectorBrowser to: self cyan; set: #customWindowColor for: #StringHolder to: self yellow; + set: #customWindowColor for: #TestRunner to: (self orange adjustSaturation: -0.18 brightness: 0.18); + set: #customWindowColor for: #TranscriptStream to: (self orange adjustSaturation: -0.18 brightness: 0.18); - set: #customWindowColor for: #TestRunner to: self orange; - set: #customWindowColor for: #TranscriptStream to: self orange; set: #customWindowColor for: #VersionsBrowser to: self violet.!

1 0

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

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