Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1994.mcz
==================== Summary ====================
Name: Morphic-ct.1994 Author: ct Time: 19 May 2022, 1:23:51.16178 pm UUID: 114c8aca-e31d-444d-8cc2-d19bebd28cdc Ancestors: Morphic-ct.1993
Minor UI improvement to FontImporter: Use menu style for the previewText button and make the buttons in the preview slightly larger to avoid overlapping texts.
=============== Diff against Morphic-ct.1993 ===============
Item was changed: ----- Method: FontImporterTool>>buildPreviewPaneWith: (in category 'ui - building') ----- buildPreviewPaneWith: builder "Build the preview panel. Offer the user the change preview text through the default font, point size, extra (glyph) scale and extra (line) gap." ^ builder pluggablePanelSpec new " wantsResizeHandles: true;" children: { builder pluggablePanelSpec new children: { builder pluggableButtonSpec new model: self; help: #previewTextButtonHelp; label: #previewTextButtonLabel; action: #offerPreviewTextMenu; + style: #menuButton; + frame: (LayoutFrame fractions: (0@0 corner: 0.2@1)); - frame: (LayoutFrame fractions: (0@0 corner: 0.15@1)); yourself. builder pluggableInputFieldSpec new model: self; help: 'Type custom preview text here...' translated; getText: #customPreviewText; setText: #acceptCustomPreviewText:; editText: #editCustomPreviewText:; plainTextOnly: true; + frame: (LayoutFrame fractions: (0.2@0 corner: 0.8@1)); - frame: (LayoutFrame fractions: (0.15@0 corner: 0.85@1)); yourself. builder pluggableButtonSpec new model: self; help: 'Click to see current preview text using the system''s current fonts for comparison' translated; label: 'Compare' translated; action: #browseSystemFonts; + frame: (LayoutFrame fractions: (0.8@0 corner: 1@1)); - frame: (LayoutFrame fractions: (0.85@0 corner: 1@1)); yourself }; frame: (LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@ self customPreviewTextHeight)); yourself. builder pluggableTextSpec new model: self; getText: #previewText; textStyle: #selectedFontTextStyle; askBeforeDiscardingEdits: false; indicateUnacceptedChanges: false; softLineWrap: false; padding: self previewTextPadding; stylerClass: (TextStyler for: #Smalltalk); menu: #previewTextMenu:shifted:; frame: (LayoutFrame fractions: (0@0 corner: 1@1) offsets: (0 @ self customPreviewTextHeight corner: 0@ self configurationPanelHeight negated)); yourself. builder pluggablePanelSpec new name: #configPanel; children: (Array streamContents: [:s | | n | n := 0. self fontConfigurationSpecs groupsDo: [:kind :get :help :label :group | | w | kind caseOf: { [#spacer] -> [ w := builder pluggableSpacerSpec new fillSpaceHorizontally]. [#button] -> [ w := builder pluggableButtonSpec new model: self; label: label; action: get; help: help; yourself]. [#text] -> [ w := builder pluggableInputFieldSpec new model: self; getText: get; setText: get asSimpleSetter; help: help; plainTextOnly: true; yourself]. } otherwise: [ "Ignore" ]. w ifNotNil: [ "Remember the group. See #toggleEditMode" w name: (group, (n := n + 1)) asSymbol. s nextPut: w] ]]); layout: #horizontal; frame: self configurationPanelFrame; yourself. }; yourself!
packages@lists.squeakfoundation.org