Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/PreferenceBrowser-mt.93.mcz==================== Summary ====================
Name: PreferenceBrowser-mt.93
Author: mt
Time: 17 September 2019, 6:59:02.275217 pm
UUID: 51883810-e404-f647-a062-5815539dc0a5
Ancestors: PreferenceBrowser-mt.92
Minor correction in layout configuration for input fields in preference browser.
Note that at some point we should really rewrite that using ToolBuilder.
=============== Diff against PreferenceBrowser-mt.92 ===============
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;
+ wrapFlag: false;
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;
+ wrapFlag: false;
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:)
acceptOnCR: true;
+ wrapFlag: false;
hideScrollBarsIndefinitely;
borderStyle: BorderStyle inset;
borderWidth: 1;
vResizing: #rigid;
hResizing: #spaceFill;
height: TextStyle defaultFont height + 6;
+
yourself.!