[squeak-dev] The Trunk: Morphic-MarcoSchmidt.217.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Oct 28 03:25:49 UTC 2009


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]]]!




More information about the Squeak-dev mailing list