The Trunk: MorphicExtras-mt.170.mcz

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

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

Name: MorphicExtras-mt.170
Author: mt
Time: 19 April 2016, 12:24:14.689049 pm
UUID: bca00572-fc6d-074f-8275-88d0c221c2d1
Ancestors: MorphicExtras-cmm.169

Improves usage of #refreshWorld to avoid direct calls to #displayWorldSafely, which requires a check whether the morph in in a world or not.

=============== Diff against MorphicExtras-cmm.169 ===============

Item was changed:
  ----- Method: GrabPatchMorph>>justDroppedInto:event: (in category 'dropping') -----
  justDroppedInto: aPasteUpMorph event: anEvent
  "This message is sent to a dropped morph after it has been dropped on--and been accepted by--a drop-sensitive morph"
 
+ super justDroppedInto: aPasteUpMorph event: anEvent.
+
+ aPasteUpMorph isPartsBin ifFalse: [
+ "Do not show this morph in the screenshot."
+ self hide.
+ anEvent hand hide.
+ self refreshWorld.
+
+ [aPasteUpMorph grabDrawingFromScreen: anEvent]
+ ensure: [anEvent hand show]].
+
+ "Just needed for this operation. Remove."
+ self delete.!
- aPasteUpMorph isPartsBin ifFalse:
- [self delete.
- ActiveWorld displayWorldSafely; runStepMethods.  "But the HW cursor stays up still ???"
- ^ aPasteUpMorph grabDrawingFromScreen: anEvent].
- ^ super justDroppedInto: aPasteUpMorph event: anEvent!

Item was changed:
  ----- Method: LassoPatchMorph>>justDroppedInto:event: (in category 'dropping') -----
  justDroppedInto: aPasteUpMorph event: anEvent
  "This message is sent to a dropped morph after it has been dropped on--and been accepted by--a drop-sensitive morph"
 
+ super justDroppedInto: aPasteUpMorph event: anEvent.
+
+ aPasteUpMorph isPartsBin ifFalse: [
+ "Do not show this morph in the screenshot."
+ self hide.
+ anEvent hand hide.
+ self refreshWorld.
+
+ [aPasteUpMorph grabLassoFromScreen: anEvent]
+ ensure: [anEvent hand show]].
+
+ "Just needed for this operation. Remove."
+ self delete.!
- aPasteUpMorph isPartsBin ifFalse:
- [self delete.
- ActiveWorld displayWorldSafely; runStepMethods.
- ^ aPasteUpMorph grabLassoFromScreen: anEvent].
- ^ super justDroppedInto: aPasteUpMorph event: anEvent!