Packages December 2021

packages@lists.squeakfoundation.org

1 participants
270 discussions

The Trunk: System-mt.1276.mcz
by commits＠source.squeak.org 31 Dec '21

31 Dec '21

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1276.mcz ==================== Summary ==================== Name: System-mt.1276 Author: mt Time: 31 December 2021, 3:06:43.907879 pm UUID: 1a8c32b0-87e9-7748-b3a3-d6566d8c1d66 Ancestors: System-mt.1275 Quickfix for loading older pref dicts from file. See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217817… =============== Diff against System-mt.1275 =============== Item was changed: ----- Method: Preferences class>>loadPreferencesFrom: (in category 'initialization - save/load') ----- loadPreferencesFrom: aFile | stream params dict desktopColor patternsToIgnore | patternsToIgnore := #('*updateMapName' '*defaultUpdateURL'). stream := ReferenceStream fileNamed: aFile. params := stream next. self assert: (params isKindOf: IdentityDictionary). params removeKey: #PersonalDictionaryOfPreferences. dict := stream next. self assert: (dict isKindOf: IdentityDictionary). desktopColor := stream next. stream close. + dict rehash. "See http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-December/217817…" dict keys reject: [:key | patternsToIgnore anySatisfy: [:pattern | pattern match: key]] thenDo: [:key | | value | value := dict at: key. (self preferenceAt: key ifAbsent: [nil]) ifNotNil: [:pref | [pref preferenceValue: value preferenceValue] on: Deprecation do: [ : err | "Ignore preferences which may not be supported anymore."]]]. params keysAndValuesDo: [ :key :value | self setParameter: key to: value ]. Smalltalk isMorphic ifTrue: [ Project current world fillStyle: desktopColor ] ifFalse: [ self desktopColor: desktopColor. ScheduledControllers updateGray ]!

1 0

The Trunk: PreferenceBrowser-mt.125.mcz
by commits＠source.squeak.org 31 Dec '21

31 Dec '21

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk: http://source.squeak.org/trunk/PreferenceBrowser-mt.125.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.125 Author: mt Time: 31 December 2021, 2:47:02.385589 pm UUID: 29599ad7-e40a-8049-bf8f-d35555f8b0a4 Ancestors: PreferenceBrowser-mt.124 I forgot to update the balloon texts. Note that this method needs clean up but I am exhausted right now. At least that messy style is confined in PreferenceWizardMorph. =============== Diff against PreferenceBrowser-mt.124 =============== Item was changed: ----- Method: PreferenceWizardMorph>>updateFromChangedScaleFactor (in category 'display scale') ----- updateFromChangedScaleFactor previewWorld delete. previewWorld := nil. DisplayScreen displayIsFullScreen ifFalse: [ DisplayScreen setNewScreenSize: (self defaultExtent * RealEstateAgent scaleFactor) rounded]. checkmark := nil. radiomark := nil. 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). titleMorph layoutFrame bottomOffset: titleMorph height. self updateLowPerformanceLabel: lowPerformanceMorph contents. "buttons" {startButton. skipButton. previousButton. nextButton. doneButton}, (pages gather: [:page | page allMorphs select: [:ea | ea isButton]]) do: [:button | ((button owner hasProperty: #isRadioButton) or: [button owner hasProperty: #isCheckbox]) ifTrue: [ button "layoutInset: 0;" extent: (TextStyle defaultFont height * 1.75) asPoint; update: button getLabelSelector. + button owner cellGap: (TextStyle defaultFont widthOf: $x). + button owner balloonText ifNotNil: [:text | + text addAttribute: (TextFontReference toFont: (UserInterfaceTheme current get: #wizardHelpFont))]] - button owner cellGap: (TextStyle defaultFont widthOf: $x)] ifFalse: [ button layoutInset: self defaultButtonMargins]. button borderWidth: (2 * RealEstateAgent scaleFactor) truncated; font: (UserInterfaceTheme current get: #wizardButtonFont); updateMinimumExtent "Font might not change but PPI did."]. self fullBounds. (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]. (previousButton minimumWidth max: nextButton minimumWidth) in: [:w | previousButton hResizing: #rigid; width: w. nextButton hResizing: #rigid; width: w]. pagesLabel margins: (self layoutInset@0 corner: self layoutInset@0); font: (UserInterfaceTheme current get: #wizardStandardFont). buttonRowMorph cellGap: self cellGap; layoutInset: (0@self layoutInset corner: 0@0). buttonRowMorph layoutFrame topOffset: buttonRowMorph fullBounds height negated. "labels" {controlMorph firstSubmorph}, (pages gather: [:page | page allMorphs select: [:ea | ea isTextMorph]]) do: [:label | label font: (UserInterfaceTheme current get: #wizardStandardFont); margins: self defaultTextMargins "No need for #releaseParagraph because window resizing will happen anyway."]. "controlMorph" controlMorph layoutInset: (0@0 corner: self cellGap@0). controlMorph layoutFrame topOffset: titleMorph height; bottomOffset: buttonRowMorph height negated. "scroll panes in pages" pages do: [:page | | scrollPane | page layoutInset: (self layoutInset asPoint corner: self cellGap@0); cellGap: self cellGap. scrollPane := page submorphs second. scrollPane scrollBarThickness: self layoutInset. scrollPane scroller firstSubmorph cellGap: self cellGap; layoutInset: (0@0 corner: self cellGap@0). (scrollPane vScrollBar instVarNamed: #slider) borderWidth: (2 * RealEstateAgent scaleFactor) truncated]. "previewWorld" self initializePreviewWorld. self addMorph: previewWorld. self step. " previewWorld borderWidth: (2 * RealEstateAgent scaleFactor) truncated. previewWorld layoutFrame topOffset: titleMorph height; bottomOffset: buttonRowMorph height negated. " !

