The Trunk: PreferenceBrowser-mt.77.mcz

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

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

Name: PreferenceBrowser-mt.77
Author: mt
Time: 24 August 2016, 9:29:10.757086 am
UUID: 13ffbc3f-d12f-7a49-950d-fb41f6d53d4a
Ancestors: PreferenceBrowser-mt.76

Reduced use of deprecated API.

=============== Diff against PreferenceBrowser-mt.76 ===============

Item was changed:
  ----- Method: PBColorPreferenceView>>colorMenuButton (in category 'user interface') -----
  colorMenuButton
  | selector name |
  name := self preference name.
  (name includesSubstring: 'border' caseSensitive: false)
  ifTrue: [ selector := #borderStyleMenu]
  ifFalse:[ selector := #fillStyleMenu].
  button := SimpleButtonMorph new
  label: self preference preferenceValue asString;
  actionSelector: selector;
  target: self.
+
- name = #menuBorderColor
- ifTrue:[ ^button borderColor: MenuMorph menuBorderColor; borderWidth: MenuMorph menuBorderWidth].
- name = #menuTitleBorderColor
- ifTrue:[ ^button borderColor: MenuMorph menuTitleBorderColor; borderWidth: MenuMorph menuTitleBorderWidth].
  self adjustLabelColor.
  ^button color: self preference preferenceValue
 
 
  "UpdatingRectangleMorph new
  target: self preference;
  getSelector: #preferenceValue;
  putSelector: #preferenceValue:;
  extent: 22@22;
  setBalloonText: 'click here to change the color' translated;
  yourself."!

Item was changed:
  ----- Method: PBColorPreferenceView>>setBorderStyle: (in category 'user interface') -----
  setBorderStyle: aBorderStyle
+
- self preference name = #menuBorderColor
- ifTrue: [button color: MenuMorph menuColor;
- borderWidth: MenuMorph menuBorderWidth].
- self preference name = #menuTitleBorderColor
- ifTrue: [button color: MenuMorph menuTitleColor;
- borderWidth: MenuMorph menuTitleBorderWidth].
  self preference preferenceValue: aBorderStyle.
  button label: self preference preferenceValue asString;
  borderColor: aBorderStyle.
  !