[squeak-dev] The Trunk: PreferenceBrowser-mt.50.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Apr 14 15:05:36 UTC 2015


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.!



More information about the Squeak-dev mailing list