Packages April 2022

packages@lists.squeakfoundation.org

1 participants
184 discussions

The Trunk: PreferenceBrowser-mt.145.mcz
by commits＠source.squeak.org 07 Apr '22

07 Apr '22

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.145.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.145 Author: mt Time: 7 April 2022, 2:23:00.822346 pm UUID: f368891d-aab1-1e42-8478-eb156de16965 Ancestors: PreferenceBrowser-mt.144 Fixes display-scale changes in preference wizard. Adds [CMD]+[+/-] shortcut to directly modify the scale factor like the user can do when the keyboard focus is in the world (i.e., desktop background). Note that there is still further code clean-up needed. Sorry. Complements Morphic-mt.1965. =============== Diff against PreferenceBrowser-mt.144 =============== Item was changed: ----- Method: PreferenceWizardMorph>>chooseScaleFactor: (in category 'actions - radio') ----- chooseScaleFactor: inPercent + Display relativeUiScaleFactor: inPercent / 100.! - | prior factor | - prior := RealEstateAgent scaleFactor. - Display relativeUiScaleFactor: inPercent / 100. - factor := RealEstateAgent scaleFactor / prior. - - self changedRadio. - - Project current world noDisplayDuring: [ - previewWorld submorphsDo: [:ea | - ea isSystemWindow ifTrue: [ea displayScaleChangedBy: factor]]. - self world submorphsDo: [:ea | - "We also try to change the host window size, so let's make the actual windows look centered." - ea isSystemWindow ifTrue: [ea center: (ea center * factor) rounded]]. - self updateFromChangedScaleFactor].! Item was added: + ----- Method: PreferenceWizardMorph>>displayScaleChangedBy: (in category 'display scale') ----- + displayScaleChangedBy: factor + + isFullScreen == true ifTrue: [ + self changedRadio. + previewWorld submorphsDo: [:ea | + ea isSystemWindow ifTrue: [ea displayScaleChangedBy: factor]]. + self updateFromChangedScaleFactor. + ^ self]. + + self + layoutInset: (self defaultFont widthOf: $x) * 2; + cellGap: (self defaultFont widthOf: $x). + + titleMorph + font: (UserInterfaceTheme current get: #wizardTitleFont); + margins: (self cellGap @ 0 corner: self cellGap @ self cellGap). + + self height: titleMorph height * 4. + + self updateLowPerformanceLabel: lowPerformanceMorph contents. + + { startButton . skipButton } do: [:button | + button + layoutInset: self defaultButtonMargins; + borderWidth: (2 * RealEstateAgent scaleFactor) truncated; + font: (UserInterfaceTheme current get: #wizardButtonFont); + updateMinimumExtent "Font might not change but PPI did."]. + + (startButton minimumWidth max: skipButton minimumWidth) in: [:w | + startButton hResizing: #rigid; width: w. + skipButton hResizing: #rigid; width: w. + startButton layoutFrame leftOffset: 2*w negated. + skipButton layoutFrame rightOffset: 2*w]. + + self width: self world width. + self center: self world center.! Item was changed: ----- Method: PreferenceWizardMorph>>filterEvent:for: (in category 'event handling') ----- filterEvent: aKeyboardEvent for: aMorph aKeyboardEvent isKeystroke ifTrue: [ aKeyboardEvent keyCharacter = Character escape ifTrue: [self showSqueak. ^ aKeyboardEvent ignore]. (aKeyboardEvent keyCharacter = Character cr and: [self isInWelcome]) ifTrue: [self showPlayfield. ^ aKeyboardEvent ignore]. + + aKeyboardEvent commandKeyPressed ifTrue: [ + aKeyboardEvent keyCharacter = $+ + ifTrue: [Preferences increaseFontSize. ^ aKeyboardEvent ignore]. + aKeyboardEvent keyCharacter = $- + ifTrue: [Preferences decreaseFontSize. ^ aKeyboardEvent ignore]]. ]. ^ aKeyboardEvent! Item was added: + ----- Method: PreferenceWizardMorph>>handlesDisplayScaleChangedBy: (in category 'display scale') ----- + handlesDisplayScaleChangedBy: factor + + ^ true! Item was changed: ----- Method: PreferenceWizardMorph>>initializeWelcome (in category 'initialization') ----- initializeWelcome titleMorph := ('Welcome to Squeak' translated asText addAttribute: (TextColor color: self defaultTextColor); addAttribute: (TextFontReference toFont: (UserInterfaceTheme current get: #wizardTitleFont)); yourself) asMorph lock. titleMorph margins: (self cellGap @ 0 corner: self cellGap @ self cellGap). + titleMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0)). - titleMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0) offsets: (0@ 0 corner: 0 @ titleMorph height)). startButton := (self createButton action: #showPlayfield; label: 'Configure' translated). skipButton := (self createButton action: #showSqueak; label: 'Skip' translated). (startButton width max: skipButton width) in: [:w | startButton hResizing: #rigid; width: w. skipButton hResizing: #rigid; width: w. startButton layoutFrame: (LayoutFrame fractions: (0.5 @ 0.6 corner: 0.5 @ 0.6) offsets: (2*w negated @ 0 corner: 0 @ 0)). skipButton layoutFrame: (LayoutFrame fractions: (0.5 @ 0.6 corner: 0.5 @ 0.6) offsets: (0@ 0 corner: 2*w @ 0))]. lowPerformanceMorph := TextMorph new lock. self addAllMorphs: {titleMorph. startButton. skipButton. lowPerformanceMorph}.! Item was changed: ----- Method: PreferenceWizardMorph>>updateLowPerformanceLabel: (in category 'layout') ----- updateLowPerformanceLabel: string + lowPerformanceMorph + contentsAsIs: string asText; + textColor: (Color gray: 0.7); + font: (UserInterfaceTheme current get: #wizardHelpFont). + + lowPerformanceMorph fullBounds. - lowPerformanceMorph contentsAsIs: (string asText - addAttribute: (TextColor color: (Color gray: 0.7)); - addAttribute: (TextFontReference toFont: (UserInterfaceTheme current get: #wizardHelpFont))). + lowPerformanceMorph layoutFrame: (LayoutFrame + fractions: (1 @ 1 corner: 1 @ 1) + offsets: (lowPerformanceMorph extent negated corner: self layoutInset asPoint "Into margins")). - lowPerformanceMorph layoutFrame: (LayoutFrame fractions: (1 @ 1 corner: 1 @ 1) offsets: (lowPerformanceMorph fullBounds width negated @ lowPerformanceMorph fullBounds height negated corner: self layoutInset @ self layoutInset "Into margins")). self layoutChanged.!

1 0

The Trunk: System-mt.1338.mcz
by commits＠source.squeak.org 07 Apr '22

07 Apr '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1338.mcz ==================== Summary ==================== Name: System-mt.1338 Author: mt Time: 7 April 2022, 2:20:19.555346 pm UUID: 3084fe68-b3fc-2c4c-a9fc-7d11080b740e Ancestors: System-ct.1337 Fixes the issue where switching from a PPI-backed scale factor to a "faked" scale factor did not have the correct PPI set to 96.0 while already updating Morphic contents. Complements Morphic-mt.1965. =============== Diff against System-ct.1337 =============== Item was changed: ----- Method: UserInterfaceTheme>>doScale075 (in category 'private - display scale') ----- doScale075 "Private. Use #applyScaled:. This is actually about 71% because of which font sizes we have available." self flag: #hack. "mt: A different scale factor should not result in different point sizes being selected BUT the same point size resulting in a different pixel height." self setFonts: #( standardSystemFont 7.5 standardFixedFont (Accumon 8.5) standardCodeFont 7.5 standardListFont 7.5 standardButtonFont 7.5 standardMenuFont 7.5 standardFlapFont 7.5 windowTitleFont 7.5 balloonHelpFont 7.5 haloLabelFont 7.5 wizardStandardFont 10.5 wizardButtonFont 10.5 wizardHelpFont 7.5 wizardTitleFont 16.5) forceTTC: false. + TextStyle pixelsPerInch: 96.0. "Restore Squeak's default PPI for 100%." + self apply.! - self apply. - TextStyle pixelsPerInch: 96.0. "Restore Squeak's default PPI for 100%."! Item was changed: ----- Method: UserInterfaceTheme>>doScale100 (in category 'private - display scale') ----- doScale100 "Private. Use #applyScaled:. The reference theme, which has a 100% scale factor, must already be there. Look it up and apply it." + TextStyle pixelsPerInch: 96.0. "Restore Squeak's default PPI for 100%." + self checkTheme100 apply.! - self checkTheme100 apply. - TextStyle pixelsPerInch: 96.0. "Restore Squeak's default PPI for 100%."! Item was changed: ----- Method: UserInterfaceTheme>>doScale125 (in category 'private - display scale') ----- doScale125 "Private. Use #applyScaled:. This is actually about 135% because of which font sizes we have available." self flag: #hack. "mt: A different scale factor should not result in different point sizes being selected BUT the same point size resulting in a different pixel height." self setFonts: #( standardSystemFont 14.5 standardFixedFont 14.5 standardCodeFont 14.5 standardListFont 14.5 standardButtonFont 10.5 standardMenuFont 14.5 standardFlapFont 10.5 windowTitleFont 14.5 balloonHelpFont 10.5 haloLabelFont 14.5 wizardStandardFont 20.0 wizardButtonFont 20.0 wizardHelpFont 14.5 wizardTitleFont 32.5) forceTTC: false. + TextStyle pixelsPerInch: 96.0. "Restore Squeak's default PPI for 100%." + self apply.! - self apply. - TextStyle pixelsPerInch: 96.0. "Restore Squeak's default PPI for 100%."! Item was changed: ----- Method: UserInterfaceTheme>>doScale150 (in category 'private - display scale') ----- doScale150 "Private. Use #applyScaled:. Traditional 'Demo Mode'. Optimized for existing pre-rendered fonts. Does not fall back on TTC font. See #doScale:. This is actually about 157% because of which font sizes we have available." self flag: #hack. "mt: A different scale factor should not result in different point sizes being selected BUT the same point size resulting in a different pixel height." self setFonts: #( standardSystemFont 16.5 standardFixedFont 16.5 standardCodeFont 16.5 standardListFont 16.5 standardButtonFont 14.5 standardMenuFont 16.5 standardFlapFont 14.5 windowTitleFont 16.5 balloonHelpFont 14.5 haloLabelFont 16.5 wizardStandardFont 22.5 wizardButtonFont 22.5 wizardHelpFont 16.5 wizardTitleFont 36.5) forceTTC: false. + TextStyle pixelsPerInch: 96.0. "Restore Squeak's default PPI for 100%." + self apply.! - self apply. - TextStyle pixelsPerInch: 96.0. "Restore Squeak's default PPI for 100%."! Item was changed: ----- Method: UserInterfaceTheme>>scaleMorphicToolsBy: (in category 'private - fonts') ----- scaleMorphicToolsBy: factor (factor closeTo: 1) ifTrue: [^ self]. (Project respondsTo: #allMorphicProjects) ifTrue: [ Project allMorphicProjects do: [:ea | ea world submorphs + select: [:morph | morph handlesDisplayScaleChangedBy: factor] - select: [:morph | morph isSystemWindow] thenDo: [:window | window displayScaleChangedBy: factor] ]].!

1 0

The Trunk: Morphic-mt.1965.mcz
by commits＠source.squeak.org 07 Apr '22

07 Apr '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1965.mcz ==================== Summary ==================== Name: Morphic-mt.1965 Author: mt Time: 7 April 2022, 2:17:58.345346 pm UUID: daa17e6e-e063-cd46-b176-ea8b4119d0cc Ancestors: Morphic-mt.1964 Makes the hook that allows a morph to react to display-scale changes explicit like other Morphic events. =============== Diff against Morphic-mt.1964 =============== Item was added: + ----- Method: BorderedMorph>>handlesDisplayScaleChangedBy: (in category 'display scale') ----- + handlesDisplayScaleChangedBy: factor + + ^ self isSystemWindow! Item was added: + ----- Method: Morph>>displayScaleChangedBy: (in category 'display scale') ----- + displayScaleChangedBy: factor! Item was added: + ----- Method: Morph>>handlesDisplayScaleChangedBy: (in category 'display scale') ----- + handlesDisplayScaleChangedBy: factor + "Answer whether the receiver wants to be informed about a changed display scale so that it can update pixel-based measures or invalidate caches." + + ^ false!

1 0

The Trunk: Morphic-mt.1964.mcz
by commits＠source.squeak.org 07 Apr '22

07 Apr '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1964.mcz ==================== Summary ==================== Name: Morphic-mt.1964 Author: mt Time: 7 April 2022, 10:04:27.748476 am UUID: f205ae46-d92c-cc4e-b56b-2812fb2226eb Ancestors: Morphic-mt.1963 Renames #numCharactersPerLine to #averageLineLength. Clean up. =============== Diff against Morphic-mt.1963 =============== Item was removed: - ----- Method: PluggableTextMorph>>numCharactersPerLine (in category 'accessing') ----- - numCharactersPerLine - - ^ textMorph numCharactersPerLine! Item was removed: - ----- Method: PluggableTextMorph>>numCharactersPerLine: (in category 'accessing') ----- - numCharactersPerLine: numCharsOrNil - - textMorph numCharactersPerLine: numCharsOrNil.! Item was removed: - ----- Method: TextMorph>>numCharactersPerLine (in category 'layout') ----- - numCharactersPerLine - - ^ numCharactersPerLine! Item was removed: - ----- Method: TextMorph>>numCharactersPerLine: (in category 'layout') ----- - numCharactersPerLine: numCharsOrNil - "Reset composition rectangle to approx. numChars per line. Will be a perfect fit for monospaced fonts, average over multiple lines for other fonts. See commentary in #withNoLineLongerThan: and TextStyle >> #compositionWidthFor:." - - numCharactersPerLine = numCharsOrNil ifTrue: [^ self]. - numCharactersPerLine := numCharsOrNil. - self releaseParagraph; changed.!

1 0

The Trunk: ToolBuilder-Morphic-mt.310.mcz
by commits＠source.squeak.org 07 Apr '22

07 Apr '22

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.310.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.310 Author: mt Time: 7 April 2022, 10:02:53.050476 am UUID: db232fb3-a114-b741-a3f1-04b6a3076843 Ancestors: ToolBuilder-Morphic-mt.309 Renames #numCharactersPerLine to #averageLineLength. Step 2 of 2. =============== Diff against ToolBuilder-Morphic-mt.309 =============== Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableCodePane: (in category 'widgets optional') ----- buildPluggableCodePane: aSpec | widget | widget := super buildPluggableCodePane: aSpec. "Override code-specific default properties." widget wantsWrapBorder: PluggableTextMorph visualWrapBorder. PluggableTextMorph softLineWrapAtVisualWrapBorder + ifTrue: [widget averageLineLength: PluggableTextMorph visualWrapBorderLimit]. - ifTrue: [widget numCharactersPerLine: PluggableTextMorph visualWrapBorderLimit]. widget wrapFlag: (aSpec softLineWrap ifNil: [PluggableTextMorph softLineWrap]). ^ widget! Item was changed: ----- Method: MorphicToolBuilder>>buildPluggableDialog: (in category 'widgets optional') ----- buildPluggableDialog: aSpec | widget | widget := self dialogClass new. self register: widget id: aSpec name. widget model: aSpec model. "Set child dependent layout properties. The pane morph holds the special contents." widget paneMorph wantsPaneSplitters: (aSpec wantsResizeHandles ifNil: [true]). self setLayoutHintsFor: widget paneMorph spec: aSpec. widget paneMorph layoutInset: (aSpec padding ifNil: [self dialogPadding]). widget morphicLayerNumber: widget class dialogLayer. "Performance. Flip the #wantsPaneSplitters flag only after all children where added." widget paneMorph cellGap: 0. widget paneMorph wantsPaneSplitters: false; wantsGrips: false. widget paneMorph removePaneSplitters; removeGrips. "Now create the children." panes := OrderedCollection new. aSpec children isSymbol ifTrue: [ widget getChildrenSelector: aSpec children. widget update: aSpec children] ifFalse: [ self buildAll: aSpec children in: widget paneMorph]. "Avoid strange behavior in #addMorph:fullFrame:" widget paneMorph cellGap: (aSpec spacing ifNil: [self dialogSpacing]). widget paneMorph wantsPaneSplitters: (aSpec wantsResizeHandles ifNil: [true]). widget paneMorph wantsPaneSplitters ifTrue: [ widget paneMorph wantsGrips: true. widget paneMorph addPaneSplitters; addCornerGrips"; addEdgeGrips". widget paneMorph grips do: [:ea | ea showHandle: true]]. "Increase the line width of the dialog's message to allow that longer messages accompany complex paneMorph contents." + widget messageMorph averageLineLength: 65. - widget messageMorph numCharactersPerLine: 65. "Now create the buttons." aSpec buttons isSymbol ifTrue: [ widget getButtonsSelector: aSpec buttons. widget update: aSpec buttons] ifFalse: [ self buildAll: aSpec buttons in: widget buttonRowMorph. widget updateButtonProperties]. aSpec title ifNotNil: [:label | label isSymbol ifTrue:[widget getTitleSelector: label; update: label] ifFalse:[widget title: label]]. aSpec message ifNotNil: [:label | label isSymbol ifTrue:[widget getMessageSelector: label; update: label] ifFalse:[widget message: label]]. "Interaction behavior." aSpec autoCancel ifNotNil: [:b | widget autoCancel: b]. aSpec exclusive ifNotNil: [:b | widget exclusive: b]. widget closeDialogSelector: aSpec closeAction. self buildHelpFor: widget spec: aSpec. "Everything is shrink-wrapped around the pane morph." widget paneMorph extent: (aSpec extent ifNil:[widget initialExtent]) + (widget paneMorph layoutInset * 2) asPoint. ^ widget!

1 0

The Trunk: PreferenceBrowser-mt.144.mcz
by commits＠source.squeak.org 07 Apr '22

07 Apr '22

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.144.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.144 Author: mt Time: 7 April 2022, 10:02:20.747476 am UUID: 5066c29b-2cfe-e54c-a9de-190aacfd78dc Ancestors: PreferenceBrowser-ct.143 Renames #numCharactersPerLine to #averageLineLength. Step 2 of 2. =============== Diff against PreferenceBrowser-ct.143 =============== Item was changed: ----- Method: PreferenceWizardMorph>>initializePage99ExtraPackages (in category 'initialization - pages') ----- initializePage99ExtraPackages "Let the user install extra packages." | currentPage packagesList installButton | currentPage := self createPage. currentPage cellPositioning: #topCenter; addMorphBack: self createHorizontalSpacer; addMorphBack: ((self createLabel: 'Do you want to install extra packages?' translated color: Color white) hResizing: #shrinkWrap; + averageLineLength: 65; - numCharactersPerLine: 65; yourself); addMorphBack: ((self createLabel: 'Note that the installation process requires a network connection with Internet access and might take several minutes.' translated color: (Color gray: 0.9)) hResizing: #shrinkWrap; + averageLineLength: 65; - numCharactersPerLine: 65; yourself). currentPage submorphs last text addAttribute: TextAlignment centered. currentPage submorphs last layoutChanged. currentPage addMorphBack: (self createVerticalSpace height: self layoutInset). packagesList := self createScrollPane. packagesList width: (self defaultTextStyle compositionWidthFor: 65); hResizing: #rigid; vResizing: #spaceFill. packagesList scroller firstSubmorph addAllMorphsBack: { self createCheckbox: 'Latest system updates' translated for: #InstallLatestUpdates help: 'Install the latest patches for ' translated, SystemVersion current version. self createCheckbox: 'Refactoring support in code browsers' translated for: #InstallRefactoringTools help: 'Refactoring is a process of re-writing or re-organizing text or code. The purpose of a refactor is to make the code or text more understandable and readable while exactly preserving its meaning and behavior' translated. self createCheckbox: 'Autocomplete in code editors' translated for: #InstallAutoComplete help: 'Package that provides interactive, context-sensitive auto-completion for Squeak' translated. self createCheckbox: 'Git support and browser' translated for: #InstallGitInfrastructure help: 'From the Git Browser, you can create new commits, synchronize with remote repositories (fetch, pull, push), manage and merge branches, switch between them, and compare different versions' translated. self createCheckbox: 'Foreign function interface (FFI)' translated for: #InstallFFI help: 'FFI, the Squeak Foreign Function Interface, is used to call functions located in shared libraries that are not part of the Squeak VM nor its plugins' translated. self createCheckbox: 'Access OS functions' translated for: #InstallOSProcess help: 'OSProcess provides access to operating system functions, including pipes and child process creation' translated. self createCheckbox: 'Integrate Squeak''s mailing lists' translated for: #InstallSqueakInboxTalk help: 'Through Squeak Inbox Talk, you can engage with our community from within Squeak using tools that integrate our mailing lists such as squeak-dev and vm-dev' translated. }. currentPage addMorphBack: packagesList. currentPage addMorphBack: ((self createLabel: 'Find more on www.squeak.org/projects' color: (Color gray: 0.9)) hResizing: #shrinkWrap; yourself). installButton := self createButton action: #installExtraPackagesVia:; label: 'Yes, install selected packages.' translated; yourself. installButton setProperty: #label toValue: installButton label; arguments: {installButton}. currentPage addMorphBack: installButton. currentPage addMorphBack: (self createButton action: #showSqueak; label: 'No, maybe later.' translated). ^ currentPage!

1 0

The Trunk: Morphic-mt.1963.mcz
by commits＠source.squeak.org 07 Apr '22

07 Apr '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1963.mcz ==================== Summary ==================== Name: Morphic-mt.1963 Author: mt Time: 7 April 2022, 10:01:39.871476 am UUID: ae251895-3454-304e-92da-d19c9d10b963 Ancestors: Morphic-mt.1962 Renames #numCharactersPerLine to #averageLineLength. Step 2 of 2. =============== Diff against Morphic-mt.1962 =============== Item was changed: ----- Method: DialogWindow>>createMessage: (in category 'initialization') ----- createMessage: aString messageMorph := aString asText asMorph. messageMorph name: 'Message'; readOnly: true; hResizing: #shrinkWrap; vResizing: #shrinkWrap; + averageLineLength: 45; - numCharactersPerLine: 45; setProperty: #indicateKeyboardFocus toValue: #never; handlesKeyboardOnlyOnFocus: true. "If user presses enter while only hovering the text, we want to process the stroke to close the dialog." self setMessageParameters. ^ messageMorph! Item was changed: ----- Method: DialogWindow>>message: (in category 'accessing') ----- message: aStringOrText aStringOrText size > 900 ifTrue: [ "NOTE THAT this is an awkward compromise for clients misusing the medium of a dialog window. Because of a dialog's rather short lifespan, users should only be presented with compact content and a concise message. If you notice that your dialog is getting too tall or -- in this case -- wider than usual, please consider rewriting its message." + self messageMorph averageLineLength: 65]. - self messageMorph numCharactersPerLine: 65]. messageMorph contents: aStringOrText. self setMessageParameters.! Item was changed: ----- Method: NewBalloonMorph>>initialize (in category 'initialization') ----- initialize super initialize. self disableLayout: true. self morphicLayerNumber: self class balloonLayer. self setDefaultParameters. textMorph := TextMorph new hResizing: #shrinkWrap; vResizing: #shrinkWrap; + averageLineLength: Preferences maxBalloonHelpLineLength; - numCharactersPerLine: Preferences maxBalloonHelpLineLength; lock; yourself. self addMorph: textMorph.! Item was changed: ----- Method: PluggableTextMorph class>>updateCodePanes (in category 'preferences') ----- updateCodePanes self flag: #todo. "mt Only for code panes!!" self softLineWrapAtVisualWrapBorder ifTrue: [ PluggableTextMorph allSubInstancesDo: [:m | (m styler class = (TextStyler for: #Smalltalk)) ifTrue: [ m wantsWrapBorder: self visualWrapBorder; + averageLineLength: self visualWrapBorderLimit]]] - numCharactersPerLine: self visualWrapBorderLimit]]] ifFalse: [ PluggableTextMorph allSubInstancesDo: [:m | (m styler class = (TextStyler for: #Smalltalk)) ifTrue: [ m wantsWrapBorder: self visualWrapBorder; + averageLineLength: nil; - numCharactersPerLine: nil; changed "redraw #visualWrapBorderLimit"]]].! Item was changed: ----- Method: PluggableTextMorph>>drawWrapBorderOn: (in category 'drawing') ----- drawWrapBorderOn: aCanvas | box offset rect | self wantsWrapBorder ifFalse: [^ self]. textMorph ifNil: [^ self]. box := textMorph innerBounds. textMorph margins ifNotNil: [:m | box := box insetBy: m]. offset := box left + (textMorph textStyle compositionWidthFor: self class visualWrapBorderLimit). + self averageLineLength ifNotNil: [ - self numCharactersPerLine ifNotNil: [ "Respect right margins only if we wrap at that border to not draw over glyphs." offset := offset + (textMorph innerBounds right - box right) + self borderWidth]. offset > scroller width ifTrue: [^ self]. rect := scroller topLeft + (offset @ 0) corner: scroller bottomRight. aCanvas fillRectangle: rect color: self wrapBorderColor. aCanvas line: rect topLeft to: rect bottomLeft width: self borderWidth color: (self wrapBorderColor muchDarker alpha: 0.5).! Item was changed: ----- Method: TextMorph>>withNoLineLongerThan: (in category 'converting') ----- withNoLineLongerThan: numChars "Convenience only to establish this protocol across String, Text, and TextMorph." + self averageLineLength: numChars. - self numCharactersPerLine: numChars. ^ self paragraph asTextWithLineBreaks!

1 0

The Trunk: Morphic-mt.1962.mcz
by commits＠source.squeak.org 07 Apr '22

07 Apr '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1962.mcz ==================== Summary ==================== Name: Morphic-mt.1962 Author: mt Time: 7 April 2022, 9:59:46.204476 am UUID: c4d79229-4b41-7242-9398-52f0b8dd10e1 Ancestors: Morphic-ct.1961 Renames #numCharactersPerLine to #averageLineLength. Step 1 of 2. =============== Diff against Morphic-ct.1961 =============== Item was added: + ----- Method: PluggableTextMorph>>averageLineLength (in category 'accessing') ----- + averageLineLength + + ^ textMorph averageLineLength! Item was added: + ----- Method: PluggableTextMorph>>averageLineLength: (in category 'accessing') ----- + averageLineLength: numCharsOrNil + + textMorph averageLineLength: numCharsOrNil.! Item was added: + ----- Method: TextMorph>>averageLineLength (in category 'layout') ----- + averageLineLength + "Answers the average length per line in characters. When the entire content is composed in the receiver's #textStyle's default font, it will be an exact match only for monospaced fonts. For variable width fonts it will be an average depending on the (natural) language used, number of lines, and each glyph's advance width. Optimized for English text. Can vary greatly when combining different font faces or sizes. See commentary in #withNoLineLongerThan: and TextStyle >> #compositionWidthFor:." + + ^ numCharactersPerLine! Item was added: + ----- Method: TextMorph>>averageLineLength: (in category 'layout') ----- + averageLineLength: numCharsOrNil + "Reset the receiver's composition rectangle to fit approx. numChars per line. For nil, it uses a sane default for English text. See commentary in #averageLineLength." + + numCharactersPerLine = numCharsOrNil ifTrue: [^ self]. + numCharactersPerLine := numCharsOrNil. + self releaseParagraph; changed.!

1 0

The Trunk: Help-Squeak-Project-ct.89.mcz
by commits＠source.squeak.org 06 Apr '22

06 Apr '22

Christoph Thiede uploaded a new version of Help-Squeak-Project to project The Trunk: http://source.squeak.org/trunk/Help-Squeak-Project-ct.89.mcz ==================== Summary ==================== Name: Help-Squeak-Project-ct.89 Author: ct Time: 6 April 2022, 10:16:06.806385 pm UUID: c3c7d142-bd19-6f46-b351-e7f1ef4a5ea7 Ancestors: Help-Squeak-Project-mt.88 Updates tutorial on command key mappings. Complements Morphic-mt.1938 (emphasis) and Morphic-mt.1832/Morphic-mt.1829/Morphic-mt.1828/Morphic-mt.1824 (enclosing). Also mention related preferences and adds styles to the tutorial. Uses PreferenceBrowser-ct.143 (Preference >> #openInCategory:). =============== Diff against Help-Squeak-Project-mt.88 =============== Item was changed: ----- Method: SqueakTutorialsCommandKey class>>commandKeyMappings (in category 'pages') ----- commandKeyMappings "This method was automatically generated. Edit it using:" "SqueakTutorialsCommandKey edit: #commandKeyMappings" + <generated> ^(HelpTopic title: 'Command Key Mappings' contents: + 'This page summarizes different shortcuts that are available in text editors. Note that some modifier keys work differently on different platforms. On platforms different than Mac, Cmd translates to Alt. See the related keyboard preferences for more details. + + Lower-case command keys - 'Lower-case command keys (use with Cmd key on Mac and Alt key on other platforms) a Select all b Browse it (selection is a class name or cursor is over a class-list or message-list) c Copy selection d Do it (selection is a valid expression) e Exchange selection with prior selection f Find text with a dialog g Find the current selection again j Repeat the last selection replacement i Inspect it k Set font l Cancel text edit m Implementors of it n Senders of it o Spawn current method p Print it (selection is a valid expression) q Query symbol (toggle all possible completion for a given prefix) s Save (i.e. accept) t Finds a Transcript (when cursor is over the desktop) u Toggle alignment v Paste w Select/Delete preceding word (over text); Close-window (over morphic desktop) x Cut selection y Swap characters z Undo Note: for Do it, Senders of it, etc., a null selection will be expanded to a word or to the current line in an attempt to do what you want. Also note that Senders/Implementors of it will find the outermost keyword selector in a large selection, as when you have selected a bracketed expression or an entire line. Finally note that the same cmd-m and cmd-n (and cmd-v for versions) work in the message pane of most browsers. Upper-case command keys + (use with Shift-Cmd, or Ctrl on Mac + or Shift-Alt on other platforms; sometimes Ctrl works too) - (use with Shift-Cmd, or Ctrl on Mac - or Shift-Alt on other platforms; sometimes Ctrl works too) A Advance argument B Browse it in this same browser (in System browsers only) C Compare the selected text to the clipboard contents D Debug-It E Method strings containing it F Insert ''ifFalse:'' G fileIn from it (a file name) H Move cursor to top/home of text I Inspect via Object Explorer J Again many (apply the previous text command repeatedly until the end of the text) K Set style L Opens a FileList, bringing forward on that already exists if appropriate M Select current type-in N References to it (selection is a class name, or cursor is over a class-list or message-list) O Open single-message browser (in message lists) P Make project link R opens a Recent Submissions browser S Pretty-print a method in the current browser T Insert ''ifTrue:'' U Convert linefeeds to carriage returns in selection V Paste author''s initials W Selectors containing it (in text); show-world-menu (when issued with cursor over desktop) X Force selection to lowercase Y Force selection to uppercase Z Redo Other special keys Backspace Backward delete character Shift-Bksp Backward select or delete word Del Forward delete character Shift-Del Forward delete word Esc Pop up the context menu Shift+Esc Pop up the World Menu Cmd+Esc Close the active window Ctrl+Esc Present a list of open windows Cmd+\ Send the active window to the back Tab Insert a tab char in a single-line selection or insert a tab at the beginning of each line in a multi-line selection Shift-Tab Remove a tab from the beginning of each line in the selection Shift-Cmd-_ (underscore) condense selection into one line Cursor keys left, right, up, down Move cursor left, right, up or down Ctrl-left Move cursor left one word Ctrl-right Move cursor right one word Home Move cursor to begin of line or begin of text + End Move cursor to end of line or end of text - End Move cursor to end of line or end of text PgUp, Ctrl-up Move cursor up one page PgDown, Ctrl-Dn Move cursor down one page + Note all these keys can be used together with Shift to define or enlarge the selection. - Note all these keys can be used together with Shift to define or enlarge the selection. You cannot however shrink that selection again, as in some other systems. + Other Cmd-key combinations + (not available on all platforms) + Cmd+Return Insert new line without indentation + Cmd+Space Select the current word as with double clicking - Other Cmd-key combinations (not available on all platforms) - Return Insert return followed by as many tabs as the previous line - (with a further adjustment for additional brackets in that line) - Space Select the current word as with double clicking + Enclose the selection in a pair of brackets (preference) + (not available on all platforms) + ( Enclose selection with parentheses + ) Remove parentheses from selection + [ Enclose selection with brackets + ] Remove brackets from selection + { Enclose selection with curly braces + } Remove curly braces from selection + < Enclose selection with chevrons + > Remove chevrons from selection + " Toggle enclosure within double-quotes + '' Toggle enclosure within single-quotes + | Toggle enclosure within pipes + + Legacy enclosure shortcuts (QWERTY layout only -- need to be enabled in the preferences) - Enclose the selection in a kind of bracket. Each is a toggle. - (not available on all platforms) Ctrl-( Toggle enclosure within parentheses Cmd-[ Toggle enclosure within brackets Crtl-{ Toggle enclosure within curly braces + Ctrl-'''' Toggle enclosure within double-quotes + Cmd-'''' Toggle enclosure within single-quotes - Ctrl-'' Toggle enclosure within double-quotes - Cmd-'' Toggle enclosure within single-quotes Note also that you can double-click just inside any of the above delimiters, or at the beginning or end of a line, to select the text enclosed. Text Emphasis + (not available on all platforms) - (not available on all platforms) Cmd-1 type the first method argument Cmd-2 type the second method argument Cmd-3 type the third method argument Cmd-4 type the fourth method argument + Cmd-5 color, action-on-click, link to class comment, link to method, url, custom attributes (brings up a menu) + Cmd-6 italic - Cmd-5 for future use - Cmd-6 color, action-on-click, link to class comment, link to method, url - Brings up a menu. To remove these properties, select - more than the active part and then use command-0. Cmd-7 bold + Cmd-8 struck-out + Cmd-9 underlined + Cmd-0 make plain (removes all attributes) - Cmd-8 italic - Cmd-9 negative kern (letters 1 pixel closer) - Cmd-0 make plain (removes all emphasis and kerning) - Cmd-- underlined - Cmd-= struck out + And remember this: nine is fine for underline, obliter-eight it as you see fit, seven has been bold for ever''n, which leaves six as the obivous fix to emphasize your poetics. + Docking Bar + Ctrl-<n> opens the n-th (where n is between 0 and 7) menu if such exists, otherwise it moves the keyboard focus to the Search Bar. Currently -- and depending on your preferences -- this means: - Ctrl-<n> opens the n-th (where n is between 0 and 7) menu if such exists, otherwise it moves the keyboard focus to the Search Bar. Currently this means: Ctrl-0 Activates Search Bar or Scratch Pad Ctrl-1 Squeak menu Ctrl-2 Projects menu Ctrl-3 Tools menu Ctrl-4 Apps menu Ctrl-5 Do menu (an editable menu of useful expressions) Ctrl-6 Extras menu Ctrl-7 Windows menu + Ctrl-8 Help menu !! + ]style[(211 28 20 24 56 1171 24 95 993 19 591 12 413 26 33 107 45 10 2 32 396 26 50 11 219 24 12 110 14 33 538 12 166 11 246),Rcode:// PreferenceBrowser open searchPattern: ''keystrokes involving'';,,b,i,,b,i,,b,,b,,b,i,,b,Rcode:// (Preferences pragmaPreferenceFor: TextEditor getter: #encloseSelection) openInCategory: ''editing'';b,b,i,,bc099099099,c099099099,Rcode:// (Preferences pragmaPreferenceFor: LegacyShortcutsFilter getter: #legacyShortcutsEnabled) openInCategory: ''editing'';,c099099099,,b,,b,i,,b,,Rcode:// PreferenceBrowser open selectedCategory: ''docking bars'' capitalized;,!!' readStream nextChunkText) - Ctrl-8 Help menu - !!' readStream nextChunkText) key: #commandKeyMappings; + shouldStyle: false; + yourself! - shouldStyle: false!

1 0

The Trunk: PreferenceBrowser-ct.143.mcz
by commits＠source.squeak.org 06 Apr '22

06 Apr '22

Christoph Thiede uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-ct.143.mcz ==================== Summary ==================== Name: PreferenceBrowser-ct.143 Author: ct Time: 6 April 2022, 9:26:53.488385 pm UUID: e07b0523-54b4-ba47-b467-ab35553bd8be Ancestors: PreferenceBrowser-ct.142 Adds Preference >> #openInCategory:, too. This will be used in the release notes. :-) =============== Diff against PreferenceBrowser-ct.142 =============== Item was changed: ----- Method: Preference>>open (in category '*PreferenceBrowser') ----- open + ^ self openInCategory: (self categoryList at: 1 ifAbsent: [])! - ^ PreferenceBrowser open - selectedCategory: self categoryList first; - selectedPreference: self; - yourself! Item was added: + ----- Method: Preference>>openInCategory: (in category '*PreferenceBrowser') ----- + openInCategory: category + + | browser | + browser := PreferenceBrowser open. + ^ browser + selectedCategory: ((self categoryList includes: category) + ifTrue: [category capitalized] + ifFalse: [browser allCategoryLabel]); + selectedPreference: self; + yourself!

1 0

← Newer
1
...
12
13
14
15
16
17
18
19
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 April 2022