[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
|