Etoys: Morphic-kfr.105.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.105.mcz ====================
   Summary ==================== Name: Morphic-kfr.105 Author: kfr Time: 28 February
   2013, 11:02:14 pm UUID: 51262fc1-39d9-4140-a1d4-86c57218fb19 Ancestors: Morphic-kfr.104
   [...]

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.105.mcz

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

Name: Morphic-kfr.105
Author: kfr
Time: 28 February 2013, 11:02:14 pm
UUID: 51262fc1-39d9-4140-a1d4-86c57218fb19
Ancestors: Morphic-kfr.104

Remove bogus commented out code

=============== Diff against Morphic-kfr.104 ===============

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 |
  posBlock :=
  [:z |
  scale := (z extent / aMorph extent).
  tempOffsetScaled := ActiveHand targetOffset * scale.
  tempPos := ActiveHand position + tempOffsetScaled.
  self pointFromWorld: tempPos rounded.
  ].
  self alwaysShowThumbnail
  ifTrue:
+ [aNail := aMorph
- ["aMorph isSelectionMorph
- ifTrue:[ ^self world abandonAllHalos.]."
- aNail := aMorph
  representativeNoTallerThan: self maxHeightToAvoidThumbnailing
  norWiderThan: self maximumThumbnailWidth
  thumbnailHeight: self heightForThumbnails.
  aNail == aMorph
  ifFalse:
  [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].
  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