Etoys: Morphic-kfr.103.mcz

Spam detection software, running on the system "europa.mgmt.inetu.net", has
identified this incoming email as possible spam.  The original message
has been attached to this so you can view it (if it isn't spam) or label
similar future email.  If you have any questions, see
the administrator of that system for details.

Content preview:  Karl Ramberg uploaded a new version of Morphic to project
  Etoys: http://source.squeak.org/etoys/Morphic-kfr.103.mcz ====================
   Summary ==================== Name: Morphic-kfr.103 Author: kfr Time: 24 February
   2013, 5:24:34 pm UUID: 6c99017d-10ba-cf48-9747-0cc08a4a6375 Ancestors: Morphic-kfr.102
   [...]

Content analysis details:   (4.4 points, 4.0 required)

 pts rule name              description
---- ---------------------- --------------------------------------------------
 0.4 INVALID_DATE           Invalid Date: header (not RFC 2822)
 0.8 DATE_IN_PAST_12_24     Date: is 12 to 24 hours before Received: date
 0.1 MISSING_MID            Missing Message-Id: header
 1.3 RDNS_NONE              Delivered to internal network by a host with no rDNS
 1.7 TO_NO_BRKTS_NORDNS     To: misformatted and no rDNS



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

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

Name: Morphic-kfr.103
Author: kfr
Time: 24 February 2013, 5:24:34 pm
UUID: 6c99017d-10ba-cf48-9747-0cc08a4a6375
Ancestors: Morphic-kfr.102

Fix for offset of a dropped morph that changes to thumbnails

=============== Diff against Morphic-kfr.102 ===============

Item was changed:
  ----- Method: PasteUpMorph>>morphToDropFrom: (in category 'dropping/grabbing') -----
  morphToDropFrom: aMorph
  "Given a morph being carried by the hand, which the hand is about to drop, answer the actual morph to be deposited.  Normally this would be just the morph itself, but several unusual cases arise, which this method is designed to service."
 
+ | aNail representee posBlock tempPos scale tempOffsetScaled |
- | aNail representee posBlock tempPos |
  posBlock :=
  [:z |
+ scale := (z extent / aMorph extent).
+ tempOffsetScaled := ActiveHand targetOffset * scale.
+ tempPos := ActiveHand position + tempOffsetScaled.
+ self pointFromWorld: tempPos rounded.
+ ].
- tempPos := ActiveHand position
- - ((ActiveHand targetOffset - aMorph formerPosition)
- * (z extent / aMorph extent)) rounded.
- self pointFromWorld: tempPos].
  self alwaysShowThumbnail
  ifTrue:
  [aNail := aMorph
  representativeNoTallerThan: self maxHeightToAvoidThumbnailing
  norWiderThan: self maximumThumbnailWidth
  thumbnailHeight: self heightForThumbnails.
  aNail == aMorph
  ifFalse:
+ [aMorph formerPosition: aMorph position.
+ aNail position: (posBlock value: aNail). ].
- [aMorph formerPosition: aMorph position.
- aNail position: (posBlock value: aNail)].
  ^aNail].
  ((aMorph isKindOf: MorphThumbnail)
  and: [(representee := aMorph morphRepresented) owner isNil])
  ifTrue:
+ [representee position:(posBlock value: representee).
- [representee position: (posBlock value: representee).
  ^representee].
  self showingListView
  ifTrue:
  [^aMorph
  listViewLineForFieldList: (self valueOfProperty: #fieldListSelectors)].
  (aMorph hasProperty: #newPermanentScript)
  ifTrue: [^aMorph asEmptyPermanentScriptor].
 
  ^ aMorph morphToDropInPasteUp: self!


_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev