Packages December 2021

packages@lists.squeakfoundation.org

1 participants
270 discussions

The Trunk: Graphics-mt.455.mcz
by commits＠source.squeak.org 30 Dec '21

30 Dec '21

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.455.mcz ==================== Summary ==================== Name: Graphics-mt.455 Author: mt Time: 30 December 2021, 4:22:26.004748 pm UUID: 126ab0af-db2f-614d-b33e-a1f2fdcc79f3 Ancestors: Graphics-mt.454 Turns Squeak's Demo/High-DPI mode into a flexible scale factor. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217747… All existing StrikeFonts are updated to have a pointSize that matches about 96.0 pixels-per-inch. =============== Diff against Graphics-mt.454 =============== Item was changed: Form subclass: #DisplayScreen instanceVariableNames: 'clippingBox extraRegions' + classVariableNames: 'DeferringUpdates DisplayChangeSignature DisplayIsFullScreen PlatformScaleFactor RelativeScaleFactorEnabled' - classVariableNames: 'DeferringUpdates DisplayChangeSignature DisplayIsFullScreen' poolDictionaries: '' category: 'Graphics-Display Objects'! !DisplayScreen commentStamp: '<historical>' prior: 0! There is only one instance of me, Display. It is a global and is used to handle general user requests to deal with the whole display screen. Although I offer no protocol, my name provides a way to distinguish this special instance from all other Forms. This is useful, for example, in dealing with saving and restoring the system. To change the depth of your Display... Display newDepth: 16. Display newDepth: 8. Display newDepth: 1. Valid display depths are 1, 2, 4, 8, 16 and 32. It is suggested that you run with your monitors setting the same, for better speed and color fidelity. Note that this can add up to 4Mb for the Display form. Finally, note that newDepth: ends by executing a 'ControlManager restore' which currently terminates the active process, so nothing that follows in the doit will get executed. Depths 1, 2, 4 and 8 bits go through a color map to put color on the screen, but 16 and 32-bit color use the pixel values directly for RGB color (5 and 8 bits per, respectivlely). The color choice an be observed by executing Color fromUser in whatever depth you are using. ! Item was added: + ----- Method: DisplayScreen class>>actualScreenScaleFactor (in category 'snapshots') ----- + actualScreenScaleFactor + "<primitive: #primitiveScreenScaleFactor>" + "Once the primitive is ready, you can simply uncomment it. The system is prepared for changes from 'nil' to actual factors and back." + + ^ nil "unknown -- do not default to 1.0 here"! Item was added: + ----- Method: DisplayScreen class>>checkForNewScreenScaleFactor (in category 'display box access') ----- + checkForNewScreenScaleFactor + "Check whether the platform's scale factor has changed and if so take appropriate actions" + + Display platformScaleFactor: DisplayScreen actualScreenScaleFactor.! Item was added: + ----- Method: DisplayScreen class>>relativeScaleFactor (in category 'preferences') ----- + relativeScaleFactor + <preference: 'Scale Factor' + categoryList: #(Morphic Tools visuals) + description: 'Set the size of fonts and tools according to the pixels-per-inch of your display. Can be used to zoom in even further.' + type: #String> + + ^ Display relativeUiScaleFactor! Item was added: + ----- Method: DisplayScreen class>>relativeScaleFactor: (in category 'preferences') ----- + relativeScaleFactor: aFloatString + + Display relativeUiScaleFactor: (aFloatString ifNotNil: [:s | s asNumber] ifNil: [1.0]).! Item was added: + ----- Method: DisplayScreen class>>relativeScaleFactorEnabled (in category 'preferences') ----- + relativeScaleFactorEnabled + <preference: 'Show Relative Scale Factor' + categoryList: #(Morphic Tools visuals) + description: 'When true, 100% means as-the-platform/monitor-demands, which is typical for macOS. When false, 100% means pixel-perfect, which is typical for Windows. Only works if #platformScaleFactorKnown.' + type: #Boolean> + + "Note that we set the default to 'false' because pixels are very prominent in the Morphic programming model. So it makes sense to communcate this kind of pixel scaling openly and thus not hide the #platformScaleFactor from the user." + ^ RelativeScaleFactorEnabled ifNil: [false].! Item was added: + ----- Method: DisplayScreen class>>relativeScaleFactorEnabled: (in category 'preferences') ----- + relativeScaleFactorEnabled: aBoolean + + RelativeScaleFactorEnabled := Display platformScaleFactorKnown and: [aBoolean ifNil: [false]].! Item was added: + ----- Method: DisplayScreen>>currentScaleError (in category 'scale factor') ----- + currentScaleError + "Documentation and debugging only. The scale error originates in rounding errors while rendering the standard TTCFont font into pixels or using a pre-rendered StrikeFont in the first place. + + Display currentScaleError + " + + ^ RealEstateAgent scaleFactor - self uiScaleFactor + + " + | errors current | + errors := OrderedDictionary new. + current := Display uiScaleFactor. + 1.0 to: 3.0 by: 0.25 do: [:s | + Display uiScaleFactor: s. + errors at: s put: Display currentScaleError]. + Display uiScaleFactor: current. + errors explore. + "! Item was added: + ----- Method: DisplayScreen>>platformScaleFactor (in category 'scale factor') ----- + platformScaleFactor + "Answers the platform's (and thus monitor's) current scale factor as last reported via VM primitive. See #checkForNewScreenScaleFactor." + + ^ PlatformScaleFactor ifNil: [1.0 "Primitive not ready."]! Item was added: + ----- Method: DisplayScreen>>platformScaleFactor: (in category 'scale factor') ----- + platformScaleFactor: aFloatOrNil + "Report a new scale factor from the platform to the image. This can happen if you move Squeak's window between monitors with different pixels-per-inch. On some platforms, you can also set a scale factor independent of monitor PPI. Note that the user might have scaled the image regardless of the previous platform scale factor." + + | old new | + aFloatOrNil ifNil: [ + "Ignore. Primitive not ready (anymore)." + PlatformScaleFactor := nil. + ^ self]. + PlatformScaleFactor ifNil: [ + "First time. Ignore. Assume that the user scaled manually until now." + PlatformScaleFactor := aFloatOrNil. + ^ self]. + + (old := self platformScaleFactor) = (new := aFloatOrNil) ifTrue: [^ self]. + PlatformScaleFactor := new. + self uiScaleFactor: self uiScaleFactor * (new/old).! Item was added: + ----- Method: DisplayScreen>>platformScaleFactorKnown (in category 'scale factor') ----- + platformScaleFactorKnown + "Tools can help users understand whether Squeak will adjust the scale factor automatically or whether they have to scale manually. See class-side's #actualScreenScaleFactor and also #relativeUiScaleFactor." + + ^ PlatformScaleFactor notNil! Item was added: + ----- Method: DisplayScreen>>relativeUiScaleFactor (in category 'scale factor') ----- + relativeUiScaleFactor + "Answers the scale factor as perceived by the user. Note that this concept might be platform-dependent. On Windows, for example, 100% means pixel-perfect while on macOS 100% means as-the-monitor-demands. So, Retina displays are effectively scaled even if the user sees 100% in a Choose-Your-Scale dialog." + + ^ self class relativeScaleFactorEnabled + ifTrue: [ "macOS" self uiScaleFactor / self platformScaleFactor ] + ifFalse: [ "Windows" self uiScaleFactor ]! Item was added: + ----- Method: DisplayScreen>>relativeUiScaleFactor: (in category 'scale factor') ----- + relativeUiScaleFactor: aFloat + + ^ self class relativeScaleFactorEnabled + ifTrue: [ "macOS" self uiScaleFactor: aFloat * self platformScaleFactor ] + ifFalse: [ "Windows" self uiScaleFactor: aFloat ]! Item was added: + ----- Method: DisplayScreen>>uiScaleFactor (in category 'scale factor') ----- + uiScaleFactor + "Answers the current scale factor used to configure all widgets, tools, or windows to be prepared for the current rendering system, i.e., BitBlt. Note that 1.0 means 'pixel perfect'." + + ^ UserInterfaceTheme current isTTCBased + ifTrue: [TextStyle pixelsPerInch / 96.0 "Hide rounding errors in TTCFont >> #height."] + ifFalse: [RealEstateAgent scaleFactor roundTo: 0.25 "Force 25% steps. See, e.g., #doScale150."].! Item was added: + ----- Method: DisplayScreen>>uiScaleFactor: (in category 'scale factor') ----- + uiScaleFactor: aFloat + "Sets the effective scale factor for the user interface, i.e., all widgets, tools, and windows. The user can override the CurrentScaleFactor recommended by the platform." + + | oldFactor newFactor | + (UserInterfaceTheme current canFakeScaleFactor: aFloat) ifTrue: [ + self flag: #isTTCBased. + ^ UserInterfaceTheme current applyScaled: aFloat]. + + oldFactor := RealEstateAgent scaleFactor. "Use effective, pixel-based factor to account for rounding errors. See #isTTCBased and #uiScaleFactor." + newFactor := aFloat max: 1.0. + newFactor = oldFactor ifTrue: [^ self]. + + TextStyle pixelsPerInch: 96.0 * aFloat. + newFactor := RealEstateAgent resetScaleFactor; scaleFactor. "Again, account for rounding errors." + Project current ifNotNil: [:p | p displayScaleChangedFrom: oldFactor to: newFactor].! Item was changed: ----- Method: TextStyle class>>pixelsPerInch: (in category 'utilities') ----- pixelsPerInch: aNumber "Set the nominal number of pixels per inch to aNumber." + + self pixelsPerInch = aNumber ifTrue: [^ self]. + TextConstants at: #pixelsPerInch put: aNumber. + AbstractFont allSubInstancesDo: [ :font | font pixelsPerInchChanged ].! - TextConstants at: #pixelsPerInch put: aNumber asFloat. - AbstractFont allSubInstancesDo: [ :font | font pixelsPerInchChanged ]. - Display restore.! Item was changed: + (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]]].'! - (PackageInfo named: 'Graphics') postscript: 'Smalltalk removeFromStartUpList: DisplayScreen. "see Project class >> #startUp" - Smalltalk removeFromShutDownList: DisplayScreen. "see Project class >> #shutDown"'!

