The Trunk: PreferenceBrowser-mt.161.mcz

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

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

Name: PreferenceBrowser-mt.161
Author: mt
Time: 5 August 2026, 10:27:09.464688 am
UUID: 7a3809eb-3098-c049-b9fb-4e6c4996ff12
Ancestors: PreferenceBrowser-mt.160

Polish wizard experince to avoid unnecessary scrolling (or cut-off text).

=============== Diff against PreferenceBrowser-mt.160 ===============

Item was changed:
  ----- Method: PreferenceWizardMorph>>initializeControlMorph (in category 'initialization - playfield') -----
  initializeControlMorph
  
  	controlMorph := Morph new
  		color: Color transparent;
  		changeTableLayout;
  		listDirection: #topToBottom;
  		hResizing: #spaceFill;
  		vResizing: #spaceFill;
  		layoutInset: (0@0 corner: self cellGap@0);
  		layoutFrame: (LayoutFrame fractions: (0.0 @ 0 corner: 0.35 @ 1.0) offsets: (0@ titleMorph height corner: 0 @ buttonRowMorph height negated));
  		yourself.
  	
+ 	controlMorph addMorph: (self createLabel: 'Please take a few minutes and configure the look-and-feel of your environment. You can always adjust these settings later. See the effects of changed settings in the live and editable windows to the right.' translated).!
- 	controlMorph addMorph: (self createLabel: 'Please take a few minutes and configure the look-and-feel of the environment. You can always adjust these settings later. You can see the effects of these settings in the live and editable windows to the right.' translated).!

Item was changed:
  ----- Method: PreferenceWizardMorph>>initializePage02bVisualsMore (in category 'initialization - pages') -----
  initializePage02bVisualsMore
  
  	| currentPage pane increaseFontSizeButton decreaseFontSizeButton |
  	currentPage := pages add: self createPage.
  	pane := self createScrollPane.
  	
+ 	currentPage addMorphBack: (self createLabel: 'Choose a factor for the initial extent of tool windows' translated color: Color white).
- 	currentPage addMorphBack: (self createLabel: 'Choose a factor for initial window extent' translated color: Color white).
  	currentPage addMorphBack: pane.
  	
  	#('1.0 (default)' 1.0 '1.25' 1.25 '1.5' 1.5 '1.75 (large display)' 1.75) pairsDo: [:label :scale |
  		pane scroller firstSubmorph addMorphBack: (self
  			createRadioButton: label
  			for: #WindowFactor
  			argument: scale)].
  	
  	decreaseFontSizeButton := self createButton
  		hResizing: #spaceFill;
  		action: #decreaseFontSize;
  		target: Preferences;
  		label: 'Decrease font size (-)' translated.
  		
  	increaseFontSizeButton := self createButton
  		hResizing: #spaceFill;
  		action: #increaseFontSize;
  		target: Preferences;
  		label: 'Increase font size (+)' translated.
  		
  	pane scroller firstSubmorph
  		addMorphBack: decreaseFontSizeButton;
  		addMorphBack: increaseFontSizeButton.
  	
  	currentPage addMorphBack: (self createLabel: 'Note that the perceived font size in tools depends on the screen scale factor.' translated color: Color banana)!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]