The Trunk: Morphic-MarcoSchmidt.217.mcz

Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-MarcoSchmidt.217.mcz

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

Name: Morphic-MarcoSchmidt.217
Author: MarcoSchmidt
Time: 27 October 2009, 4:50:49 am
UUID: de8a2083-febd-9e42-8fa8-120603a01169
Ancestors: Morphic-ar.216

Remove the typo in TheWorldMenu>>setDisplayDepth
see http://bugs.squeak.org/view.php?id=7408 

=============== Diff against Morphic-ar.216 ===============

Item was changed:
  ----- Method: TheWorldMenu>>setDisplayDepth (in category 'commands') -----
  setDisplayDepth
  "Let the user choose a new depth for the display. "
 
  | result oldDepth allDepths allLabels hasBoth |
  oldDepth := Display nativeDepth.
  allDepths := #(1 -1 2 -2 4 -4 8 -8 16 -16 32 -32) select: [:d | Display supportsDisplayDepth: d].
  hasBoth := (allDepths anySatisfy:[:d| d > 0]) and:[allDepths anySatisfy:[:d| d < 0]].
  allLabels := allDepths collect:[:d|
  String streamContents:[:s|
  s nextPutAll: (d = oldDepth ifTrue:['<on>'] ifFalse:['<off>']).
  s print: d abs.
  hasBoth ifTrue:[s nextPutAll: (d > 0 ifTrue:['  (big endian)'] ifFalse:['  (little endian)'])].
  ]].
  result := UIManager default
+ chooseFrom: allLabels
- chooseFrom: allLabels v
  values: allDepths
  title: 'Choose a display depth' translated.
  result ifNotNil: [Display newDepth: result].
  oldDepth := oldDepth abs.
  (Smalltalk isMorphic and: [(Display depth < 4) ~= (oldDepth < 4)])
  ifTrue:
  ["Repaint windows since they look better all white in depth < 4"
  (SystemWindow windowsIn: myWorld satisfying: [:w | true]) do:
  [:w |
  oldDepth < 4
  ifTrue: [w restoreDefaultPaneColor]
  ifFalse: [w updatePaneColors]]]!