[squeak-dev] The Trunk: PreferenceBrowser-mt.140.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Mar 28 09:29:34 UTC 2022
Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/PreferenceBrowser-mt.140.mcz
==================== Summary ====================
Name: PreferenceBrowser-mt.140
Author: mt
Time: 28 March 2022, 11:29:33.206448 am
UUID: 2334a5fb-5e75-7f41-bc1e-9c3bd9fc933d
Ancestors: PreferenceBrowser-mt.139
Complements System-mt.1331
=============== Diff against PreferenceBrowser-mt.139 ===============
Item was changed:
----- Method: PreferenceWizardMorph>>updateFromChangedScaleFactor (in category 'display scale') -----
updateFromChangedScaleFactor
- DisplayScreen displayIsFullScreen ifFalse: [
- DisplayScreen setNewScreenSize: (Display uiScaleFactor = 0.75
- ifTrue: [800 at 600]
- ifFalse: [(self defaultExtent * RealEstateAgent scaleFactor) rounded])].
-
checkmark := nil.
radiomark := nil.
self
layoutInset: (self defaultFont widthOf: $x) * 2;
cellGap: (self defaultFont widthOf: $x).
titleMorph
font: (UserInterfaceTheme current get: #wizardTitleFont);
margins: (self cellGap @ 0 corner: self cellGap @ self cellGap).
titleMorph layoutFrame
bottomOffset: titleMorph height.
self updateLowPerformanceLabel: lowPerformanceMorph contents.
"buttons"
{startButton. skipButton. previousButton. nextButton. doneButton},
(pages gather: [:page | page allMorphs select: [:ea | ea isButton]])
do: [:button |
((button owner hasProperty: #isRadioButton)
or: [button owner hasProperty: #isCheckbox])
ifTrue: [
button
"layoutInset: 0;"
extent: (TextStyle defaultFont height * 1.75) asPoint;
update: button getLabelSelector.
button owner cellGap: (TextStyle defaultFont widthOf: $x).
button owner balloonText ifNotNil: [:text |
text addAttribute: (TextFontReference toFont: (UserInterfaceTheme current get: #wizardHelpFont))]]
ifFalse: [
button
layoutInset: self defaultButtonMargins].
button
borderWidth: (2 * RealEstateAgent scaleFactor) truncated;
font: (UserInterfaceTheme current get: #wizardButtonFont);
updateMinimumExtent "Font might not change but PPI did."].
self fullBounds.
(startButton minimumWidth max: skipButton minimumWidth) in: [:w |
startButton hResizing: #rigid; width: w.
skipButton hResizing: #rigid; width: w.
startButton layoutFrame leftOffset: 2*w negated.
skipButton layoutFrame rightOffset: 2*w].
(previousButton minimumWidth max: nextButton minimumWidth) in: [:w |
previousButton hResizing: #rigid; width: w.
nextButton hResizing: #rigid; width: w].
pagesLabel
margins: (self layoutInset at 0 corner: self layoutInset at 0);
font: (UserInterfaceTheme current get: #wizardStandardFont).
buttonRowMorph
cellGap: self cellGap;
layoutInset: (0 at self layoutInset corner: 0 at 0).
buttonRowMorph layoutFrame
topOffset: buttonRowMorph fullBounds height negated.
"labels"
{controlMorph firstSubmorph}, (pages gather: [:page | page allMorphs select: [:ea | ea isTextMorph]])
do: [:label |
label
font: (UserInterfaceTheme current get: #wizardStandardFont);
margins: self defaultTextMargins
"No need for #releaseParagraph because window resizing will happen anyway."].
"controlMorph"
controlMorph layoutInset: (0 at 0 corner: self cellGap at 0).
controlMorph layoutFrame
topOffset: titleMorph height;
bottomOffset: buttonRowMorph height negated.
"scroll panes in pages"
pages do: [:page | | scrollPane |
page
layoutInset: (self layoutInset asPoint corner: self cellGap at 0);
cellGap: self cellGap.
scrollPane := page submorphs second.
scrollPane scrollBarThickness: self layoutInset.
scrollPane scroller firstSubmorph
cellGap: self cellGap;
layoutInset: (0 at 0 corner: self cellGap at 0).
(scrollPane vScrollBar instVarNamed: #slider)
borderWidth: (2 * RealEstateAgent scaleFactor) truncated].
"previewWorld"
previewWorld layoutFrame
topOffset: titleMorph height;
bottomOffset: buttonRowMorph height negated.
previewWorld borderWidth: (2 * RealEstateAgent scaleFactor) truncated.
self bounds: self world bounds.
self updateWindowBounds.
self updatePageVisibility.!
More information about the Squeak-dev
mailing list
|