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

commits at source.squeak.org commits at source.squeak.org
Fri Dec 31 13:47:02 UTC 2021


Marcel Taeumel uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/PreferenceBrowser-mt.125.mcz

==================== Summary ====================

Name: PreferenceBrowser-mt.125
Author: mt
Time: 31 December 2021, 2:47:02.385589 pm
UUID: 29599ad7-e40a-8049-bf8f-d35555f8b0a4
Ancestors: PreferenceBrowser-mt.124

I forgot to update the balloon texts.

Note that this method needs clean up but I am exhausted right now. At least that messy style is confined in PreferenceWizardMorph.

=============== Diff against PreferenceBrowser-mt.124 ===============

Item was changed:
  ----- Method: PreferenceWizardMorph>>updateFromChangedScaleFactor (in category 'display scale') -----
  updateFromChangedScaleFactor
  
  	previewWorld delete.
  	previewWorld := nil.
  	DisplayScreen displayIsFullScreen ifFalse: [
  		DisplayScreen setNewScreenSize: (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))]]
- 							button owner cellGap: (TextStyle defaultFont widthOf: $x)]
  						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"
  	self initializePreviewWorld.
  	self addMorph: previewWorld.
  	self step.
  "	previewWorld borderWidth: (2 * RealEstateAgent scaleFactor) truncated.
  	previewWorld layoutFrame
  		topOffset: titleMorph height;
  		bottomOffset: buttonRowMorph height negated.
  "	!



More information about the Squeak-dev mailing list