1 0

The Trunk: ReleaseBuilder-mt.224.mcz
by commits＠source.squeak.org 30 Dec '21

30 Dec '21

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.224.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.224 Author: mt Time: 30 December 2021, 3:53:32.129748 pm UUID: 9d8282c7-31e2-d94f-8f45-4a9b74a17768 Ancestors: ReleaseBuilder-mt.223 Complements Morphic-mt.1836. Default handle/grip length reduced from 25 to 16. =============== Diff against ReleaseBuilder-mt.223 =============== Item was changed: ----- Method: ReleaseBuilder class>>setPreferences (in category 'scripts') ----- setPreferences "Preferences class defaultValueTableForCurrentRelease" " Preferences outOfTheBox." "<-- uncomment after #defaultValueTableForCurrentRelease is fixed up." "General User interaction" Preferences enable: #generalizedYellowButtonMenu ; enable: #swapMouseButtons; disable: #mouseOverForKeyboardFocus. Morph indicateKeyboardFocus: true. Project uiManager openToolsAttachedToMouseCursor: false. SearchBar useScratchPad: false. HandMorph sendMouseWheelToKeyboardFocus: false. HandMorph synthesizeMouseWheelEvents: true. "Text input." TextEditor autoEnclose: true ; autoIndent: true ; encloseSelection: true ; destructiveBackWord: false ; blinkingCursor: true ; dumbbellCursor: false. PluggableTextMorph simpleFrameAdornments: false. TextMorphForEditView draggableTextSelection: true. "Windows" SystemWindow reuseWindows: false. SystemWindow windowsRaiseOnClick: true. SystemWindow windowTitleActiveOnFirstClick: true. Model windowActiveOnFirstClick: false. "Not good for little screen real estate." Model useColorfulWindows: false. Preferences disable: #fastDragWindowForMorphic. AbstractResizerMorph gripThickness: 4; + handleLength: 16. - handleLength: 25. CornerGripMorph drawCornerResizeHandles: false; drawEdgeResizeHandles: false. ProportionalSplitterMorph showSplitterHandles: false; smartHorizontalSplitters: false; smartVerticalSplitters: false. "Scroll bars." Preferences enable: #scrollBarsNarrow; enable: #scrollBarsOnRight; enable: #alwaysHideHScrollbar; disable: #alwaysShowHScrollbar; disable: #alwaysShowVScrollbar. ScrollBar scrollBarsWithoutArrowButtons: true; scrollBarsWithoutMenuButton: true. ScrollPane useRetractableScrollBars: false. "Rounded corners." Morph preferredCornerRadius: 8. SystemWindow roundedWindowCorners: false. DialogWindow roundedDialogCorners: false. MenuMorph roundedMenuCorners: false. PluggableButtonMorph roundedButtonCorners: false. ScrollBar roundedScrollBarLook: false. "Gradients." SystemWindow gradientWindow: false. DialogWindow gradientDialog: false. MenuMorph gradientMenu: false. PluggableButtonMorph gradientButton: false. ScrollBar gradientScrollBar: false. "Shadows" Preferences enable: #menuAppearance3d. Morph useSoftDropShadow: true. "Lists and Trees" PluggableListMorph filterableLists: true; clearFilterAutomatically: false; clearFilterDelay: 500; highlightHoveredRow: true; highlightPreSelection: false; menuRequestUpdatesSelection: true. PluggableTreeMorph filterByLabelsOnly: false; maximumSearchDepth: 1. "Standard Tools" TheWorldMainDockingBar showWorldMainDockingBar: true; showSecondsInClock: true; twentyFourHourClock: true. SearchBar useSmartSearch: true. Workspace shouldStyle: false. TranscriptStream forceUpdate: true; redirectToStdOut: false; characterLimit: 20000. Browser listClassesHierarchically: true; showClassIcons: true; showMessageIcons: true; sortMessageCategoriesAlphabetically: true. SystemBrowser browseWithDragNDrop: true. MessageSet useUnifiedMessageLabels: true. Preferences enable: #annotationPanes; defaultAnnotationRequests: #(timeStamp author messageCategory implementorsCount allChangeSets); enable: #optionalButtons; disable: #diffsWithPrettyPrint; enable: #traceMessages; enable: #alternativeBrowseIt; enable: #menuWithIcons; enable: #visualExplorer; disable: #showSharedFlaps. Preferences disable: #debugLogTimestamp. "Halo" Preferences enable: #showBoundsInHalo ; disable: #alternateHandlesLook; disable: #showDirectionHandles; enable: #biggerHandles. Morph haloForAll: true; metaMenuForAll: true. "System" NetNameResolver enableIPv6: false. Scanner allowUnderscoreAsAssignment: true; prefAllowUnderscoreSelectors: true. Deprecation showDeprecationWarnings: true "that's all, folks"!

