The Trunk: System-ct.1103.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: System-ct.1103.mcz

commits-2
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"!