1 0

The Trunk: 60Deprecated-mt.101.mcz
by commits＠source.squeak.org 31 Dec '21

31 Dec '21

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.101.mcz ==================== Summary ==================== Name: 60Deprecated-mt.101 Author: mt Time: 31 December 2021, 2:10:27.09979 pm UUID: 00cc3301-aabc-b74d-aeda-4b1514dbcc07 Ancestors: 60Deprecated-mt.100 Adds missing deprecations in wizard to make the CI finish again. =============== Diff against 60Deprecated-mt.100 =============== Item was added: + ----- Method: PreferenceWizardMorph>>stateUseBiggerFonts (in category '*60Deprecated-actions buttons') ----- + stateUseBiggerFonts + + self flag: #deprecated. "mt: Soft deprecation for the CI." + ^ false! Item was added: + ----- Method: PreferenceWizardMorph>>toggleUseBiggerFonts (in category '*60Deprecated-actions buttons') ----- + toggleUseBiggerFonts + + self flag: #deprecated. "mt: Soft deprecation for the CI." + !

1 0

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

31 Dec '21

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.225.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.225 Author: mt Time: 31 December 2021, 12:51:13.044496 pm UUID: 1c2edec1-adeb-dd47-aa0c-f09861f8e5df Ancestors: ReleaseBuilder-mt.224 Fixes regression in ReleaseBuilder. =============== Diff against ReleaseBuilder-mt.224 =============== Item was changed: ----- Method: ReleaseBuilder class>>clearCaches (in category 'scripts') ----- clearCaches "Clear caches, discard unused references, free space." "1) Explicit clean-up of FONT-related stuff." + Display platformScaleFactor: nil; uiScaleFactor: 1.0. self cleanUpBitstreamVeraSans. StrikeFont initialize. "2) FIRST PHASE of explicit clean-up of CODE-related stuff." self discardUserObjects. MCFileBasedRepository flushAllCaches. "3) Now clean-up all STATE-related stuff." Preferences chooseInitialSettings. + Smalltalk cleanUp: true. - Smalltalk cleanUp: true. "4) SECOND PHASE of explicit clean-up of CODE-related stuff. As late as possible to get rid of all references before running this." Smalltalk garbageCollect. Environment allInstancesDo: [:environment | environment purgeUndeclared ]. Undeclared removeUnreferencedKeys. ! Item was changed: ----- Method: ReleaseBuilder class>>configureDesktop (in category 'scripts') ----- configureDesktop "Open tools, multimedia content, etc." self setDisplayExtent: 1024 @ 768. self setProjectBackground: Color darkGray. + (UserInterfaceTheme named: 'Squeak') applyScaled. - (UserInterfaceTheme named: 'Squeak') apply. self deleteAllWindows. self deleteAllOtherMorphs. "Avoid strange drawing issues." Project current world allMorphsDo: [:m | m removeProperty: #errorOnDraw]. "Replace docking bar instance in case its code has changed." Project current removeMainDockingBar. TheWorldMainDockingBar updateInstances.! Item was changed: ----- Method: ReleaseBuilder class>>prepareEnvironment (in category 'preparing') ----- prepareEnvironment "Prepare everything that should be done for a new image build. Clear caches, passwords, etc." | balloon | self clearCaches; configureProjects; configureTools; setPreferences; configureDesktop. balloon := self getBalloonForm. "Get now because later the file might be missing." DeferredTask := [ self openWelcomeWorkspacesWith: balloon. PreferenceWizardMorph open]. "If you save-and-quit the image after calling #prepareEnvironment, ensure that the next image startup will be fast." + Project current world doOneCycle. + Display platformScaleFactor: 1.0.! - Project current world doOneCycle.!

1 0

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

31 Dec '21

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.456.mcz ==================== Summary ==================== Name: Graphics-mt.456 Author: mt Time: 31 December 2021, 12:49:55.337496 pm UUID: ca084a4c-d28b-b54b-af9b-ae8d9cbfcd80 Ancestors: Graphics-mt.455 Quickfix for re-initialization of pre-rendered DejaVu Sans. =============== Diff against Graphics-mt.455 =============== Item was changed: ----- Method: StrikeFont class>>createDejaVu: (in category 'font creation') ----- createDejaVu: pointSize "Warning: Uses the methods in 'dejaVu font data' category, that will be removed soon (or are already removed) to save space." + | base bold oblique boldOblique point actualPointSize | - | base bold oblique boldOblique point | point := pointSize asString. + actualPointSize := self fixDejaVuPointSIze: pointSize. base := (StrikeFont new buildFromForm: (self perform: ('dejaVuSansBook', point, 'Form') asSymbol) data: (self perform: ('dejaVuSansBook', point, 'Data') asSymbol) name: 'Bitmap DejaVu Sans ', point) + pointSize: actualPointSize. - pointSize: pointSize. bold := (StrikeFont new buildFromForm: (self perform: ('dejaVuSansBold', point, 'Form') asSymbol) data: (self perform: ('dejaVuSansBold', point, 'Data') asSymbol) name: 'Bitmap DejaVu Sans ', point, 'B') emphasis: 1; + pointSize: actualPointSize. - pointSize: pointSize. oblique := (StrikeFont new buildFromForm: (self perform: ('dejaVuSansOblique', point, 'Form') asSymbol) data: (self perform: ('dejaVuSansOblique', point, 'Data') asSymbol) name: 'Bitmap DejaVu Sans ', point, 'I') emphasis: 2; + pointSize: actualPointSize. - pointSize: pointSize. boldOblique := (StrikeFont new buildFromForm: (self perform: ('dejaVuSansBoldOblique', point, 'Form') asSymbol) data: (self perform: ('dejaVuSansBoldOblique', point, 'Data') asSymbol) name: 'Bitmap DejaVu Sans ', point, 'BI') emphasis: 3; + pointSize: actualPointSize. - pointSize: pointSize. base derivativeFont: bold at: 1. base derivativeFont: oblique at: 2. base derivativeFont: boldOblique at: 3. ^base! Item was changed: ----- Method: StrikeFont class>>createDejaVuDark: (in category 'font creation') ----- createDejaVuDark: pointSize + | base bold oblique boldOblique point actualPointSize | - | base bold oblique boldOblique point | point := pointSize asString. + actualPointSize := self fixDejaVuPointSIze: pointSize. base := (StrikeFont new buildFromForm: (self perform: ('dejaVuSansBookDark', point, 'Form') asSymbol) data: (self perform: ('dejaVuSansBookDark', point, 'Data') asSymbol) name: 'Darkmap DejaVu Sans', point) + pointSize: actualPointSize. - pointSize: pointSize. bold := (StrikeFont new buildFromForm: (self perform: ('dejaVuSansBoldDark', point, 'Form') asSymbol) data: (self perform: ('dejaVuSansBoldDark', point, 'Data') asSymbol) name: 'Darkmap DejaVu Sans', point, 'B') emphasis: 1; + pointSize: actualPointSize. - pointSize: pointSize. oblique := (StrikeFont new buildFromForm: (self perform: ('dejaVuSansObliqueDark', point, 'Form') asSymbol) data: (self perform: ('dejaVuSansObliqueDark', point, 'Data') asSymbol) name: 'Darkmap DejaVu Sans', point, 'I') emphasis: 2; + pointSize: actualPointSize. - pointSize: pointSize. boldOblique := (StrikeFont new buildFromForm: (self perform: ('dejaVuSansBoldObliqueDark', point, 'Form') asSymbol) data: (self perform: ('dejaVuSansBoldObliqueDark', point, 'Data') asSymbol) name: 'Darkmap DejaVu Sans', point, 'BI') emphasis: 3; + pointSize: actualPointSize. - pointSize: pointSize. base derivativeFont: bold at: 1. base derivativeFont: oblique at: 2. base derivativeFont: boldOblique at: 3. ^base! Item was added: + ----- Method: StrikeFont class>>fixDejaVuPointSIze: (in category 'font creation') ----- + fixDejaVuPointSIze: pointSize + "Maps the given pointSize to 96 ppi." + + ^ (Dictionary newFrom: { + 7 -> 7.5. + 9 -> 10.5. + 12 -> 14.5. + 14 -> 16.5. + 17 -> 19.5. + 20 -> 23.5}) at: pointSize + !

1 0

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

31 Dec '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1839.mcz ==================== Summary ==================== Name: Morphic-mt.1839 Author: mt Time: 31 December 2021, 12:22:28.156545 pm UUID: 195e1996-bbf5-2a44-a88d-b4161321c930 Ancestors: Morphic-mt.1838 Fixes regression in FontChooserTool. =============== Diff against Morphic-mt.1838 =============== Item was changed: ----- Method: FontChooserTool>>selectedTextStyle (in category 'font list') ----- selectedTextStyle + ^TextStyle named: (self selectedFontFamily ifNil:[^TextStyle default]).! - ^TextStyle named: (self selectedFontFamily ifNil: [TextStyle default])!

1 0

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

31 Dec '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1838.mcz ==================== Summary ==================== Name: Morphic-mt.1838 Author: mt Time: 31 December 2021, 11:43:15.451969 am UUID: e3a32f40-b476-184d-be93-04db041a8826 Ancestors: Morphic-mt.1837 Fix reset code of recently changed pragma preferences. =============== Diff against Morphic-mt.1837 =============== Item was changed: ----- Method: AbstractResizerMorph class>>gripThickness: (in category 'preferences') ----- gripThickness: anInteger + GripThickness := anInteger ifNotNil: [(anInteger / RealEstateAgent scaleFactor) rounded]. - GripThickness := (anInteger / RealEstateAgent scaleFactor) rounded. Project current restoreDisplay. self flag: #todo. "mt: Update existing grips. This is challenging because it interferes with ProportionalLayoutPolicy, which is tricky to refresh from here for arbitrary morphs."! Item was changed: ----- Method: AbstractResizerMorph class>>handleLength: (in category 'preferences') ----- handleLength: anInteger + HandleLength := anInteger ifNotNil: [(anInteger / RealEstateAgent scaleFactor) rounded]. - HandleLength := (anInteger / RealEstateAgent scaleFactor) rounded. Project current restoreDisplay. self flag: #todo. "mt: Update existing grips. This is challenging because it interferes with ProportionalLayoutPolicy, which is tricky to refresh from here for arbitrary morphs."! Item was changed: ----- Method: Morph class>>preferredCornerRadius: (in category 'preferences') ----- preferredCornerRadius: anInteger + PreferredCornerRadius := anInteger ifNotNil: [(anInteger / RealEstateAgent scaleFactor) rounded].! - PreferredCornerRadius := (anInteger / RealEstateAgent scaleFactor) rounded.!

1 0

The Trunk: Kernel-mt.1441.mcz
by commits＠source.squeak.org 31 Dec '21

31 Dec '21

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1441.mcz ==================== Summary ==================== Name: Kernel-mt.1441 Author: mt Time: 31 December 2021, 11:41:05.847969 am UUID: bf8ba9ce-6ae5-7c44-88d6-74388bb5558e Ancestors: Kernel-ct.1440 Polish reset code of virtual-key preferences. =============== Diff against Kernel-ct.1440 =============== Item was changed: ----- Method: EventSensor class>>mapAltKeysToOptionKeys: (in category 'preferences') ----- mapAltKeysToOptionKeys: aBooleanOrNil aBooleanOrNil = self mapAltKeysToOptionKeys ifTrue: [^ self]. aBooleanOrNil ifNil: [ KeyDecodePreferences + removeKey: #mapAltKeysToOptionKeys + ifAbsent: []] - removeKey: #mapAltKeysToOptionKeys] ifNotNil: [ KeyDecodePreferences at: #mapAltKeysToOptionKeys put: aBooleanOrNil]. self installKeyDecodeTable. self installVirtualKeyTable.! Item was changed: ----- Method: EventSensor class>>mapControlCharactersToPrintableCharacters: (in category 'preferences') ----- mapControlCharactersToPrintableCharacters: aBooleanOrNil aBooleanOrNil ifNil: [ KeyDecodePreferences + removeKey: #mapControlCharactersToPrintableCharacters + ifAbsent: []] - removeKey: #mapControlCharactersToPrintableCharacters] ifNotNil: [ KeyDecodePreferences at: #mapControlCharactersToPrintableCharacters put: aBooleanOrNil]. self installKeyDecodeTable.! Item was changed: ----- Method: EventSensor class>>mapControlKeysToCommandKeys: (in category 'preferences') ----- mapControlKeysToCommandKeys: aBooleanOrNil aBooleanOrNil ifNil: [ KeyDecodePreferences + removeKey: #mapControlKeysToCommandKeys + ifAbsent: []] - removeKey: #mapControlKeysToCommandKeys] ifNotNil: [ KeyDecodePreferences at: #mapControlKeysToCommandKeys put: aBooleanOrNil]. self installKeyDecodeTable. self installVirtualKeyTable.! Item was changed: ----- Method: EventSensor class>>simplifyVirtualKeyCodes: (in category 'preferences') ----- simplifyVirtualKeyCodes: aBooleanOrNil aBooleanOrNil = self simplifyVirtualKeyCodes ifTrue: [^ self]. aBooleanOrNil ifNil: [ KeyDecodePreferences + removeKey: #simplifyVirtualKeyCodes + ifAbsent: []] - removeKey: #simplifyVirtualKeyCodes] ifNotNil: [ KeyDecodePreferences at: #simplifyVirtualKeyCodes put: aBooleanOrNil]. self installVirtualKeyTable.!

1 0

The Trunk: System-mt.1275.mcz
by commits＠source.squeak.org 31 Dec '21

31 Dec '21

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1275.mcz ==================== Summary ==================== Name: System-mt.1275 Author: mt Time: 31 December 2021, 11:07:53.262969 am UUID: e8182aa6-ff75-3b41-8940-179a06ec802e Ancestors: System-mt.1274 Because of how the scale factor works, there is no need to store font-access blocks in UI themes. We can refer to specific font instances directly, which is also favorable performance-wise. If we would replace font instances, a simple call to "UserInterfaceTheme cleanUpAndReset" would suffice. In a running system, widgets (and text attributes) hold such references anyway, which includes fabricated text styles with selected fonts. =============== Diff against System-mt.1274 =============== Item was changed: ----- Method: CommunityTheme class>>addDarkFonts: (in category 'instance creation') ----- addDarkFonts: aUserInterfaceTheme "Set-up fonts." aUserInterfaceTheme + set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5 emphasized: TextEmphasis italic emphasisCode); + set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5); + set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); + set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode); + set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); + set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); + set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); + set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); + set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5 emphasized: TextEmphasis bold emphasisCode)! - set: #balloonHelpFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5 emphasized: TextEmphasis italic emphasisCode]; - set: #standardButtonFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5]; - set: #standardCodeFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5]; - set: #standardFlapFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode]; - set: #haloLabelFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5]; - set: #standardListFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5]; - set: #standardMenuFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5]; - set: #standardSystemFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5]; - set: #windowTitleFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5 emphasized: TextEmphasis bold emphasisCode]! Item was changed: ----- Method: MonokaiTheme class>>addDarkFonts: (in category 'instance creation') ----- addDarkFonts: theme "Set-up fonts." theme + set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5); + set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5); + set: #standardCodeFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); + set: #standardFlapFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode); + set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); + set: #standardListFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); + set: #standardMenuFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); + set: #standardSystemFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); + set: #windowTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5).! - set: #balloonHelpFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5]; - set: #standardButtonFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5]; - set: #standardCodeFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5]; - set: #standardFlapFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode]; - set: #haloLabelFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5]; - set: #standardListFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5]; - set: #standardMenuFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5]; - set: #standardSystemFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5]; - set: #windowTitleFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5].! Item was changed: ----- Method: SolarizedTheme class>>addDarkFonts: (in category 'instance creation') ----- addDarkFonts: theme "Set-up fonts." theme + set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5); + set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5); + set: #standardCodeFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); + set: #standardFlapFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode); + set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); + set: #standardListFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); + set: #standardMenuFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); + set: #standardSystemFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); + set: #windowTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5).! - set: #balloonHelpFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5]; - set: #standardButtonFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5]; - set: #standardCodeFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5]; - set: #standardFlapFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode]; - set: #haloLabelFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5]; - set: #standardListFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5]; - set: #standardMenuFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5]; - set: #standardSystemFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5]; - set: #windowTitleFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5].! Item was changed: ----- Method: SolarizedTheme class>>addLightFonts: (in category 'instance creation') ----- addLightFonts: theme "Set-up fonts." theme + set: #balloonHelpFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5); + set: #standardButtonFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5); + set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); + set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode); + set: #haloLabelFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); + set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); + set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); + set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); + set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5 emphasized: TextEmphasis bold emphasisCode).! - set: #balloonHelpFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5]; - set: #standardButtonFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5]; - set: #standardCodeFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5]; - set: #standardFlapFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode]; - set: #haloLabelFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5]; - set: #standardListFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5]; - set: #standardMenuFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5]; - set: #standardSystemFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5]; - set: #windowTitleFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5 emphasized: TextEmphasis bold emphasisCode].! Item was changed: ----- Method: SqueakTheme class>>addFonts: (in category 'instance creation') ----- addFonts: theme theme + set: #standardSystemFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); + set: #standardFixedFont to: (TTCFont familyName: 'BitstreamVeraSansMono' pointSize: 10.5); - set: #standardSystemFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5]; - set: #standardFixedFont to: [TTCFont familyName: 'BitstreamVeraSansMono' pointSize: 10.5]; + set: #standardCodeFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); + set: #standardListFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); + set: #standardButtonFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5); + set: #standardMenuFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); + set: #standardFlapFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode); - set: #standardCodeFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5]; - set: #standardListFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5]; - set: #standardButtonFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5]; - set: #standardMenuFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5]; - set: #standardFlapFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode]; + set: #windowTitleFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5 emphasized: TextEmphasis bold emphasisCode); + set: #balloonHelpFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5); + set: #haloLabelFont to: (StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5); - set: #windowTitleFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5 emphasized: TextEmphasis bold emphasisCode]; - set: #balloonHelpFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 7.5]; - set: #haloLabelFont to: [StrikeFont familyName: 'Bitmap DejaVu Sans' pointSize: 10.5]; + set: #wizardStandardFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 14.5); + set: #wizardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 14.5); + set: #wizardHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); + set: #wizardTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 23.5).! - set: #wizardStandardFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 14.5]; - set: #wizardButtonFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 14.5]; - set: #wizardHelpFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5]; - set: #wizardTitleFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 23.5].! Item was changed: ----- Method: TrimTheme class>>addFonts: (in category 'instance creation') ----- addFonts: theme "Set-up fonts." theme + set: #balloonHelpFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5); + set: #standardButtonFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5); + set: #standardCodeFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); + set: #standardFlapFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode); + set: #haloLabelFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); + set: #standardListFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); + set: #standardMenuFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); + set: #standardSystemFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5); + set: #windowTitleFont to: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5).! - set: #balloonHelpFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5]; - set: #standardButtonFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5]; - set: #standardCodeFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5]; - set: #standardFlapFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 7.5 emphasized: TextEmphasis bold emphasisCode]; - set: #haloLabelFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5]; - set: #standardListFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5]; - set: #standardMenuFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5]; - set: #standardSystemFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5]; - set: #windowTitleFont to: [StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 10.5].!

