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 at 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.
  	!