[squeak-dev] The Trunk: PreferenceBrowser-mt.91.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Aug 22 13:24:54 UTC 2019
Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/PreferenceBrowser-mt.91.mcz
==================== Summary ====================
Name: PreferenceBrowser-mt.91
Author: mt
Time: 22 August 2019, 3:24:55.497931 pm
UUID: 81841a24-8d1b-0540-9c59-086f362cc717
Ancestors: PreferenceBrowser-mt.90
Complements Morphic-mt.1506 including cellInset-to-cellGap conversion.
=============== Diff against PreferenceBrowser-mt.90 ===============
Item was changed:
----- Method: PBBooleanPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') -----
representativeButtonWithColor: aColor inPanel: aPreferencesPanel
^self horizontalPanel
layoutInset: 2;
+ cellGap: 7;
- cellInset: 7;
color: aColor;
addMorphBack: self morphForName;
addMorphBack: self horizontalFiller;
addMorphBack: self enabledButton;
addMorphBack: self localToProjectButton;
yourself.!
Item was changed:
----- Method: PBColorPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') -----
representativeButtonWithColor: aColor inPanel: aPreferenceBrowser
^self horizontalPanel
layoutInset: 2;
color: aColor;
+ cellGap: 20;
- cellInset: 20;
cellPositioning: #center;
addMorphBack: self morphForName;
addMorphBack: self horizontalFiller;
addMorphBack: self colorMenuButton;
yourself!
Item was changed:
----- Method: PBNumericPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') -----
representativeButtonWithColor: aColor inPanel: aPreferenceBrowser
^self horizontalPanel
layoutInset: 2;
color: aColor;
+ cellGap: 20;
- cellInset: 20;
cellPositioning: #center;
addMorphBack: self morphForName;
addMorphBack: self horizontalFiller;
addMorphBack: self textField;
yourself.!
Item was changed:
----- Method: PBPreferenceButtonMorph>>addExtraControls (in category 'extra controls') -----
addExtraControls
| m |
m := self horizontalPanel
+ cellGap: 3;
- cellInset: 3;
addAllMorphs: self actionButtons;
addMorphBack: self horizontalFiller;
addMorphBack: self moreButton;
yourself.
self
addMorphBack: (self blankSpaceOf: 2 at 2);
addMorphBack: self preferenceHelpTextMorph;
addMorphBack: self horizontalLine;
addMorphBack: self preferenceCodeTextMorph;
fullBounds; "to force a layout compute needed by the textMorphs's autoFit"
addMorphBack: m
!
Item was changed:
----- Method: PBPreferenceButtonMorph>>basicPanel (in category 'utility methods') -----
basicPanel
^BorderedMorph new
beTransparent;
extent: 0 at 0;
borderWidth: 0;
layoutInset: 0;
+ cellGap: 0;
- cellInset: 0;
layoutPolicy: TableLayout new;
listCentering: #topLeft;
cellPositioning: #center;
hResizing: #spaceFill;
vResizing: #shrinkWrap;
yourself!
Item was changed:
----- Method: PBPreferenceButtonMorph>>initializeLayout (in category 'initialization') -----
initializeLayout
self layoutPolicy: TableLayout new;
beTransparent;
layoutInset: 0;
+ cellGap: 0;
- cellInset: 0;
listCentering: #topLeft;
cellPositioning: #topLeft;
listDirection: #topToBottom;
hResizing: #spaceFill;
vResizing: #shrinkWrap. !
Item was changed:
----- Method: PBPreferenceView>>basicPanel (in category 'user interface') -----
basicPanel
^BorderedMorph new
beTransparent;
extent: 0 at 0;
borderWidth: 0;
layoutInset: 0;
+ cellGap: 5;
- cellInset: 5;
layoutPolicy: TableLayout new;
listCentering: #topLeft;
cellPositioning: #center;
hResizing: #shrinkWrap;
vResizing: #shrinkWrap;
yourself!
Item was changed:
----- Method: PBTextPreferenceView>>representativeButtonWithColor:inPanel: (in category 'user interface') -----
representativeButtonWithColor: aColor inPanel: aPreferenceBrowser
^self horizontalPanel
layoutInset: 2;
color: aColor;
+ cellGap: 20;
- cellInset: 20;
cellPositioning: #center;
addMorphBack: self morphForName;
addMorphBack: self textField;
yourself.!
Item was changed:
----- Method: PreferenceBrowserMorph>>mainPanel (in category 'submorphs - main panel') -----
mainPanel
^mainPanel ifNil:
[mainPanel := BorderedMorph new
color: Color transparent;
borderWidth: 0;
hResizing: #spaceFill;
vResizing: #spaceFill;
+ cellGap: 5;
- cellInset: 5;
changeProportionalLayout;
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>>newButtonRow (in category 'submorphs - buttons') -----
newButtonRow
^BorderedMorph new
color: Color transparent;
borderWidth: 0;
+ cellGap: 2;
- 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>>newCategoryListPanel (in category 'submorphs - category list') -----
newCategoryListPanel
^Morph new
hResizing: #shrinkWrap;
vResizing: #spaceFill;
color: Color transparent;
layoutPolicy: TableLayout new;
+ cellGap: 3;
- cellInset: 3;
listCentering: #topLeft;
listDirection: #topToBottom;
cellPositioning: #topLeft;
clipSubmorphs: true;
addMorphBack: self newCategoryListPanelLabel;
addMorphBack: self newCategoryList!
Item was changed:
----- Method: PreferenceBrowserMorph>>newPreferenceListPanel (in category 'submorphs - preference list') -----
newPreferenceListPanel
| panel |
panel := Morph new
hResizing: #spaceFill;
vResizing: #spaceFill;
color: Color transparent;
layoutPolicy: TableLayout new;
+ cellGap: 3;
- cellInset: 3;
listCentering: #topLeft;
listDirection: #topToBottom;
cellPositioning: #topLeft;
clipSubmorphs: true;
addMorphBack: self newPreferenceListPanelLabel;
addMorphBack: self preferenceList.
^panel.!
Item was changed:
----- Method: PreferenceBrowserMorph>>newSearchPanel (in category 'submorphs - search panel') -----
newSearchPanel
| bottom |
bottom := Morph new
color: Color transparent;
+ cellGap: 5;
- cellInset: 5;
layoutPolicy: TableLayout new;
listDirection: #leftToRight;
listCentering: #topLeft;
cellPositioning: #topLeft;
hResizing: #spaceFill;
vResizing: #shrinkWrap;
addMorphBack: self newSearchTextField
yourself.
^Morph new
color: Color transparent;
layoutPolicy: TableLayout new;
listDirection: #topToBottom;
listCentering: #topLeft;
cellPositioning: #topLeft;
hResizing: #spaceFill;
vResizing: #shrinkWrap;
+ cellGap: 3;
- cellInset: 3;
addMorphBack: (StringMorph contents: 'Search preferences for: ');
addMorphBack: bottom;
yourself.!
Item was changed:
----- Method: PreferenceWizardMorph>>createCheckbox:for:help: (in category 'initialization') -----
createCheckbox: label for: selector help: terms
| box lbl btn |
btn := self createButton
layoutInset: 0;
label: ' ';
onColor: (self defaultColor adjustBrightness: 0.3) offColor: (self defaultColor adjustBrightness: 0.3);
vResizing: #rigid;
hResizing: #rigid;
action: ('toggle', selector) asSymbol;
getStateSelector: ('state', selector) asSymbol;
getLabelSelector: ('label', selector) asSymbol;
extent: 25 at 25.
lbl := self createLabel: label color: self defaultTextColor.
box := Morph new
color: Color transparent;
changeTableLayout;
listDirection: #leftToRight;
cellPositioning: #topLeft;
hResizing: #spaceFill;
vResizing: #shrinkWrap;
+ cellGap: 10;
- cellInset: 10;
yourself.
box addAllMorphs: {btn. lbl}.
self
setBalloonText: (terms isString ifTrue: [terms] ifFalse: [self findHelpStringFor: terms])
for: box.
^ box!
Item was changed:
----- Method: PreferenceWizardMorph>>createPage (in category 'initialization') -----
createPage
^ Morph new
color: Color transparent;
hResizing: #spaceFill;
vResizing: #spaceFill;
changeTableLayout;
listDirection: #topToBottom;
cellPositioning: #topLeft;
layoutInset: 20;
+ cellGap: 10;
- cellInset: 10;
yourself!
Item was changed:
----- Method: PreferenceWizardMorph>>initialize (in category 'initialization') -----
initialize
super initialize.
isFullScreen := false.
self hasLowPerformance
ifTrue: [self color: self defaultColor]
ifFalse: [self color: (self defaultColor alpha: 0.75)].
self setProperty: #indicateKeyboardFocus toValue: #never.
Preferences enable: #systemWindowEmbedOK.
titleMorph := ('Welcome to Squeak' translated asText
addAttribute: (TextColor color: self defaultTextColor);
addAttribute: (TextFontReference toFont: (StrikeFont familyName: 'Darkmap DejaVu Sans' pointSize: 20));
yourself) asMorph lock.
titleMorph margins: (10 at 0 corner: 10 at 10).
titleMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0) offsets: (0@ 0 corner: 0 @ titleMorph height)).
self
initializePages;
initializeButtons;
initializeControlMorph;
initializePreviewWorld;
initializeForLowPerformance.
self
changeProportionalLayout;
layoutInset: 20;
+ cellGap: 10;
- cellInset: 10;
cellPositioning: #center;
addAllMorphs: {titleMorph. buttonRowMorph. controlMorph. previewWorld. startButton. skipButton. lowPerformanceMorph}.
self addKeyboardCaptureFilter: self.!
Item was changed:
----- Method: PreferenceWizardMorph>>initializeButtons (in category 'initialization') -----
initializeButtons
buttonRowMorph := Morph new
color: Color transparent;
changeTableLayout;
listDirection: #leftToRight;
+ cellGap: 10;
- cellInset: 10;
layoutInset: (0 at 20 corner: 0 at 0);
vResizing: #shrinkWrap;
hResizing: #spaceFill;
yourself.
buttonRowMorph addAllMorphs: {
previousButton := self createButton action: #previous; label: 'Previous' translated.
pagesLabel := (self createLabel: '0 / 0') hResizing: #shrinkWrap; margins: (20 at 0 corner: 20 at 0); fullBounds; yourself.
nextButton := self createButton action: #next; label: 'Next' translated.
self createHorizontalSpacer.
self createButton action: #showSqueak; label: 'Done' translated}.
buttonRowMorph fullBounds.
buttonRowMorph layoutFrame: (LayoutFrame fractions: (0 @ 1 corner: 1 @ 1) offsets: (0@ buttonRowMorph height negated corner: 0 @ 0)).
startButton := (self createButton action: #showPlayfield; label: 'Configure' translated).
skipButton := (self createButton action: #showSqueak; label: 'Skip' translated).
(startButton width max: skipButton width) in: [:w |
startButton hResizing: #rigid; width: w.
skipButton hResizing: #rigid; width: w.
startButton layoutFrame: (LayoutFrame fractions: (0.5 @ 0.6 corner: 0.5 @ 0.6) offsets: (2*w negated @ 0 corner: 0 @ 0)).
skipButton layoutFrame: (LayoutFrame fractions: (0.5 @ 0.6 corner: 0.5 @ 0.6) offsets: (0@ 0 corner: 2*w @ 0))].!
More information about the Squeak-dev
mailing list
|