1 0

The Trunk: Morphic-mt.1836.mcz
by commits＠source.squeak.org 30 Dec '21

30 Dec '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1836.mcz ==================== Summary ==================== Name: Morphic-mt.1836 Author: mt Time: 30 December 2021, 3:52:29.277748 pm UUID: e44ec2f5-70ad-be4b-8f29-b02a12a213a2 Ancestors: Morphic-mt.1835 Reduce the default length of handles/grips to be less prominent in dialogs. =============== Diff against Morphic-mt.1835 =============== Item was changed: ----- Method: AbstractResizerMorph class>>handleLength (in category 'preferences') ----- handleLength <preference: 'Handle Length' category: 'windows' description: 'AThe size of a grip handle if shown. Can be interpreted as width or height, depending of the resizer orientation. Does not affect the clickable area. See grip thickness for that.' type: #Number> + ^ ((HandleLength ifNil: [16]) * RealEstateAgent scaleFactor) rounded! - ^ ((HandleLength ifNil: [25]) * RealEstateAgent scaleFactor) rounded!

1 0

The Trunk: ToolBuilder-Morphic-mt.284.mcz
by commits＠source.squeak.org 30 Dec '21

30 Dec '21

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.284.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.284 Author: mt Time: 30 December 2021, 3:42:38.688748 pm UUID: e558fca4-27dc-5949-b08f-c5ddff318500 Ancestors: ToolBuilder-Morphic-mt.283 Complements Morphic-mt.1835 =============== Diff against ToolBuilder-Morphic-mt.283 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggablePanel: (in category 'widgets required') ----- buildPluggablePanel: aSpec | widget | widget := self panelClass new. self register: widget id: aSpec name. widget model: aSpec model. "Set child dependent layout properties." widget wantsPaneSplitters: (aSpec wantsResizeHandles ifNil: [false]). self setLayoutHintsFor: widget spec: aSpec. widget layoutInset: (aSpec padding ifNil: [0]). widget cellGap: (aSpec spacing ifNil: [ widget wantsPaneSplitters ifTrue: [ProportionalSplitterMorph gripThickness] + ifFalse: [(2 * RealEstateAgent scaleFactor) truncated]]). - ifFalse: [2]]). "Now create the children." aSpec children isSymbol ifTrue: [ widget getChildrenSelector: aSpec children. widget update: aSpec children] ifFalse: [ self buildAll: aSpec children in: widget]. self setFrame: aSpec frame in: widget. self setLayout: aSpec layout in: widget. parent ifNotNil:[self add: widget to: parent]. widget borderWidth: 0. self buildHelpFor: widget spec: aSpec. widget color: Color transparent. ^ widget!

1 0

The Trunk: ToolBuilder-Kernel-mt.150.mcz
by commits＠source.squeak.org 30 Dec '21

30 Dec '21

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.150.mcz ==================== Summary ==================== Name: ToolBuilder-Kernel-mt.150 Author: mt Time: 30 December 2021, 3:42:09.745748 pm UUID: 188cd67f-834d-234e-b20d-847a3c4e6b39 Ancestors: ToolBuilder-Kernel-mt.149 Complements Morphic-mt.1835 =============== Diff against ToolBuilder-Kernel-mt.149 =============== Item was changed: ----- Method: PluggableSpacerSpec>>extent (in category 'layout hints') ----- extent + ^ extent ifNil: [(TextStyle defaultFont widthOf: $x) asPoint]! - ^ extent ifNil: [5@5]!

