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 |
Free forum by Nabble | Edit this page |