Marcel Taeumel uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ct.1103.mcz==================== Summary ====================
Name: System-ct.1103
Author: ct
Time: 1 October 2019, 3:21:50.387339 pm
UUID: 1db6d7e7-6766-5749-82f2-75d7b94b1c5c
Ancestors: System-mt.1102
Update calls to deprecated ChangeSorter methods and clean up a method
=============== Diff against System-mt.1102 ===============
Item was changed:
----- Method: ChangeSet class>>removeEmptyUnnamedChangeSets (in category 'enumerating') -----
removeEmptyUnnamedChangeSets
"Remove all change sets that are empty, whose names start with Unnamed,
and which are not nailed down by belonging to a Project."
+ "ChangeSet removeEmptyUnnamedChangeSets"
- "ChangeSorter removeEmptyUnnamedChangeSets"
| toGo |
+ toGo := (self changeSetsNamedSuchThat: [:csName | csName beginsWith: 'Unnamed'])
+ select: [:cs | cs isEmpty and: [cs okayToRemoveInforming: false]]
+ thenDo: [:cs | self removeChangeSet: cs].
- (toGo := (self changeSetsNamedSuchThat: [:csName | csName beginsWith: 'Unnamed'])
- select: [:cs | cs isEmpty and: [cs okayToRemoveInforming: false]])
- do: [:cs | self removeChangeSet: cs].
self inform: toGo size printString, ' change set(s) removed.'!
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."
CommonRequestStrings := StringHolder new contents:
'Utilities emergencyCollapse.
Utilities closeAllDebuggers.
RecentMessages default revertMostRecent.
-
MCFileBasedRepository flushAllCaches
-
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''.
+ ChangeSet removeEmptyUnnamedChangeSets.
+ ChangesOrganizer reorderChangeSets.
- ChangeSorter removeEmptyUnnamedChangeSets.
- ChangeSorter reorderChangeSets.
-
ActiveWorld installVectorVocabulary.
ActiveWorld abandonVocabularyPreference.'
"Utilities initializeCommonRequestStrings"!