1 0

The Trunk: Morphic-mt.1835.mcz
by commits＠source.squeak.org 30 Dec '21

30 Dec '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1835.mcz ==================== Summary ==================== Name: Morphic-mt.1835 Author: mt Time: 30 December 2021, 3:40:36.441748 pm UUID: 0a8ee7c2-c773-104a-8432-b175dcfc3a9c Ancestors: Morphic-mt.1834 Fixes some scaling issues that especially matter for 200% and above. =============== Diff against Morphic-mt.1834 =============== Item was changed: ----- Method: DialogWindow>>createBody (in category 'initialization') ----- createBody | body | body := Morph new name: 'Body'; changeTableLayout; hResizing: #shrinkWrap; vResizing: #shrinkWrap; rubberBandCells: true; listDirection: #topToBottom; + layoutInset: ((10@5 * RealEstateAgent scaleFactor) rounded corner: (10@10 * RealEstateAgent scaleFactor) rounded); + cellGap: (5 * RealEstateAgent scaleFactor) rounded; - layoutInset: (10@5 corner: 10@10); - cellGap: 5; color: Color transparent; yourself. body addAllMorphs: {self createMessage: ''. self createPane. self createButtonRow. self createFilter}. self addMorphBack: body.! Item was changed: ----- Method: DialogWindow>>createButtonRow (in category 'initialization') ----- createButtonRow ^ buttonRow := Morph new name: 'Buttons'; color: Color transparent; changeTableLayout; vResizing: #shrinkWrap; hResizing: #spaceFill; listDirection: #leftToRight; listCentering: #center; + cellGap: (5 * RealEstateAgent scaleFactor) rounded; - cellGap: 5; yourself! Item was changed: ----- Method: DialogWindow>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters "change the receiver's appareance parameters" self color: (self userInterfaceTheme color ifNil: [Color white]); borderStyle: (self userInterfaceTheme borderStyle ifNil: [BorderStyle simple]) copy; borderColor: (self userInterfaceTheme borderColor ifNil: [Color gray]); + borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated; - borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]); layoutInset: ((self class roundedDialogCorners and: [self class gradientDialog]) "This check compensates a bug in balloon." ifTrue: [0] ifFalse: [self borderWidth negated asPoint]). Preferences menuAppearance3d ifTrue: [self addDropShadow].! Item was changed: ----- Method: DialogWindow>>setTitleParameters (in category 'initialization') ----- setTitleParameters + | scaleFactor | + scaleFactor := RealEstateAgent scaleFactor. (self submorphNamed: #title) ifNotNil: [:title | title fillStyle: (self class gradientDialog ifFalse: [SolidFillStyle color: (self userInterfaceTheme titleColor ifNil: [Color r: 0.658 g: 0.678 b: 0.78])] ifTrue: [self titleGradientFor: title from: (self userInterfaceTheme titleColor ifNil: [Color r: 0.658 g: 0.678 b: 0.78])]); borderStyle: (self userInterfaceTheme titleBorderStyle ifNil: [BorderStyle simple]) copy; borderColor: (self userInterfaceTheme titleBorderColor ifNil: [Color r: 0.6 g: 0.7 b: 1]); borderWidth: (self userInterfaceTheme titleBorderWidth ifNil: [0]); cornerStyle: (self wantsRoundedCorners ifTrue: [#rounded] ifFalse: [#square]); vResizing: #shrinkWrap; hResizing: #spaceFill; + cellGap: (5 * scaleFactor) rounded; + layoutInset: ((5@3 * scaleFactor) rounded + corner: (5@2 * scaleFactor) rounded + + (self wantsRoundedCorners ifFalse: [0@0] ifTrue: [0@self cornerRadius]) )]. - cellGap: 5; - layoutInset: (5@3 corner: 5@ (2+(self wantsRoundedCorners ifFalse: [0] ifTrue: [self cornerRadius])))]. titleMorph ifNotNil: [ | fontToUse colorToUse | fontToUse := self userInterfaceTheme titleFont ifNil: [TextStyle defaultFont]. colorToUse := self userInterfaceTheme titleTextColor ifNil: [Color black]. "Temporary HACK for 64-bit CI build. Can be removed in the future." titleMorph contents isText ifFalse: [^ self]. titleMorph hResizing: #spaceFill; vResizing: #shrinkWrap. titleMorph contents addAttribute: (TextFontReference toFont: fontToUse); addAttribute: (TextColor color: colorToUse); addAttribute: TextAlignment centered].! Item was changed: ----- Method: FillInTheBlankMorph class>>defaultAnswerExtent (in category 'default constants') ----- defaultAnswerExtent + ^ ((TextStyle defaultFont widthOf: $x) * 30) @ (3 * TextStyle defaultFont height)! - ^ (200@ (3 * Preferences standardDefaultTextFont height))! Item was changed: ----- Method: MenuMorph>>addLine (in category 'construction') ----- addLine "Append a divider line to this menu. Suppress duplicate lines." | colorToUse | self hasItems ifFalse: [^ self]. self lastSubmorph knownName = #line ifTrue: [^ self]. colorToUse := self userInterfaceTheme lineColor ifNil: [Color gray: 0.9]. self addMorphBack: (Morph new color: colorToUse; hResizing: #spaceFill; + height: ((self userInterfaceTheme lineWidth ifNil: [2]) * RealEstateAgent scaleFactor) truncated; - height: (self userInterfaceTheme lineWidth ifNil: [2]); borderStyle: (self userInterfaceTheme lineStyle ifNil: [BorderStyle inset]); borderColor: colorToUse; + borderWidth: "1 *" RealEstateAgent scaleFactor truncated; - borderWidth: 1; name: #line; "see above" yourself).! Item was changed: ----- Method: MenuMorph>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters "change the receiver's appareance parameters" self color: (self userInterfaceTheme color ifNil: [Color r: 0.9 g: 0.9 b: 0.9]); borderStyle: (self userInterfaceTheme borderStyle ifNil: [BorderStyle simple]) copy; borderColor: (self userInterfaceTheme borderColor ifNil: [Color gray]); + borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated. - borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]). Preferences menuAppearance3d ifTrue: [self addDropShadow]. + self layoutInset: (3 * RealEstateAgent scaleFactor) truncated. - self layoutInset: 3. ! Item was changed: ----- Method: Morph>>keyboardFocusWidth (in category 'drawing') ----- keyboardFocusWidth + ^ ((self userInterfaceTheme keyboardFocusWidth ifNil: [3]) * RealEstateAgent scaleFactor) truncated! - ^ self userInterfaceTheme keyboardFocusWidth ifNil: [3]! Item was changed: ----- Method: NewBalloonMorph>>bubbleInset (in category 'geometry') ----- bubbleInset + ^ (5@2 * RealEstateAgent scaleFactor) rounded! - ^ 5@2! Item was changed: ----- Method: NewBalloonMorph>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters self + borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated; - borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]); borderColor: (self userInterfaceTheme borderColor ifNil: [Color r: 0.46 g: 0.46 b: 0.353]); color: (self userInterfaceTheme color ifNil: [Color r: 0.92 g: 0.92 b: 0.706]); hasDropShadow: (Preferences menuAppearance3d and: [self color isTranslucent not]); shadowOffset: 1@1; shadowColor: (self color muchDarker muchDarker alpha: 0.333); orientation: #bottomLeft; cornerStyle: (MenuMorph roundedMenuCorners ifTrue: [#rounded] ifFalse: [#square]).! Item was changed: ----- Method: NewBalloonMorph>>tailHeight (in category 'geometry') ----- tailHeight + ^ (8 * RealEstateAgent scaleFactor) rounded! - ^ 8! Item was changed: ----- Method: NewBalloonMorph>>tailOffset (in category 'geometry') ----- tailOffset + ^ (((Dictionary newFrom: { - ^ (Dictionary newFrom: { #topLeft -> (5@0). #topRight -> (-3@0). #bottomLeft -> (1@ -1). + #bottomRight -> (-3 @ -3)}) at: self orientation) * RealEstateAgent scaleFactor) truncated! - #bottomRight -> (-3 @ -3)}) at: self orientation! Item was changed: ----- Method: NewBalloonMorph>>tailWidth (in category 'geometry') ----- tailWidth + ^ (15 * RealEstateAgent scaleFactor) rounded! - ^ 15! Item was changed: ----- Method: NewBalloonMorph>>verticesForTail (in category 'drawing') ----- verticesForTail | offset factorX factorY tpos bpos | + offset := (5 * RealEstateAgent scaleFactor) rounded + (self wantsRoundedCorners - offset := 5 + (self wantsRoundedCorners ifTrue: [self cornerRadius] ifFalse: [0]). tpos := self tailPosition. factorX := tpos x < self center x ifTrue: [1] ifFalse: [-1]. factorY := tpos y > self center y ifTrue: [1] ifFalse: [-1]. bpos := self bubbleBounds perform: self orientation. ^ { tpos. bpos + (((offset + self tailWidth) * factorX) @ (self borderStyle width negated * factorY)). bpos + ((offset * factorX) @ (self borderStyle width negated * factorY)).}! Item was changed: ----- Method: PluggableButtonMorph>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters "change the receiver's appareance parameters" self color: (self userInterfaceTheme color ifNil: [Color gray: 0.91]); borderStyle: (self userInterfaceTheme borderStyle ifNil: [BorderStyle default]) copy; borderColor: (self userInterfaceTheme borderColor ifNil: [Color gray]); + borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated; - borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]); font: (self userInterfaceTheme font ifNil: [TextStyle defaultFont]); textColor: (self userInterfaceTheme textColor ifNil: [Color black]). borderColor := self borderColor. self offColor: self color.! Item was changed: ----- Method: ScrollBar>>setDefaultParameters (in category 'initialize') ----- setDefaultParameters "Compared to generic sliders, I am not my own paging area. Thus, make me transparent." self color: Color transparent; borderWidth: 0. pagingArea color: (self userInterfaceTheme color ifNil: [Color veryVeryLightGray darker alpha: 0.35]); borderWidth: 0. "no border for the paging area" slider color: (self userInterfaceTheme thumbColor ifNil: [Color veryVeryLightGray]); borderColor: (self userInterfaceTheme thumbBorderColor ifNil: [Color gray: 0.6]); + borderWidth: ((self userInterfaceTheme thumbBorderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated. - borderWidth: (self userInterfaceTheme thumbBorderWidth ifNil: [1]). self updateSliderCornerStyle. sliderShadow cornerStyle: slider cornerStyle; borderWidth: slider borderWidth; borderColor: Color transparent. sliderColor := slider color. self updateSliderColor: slider color.! Item was changed: ----- Method: ScrollPane>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters "change the receiver's appareance parameters" self color: (self userInterfaceTheme color ifNil: [Color white]); borderStyle: (self userInterfaceTheme borderStyle ifNil: [BorderStyle simple]) copy; borderColor: (self userInterfaceTheme borderColor ifNil: [Color gray: 0.6]); + borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated.! - borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]).! Item was changed: ----- Method: Slider>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters "change the receiver's appareance parameters" self color: (self userInterfaceTheme color ifNil: [Color lightGray]); borderColor: (self userInterfaceTheme borderColor ifNil: [Color gray]); + borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated. - borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]). slider color: (self userInterfaceTheme thumbColor ifNil: [Color veryVeryLightGray]); borderColor: (self userInterfaceTheme thumbBorderColor ifNil: [Color gray: 0.6]); borderWidth: (self userInterfaceTheme thumbBorderWidth ifNil: [0]). sliderShadow borderWidth: slider borderWidth; borderColor: Color transparent. sliderColor := slider color. self updateSliderColor: slider color.! Item was changed: ----- Method: SystemProgressMorph>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters "change the receiver's appareance parameters" self color: (self userInterfaceTheme color ifNil: [Color r: 0.9 g: 0.9 b: 0.9]); borderStyle: (self userInterfaceTheme borderStyle ifNil: [BorderStyle simple]) copy; borderColor: (self userInterfaceTheme borderColor ifNil: [Color gray]); + borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated. - borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]). Preferences menuAppearance3d ifTrue: [self addDropShadow]. self font: (self userInterfaceTheme font ifNil: [TextStyle defaultFont]); textColor: (self userInterfaceTheme textColor ifNil: [Color black]). self updateColor: self color: self color intensity: 1.! Item was changed: ----- Method: SystemWindow>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters Preferences menuAppearance3d ifFalse: [self hasDropShadow: false] ifTrue: [ self addDropShadow. self hasDropShadow: self isKeyWindow. "maybe turn off again"]. + self borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated. - self borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]). label font: (self userInterfaceTheme titleFont ifNil: [TextStyle defaultFont]).! Item was changed: ----- Method: TransferMorph>>setDefaultParameters (in category 'initialization') ----- setDefaultParameters self + borderWidth: ((self userInterfaceTheme borderWidth ifNil: [1]) * RealEstateAgent scaleFactor) truncated; - borderWidth: (self userInterfaceTheme borderWidth ifNil: [1]); borderColor: (self userInterfaceTheme borderColor ifNil: [Color r: 0.46 g: 0.46 b: 0.353]); color: (self userInterfaceTheme color ifNil: [Color r: 0.92 g: 0.92 b: 0.706]); cornerStyle: (MenuMorph roundedMenuCorners ifTrue: [#rounded] ifFalse: [#square]). self updateGradient.!

