Etoys Inbox: Etoys-kfr.156.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

Etoys Inbox: Etoys-kfr.156.mcz

commits-2
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:  A new version of Etoys was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Etoys-kfr.156.mcz
   ==================== Summary ==================== Name: Etoys-kfr.156 Author:
   kfr Time: 24 February 2013, 6:54:48 pm UUID: 7bec69d1-f71c-174b-8d1f-debce834300f
   Ancestors: Etoys-kfr.155 [...]

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



A new version of Etoys was added to project Etoys Inbox:
http://source.squeak.org/etoysinbox/Etoys-kfr.156.mcz

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

Name: Etoys-kfr.156
Author: kfr
Time: 24 February 2013, 6:54:48 pm
UUID: 7bec69d1-f71c-174b-8d1f-debce834300f
Ancestors: Etoys-kfr.155

Turn on thumbnailing if you select this setting

=============== Diff against Etoys-kfr.154 ===============

Item was changed:
  ----- Method: CategoryViewer>>booleanPhraseFromPhrase: (in category 'support') -----
  booleanPhraseFromPhrase: phrase
  "Answer, if possible, a boolean-valued phrase derived from the phrase provided"
 
  |  retrieverOp retrieverTile |
  (phrase isKindOf: ParameterTile orOf: FunctionTile) ifTrue: [^ phrase booleanComparatorPhrase].
 
  phrase isBoolean ifTrue: [^ phrase].
+ "((scriptedPlayer respondsTo: #costume)
+ and:[scriptedPlayer costume isInWorld not]) ifTrue: [^ Array new]."
- ((scriptedPlayer respondsTo: #costume)
- and:[scriptedPlayer costume isInWorld not]) ifTrue: [^ Array new].
 
  ((phrase isMemberOf: PhraseTileMorph) and: [phrase submorphs size > 1] and: [#(bearingTo: distanceToPlayer:) includes: phrase submorphs second operatorOrExpression])
  ifTrue:
  [^ self booleanPhraseFromNumericGetterWithArgument: phrase].
 
  ((retrieverTile _ phrase submorphs last) isKindOf: TileMorph) ifFalse: [^ phrase].
  retrieverOp _ retrieverTile operatorOrExpression.
 
  (Vocabulary vocabularyForType: phrase resultType)
  affordsCoercionToBoolean ifTrue: [
  retrieverOp =  #getPatchValueIn: ifTrue: [
  ^ self booleanPhraseForGetPatchValueOfType: phrase resultType retrieverOp: retrieverOp player: phrase actualObject.
  ].
  retrieverOp =  #getRedComponentIn: ifTrue: [
  ^ self booleanPhraseForGetColorComponentOfType: phrase resultType componentName: #red  retrieverOp: retrieverOp player: phrase actualObject.
  ].
  retrieverOp =  #getGreenComponentIn: ifTrue: [
  ^ self booleanPhraseForGetColorComponentOfType: phrase resultType componentName: #green  retrieverOp: retrieverOp player: phrase actualObject.
  ].
  retrieverOp =  #getBlueComponentIn: ifTrue: [
  ^ self booleanPhraseForGetColorComponentOfType: phrase resultType componentName: #blue retrieverOp: retrieverOp player: phrase actualObject.
  ].
  retrieverOp = #getUphillIn: ifTrue: [
  ^ self booleanPhraseForGetUpHillOfType: phrase resultType retrieverOp: retrieverOp player: phrase actualObject.
  ].
  retrieverOp = #getDistanceTo: ifTrue: [
  ^ self booleanPhraseForGetDistanceToOfType: phrase resultType retrieverOp: retrieverOp player: phrase actualObject.
  ].
  retrieverOp = #getAngleTo: ifTrue: [
  ^ self booleanPhraseForGetAngleToOfType: phrase resultType retrieverOp: retrieverOp player: phrase actualObject.
  ].
  retrieverOp = #bounceOn: ifTrue: [
  ^ self booleanPhraseForBounceOnOfType: phrase resultType retrieverOp: retrieverOp player: phrase actualObject.
  ].
  " (retrieverOp = #bounceOn:color: or: [retrieverOp = #bounceOnColor:]) ifTrue: [
  ^ self booleanPhraseForBounceOnColorOfType: phrase resultType retrieverOp: retrieverOp player: phrase actualObject.
  ]."
  "retrieverOp = #getTurtleAt: ifTrue: [
  ^ self booleanPhraseForGetTurtleAtOfType: phrase resultType retrieverOp: retrieverOp player: phrase actualObject.
  ]."
  retrieverOp = #getTurtleOf: ifTrue: [
  ^ self booleanPhraseForGetTurtleOfOfType: phrase resultType retrieverOp: retrieverOp player: phrase actualObject.
  ].
 
  ^ self booleanPhraseForRetrieverOfType: phrase resultType retrieverOp: retrieverOp player: phrase actualObject.
 
  ].
  ^ phrase!

Item was changed:
  ----- Method: PasteUpMorph>>setThumbnailHeight (in category '*Etoys-viewing') -----
  setThumbnailHeight
+ | reply |
+ (self hasProperty: #alwaysShowThumbnail)
+ ifFalse: [self setProperty: #alwaysShowThumbnail toValue: true].
+ reply := FillInTheBlank request: 'New height for thumbnails?' translated initialAnswer: self heightForThumbnails printString.
+ reply isEmpty
+ ifTrue: [^ self].
+ reply := reply asNumber.
+ (reply > 5
+ and: [reply <= 150])
+ ifFalse: [^ self inform: 'Please be reasonable!! Min 5 max 150' translated].
- |  reply |
- (self hasProperty: #alwaysShowThumbnail) ifFalse:
- [^ self inform: 'setting the thumbnail height is only
- applicable when you are currently
- showing thumbnails.' translated].
- reply _ FillInTheBlank
- request: 'New height for thumbnails? ' translated
- initialAnswer: self heightForThumbnails printString.
- reply isEmpty ifTrue: [^ self].
- reply _ reply asNumber.
- (reply > 0 and: [reply <= 150]) ifFalse:
- [^ self inform: 'Please be reasonable!!' translated].
  self setProperty: #heightForThumbnails toValue: reply.
  self updateSubmorphThumbnails!

Item was changed:
  ----- Method: PasteUpMorph>>updateSubmorphThumbnails (in category '*Etoys-viewing') -----
  updateSubmorphThumbnails
  | thumbsUp itsThumbnail heightForThumbnails maxHeightToAvoidThumbnailing maxWidthForThumbnails |
  thumbsUp _ self alwaysShowThumbnail.
  heightForThumbnails _ self heightForThumbnails.
+ maxHeightToAvoidThumbnailing := self maxHeightToAvoidThumbnailing.
- maxHeightToAvoidThumbnailing _ self maxHeightToAvoidThumbnailing.
  maxWidthForThumbnails _ self maximumThumbnailWidth.
  self submorphs do:
  [:aMorph | thumbsUp
  ifTrue:
  [itsThumbnail _ aMorph representativeNoTallerThan: maxHeightToAvoidThumbnailing norWiderThan: maxWidthForThumbnails thumbnailHeight: heightForThumbnails.
  (aMorph == itsThumbnail)
  ifFalse:
  [self replaceSubmorph: aMorph by: itsThumbnail]]
  ifFalse:
  [(aMorph isKindOf: MorphThumbnail)
  ifTrue:
  [self replaceSubmorph: aMorph by: aMorph morphRepresented]]].
 
  self invalidRect: self bounds!


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