[Pkg] The Trunk: PreferenceBrowser-mt.51.mcz

[commits at source.squeak.org]

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 at 0 corner: 1 at 1) offsets: (0@ 30 corner: 0 at 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 at 0 corner: 0.25 at 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 at 0 corner: 1 at 0) offsets: (0 at 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 at 0 corner: 1 at 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.!