Etoys Inbox: Etoys-kfr.124.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:  A new version of Etoys was added to project Etoys Inbox: http://source.squeak.org/etoysinbox/Etoys-kfr.124.mcz
   ==================== Summary ==================== Name: Etoys-kfr.124 Author:
   kfr Time: 11 March 2012, 12:03:50 pm UUID: ba27e6c9-baf3-4500-a064-3d34fd67005d
   Ancestors: Etoys-bf.123 [...]

Content analysis details:   (6.5 points, 5.0 required)

 pts rule name              description
---- ---------------------- --------------------------------------------------
 3.5 BAYES_99               BODY: Bayesian spam probability is 99 to 100%
                            [score: 0.9994]
 0.0 MISSING_MID            Missing Message-Id: header
 1.2 INVALID_DATE           Invalid Date: header (not RFC 2822)
 1.1 DATE_IN_PAST_06_12     Date: is 6 to 12 hours before Received: date
 1.7 TVD_FUZZY_SYMBOL       BODY: TVD_FUZZY_SYMBOL
 3.8 TVD_STOCK1             BODY: TVD_STOCK1
 0.1 RDNS_NONE              Delivered to trusted network by a host with no rDNS
-4.8 AWL                    AWL: From: address is in the auto white-list



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

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

Name: Etoys-kfr.124
Author: kfr
Time: 11 March 2012, 12:03:50 pm
UUID: ba27e6c9-baf3-4500-a064-3d34fd67005d
Ancestors: Etoys-bf.123

Work on changing how certain offsets and widths are presented in properties

=============== Diff against Etoys-bf.123 ===============

Item was added:
+ ----- Method: EToyVocabulary>>masterOrderingOfPhraseSymbols (in category 'method list') -----
+ masterOrderingOfPhraseSymbols
+ "Answer a dictatorially-imposed presentation list of phrase-symbols.  This governs the order in which suitable phrases are presented in etoy viewers using the etoy vocabulary.  For any given category, the default implementation is that any items that are in this list will occur first, in the order specified here; after that, all other items will come, in alphabetic order by formal selector."
+
+ ^ #(beep: forward: turn: getX getY getLocationRounded getHeading getScaleFactor
+
+ getLeft getRight getTop getBottom  
+ getLength getWidth
+ getTheta getDistance getHeadingTheta getUnitVector
+
+ startScript: pauseScript: stopScript: startAll: pauseAll: stopAll: tellAllSiblings: doScript:
+
+ getColor getUseGradientFill getSecondColor  getRadialGradientFill  getBorderWidth getBorderColor getBorderStyle getRoundedCorners getDropShadow getShadowColor
+
+ getVolume play playUntilPosition: stop rewind getIsRunning getRepeat getPosition getTotalFrames getTotalSeconds getFrameGraphic getVideoFileName getSubtitlesFileName
+
+ getGraphic getBaseGraphic
+
+ getAllowEtoyUserCustomEvents
+
+ #getAutoExpansion #getAutoLineLayout #getBatchPenTrails getDropProducesWatcher #getFenceEnabled #getIndicateCursor #getIsOpenForDragNDrop #getIsPartsBin #getMouseOverHalos #getOriginAtCenter #getShowThumbnail
+
+ getFenceEnabled getKeepTickingWhilePainting getOliveHandleForScriptedObjects  getUseVectorVocabulary
+
+ #getRed #getGreen #getBlue #getAlpha #getHue #getBrightness #getSaturation
+
+ getLeftEdgeMode getRightEdgeMode getTopEdgeMode getBottomEdgeMode getPixelsPerPatch addToPatchDisplayList: addToTurtleDisplayList: removeAllFromPatchDisplayList removeAllFromTurtleDisplayList
+
+ clear diffusePatchVariable decayPatchVariable getDiffusionRate getEvaporationRate getSniffRange getDisplayType getDisplayScaleMax getDisplayShiftAmount
+
+ getPatchValueIn: die getUphillIn: getTurtleVisible getReplicated getTurtleOf: getAngleTo: getDistanceTo: bounceOn: bounceOnColor:
+
+ getVertexCursor getVerticesCount getXAtCursor getYAtCursor prependVertex insertVertexAtCursor appendVertex removeAllButCursor removeVertexAtCursor shuffleVertices getLineCurved getLineOpened getShowingHandles
+
+ getDate getDay getMonth getYear getDayName getMonthName getDateFormat goToToday getJulianDay
+
+ getMinVal getMaxVal getPixelsPerUnit getUnitsPerMark getMarksPerLegend getShowNegativeArrowHead getShowZero)!

Item was changed:
  ----- Method: GenericPropertiesMorph>>buildFakeSlider:selector:help: (in category 'as yet unclassified') -----
  buildFakeSlider: nameStringOrSymbol selector: aSymbol help: helpString
  | col |
