[Pkg] The Trunk: Morphic-mt.1082.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Feb 17 14:25:49 UTC 2016


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



More information about the Packages mailing list