The Trunk: PreferenceBrowser-mt.83.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: PreferenceBrowser-mt.83.mcz

commits-2
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]!