[etoys-dev] Etoys: MorphicExtras-kfr.24.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys:
http://source.squeak.org/etoys/MorphicExtras-kfr.24.mcz

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

Name: MorphicExtras-kfr.24
Author: kfr
Time: 22 May 2011, 5:47:20 pm
UUID: 92ab7a8a-2334-b940-a073-24a08fee6fc1
Ancestors: MorphicExtras-kfr.23

Playfield's menu item: "set thumbnail height" does not take effect until you uncheck and re-check "use thumbnails
http://tracker.squeakland.org/browse/SQ-814

=============== Diff against MorphicExtras-kfr.22 ===============

Item was changed:
  ----- Method: MorphThumbnail>>representativeNoTallerThan:norWiderThan:thumbnailHeight: (in category 'thumbnail') -----
  representativeNoTallerThan: maxHeight norWiderThan: maxWidth thumbnailHeight: thumbnailHeight
  
  	"Return a morph representing the receiver but which is no taller than aHeight.  If the receiver is already small enough, just return it, else return a MorphThumbnail companioned to the receiver, enforcing the maxWidth"
  
+ 	"(self height <= maxHeight and: [self width <= maxWidth]) ifTrue: [^ self]."
- 	(self height <= maxHeight and: [self width <= maxWidth]) ifTrue: [^ self].
  
  	^ MorphThumbnail new
+ 		extent: maxWidth @ (thumbnailHeight "min: self height");
- 		extent: maxWidth @ (thumbnailHeight min: self height);
  		morphRepresented: morphRepresented!