+ col := self inARow: {
- col := self inAColumn: {
  (nameStringOrSymbol isSymbol)
  ifTrue:
  [(UpdatingStringMorph new)
  useStringFormat;
  getSelector: nameStringOrSymbol;
  target: self;
  growable: true;
  minimumWidth: 24;
  lock]
  ifFalse: [self lockedString: nameStringOrSymbol]}.
+
  col
  borderWidth: 2;
  borderColor: color darker;
  color: color muchLighter;
  hResizing: #shrinkWrap;
  setBalloonText: helpString;
  on: #mouseMove
  send: #mouseAdjust:in:
  to: self;
  on: #mouseDown
  send: #mouseAdjust:in:
  to: self;
+ setProperty: #changeSelector toValue: aSymbol.
- on: #mouseUp
- send: #clearSliderFeedback
- to: self;
- setProperty: #changeSelector toValue: aSymbol.
  ^col!

Item was changed:
  ----- Method: GenericPropertiesMorph>>mouseAdjust:in: (in category 'as yet unclassified') -----
  mouseAdjust: evt in: aMorph
 
+ | fractionalPosition testExtent |
+ testExtent := 100@100. "the real extent may change"
+ fractionalPosition := (evt cursorPoint - aMorph topLeft) / testExtent.
- | fractionalPosition feedBack testExtent |
-
- feedBack _ self showSliderFeedback: nil.
- feedBack world ifNil: [
- feedBack bottomLeft: evt cursorPoint - (0@8)
- ].
- testExtent _ 100@100. "the real extent may change"
- fractionalPosition _ (evt cursorPoint - aMorph topLeft) / testExtent.
  self
  perform: (aMorph valueOfProperty: #changeSelector)
  with: fractionalPosition
+ with: aMorph submorphs last .
+    
  !

Item was removed:
- ----- Method: ObjectPropertiesMorph>>adjustTargetBorderWidth: (in category 'as yet unclassified') -----
- adjustTargetBorderWidth: aFractionalPoint
-
- | n |
-
- myTarget borderWidth: (n _ (aFractionalPoint x * 10) rounded max: 0).
- self showSliderFeedback: n.!

Item was added:
+ ----- Method: ObjectPropertiesMorph>>adjustTargetBorderWidth:updateMorph: (in category 'as yet unclassified') -----
+ adjustTargetBorderWidth: aFractionalPoint updateMorph: aMorph
+
+ | n |
+
+ myTarget borderWidth: (n := (aFractionalPoint x * 10) rounded max: 0).
+ aMorph contents: n asString.!

Item was removed:
- ----- Method: ObjectPropertiesMorph>>adjustTargetGradientDirection: (in category 'as yet unclassified') -----
- adjustTargetGradientDirection: aFractionalPoint
-
- | fs p |
-
- (fs _ myTarget fillStyle) isGradientFill ifFalse: [^self].
- fs direction: (p _ (aFractionalPoint * myTarget extent) rounded).
- self showSliderFeedback: p.
- myTarget changed.
- !

Item was added:
+ ----- Method: ObjectPropertiesMorph>>adjustTargetGradientDirection:updateMorph: (in category 'as yet unclassified') -----
+ adjustTargetGradientDirection: aFractionalPoint updateMorph: aMorph
+
+ | fs p |
+
+ (fs := myTarget fillStyle) isGradientFill ifFalse: [^self].
+ fs direction: (p := (aFractionalPoint * myTarget extent) rounded).
+ aMorph contents: p asString.
+ myTarget changed.
+ !

Item was removed:
- ----- Method: ObjectPropertiesMorph>>adjustTargetGradientOrigin: (in category 'as yet unclassified') -----
- adjustTargetGradientOrigin: aFractionalPoint
-
- | fs p |
-
- (fs _ myTarget fillStyle) isGradientFill ifFalse: [^self].
- fs origin: (p _ myTarget topLeft + (aFractionalPoint * myTarget extent) rounded).
- self showSliderFeedback: p.
- myTarget changed.
- !

Item was added:
+ ----- Method: ObjectPropertiesMorph>>adjustTargetGradientOrigin:updateMorph: (in category 'as yet unclassified') -----
+ adjustTargetGradientOrigin: aFractionalPoint updateMorph: aMorph
+
+ | fs p |
+
+ (fs := myTarget fillStyle) isGradientFill ifFalse: [^self].
+ fs origin: (p := myTarget topLeft + (aFractionalPoint * myTarget extent) rounded).
+ aMorph contents: p asString.
+ myTarget changed.
+ !

Item was removed:
- ----- Method: ObjectPropertiesMorph>>adjustTargetShadowOffset: (in category 'as yet unclassified') -----
- adjustTargetShadowOffset: aFractionalPoint
-
- | n |
-
- myTarget changed; layoutChanged.
- myTarget shadowOffset: (n _ (aFractionalPoint * 4) rounded).
- self showSliderFeedback: n.
- myTarget changed; layoutChanged.
- !

Item was added:
+ ----- Method: ObjectPropertiesMorph>>adjustTargetShadowOffset:updateMorph: (in category 'as yet unclassified') -----
+ adjustTargetShadowOffset: aFractionalPoint updateMorph: aMorph
+
+ | n |
+
+ myTarget changed; layoutChanged.
+ myTarget shadowOffset: (n _ (aFractionalPoint * 4) rounded).
+ aMorph contents: n asString.
+ myTarget changed; layoutChanged.
+ !

Item was changed:
  ----- Method: ObjectPropertiesMorph>>paneForBorderWidth (in category 'panes') -----
  paneForBorderWidth
 
+ | row |
+ row :=(self inARow: {
- ^(self inARow: {
  self
  buildFakeSlider: 'Border width' translated
+ selector: #adjustTargetBorderWidth:updateMorph:
+ help: 'Drag in here to change the border width' translated.
+
+ }) hResizing: #shrinkWrap.
+ ^row submorphs first addMorphBack: (UpdatingStringMorph new
+ getSelector: nil;
+ putSelector: nil;
+ target: self;
+ growable: true;
+ decimalPlaces: 0;
+ minimumWidth: 40;
+ maximumWidth: 40;
+ contents: (myTarget borderWidth asString)).
+
+
- selector: #adjustTargetBorderWidth:
- help: 'Drag in here to change the border width' translated
- }) hResizing: #shrinkWrap
 
  !

Item was changed:
  ----- Method: ObjectPropertiesMorph>>paneForGradientDirection (in category 'panes') -----
  paneForGradientDirection
 
+ | row fs |
+ row := (self inARow: {
- ^(self inARow: {
  self
  buildFakeSlider: 'Direction' translated
+ selector: #adjustTargetGradientDirection:updateMorph:
- selector: #adjustTargetGradientDirection:
  help: 'Drag in here to change the direction of the gradient' translated
+ }) hResizing: #shrinkWrap.
+ (fs := myTarget fillStyle) isGradientFill ifFalse: [fs := '0@0']
+ ifTrue:[ fs := myTarget fillStyle direction asString].
+ ^ row submorphs first addMorphBack: (UpdatingStringMorph new
+ getSelector: nil;
+ putSelector: nil;
+ target: self;
+ growable: true;
+ decimalPlaces: 0;
+ minimumWidth: 40;
+ maximumWidth: 40;
+ contents: fs).
+
- }) hResizing: #shrinkWrap
 
  !

Item was changed:
  ----- Method: ObjectPropertiesMorph>>paneForGradientOrigin (in category 'panes') -----
  paneForGradientOrigin
 
+ | row fs |
+ row :=(self inARow: {
- ^(self inARow: {
  self
  buildFakeSlider: 'Origin' translated
+ selector: #adjustTargetGradientOrigin:updateMorph:
- selector: #adjustTargetGradientOrigin:
  help: 'Drag in here to change the origin of the gradient' translated
+ }) hResizing: #shrinkWrap.
+ (fs := myTarget fillStyle) isGradientFill ifFalse: [fs := '0@0']
+ ifTrue:[ fs := myTarget fillStyle origin asString].
+ ^row submorphs first addMorphBack: (UpdatingStringMorph new
+ getSelector: nil;
+ putSelector: nil;
+ target: self;
+ growable: true;
+ decimalPlaces: 0;
+ minimumWidth: 40;
+ maximumWidth: 40;
+ contents: fs).
+
- }) hResizing: #shrinkWrap
 
  !

Item was changed:
  ----- Method: ObjectPropertiesMorph>>paneForShadowOffset (in category 'panes') -----
  paneForShadowOffset
 
+ | row |
+ row := (self inARow: {
- ^(self inARow: {
  self
  buildFakeSlider: 'Offset' translated
+ selector: #adjustTargetShadowOffset:updateMorph:
- selector: #adjustTargetShadowOffset:
  help: 'Drag in here to change the offset of the shadow' translated
+ }) hResizing: #shrinkWrap.
+ ^row submorphs first addMorphBack: (UpdatingStringMorph new
+ getSelector: nil;
+ putSelector: nil;
+ target: self;
+ growable: true;
+ decimalPlaces: 0;
+ minimumWidth: 40;
+ maximumWidth: 40;
+ contents: (myTarget shadowOffset asString)).
- }) hResizing: #shrinkWrap
 
  !

Item was changed:
  ----- Method: TextPropertiesMorph>>paneForMargins (in category 'initialization') -----
  paneForMargins
 
  ^(self inARow: {
  self
  buildFakeSlider: 'Margins' translated
+ selector: #adjustTargetMargin:updateMorph:
- selector: #adjustTargetMargin:
  help: 'Drag in here to change the margins of the text' translated
  }) hResizing: #shrinkWrap
 
  !


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