Squeak-dev December 2021

squeak-dev@lists.squeakfoundation.org

30 participants
391 discussions

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

The Trunk: PreferenceBrowser-mt.124.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.124.mcz ==================== Summary ==================== Name: PreferenceBrowser-mt.124 Author: mt Time: 31 December 2021, 9:45:05.003725 am UUID: 2bcd047d-e488-a248-b512-ef43d4611855 Ancestors: PreferenceBrowser-mt.123 Allow users to experiment with various scale factors in the wizard, which requires to hide some static texts to be able to click on 100% again after trying, e.g., 300%. =============== Diff against PreferenceBrowser-mt.123 =============== Item was changed: ----- Method: PreferenceWizardMorph>>step (in category 'stepping') ----- step + | oldBounds | - | oldWidth oldBounds | "self comeToFront." isFullScreen == true ifTrue: [ oldBounds := self bounds. self bounds: self world bounds. self bounds = oldBounds ifFalse: [ + self updateWindowBounds. + self updatePageVisibility]] - self updateWindowBounds]] ifFalse: [ - oldWidth := self width. self width: self world width. + self center: self world center].! - self center: self world center. - self width = oldWidth ifFalse: [ - self updateWindowBounds]].! Item was added: + ----- Method: PreferenceWizardMorph>>updatePageVisibility (in category 'layout') ----- + updatePageVisibility + "Hide extra labels if page has not enough space." + + | currentPage scrollPane enoughRoom topText bottomText firstItem | + controlMorph ifNil: [^ self]. + controlMorph submorphs size > 1 ifFalse: [^ self]. + currentPage := controlMorph lastSubmorph. + scrollPane := currentPage submorphs second. + + topText := controlMorph firstSubmorph. + bottomText := currentPage lastSubmorph isTextMorph + ifTrue: [currentPage lastSubmorph]. + firstItem := scrollPane scroller firstSubmorph firstSubmorph. "checkbox" + + enoughRoom := topText visible + ifTrue: [firstItem height <= scrollPane height] + ifFalse: [firstItem height <= (scrollPane height + - topText height - (bottomText ifNil: [0] ifNotNil: [:t | t height]))]. + + enoughRoom not + ifTrue: [ + controlMorph firstSubmorph + visible: false; + disableLayout: true. + currentPage lastSubmorph isTextMorph + ifTrue: [ + currentPage lastSubmorph + visible: false; + disableLayout: true]] + ifFalse: [ + controlMorph firstSubmorph + visible: true; + disableLayout: false. + currentPage lastSubmorph isTextMorph + ifTrue: [ + currentPage lastSubmorph + visible: true; + disableLayout: false]]!

1 0

fileout workspace contents on accept preference issues
by tim Rowledge 31 Dec '21

31 Dec '21

Whilst running down the list of preference I noticed a new one (to me, at least) to save a Workspace's content to a file when you accept. Now that's quite a nice idea, but it clashes a bit with something we already had - you could save a Workspace to a file using the window menu. Later one might open that file from a FileList, which actually involves making a weird instance of a FileList showing only a text view. And that brings up the decidedly naff hierarchy of FileList2 etc and... blech. But whatever, you get a file editor that saves the text on accept. And that (mis)uses #newFileNamed: in such a way that deciding to cancel opens a debugger, of all things. Very naff. I hope to offer some improvements to that situation soon. This new Workspace regime has the same 'save contents to file...' window menu entry but it now also saves the directory part of the chosen filename and resets the window title to the leaf name. That means if you change the window title it will change the filename used to save your content in, which isn't really telegraphed anywhere and could be very confusing. Perhaps if the window label were actually shown as the full file path it might make if a bit more obvious? Also, a suggestion relating to the above editing of files from the FileList; I don't see any reason not to open a workspace(*) instead of the rather weird subtype of FileList-with-no-file-list-capability. It would be more consistent to open a WorkSpace, save it, and then open a WorkSpace from the FileList. Perhaps if we saved as a '.wkspc' file instead of a rather generic '.text' we might make a Service entry to discriminate between a workspace file and a plain text file? Obviously a plain text file should be edited within a not-code-editor environment as well, so some small refactoring of StringHolder/Workspace might be needed. It would also be an opportunity to dump the odd-file-list thing. And finally for tonight, it reminds me of the tacky mess we have in menu setup now. We have jolly nice hierarchical menus that we really should use more often and more effectively. Look at the Workspace menu - 27 entries and a 'more...' then 18 more. Are we Microsoft or something? tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim How do I set my laser printer on stun?

3 4

#tinyDisplay, low-ppi, or 75% scale factor
by Marcel Taeumel 30 Dec '21

30 Dec '21

Hi all -- Christoph (ct) suggested scale factors below 100%. Since there already is the #tinyDisplay preference, I sketched a 75% scale using our smallest, pre-rendered "Bitmap DejaVu Sans". Please find attached a changeset and a screenshot. Looks good. It's about 71%, given that 100% is 10.5pt, 96.0 ppi, and 14px height. Best, Marcel

2 4

The Trunk: Monticello-eem.763.mcz
by commits＠source.squeak.org 30 Dec '21

30 Dec '21