1 0

The Trunk: Graphics-mt.454.mcz
by commits＠source.squeak.org 30 Dec '21

30 Dec '21

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.454.mcz ==================== Summary ==================== Name: Graphics-mt.454 Author: mt Time: 30 December 2021, 2:05:59.064703 pm UUID: 0954964b-b709-fe49-94f4-33b0d7e2e94f Ancestors: Graphics-mt.453 Fixes automatic scaling of hardware cursor. #useBiggerCursors is still 2x larger. Adds missing #isSynthetic to be compatible with TTCFont. =============== Diff against Graphics-mt.453 =============== Item was added: + ----- Method: AbstractFont>>isSynthetic (in category 'testing') ----- + isSynthetic + ^ false! Item was changed: ----- Method: Cursor class>>currentCursor: (in category 'current cursor') ----- currentCursor: aCursor "Make the instance of cursor, aCursor, be the current cursor. Display it. Create an error if the argument is not a Cursor." (aCursor isKindOf: self) + ifTrue: [ | platformCursor | + CurrentCursor := aCursor. "unscaled" + platformCursor := aCursor enlargedBy: RealEstateAgent scaleFactor. + self useBiggerCursors + ifTrue: [platformCursor := platformCursor enlargedBy: 2]. + platformCursor beCursor] - ifTrue: [CurrentCursor := aCursor. - self useBiggerCursors - ifTrue: [[^ aCursor asBigCursor beCursor] - on: Error do: ["fall through"]]. - aCursor beCursor] ifFalse: [self error: 'The new cursor must be an instance of class Cursor']! Item was changed: ----- Method: Cursor class>>useBiggerCursors: (in category 'preferences') ----- useBiggerCursors: aBool + UseBiggerCursors := aBool. + Cursor currentCursor: Cursor currentCursor.! - UseBiggerCursors := aBool!

