[squeak-dev] The Trunk: System-ct.1103.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Oct 2 07:39:45 UTC 2019


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 at 0 extent: 640 at 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"!



More information about the Squeak-dev mailing list