Eliot Miranda uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-eem.763.mcz ==================== Summary ==================== Name: Monticello-eem.763 Author: eem Time: 30 December 2021, 12:02:50.794873 pm UUID: 05d83387-607f-405a-b895-891651a739a1 Ancestors: Monticello-mt.762 MCPatchOperation's subclasses implementations of #= prevent comparison with arbitr5ary objects. Add Object>>isMCPatchOperation and use it in the #= implementations. Sp now one can do e.g. SequenceableCollection allSubInstances select: [:s| s isCompiledCode not and: [(s indexOfSubCollection: #(2 2 2 2 3 2 2 1 1 1 2 3 3 3 3 4)) > 0]] without error. =============== Diff against Monticello-mt.762 =============== Item was changed: ----- Method: MCAddition>>= (in category 'comparing') ----- = other + ^other isMCPatchOperation + and: [other isAddition + and: [definition = other definition]]! - ^ other isAddition and: [definition = other definition]! Item was changed: ----- Method: MCModification>>= (in category 'comparing') ----- = other + ^other isMCPatchOperation + and: [other isModification + and: [obsoletion = other obsoletion + and: [modification = other modification]]]! - ^ other isModification - and: [obsoletion = other obsoletion - and: [modification = other modification]]! Item was added: + ----- Method: MCPatchOperation>>isMCPatchOperation (in category 'testing') ----- + isMCPatchOperation + ^true! Item was changed: ----- Method: MCRemoval>>= (in category 'comparing') ----- = other + ^other isMCPatchOperation + and: [other isRemoval + and: [definition = other definition]]! - ^ other isRemoval and: [definition = other definition]! Item was added: + ----- Method: Object>>isMCPatchOperation (in category '*Monticello-Patching-testing') ----- + isMCPatchOperation + ^false!

1 0

Processor activeProcess suspendedContext notNil during simulation
by christoph.thiede＠student.hpi.uni-potsdam.de 30 Dec '21

30 Dec '21

Hi all, the docs on suspendedContext in the Process class comment say: if nil, then I am either the active process or I have been terminated. If not nil it is the Context at the hot end of my stack To me, this would indicate the following invariant: self assert: Processor activeProcess suspendedContext isNil. However, this invariant is violated if you simulate this expression rather executing it: (Process forBlock: [self assert: Processor activeProcess suspendedContext isNil] runUntil: [:ctx | ctx isDead or: [ctx selector = #defaultAction]]) resume. Do you think this is a bug and should be fixed? We could do this by patching all assignors to suspendedContext in the 'changing suspended state' protocol on Process, maybe even as a small pattern like this: step ^ self doStep: [:ctx | ctx step] stepToCallee "Step until top context changes" ^ self doStep: [:ctx | | ctxt | ctxt := ctx. [ctxt == ctx] whileTrue: [ctxt := ctxt step]. ctxt] doStep: aBlock | ctxt | ctxt := suspendedContext. suspendedContext := nil. ^ suspendedContext := Processor activeProcess evaluate: [aBlock value: ctxt] onBehalfOf: self Where #doStep: would handle the effective process and read, set to nil, and set again the suspendedContext of the receiver. Disclaimer: The above is pseudocode only so far. Or isn't this worth the overhead and the invariant above has only to be valid for processes that are executed by the VM? :-) Best, Christoph --- Sent from Squeak Inbox Talk

1 1

CompiledCode(SequenceableCollection)>>#flatten
by christoph.thiede＠student.hpi.uni-potsdam.de 30 Dec '21

30 Dec '21

Hi all, this fails: {Object >> #halt} flatten. CompiledMethod(Object)>>error: Receiver: (Object>>#halt "a CompiledMethod(343681)") Arguments and temporary variables: aString: 'subscript is out of bounds: 1' Receiver's instance variables: (Object>>#halt "a CompiledMethod(343681)") CompiledMethod(Object)>>errorSubscriptBounds: Receiver: (Object>>#halt "a CompiledMethod(343681)") Arguments and temporary variables: index: 1 Receiver's instance variables: (Object>>#halt "a CompiledMethod(343681)") CompiledMethod(Object)>>at: Receiver: (Object>>#halt "a CompiledMethod(343681)") Arguments and temporary variables: index: 1 Receiver's instance variables: (Object>>#halt "a CompiledMethod(343681)") CompiledMethod(SequenceableCollection)>>do: Receiver: (Object>>#halt "a CompiledMethod(343681)") Arguments and temporary variables: aBlock: [closure] in [] in CompiledMethod(SequenceableCollection)>>flatten index: 1 indexLimiT: 48 Receiver's instance variables: (Object>>#halt "a CompiledMethod(343681)") [] in CompiledMethod(SequenceableCollection)>>flatten Receiver: (Object>>#halt "a CompiledMethod(343681)") Arguments and temporary variables: stream: a WriteStream Receiver's instance variables: (Object>>#halt "a CompiledMethod(343681)") You get the problem, we don't want to split up compiled codes. How should we fix it? Replace each isString with something like each canBeFlattened? Or just override #flatten on String and CompiledCode instead? By the way, I am also not sure whether this is what we expect: {'foo'. 'bar' asText. UUID new} flatten. "#('foo' $b $a $r 188 125 70 227 253 103 13 67 180 100 32 52 18 134 92 153)" Maybe also override #flatten on Text and UUID? Any other collections that we do not want to flatten? It is hard to make this decision without knowledge about the domain-specific context ... :-) Best, Christoph --- Sent from Squeak Inbox Talk

4 3

← Newer
1
...
7
8
9
10
11
12
13
...
40
Older →

Jump to page: