Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/PreferenceBrowser-mt.83.mcz==================== Summary ====================
Name: PreferenceBrowser-mt.83
Author: mt
Time: 6 May 2018, 3:14:32.145836 pm
UUID: c19b2b4a-7fff-0d41-9e31-cd0cade6fc4d
Ancestors: PreferenceBrowser-mt.82
Supplement to refactoring in Morphic-mt.1427.
=============== Diff against PreferenceBrowser-mt.82 ===============
Item was changed:
----- Method: PBClassPreferenceView>>textField (in category 'user interface') -----
textField
| field |
field := PluggableTextMorphPlus
on: self
text: #preferenceValue
accept: #preferenceValue:.
field
+ borderStyle: BorderStyle inset;
+ borderWidth: 1;
hideScrollBarsIndefinitely;
acceptOnCR: true;
minimumHeight: 0;
vResizing: #rigid;
hResizing: #spaceFill;
height: TextStyle defaultFont height + 6.
styler ifNotNil: [:s | field styler: (s view: field)].
^ field!
Item was changed:
----- Method: PBNumericPreferenceView>>textField (in category 'user interface') -----
textField
^(PluggableTextMorph
on: self
text: #preferenceValue
accept: #preferenceValue:)
+ borderStyle: BorderStyle inset;
+ borderWidth: 1;
hideScrollBarsIndefinitely;
acceptOnCR: true;
vResizing: #rigid;
hResizing: #spaceFill;
height: TextStyle defaultFont height + 6;
yourself.!
Item was changed:
----- Method: PBTextPreferenceView>>textField (in category 'user interface') -----
textField
^(PluggableTextMorph
on: self
text: #preferenceValue
accept: #preferenceValue:)
hideScrollBarsIndefinitely;
+ borderStyle: BorderStyle inset;
+ borderWidth: 1;
- borderColor: #inset;
- acceptOnCR: true;
- color: Color gray veryMuchLighter;
vResizing: #rigid;
hResizing: #spaceFill;
height: TextStyle defaultFont height + 6;
yourself.!
Item was changed:
----- Method: PreferenceBrowserMorph>>updateSelectedCategoryPreferences (in category 'updating') -----
updateSelectedCategoryPreferences
Cursor wait showWhile:
[self preferenceList
hScrollBarValue: 0;
vScrollBarValue: 0.
self preferenceList scroller removeAllMorphs.
self preferenceList scroller addMorphBack: self newPreferenceListInnerPanel.
+ self adjustPreferenceListItemsWidth.
+ self adoptPaneColor: self paneColor]!
- self adjustPreferenceListItemsWidth]!