Marcel Taeumel uploaded a new version of Services-Base to project The Trunk:
http://source.squeak.org/trunk/Services-Base-mt.69.mcz

==================== Summary ====================

Name: Services-Base-mt.69
Author: mt
Time: 14 October 2020, 2:06:41.584569 pm
UUID: 887b87be-071f-3349-ad16-9cf58979f76b
Ancestors: Services-Base-jr.68

Rename #doWithIndex: to #withIndexDo:. See http://forum.world.st/The-Inbox-60Deprecated-ct-80-mcz-td5120706.html

=============== Diff against Services-Base-jr.68 ===============

Item was changed:
  ----- Method: ServiceGui>>subMenuFor: (in category 'servicecategory') -----
  subMenuFor: aServiceCategory 
  	self pushMenu.
  	aServiceCategory enabledServices
  		ifEmpty: [self menuItemFor: ServiceAction new].
  	aServiceCategory enabledServices
+ 		withIndexDo: [:each :i | self n: i. self menuItemFor: each].
- 		doWithIndex: [:each :i | self n: i. self menuItemFor: each].
  	^ self popMenu!

Item was changed:
  ----- Method: ServiceProvider>>savePreferencesFor: (in category 'persistence') -----
  savePreferencesFor: aService 
  	
  	"pref := ServicePreferences preferenceAt: aService shortcutPreference.
  	strm := WriteStream with: ''.
  	strm nextPutAll: aService id;
  		 nextPutAll: 'shortcut';
  		 cr;
  		 tab;
  		 nextPutAll: '^ ';
  		 nextPutAll: {pref name. pref preferenceValue. 1000} storeString.
  	self class compileSilently: strm contents classified: 'saved preferences'."
  	aService isCategory
  		ifTrue: [aService externalPreferences
+ 				withIndexDo: [:e :i | | strm | 
- 				doWithIndex: [:e :i | | strm | 
  					strm := WriteStream with: aService id asString.
  					strm nextPutAll: e id asString;
  						 cr;
  						 tab;
  						 nextPutAll: '^ ';
  						 nextPutAll: {aService childrenPreferences. e id. i} storeString.
  					e provider class compileSilently: strm contents classified: 'saved preferences']]!