The Trunk: PreferenceBrowser-mt.74.mcz

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@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@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@50)].!