1 0

The Trunk: Morphic-mt.1834.mcz
by commits＠source.squeak.org 30 Dec '21

30 Dec '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1834.mcz ==================== Summary ==================== Name: Morphic-mt.1834 Author: mt Time: 30 December 2021, 2:00:53.072703 pm UUID: 98cbe1a9-c8f0-9b40-baba-0708e9a35be0 Ancestors: Morphic-mt.1833 Fixes some scaling issues. Note that I do always decide on #rounded vs. #truncated when scaling a Morphic property via #scaleFactor. This avoids surprises in the BitBlt rendering backend. And it always makes it clear whether we want to change 1.5 to 1 (truncated) or 2 (rounded), which is important e.g. in #borderWidth vs. a window's default extent. =============== Diff against Morphic-mt.1833 =============== Item was changed: ----- Method: HaloMorph>>handleSize (in category 'private') ----- handleSize + ^ ((Preferences biggerHandles - ^ (Preferences biggerHandles ifTrue: [30] + ifFalse: [16]) * RealEstateAgent scaleFactor) rounded! - ifFalse: [16]) * RealEstateAgent scaleFactor! Item was changed: ----- Method: MenuItemMorph class>>applyUserInterfaceTheme (in category 'preferences') ----- applyUserInterfaceTheme + SubMenuMarker := self defaultSubMenuMarker scaleIconToDisplay.! - SubMenuMarker := self defaultSubMenuMarker.! Item was changed: ----- Method: Morph class>>preferredCornerRadius (in category 'preferences') ----- preferredCornerRadius <preference: 'Preferred Corner Radius' categoryList: #(Morphic windows menus) description: 'If a morph wants rounded corners, use this radius. May be overwritten in subclasses.' type: #Number> + ^ ((PreferredCornerRadius ifNil: [8]) * RealEstateAgent scaleFactor) rounded! - ^ PreferredCornerRadius ifNil: [6]! Item was changed: ----- Method: Morph class>>preferredCornerRadius: (in category 'preferences') ----- preferredCornerRadius: anInteger + PreferredCornerRadius := (anInteger / RealEstateAgent scaleFactor) rounded.! - PreferredCornerRadius := anInteger.!

1 0

The Trunk: Tools-mt.1096.mcz
by commits＠source.squeak.org 30 Dec '21

30 Dec '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1096.mcz ==================== Summary ==================== Name: Tools-mt.1096 Author: mt Time: 30 December 2021, 1:50:14.029703 pm UUID: e6269c25-6e40-f143-8b11-46cf14c0b780 Ancestors: Tools-ct.1095 Complements Morphic-mt.1833. (Please ignore the strange values for pointSize for the moment.) =============== Diff against Tools-ct.1095 =============== Item was added: + ----- Method: ToolIcons class>>blank16 (in category 'private') ----- + blank16 + ^ Form extent: 16 @ 16 depth: 8! Item was added: + ----- Method: ToolIcons class>>font (in category 'private') ----- + font + + | icon f1 f2 | + icon := Form extent: 12@12 depth: 32. + f1 := StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5. + f2 := StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5. + icon getCanvas + drawString: 'A' at: 0@ (12 - f1 height) font: f1 color: Color black; + drawString: 'A' at: (f1 widthOf: $A) @ (12 - f2 height) font: f2 color: Color black. + ^ icon!

