Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/PreferenceBrowser-mt.52.mcz==================== Summary ====================
Name: PreferenceBrowser-mt.52
Author: mt
Time: 19 April 2015, 9:09:02.265 am
UUID: 489d6297-3cb0-544f-8e78-3218ca5b692e
Ancestors: PreferenceBrowser-mt.51
New interface for managing scrollbar visibility in scroll panes used.
=============== Diff against PreferenceBrowser-mt.51 ===============
Item was changed:
----- Method: PBNumericPreferenceView>>textField (in category 'user interface') -----
textField
^(PluggableTextMorph
on: self
text: #preferenceValue
accept: #preferenceValue:)
+ hideScrollBarsIndefinitely;
- hideVScrollBarIndefinitely: true;
borderColor: #inset;
acceptOnCR: true;
color: Color gray veryMuchLighter;
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;
- hideVScrollBarIndefinitely: true;
borderColor: #inset;
acceptOnCR: true;
color: Color gray veryMuchLighter;
vResizing: #rigid;
hResizing: #spaceFill;
height: TextStyle defaultFont height + 6;
yourself.!
Item was changed:
----- Method: PreferenceBrowserMorph>>newSearchTextField (in category 'submorphs - search panel') -----
newSearchTextField
| ptm |
ptm := PluggableTextMorphPlus
on: self model
text: #searchPatternNeverTriggered
accept: #searchPattern:.
ptm
balloonText: 'Search preferences ...';
+ hideScrollBarsIndefinitely;
- hideVScrollBarIndefinitely: true;
layoutFrame: (LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@ 30));
borderInset;
color: Color white;
vResizing: #rigid;
hResizing: #spaceFill;
height: TextStyle defaultFont height * 2;
acceptOnCR: true;
onKeyStrokeSend: #value to: [ ptm hasUnacceptedEdits ifTrue: [ ptm accept ] ].
^ptm.!