The Trunk: PreferenceBrowser-mt.50.mcz

Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/PreferenceBrowser-mt.50.mcz

==================== Summary ====================

Name: PreferenceBrowser-mt.50
Author: mt
Time: 14 April 2015, 5:05:30.706 pm
UUID: 26cf7124-6923-664f-9f77-0924580051ed
Ancestors: PreferenceBrowser-fbs.49

After fixing those nasty GUI bugs in SystemWindow, the preference browser had to be adapted. Looks somewhat nicer now. More like the other tools in the system.

Note: We still need to introduce ToolBuilder to the preference browser.

=============== Diff against PreferenceBrowser-fbs.49 ===============

Item was changed:
  ----- Method: PreferenceBrowserMorph>>mainPanel (in category 'submorphs - main panel') -----
  mainPanel
  ^mainPanel ifNil:
  [mainPanel := Morph new
  color: Color transparent;
  hResizing: #spaceFill;
  vResizing: #spaceFill;
  cellInset: 5;
  layoutPolicy: TableLayout new;
  listCentering: #topLeft;
  listDirection: #leftToRight;
  cellPositioning: #topLeft;
  clipSubmorphs: true;
  on: #mouseEnter send: #paneTransition: to: self;
+ addMorphBack: self newCategoryList;
+ addMorphBack: self preferenceList;
- addMorphBack: self newCategoryListPanel;
- addMorphBack: self newPreferenceListPanel;
  yourself].!

Item was changed:
  ----- Method: PreferenceBrowserMorph>>newButtonRow (in category 'submorphs - buttons') -----
  newButtonRow
  ^BorderedMorph new
  color: Color transparent;
+ borderWidth: 0;
  cellInset: 2;
  layoutInset: 2;
  layoutPolicy: TableLayout new;
  listDirection: #leftToRight;
  listCentering: #topLeft;
  cellPositioning: #topLeft;
  on: #mouseEnter send: #paneTransition: to: self;
  on: #mouseLeave send: #paneTransition: to: self;
  addMorphBack: self defaultButton;
  addMorphBack: self newSeparator;
  addMorphBack: self saveButton;
  addMorphBack: self loadButton;
  addMorphBack: self newSeparator;
  addMorphBack: self saveToDiskButton;
  addMorphBack: self loadFromDiskButton;
  addMorphBack: self newSeparator;
  addMorphBack: self themeButton;
  addMorphBack: self newTransparentFiller;
  addMorphBack: self helpButton;
  yourself.!

Item was changed:
  ----- Method: PreferenceBrowserMorph>>newSearchTextField (in category 'submorphs - search panel') -----
  newSearchTextField
  | ptm |
+ ptm := PluggableTextMorphPlus
- ptm := PluggableTextMorph
  on: self model
  text: #searchPatternNeverTriggered
  accept: #searchPattern:.
  ptm
+ balloonText: 'Search preferences ...';
  hideVScrollBarIndefinitely: true;
  borderInset;
  color: Color white;
  vResizing: #rigid;
  hResizing: #spaceFill;
  height: TextStyle defaultFont height * 2;
  acceptOnCR: true;
  onKeyStrokeSend: #value to: [ ptm hasUnacceptedEdits ifTrue: [ ptm accept ] ].
  ^ptm.!

Item was changed:
  ----- Method: PreferenceBrowserMorph>>rootPanel (in category 'submorphs - root panel') -----
  rootPanel
  ^BorderedMorph new
  color: Color transparent;
+ borderWidth: 0;
- layoutInset: 10;
  cellInset: 10;
  layoutPolicy: TableLayout new;
  listDirection: #topToBottom;
  listCentering: #topLeft;
  cellPositioning: #topLeft;
+ addMorphBack: self newSearchTextField;
- addMorphBack: self newSearchPanel;
  addMorphBack: self mainPanel;
  yourself.!