The Trunk: PreferenceBrowser-mt.51.mcz

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

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

Name: PreferenceBrowser-mt.51
Author: mt
Time: 15 April 2015, 5:00:21.164 pm
UUID: 9bcdaa03-bc59-854d-8a1d-4412c4ac1051
Ancestors: PreferenceBrowser-mt.50

Update to support retractableScrollBars. TableLayout seems to go crazy about it. :-)

=============== Diff against PreferenceBrowser-mt.50 ===============

Item was changed:
  ----- Method: PreferenceBrowserMorph>>initializeWithModel: (in category 'initialization') -----
  initializeWithModel: aPreferenceBrowser
  lastKeystrokeTime := 0.
  lastKeystrokes := ''.
  self
  model: aPreferenceBrowser;
- clipSubmorphs: true;
  setLabel: self model windowTitle;
  name: 'PreferenceBrowser';
  addMorph: self rootPanel fullFrame: self rootPanelLayoutFrame;
  addMorph: self newButtonRow fullFrame: self buttonRowLayoutFrame.!

Item was changed:
  ----- Method: PreferenceBrowserMorph>>mainPanel (in category 'submorphs - main panel') -----
  mainPanel
  ^mainPanel ifNil:
+ [mainPanel := BorderedMorph new
- [mainPanel := Morph new
  color: Color transparent;
+ borderWidth: 0;
  hResizing: #spaceFill;
  vResizing: #spaceFill;
  cellInset: 5;
+ changeProportionalLayout;
- layoutPolicy: TableLayout new;
- listCentering: #topLeft;
- listDirection: #leftToRight;
- cellPositioning: #topLeft;
- clipSubmorphs: true;
  on: #mouseEnter send: #paneTransition: to: self;
  addMorphBack: self newCategoryList;
  addMorphBack: self preferenceList;
+ layoutFrame: (LayoutFrame fractions: (0@0 corner: 1@1) offsets: (0@ 30 corner: 0@0));
+ addPaneSplitters;
  yourself].!

Item was changed:
  ----- Method: PreferenceBrowserMorph>>newCategoryList (in category 'submorphs - category list') -----
  newCategoryList
  ^(PluggableListMorph
  on: self model
  list: #categoryList
  selected: #selectedCategoryIndex
  changeSelected: #selectedCategoryIndex:)
  color: Color white;
  borderInset;
+ hResizing: #spaceFill;
  vResizing: #spaceFill;
+ layoutFrame: (LayoutFrame fractions: (0@0 corner: 0.25@1));
- hResizing: #rigid;
- width: 150;
  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 ...';
  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.!

Item was changed:
  ----- Method: PreferenceBrowserMorph>>preferenceList (in category 'submorphs - preference list') -----
  preferenceList
  ^preferenceList ifNil:
  [preferenceList := ScrollPane new
  color: Color white;
  borderInset;
  vResizing: #spaceFill;
+ hResizing: #spaceFill;
+ layoutFrame: (LayoutFrame fractions: (0.25@0 corner: 1@1)).
- hResizing: #spaceFill.
  preferenceList scroller
  on: #mouseEnter send: #value:
  to: [:event | event hand newKeyboardFocus: preferenceList scroller];
  on: #keyStroke send: #keyPressed: to: self.
  preferenceList.]!

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