The Inbox: System-dtl.1059.mcz

> David T. Lewis uploaded a new version of System to project The Inbox:
> http://source.squeak.org/inbox/System-dtl.1059.mcz
>
> ==================== Summary ====================
>
> Name: System-dtl.1059
> Author: dtl
> Time: 4 April 2019, 6:51:23.984741 pm
> UUID: 7c74270f-ee6f-4dd4-8668-e55a6f9071c5
> Ancestors: System-eem.1058
>
> Update the Do menu in the world docking bar.
>
> Move the ensureRecentMetacello and installGitInfrastructure entries down one category to allow emergencyCollapse and closeAllDebuggers to be in their expected position in the menu for the benefit of keyboard navigation.
>
> If Monticello is present in the image, add "MCFileBasedRepository flushAllCaches", an obscure but frequently needed memory cleanup.
>
> Update menus in the package postscript.
>
> =============== Diff against System-eem.1058 ===============
>
> Item was changed:
>   ----- Method: Utilities class>>initializeCommonRequestStrings (in category 'common requests') -----
>   initializeCommonRequestStrings
>   "Initialize the common request strings, a directly-editable list of expressions that can be evaluated from the 'do...' menu."
>  
> + "Utilities initializeCommonRequestStrings"
> +
> + | flushMC |
> + flushMC := (Smalltalk hasClassNamed:#MCFileBasedRepository)
> + ifTrue: ['MCFileBasedRepository flushAllCaches.' , String cr , '-' , String cr]
> + ifFalse: [''].
> +
>   CommonRequestStrings := StringHolder new contents:
> + 'Utilities emergencyCollapse.
> - 'Installer ensureRecentMetacello.
> - Installer installGitInfrastructure.
> - -
> - Utilities emergencyCollapse.
>   Utilities closeAllDebuggers.
>   -
> + Installer ensureRecentMetacello.
> + Installer installGitInfrastructure.
> + -
> + ' , flushMC,
> + 'Sensor keyboard.
> - Sensor keyboard.
>   ParagraphEditor abandonChangeText.
>   Cursor normal show.
>   -
>   CommandHistory resetAllHistory.
>   Project allInstancesDo: [:p | p displayDepth: 16].
>   ScriptingSystem inspectFormDictionary.
>   Form fromUser bitEdit.
>   Display border: (0@0 extent: 640@480) width: 2.
>   -
>   Undeclared inspect.
>   Undeclared removeUnreferencedKeys; inspect.
>   Transcript clear.
>   Utilities grabScreenAndSaveOnDisk.
>   FrameRateMorph new openInHand.
>   -
>   Utilities reconstructTextWindowsFromFileNamed: ''TW''.
>   Utilities storeTextWindowContentsToFileNamed: ''TW''.
>   ChangeSorter removeEmptyUnnamedChangeSets.
>   ChangeSorter reorderChangeSets.
>   -
>   ActiveWorld installVectorVocabulary.
>   ActiveWorld abandonVocabularyPreference.
>   Smalltalk saveAsNewVersion.'
> + !
> -
> - "Utilities initializeCommonRequestStrings"!
>
> Item was changed:
> + (PackageInfo named: 'System') postscript: '"Update commonRequestStrings for the Do menu in world docking bar."
> +
> + (Utilities commonRequestStrings contents includesSubstring: ''MCFileBasedRepository'')
> + ifFalse: [ Utilities cleanUp: true ].
> + '!
> - (PackageInfo named: 'System') postscript: '"Update user interface themes."
> - UserInterfaceTheme cleanUpAndReset.'!
>
>