[squeak-dev] The Trunk: PreferenceBrowser-ar.37.mcz

Andreas Raab uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/PreferenceBrowser-ar.37.mcz

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

Name: PreferenceBrowser-ar.37
Author: ar
Time: 25 August 2009, 7:40:04 am
UUID: 785c75e7-2a46-6e47-9928-9e5b84d6e2a1
Ancestors: PreferenceBrowser-ar.36

A fix for clients using custom view registries, such as polymorph. Without a bi-directional mapping between type and view registry these become inaccessible leading to problems if one actually tries to use one.

=============== Diff against PreferenceBrowser-ar.36 ===============

Item was changed:
  ----- Method: PreferenceViewRegistry class>>typeOfRegistry: (in category 'accessing') -----
  typeOfRegistry: aRegistry
  "Answer the type name for a particular view registry"
  ^aRegistry caseOf:{
  [self ofBooleanPreferences] -> [#Boolean].
  [self ofColorPreferences] -> [#Color].
  [self ofFontPreferences] -> [#Font].
  [self ofNumericPreferences] -> [#Number].
  [self ofTextPreferences] -> [#String].
  [self ofHaloThemePreferences] -> [#Halo].
  [self registryOf: #windowColorPreferences] -> [#WindowColor].
+ } otherwise:[self registries keyAtIdentityValue: aRegistry ifAbsent:[nil]].!
- } otherwise:[nil]!

Item was changed:
  ----- Method: PreferenceViewRegistry class>>forType: (in category 'accessing') -----
  forType: typeName
  "Answer the preference registry for the given type name"
  ^typeName caseOf:{
  [#Boolean] -> [self ofBooleanPreferences].
  [#Color] -> [self ofColorPreferences].
  [#Font] -> [self ofFontPreferences].
  [#Number] -> [self ofNumericPreferences].
  [#String] -> [self ofTextPreferences].
  [#Halo] -> [self ofHaloThemePreferences].
  [#WindowColor] -> [self registryOf: #windowColorPreferences]
+ } otherwise:[self registryOf: typeName].!
- } otherwise:[nil]!