1 0

The Trunk: Morphic-mt.1833.mcz
by commits＠source.squeak.org 30 Dec '21

30 Dec '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1833.mcz ==================== Summary ==================== Name: Morphic-mt.1833 Author: mt Time: 30 December 2021, 1:48:53.712703 pm UUID: 932445d1-2d4d-034b-8495-9f5753d275b9 Ancestors: Morphic-mt.1832 Some fixes and enhancements around font choosing and importing: - Font-chooser can now add point-sizes for TrueType fonts. - Font-chooser only shows pre-rendered StrikeFonts if PPI is still 96.0, i.e., unscaled, looking through the TrueType glasses :-) -- to make point sizes between StrikeFont and TrueType font comparable - Font-importer now updates TTCFont cache/registry, too, which is used via TTCFont class >> #familyName:pointSize: interface. - Font-importer now shows the font in the default point size. Note that I will harmonize point sizes in all StrikeFonts to 96 ppi soon when committing my scale-factor work. Baby steps. :-) =============== Diff against Morphic-mt.1832 =============== Item was changed: ----- Method: FontChooserTool>>buildButtonBarWith: (in category 'toolbuilder') ----- buildButtonBarWith: builder "Build the button bar" | panelSpec buttonSpec | panelSpec := builder pluggablePanelSpec new. panelSpec layout: #horizontal; children: OrderedCollection new. buttonSpec := builder pluggableButtonSpec new. buttonSpec model: self; label: 'Apply' translated; action: #apply. panelSpec children addLast: buttonSpec. + panelSpec children addLast: (builder pluggableSpacerSpec new extent: ((TextStyle defaultFont widthOf: $m) @1)). buttonSpec := builder pluggableButtonSpec new. buttonSpec model: self; label: 'OK' translated; action: #accept. panelSpec children addLast: buttonSpec. buttonSpec := builder pluggableButtonSpec new. buttonSpec model: self; label: 'Cancel' translated; action: #cancel. panelSpec children addLast: buttonSpec. ^panelSpec! Item was changed: ----- Method: FontChooserTool>>buildFontListWith: (in category 'toolbuilder') ----- buildFontListWith: builder "Build the font choosers list of font names" | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; name: #fontList; + list: #fontList; + icon: #fontListIconAt:; - list: #fontList; getIndex: #selectedFontIndex; setIndex: #selectedFontIndex:. ^listSpec ! Item was added: + ----- 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; + setText: #pointSizeInput:. + ^listSpec + ! Item was changed: ----- Method: FontChooserTool>>buildPointSizeListWith: (in category 'toolbuilder') ----- buildPointSizeListWith: builder "Build the font choosers list of point sizes" | listSpec | listSpec := builder pluggableListSpec new. listSpec model: self; list: #pointSizeList; getIndex: #selectedPointSizeIndex; + setIndex: #selectedPointSizeIndex:; + itemAlignment: #right. - setIndex: #selectedPointSizeIndex:. ^listSpec ! Item was changed: ----- Method: FontChooserTool>>buildWith: (in category 'toolbuilder') ----- buildWith: builder "Create the ui for the browser" "ToolBuilder open: self" | windowSpec | self offerStyleList ifTrue:[ windowSpec := self buildWindowWith: builder specs: { + (0@0 corner: 0.5(a)0.4) -> [self buildFontListWith: builder]. + (0.5@0 corner: 0.8(a)0.4) -> [self buildStyleListWith: builder]. + (LayoutFrame fractions: (0.8@0 corner: 1.0(a)0.4) offsets: (0@0 corner: 0 @ self pointSizeInputHeight negated)) + -> [self buildPointSizeListWith: builder]. + (LayoutFrame fractions: (0.8(a)0.4 corner: 1.0(a)0.4) offsets: (0@self pointSizeInputHeight negated corner: 0@0)) + -> [self buildPointSizeInputWith: builder]. + (LayoutFrame fractions: (0.0(a)0.4 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]. - (0@0 corner: 0.4(a)0.4) -> [self buildFontListWith: builder]. - (0.4@0 corner: 0.8(a)0.4) -> [self buildStyleListWith: builder]. - (0.8@0 corner: 1.0(a)0.4) -> [self buildPointSizeListWith: builder]. - (LayoutFrame fractions: (0.0(a)0.4 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(a)0.4) -> [self buildFontListWith: builder]. " (0.4@0 corner: 0.8(a)0.4) -> [self buildStyleListWith: builder]." + (LayoutFrame fractions: (0.7@0 corner: 1.0(a)0.4) offsets: (0@0 corner: 0 @ self pointSizeInputHeight negated)) + -> [self buildPointSizeListWith: builder]. + + (LayoutFrame fractions: (0.7(a)0.4 corner: 1.0(a)0.4) offsets: (0@self pointSizeInputHeight negated corner: 0@0)) + -> [self buildPointSizeInputWith: builder]. + (LayoutFrame fractions: (0.0(a)0.4 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]. - (0.7@0 corner: 1.0(a)0.4) -> [self buildPointSizeListWith: builder]. - (LayoutFrame fractions: (0.0(a)0.4 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>>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. + TextStyle pixelsPerInch = 96.0 ifFalse: [ + fontList := fontList select: [:styleName | (TextStyle named: styleName) isTTCStyle]]. + ^ fontList! - "List of available font family names" - ^fontList ifNil:[fontList := TextStyle knownTextStyles]! Item was added: + ----- Method: FontChooserTool>>fontListIconAt: (in category 'font list') ----- + fontListIconAt: index + + ^ ToolIcons iconNamed: ((TextStyle named: (self fontList at: index)) + ifNil: [#blank16] + ifNotNil: [:style | style isTTCStyle ifTrue: [#font] ifFalse: [#blank16]])! Item was changed: ----- Method: FontChooserTool>>pointSize: (in category 'point size') ----- pointSize: aNumber + pointSize := aNumber. + + self changed: #textStyle with: self selectedFontTextStyle. + self changed: #contents. + + self changed: #pointSizeList. + self changed: #selectedPointSizeIndex.! - self changed: #pointSize. - self changed: #contents.! Item was added: + ----- Method: FontChooserTool>>pointSizeInput (in category 'point size') ----- + pointSizeInput + + ^ self pointSize asString! Item was added: + ----- Method: FontChooserTool>>pointSizeInput: (in category 'point size') ----- + pointSizeInput: aString + + self pointSize: (aString asNumber roundTo: 0.5). + self changed: #pointSizeInput.! Item was added: + ----- Method: FontChooserTool>>pointSizeInputHeight (in category 'toolbuilder') ----- + pointSizeInputHeight + ^ TextStyle defaultFont height * 1.5! Item was changed: ----- Method: FontChooserTool>>pointSizeList (in category 'point size') ----- pointSizeList + ^self selectedTextStyle pointSizes collect: [:each | (each printShowingDecimalPlaces: 1), ' ' ]! - ^self selectedTextStyle pointSizes collect: [:each | each asString padded: #left to: 3 with: $ ]! Item was changed: ----- Method: FontChooserTool>>selectedFont (in category 'font list') ----- selectedFont + "Generate missing pointSIze only if TrueType font." + + ^ self selectedTextStyle isTTCStyle + ifTrue: [TTCFont familyName: self selectedFontFamily pointSize: pointSize emphasized: emphasis] + ifFalse: [ + | font | + font := (self selectedTextStyle fontOfPointSize: pointSize) emphasized: emphasis. + pointSize := font pointSize. "Can be different." + self changed: #selectedPointSizeIndex. + font]! - | font | - font := self selectedTextStyle fontOfPointSize: pointSize. - ^font emphasized: emphasis! Item was changed: ----- Method: FontChooserTool>>selectedFontIndex: (in category 'font list') ----- selectedFontIndex: anIndex anIndex = 0 ifTrue: [^self]. selectedFontIndex := anIndex. self changed: #selectedFontIndex. self changed: #selectedFontStyleIndex. - self changed: #pointSizeList. - self changed: #pointSizeIndex. self changed: #textStyle with: self selectedFontTextStyle. + self changed: #contents. + + self changed: #pointSizeList. + self changed: #selectedPointSizeIndex. + ! - self changed: #contents.! Item was changed: ----- Method: FontChooserTool>>selectedPointSizeIndex (in category 'point size') ----- selectedPointSizeIndex + ^self pointSizeList indexOf: (pointSize printShowingDecimalPlaces: 1), ' '! - ^self pointSizeList indexOf: (pointSize reduce asString padded: #left to: 3 with: $ )! Item was changed: ----- Method: FontChooserTool>>selectedPointSizeIndex: (in category 'point size') ----- selectedPointSizeIndex: anIndex anIndex = 0 ifTrue: [^self]. + self pointSizeInput: (self pointSizeList at: anIndex). + self changed: #selectedPointSizeIndex.! - pointSize := (self pointSizeList at: anIndex) withBlanksTrimmed asNumber. - self changed: #selectedPointSizeIndex. - self changed: #pointSizeList. - - self changed: #textStyle with: self selectedFontTextStyle. - self changed: #contents.! Item was changed: ----- Method: FontImporterTool>>fontFromFamily: (in category 'helper') ----- fontFromFamily: aFamily | readFonts | aFamily ifNil: [^ TextStyle default fonts first]. readFonts := TTFileDescription readFontsFrom: aFamily allFilenames anyOne. ^ (readFonts size > 1 ifTrue: [ | ftArray | " see TTCFontSet>>newTextStyleFromTT: " ftArray := readFonts collect: [:ttc | |f| ttc ifNil: [nil] ifNotNil: [ f := TTCFont new. f ttcDescription: ttc. + f pointSize: TextStyle defaultFont pointSize. - f pointSize: 11.0 . f]]. TTCFontSet newFontArray: ftArray] ifFalse: [ |f| f := TTCFont new. f ttcDescription: readFonts anyOne. + f pointSize: TextStyle defaultFont pointSize. - f pointSize: 11.0 . f])! Item was changed: ----- Method: FontImporterTool>>import (in category 'actions') ----- import | megaSize filenames fonts | fonts := self currentSelection. filenames := fonts allFilenames. megaSize := ((filenames inject: 0 into: [ :sum :fn | sum + (FileStream readOnlyFileNamed: fn do: [:file | file size])]) / (1024 * 1024)) asFloat. (UIManager default confirm: ( 'About to import {1}{2}.\\This is at least {3} MB of space required in the image.\ Please respect the copyright and embedding restrictions of the font.\ Proceed?' withCRs format: { self currentParent ifNotNil: [:p| p fontname, ' ', self currentSelection fontname] ifNil: [self currentSelection fontname]. filenames size > 1 ifTrue: [' (', filenames size, ' font files)'] ifFalse: ['']. megaSize printShowingDecimalPlaces: 2})) ifTrue: [ filenames do: [:filename | | readFonts | readFonts := TTCFontDescription addFromTTFile: filename. readFonts isCollection ifFalse: [TTCFont newTextStyleFromTT: readFonts] ifTrue: [self importFontFamily: readFonts]]]. self allFonts: nil. "force redraw" + TTCFont registerAll.! - ! Item was changed: ----- Method: FontImporterTool>>link (in category 'actions') ----- link | filenames fonts | fonts := self currentSelection. self warningSeen ifFalse: [ (UIManager default confirm: ( 'Note that linking a font instead of importing may make the image un-portable, since the linked font must be present on the system the next time the image is run. This warning is only shown once per session.' ) trueChoice: 'Proceed' falseChoice: 'Cancel') ifFalse: [^ self]. self warningSeen: true].. filenames := fonts allFilenames. filenames do: [:filename | | readFonts | readFonts := TTFileDescription readFontsFrom: filename. readFonts isCollection ifFalse: [TTCFont newTextStyleFromTT: readFonts] ifTrue: [self importFontFamily: readFonts]]. + self allFonts: nil. "force redraw" + TTCFont registerAll.! - self allFonts: nil. "force redraw"!

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