1 0

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

31 Dec '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1099.mcz ==================== Summary ==================== Name: Tools-mt.1099 Author: mt Time: 31 December 2021, 10:04:01.169338 am UUID: 79c3bd75-6223-8241-ab31-702abc3c1efe Ancestors: Tools-mt.1098 Fixes regression in ChangeSorter to be able to edit preambles again, which is now exactly how editing postscripts work: in a separate window. This is also how Monticello offers preamble/postscript editing. =============== Diff against Tools-mt.1098 =============== Item was changed: ----- Method: ChangeSetBrowser>>addModelItemsToWindowMenu: (in category 'initialization') ----- addModelItemsToWindowMenu: aMenu "Add model-related items to the given window menu" | oldTarget | oldTarget := aMenu defaultTarget. aMenu defaultTarget: self. aMenu addLine. aMenu add: 'rename change set' action: #rename. aMenu add: 'make changes go to me' action: #newCurrent. aMenu addLine. aMenu add: 'file out' action: #fileOut. aMenu add: 'browse methods' action: #browseChangeSet. aMenu addLine. myChangeSet hasPreamble ifTrue: + [aMenu add: 'edit preamble...' action: #editPreamble. - [aMenu add: 'edit preamble' action: #addPreamble. aMenu add: 'remove preamble' action: #removePreamble] ifFalse: + [aMenu add: 'add preamble...' action: #editPreamble]. - [aMenu add: 'add preamble' action: #addPreamble]. myChangeSet hasPostscript ifTrue: [aMenu add: 'edit postscript...' action: #editPostscript. aMenu add: 'remove postscript' action: #removePostscript] ifFalse: [aMenu add: 'add postscript...' action: #editPostscript]. aMenu addLine. aMenu add: 'destroy change set' action: #remove. aMenu addLine. Smalltalk isMorphic ifTrue: [aMenu addLine. aMenu add: 'what to show...' target: self action: #offerWhatToShowMenu]. aMenu addLine. aMenu add: 'more...' action: #offerShiftedChangeSetMenu. aMenu defaultTarget: oldTarget. ^ aMenu! Item was removed: - ----- Method: ChangeSorter>>addPreamble (in category 'changeSet menu') ----- - addPreamble - myChangeSet assurePreambleExists. - self okToChange ifTrue: - [currentClassName := nil. - currentSelector := nil. - self showChangeSet: myChangeSet]! Item was changed: ----- Method: ChangeSorter>>changeSetListKey:from: (in category 'changeSet menu') ----- changeSetListKey: aChar from: view "Respond to a Command key. I am a model with a listView that has a list of changeSets." aChar == $b ifTrue: [^ self browseChangeSet]. aChar == $B ifTrue: [^ self openChangeSetBrowser]. aChar == $c ifTrue: [^ self copyAllToOther]. aChar == $D ifTrue: [^ self toggleDiffing]. aChar == $f ifTrue: [^ self findCngSet]. aChar == $m ifTrue: [^ self newCurrent]. aChar == $n ifTrue: [^ self newSet]. aChar == $o ifTrue: [^ self fileOut]. + aChar == $p ifTrue: [^ self editPreamble]. - aChar == $p ifTrue: [^ self addPreamble]. aChar == $r ifTrue: [^ self rename]. aChar == $x ifTrue: [^ self remove]. aChar == $- ifTrue: [^ self subtractOtherSide]. ^ self messageListKey: aChar from: view! Item was changed: ----- Method: ChangeSorter>>editPreamble (in category 'changeSet menu') ----- editPreamble + "Allow the user to edit the receiver's change-set's preamble -- in a separate window" - "Allow the user to edit the receiver's change-set's preamble -- in a separate window." myChangeSet editPreamble! Item was changed: ----- Method: ChangeSorter>>removePostscript (in category 'changeSet menu') ----- removePostscript (myChangeSet hasPostscript and: [myChangeSet postscriptHasDependents]) ifTrue: [^ self inform: 'Cannot remove the postscript right now because there is at least one window open on that postscript. Close that window and try again.']. + myChangeSet removePostscript.! - myChangeSet removePostscript. - self showChangeSet: myChangeSet! Item was changed: ----- Method: ChangeSorter>>removePreamble (in category 'changeSet menu') ----- removePreamble + myChangeSet removePreamble.! - myChangeSet removePreamble. - self showChangeSet: myChangeSet! Item was changed: ----- Method: ChangeSorter>>unshiftedChangeSetMenu: (in category 'changeSet menu') ----- unshiftedChangeSetMenu: aMenu "Set up aMenu to hold commands for the change-set-list pane. This could be for a single or double changeSorter" <changeSetMenuShifted: false> Smalltalk isMorphic ifTrue: [aMenu title: 'Change Set'] ifFalse: [aMenu title: 'Change Set: ' , myChangeSet name]. aMenu addStayUpItemSpecial. aMenu add: 'make changes go to me (m)' action: #newCurrent. aMenu addLine. aMenu add: 'new change set... (n)' action: #newSet. aMenu add: 'find...(f)' action: #findCngSet. aMenu add: 'select change set...' action: #chooseCngSet. aMenu addLine. aMenu add: 'rename change set (r)' action: #rename. aMenu add: 'file out (o)' action: #fileOut. aMenu add: 'mail to list' action: #mailOut. aMenu add: 'browse methods (b)' action: #browseChangeSet. aMenu add: 'browse change set (B)' action: #openChangeSetBrowser. aMenu addLine. parent ifNotNil: [aMenu add: 'copy all to other side (c)' action: #copyAllToOther. aMenu add: 'submerge into other side' action: #submergeIntoOtherSide. aMenu add: 'subtract other side (-)' action: #subtractOtherSide. aMenu addLine]. myChangeSet hasPreamble ifTrue: + [aMenu add: 'edit preamble... (p)' action: #editPreamble. - [aMenu add: 'edit preamble (p)' action: #addPreamble. aMenu add: 'remove preamble' action: #removePreamble] + ifFalse: [aMenu add: 'add preamble... (p)' action: #editPreamble]. - ifFalse: [aMenu add: 'add preamble (p)' action: #addPreamble]. myChangeSet hasPostscript ifTrue: [aMenu add: 'edit postscript...' action: #editPostscript. aMenu add: 'remove postscript' action: #removePostscript] ifFalse: [aMenu add: 'add postscript...' action: #editPostscript]. aMenu addLine. aMenu add: 'destroy change set (x)' action: #remove. aMenu addLine. aMenu add: 'more...' action: #offerShiftedChangeSetMenu. ^ aMenu!

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