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

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

Name: PreferenceBrowser-mt.74
Author: mt
Time: 15 August 2016, 4:26:56.026884 pm
UUID: 5f527401-50f7-7c4a-8530-69777e9ea2fa
Ancestors: PreferenceBrowser-mt.73

In the wizard, show more from each example window. Reduce the number of delays.

=============== Diff against PreferenceBrowser-mt.73 ===============

Item was changed:
  ----- Method: PreferenceWizardMorph>>showPlayfield (in category 'actions') -----
  showPlayfield
  
  	startButton hide.
  	skipButton hide.
  	lowPerformanceMorph hide.
  	isFullScreen := true.
  	self step.
  	
  	titleMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 0) offsets: (0@ 0 corner: 0 @ titleMorph height)).
  	self refreshWorld.
  	(Delay forMilliseconds: 1000) wait.	
  	
  
  	controlMorph show.
- 	self refreshWorld.
- 	(Delay forMilliseconds: 1000) wait.	
- 	
  	previewWorld show.
- 	self refreshWorld.
- 	(Delay forMilliseconds: 1000) wait.	
- 
  	buttonRowMorph show.
+ 
  	self next.
  	self refreshWorld.
  	
  	!

Item was changed:
  ----- Method: PreferenceWizardMorph>>showSqueak (in category 'actions') -----
  showSqueak
  
  	self isInWelcome ifTrue: [^ self delete].
  	
  	buttonRowMorph hide.
- 	self refreshWorld.
- 	(Delay forMilliseconds: 1000) wait.
- 
  	controlMorph hide.
- 	self refreshWorld.
- 	(Delay forMilliseconds: 1000) wait.
- 
  	previewWorld hide.
+ 
  	self refreshWorld.
  	(Delay forMilliseconds: 1000) wait.
  
  
  	titleMorph layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 1)).
  	self refreshWorld.
  	(Delay forMilliseconds: 1000) wait.
  	self delete.!

Item was changed:
  ----- Method: PreferenceWizardMorph>>updateWindowBounds (in category 'layout') -----
  updateWindowBounds
  
+ 	| windows offset margin extentToUse pointsToUse |
- 	| windows offset |
  	isFullScreen == false ifTrue: [^ self].
  	
  	self fullBounds.
  
+ 	margin := 20 at 20.
+ 	extentToUse := (previewWorld extent - (margin * 2)) // 3 * (1.8 @ 1.5).
+ 	pointsToUse := {
+ 		previewWorld center - (previewWorld extent // (5.5 @ 4.5)).
+ 		previewWorld center + (previewWorld width // 5.5 @ 0).
+ 		previewWorld center + (0 @ (previewWorld width // 5))}.
+ 
  	windows := previewWorld submorphs.
  	offset := 50 at 50.
  	
+ 	windows reversed withIndexDo: [:ea :i |
- 	windows reversed do: [:ea |
  		ea
+ 			extent: extentToUse;
+ 			center: (pointsToUse atWrap: i).
- 			topLeft: previewWorld topLeft + offset;
- 			extent: previewWorld extent // 3 * 2.
  		offset := offset + (50 at 50)].!