The Trunk: Morphic-mt.1082.mcz

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

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

Name: Morphic-mt.1082
Author: mt
Time: 17 February 2016, 3:24:24.773669 pm
UUID: 3022c4d6-bb5e-4a89-9828-ece7ace176c8
Ancestors: Morphic-mt.1081

When dragging morphs in a transfer morph, such as in the Inspector, use a thumbnail version of that morph for performance reasons.

=============== Diff against Morphic-mt.1081 ===============

Item was changed:
  ----- Method: Morph>>asDraggableMorph (in category 'converting') -----
  asDraggableMorph
+ "Huge or complex morphs have a serious impact on performance while being dragged. Use the thumbnail version."
+
+ ^ self thumbnail asMorph!
- ^self!

Item was changed:
  ----- Method: Morph>>iconOrThumbnail (in category 'thumbnail') -----
  iconOrThumbnail
- "Answer an appropiate form to represent the receiver"
 
+ ^ self icon ifNil: [self thumbnail]!
- ^ self icon
- ifNil: [ | maxExtent fb |maxExtent := 320 @ 240.
- fb := self fullBounds.
- fb area <= (maxExtent x * maxExtent y)
- ifTrue: [self imageForm]
- ifFalse: [self imageFormForRectangle: (fb topLeft extent: maxExtent)]
- ]
- !

Item was added:
+ ----- Method: Morph>>thumbnail (in category 'thumbnail') -----
+ thumbnail
+ "Answer an appropiate form to represent the receiver"
+
+ | maxExtent fb |
+
+ maxExtent := 320 @ 240.
+ fb := self fullBounds.
+ ^ fb area <= (maxExtent x * maxExtent y)
+ ifTrue: [self imageForm]
+ ifFalse: [self imageFormForRectangle: (fb topLeft extent: maxExtent)]!