The Trunk: Services-Base-mt.69.mcz

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

The Trunk: Services-Base-mt.69.mcz

Marcel Taeumel uploaded a new version of Services-Base to project The Trunk:

==================== 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

=============== 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';
  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;
  nextPutAll: '^ ';
  nextPutAll: {aService childrenPreferences. e id. i} storeString.
  e provider class compileSilently: strm contents classified: 'saved preferences']]!