Some formatter action

packages/SVG-Morphic.package/Bezier2Segment.extension/instance/offsetBy..st

@@ -2,11 +2,11 @@
 offsetBy: aNumber
 
 	|n1 n2 n|
-	
+
 	n1 := (self via - self start) normal.
 	n2 := (self end - self via) normal.
 	n := n1 + n2.
-	
+
 	^ self class
 		from: self start + (aNumber * n1)
 		via:  self via + (2 * aNumber * n / (n dotProduct: n))

packages/SVG-Morphic.package/Bezier3Segment.extension/instance/asBezier2Segments..st

@@ -2,4 +2,4 @@
 asBezier2Segments: pixelError
 
 	^ (self asBezier2Points: pixelError)
-		groupsOf: 3 atATimeCollect: [:a :b :c | Bezier2Segment controlPoints: { a . b . c }]
+		groupsOf: 3 atATimeCollect: [:a :b :c | Bezier2Segment controlPoints: {a . b . c}]

packages/SVG-Morphic.package/SVGBalloonRenderer.class/instance/renderBezier2SegmentRun.fill.stroke.strokeWidth.transform.on..st

@@ -1,6 +1,6 @@
 rendering
 renderBezier2SegmentRun: segments fill: fillStyle stroke: strokeStyle strokeWidth: aNumber transform: aMatrix on: aCanvas
-		
+
 	aCanvas preserveStateDuring: [:bc |
 		bc
 			aaLevel: 4;

packages/SVG-Morphic.package/SVGBalloonRenderer.class/instance/renderBezier3Segments.fill.stroke.strokeWidth.transform.on..st

@@ -6,7 +6,7 @@ renderBezier3Segments: segments fill: fillStyle stroke: strokeStyle strokeWidth:
 	bezier2Run := SVGBezier2SegmentRun
 		fromBezier3Segments: segments
 		precision: aMatrix compositeScale r reciprocal.
-	
+
 	self
 		renderBezier2SegmentRun: bezier2Run
 		fill: fillStyle

packages/SVG-Morphic.package/SVGBalloonRenderer.class/instance/renderEllipse.on..st

@@ -1,7 +1,7 @@
 rendering
 renderEllipse: anSVGEllipse on: aCanvas
 	"Render the given object on the canvas."
-	
+
 	self
 		renderBezier3Segments: (Bezier3Segment
 			makeEllipseSegments: anSVGEllipse rectangle)

packages/SVG-Morphic.package/SVGBezier2SegmentRun.class/instance/stitchedClosed.st

@@ -1,7 +1,7 @@
 helpers
 stitchedClosed
 	"Answer a version of the receiver where the ends of successive segments match."
-	
+
 	|result avg|
 	result := self copy.
 	result segments ifEmpty: [^ result].

packages/SVG-Morphic.package/SVGBezier2SegmentRun.class/instance/stroke.transform..st

@@ -1,5 +1,5 @@
 helpers
 stroke: aNumber transform: aTransform
 
-	^ { ((self offsetBy: aNumber / 2) transformed: aTransform) points
-		 . ((self offsetBy: aNumber / 2 negated) transformed: aTransform) points }
+	^ {((self offsetBy: aNumber / 2) transformed: aTransform) points
+		 . ((self offsetBy: aNumber / 2 negated) transformed: aTransform) points}

packages/SVG-Morphic.package/SVGComponentMorph.class/instance/containsPoint..st

@@ -1,4 +1,4 @@
 helpers
 containsPoint: aPoint
-	
+
 	^ self visible and: [self bounds containsPoint: aPoint]

packages/SVG-Morphic.package/SVGComponentMorph.class/instance/fullDrawOn..st

@@ -1,7 +1,7 @@
 helpers
 fullDrawOn: aCanvas
 	"Draw the full Morphic structure on the given Canvas"
-	
+
 	self visible ifFalse: [^ self].
 	(self hasProperty: #errorOnDraw) ifTrue:[^ self drawErrorOn: aCanvas].
 	"Note: At some point we should generalize this into some sort of

packages/SVG-Morphic.package/SVGComponentMorph.class/instance/setStyleFromSVG..st

@@ -2,7 +2,7 @@ initialization
 setStyleFromSVG: anElement
 	"Set the dictionary of the style parameters from the element."
 
-	|svgStyle|	
+	|svgStyle|
 	svgStyle := self styleFromSVG: anElement.
 	self style addAll: svgStyle.
 	SVGStyleComposer composeStyleFor: self with: svgStyle

packages/SVG-Morphic.package/SVGCompositeMorph.class/instance/createFillFromSVGLinearGradient..st

@@ -5,13 +5,13 @@ createFillFromSVGLinearGradient: anElement
 	|start end ramp transformation|
 	transformation := self transformFromSVGAttribute: (anElement attributeAt: 'gradientTransform').
 	ramp := self createRampFromSVGGradient: anElement.
-	
+
 	start := (anElement attributeAt: 'x1' ifAbsent: 0) asSVGNumberOrPercentage @ (anElement attributeAt: 'y1' ifAbsent: 0) asSVGNumberOrPercentage.
 	end := (anElement attributeAt: 'x2' ifAbsent: 1) asSVGNumberOrPercentage @ (anElement attributeAt: 'y2' ifAbsent: 0) asSVGNumberOrPercentage.
-	
+
 	start := transformation transformPoint: start.
 	end := transformation transformPoint: end.
-	
+
 	self setFill: (anElement attributeAt: 'id')
 		to: ((SVGGradientFillStyle ramp: ramp)
 		originalElement: anElement;

packages/SVG-Morphic.package/SVGCompositeMorph.class/instance/createFillFromSVGRadialGradient..st

@@ -5,13 +5,13 @@ createFillFromSVGRadialGradient: anElement
 	|center radius ramp transformation origin direction|
 	transformation := self transformFromSVGAttribute: (anElement attributeAt: 'gradientTransform').
 	ramp := self createRampFromSVGGradient: anElement.
-	
+
 	center := (anElement attributeAt: 'cx' ifAbsent: 0.5) asSVGNumberOrPercentage @ (anElement attributeAt: 'cy' ifAbsent: 0.5) asSVGNumberOrPercentage.
 	radius := (anElement attributeAt: 'r' ifAbsent: 0.5) asSVGNumberOrPercentage.
-	
+
 	origin := transformation transformPoint: center.
 	direction := (transformation transformPoint: radius asPoint + center) - origin.
-	
+
 	self setFill: (anElement attributeAt: 'id')
 		to: ((SVGGradientFillStyle ramp: ramp)
 		originalElement: anElement;

packages/SVG-Morphic.package/SVGExporter.class/instance/applyStyleOf.on..st

@@ -7,6 +7,6 @@ applyStyleOf: aMorph on: anXMLElement
 		((key = 'stroke') or: [key = 'fill'])
 			ifTrue: [(value isColor)
 				ifTrue: [convertedValue := value asHTMLColor]
-				ifFalse: [ convertedValue := self urlForGradient: value]].
+				ifFalse: [convertedValue := self urlForGradient: value]].
 
 			anXMLElement attributeAt: key put: convertedValue asString]

packages/SVG-Morphic.package/SVGExporter.class/instance/serializeGradientsOf.on..st

@@ -5,6 +5,6 @@ serializeGradientsOf: anSVGMorph on: anXMLElement
 		|defs|
 		defs := XMLElement new
 			name: 'defs'.
-		anSVGMorph fills do: [ :fill |
-			defs addElement: fill originalElement.].
+		anSVGMorph fills do: [:fill |
+			defs addElement: fill originalElement].
 		anXMLElement addElement: defs]

packages/SVG-Morphic.package/SVGGradientFillStyle.class/instance/computePixelRampOfSize..st

@@ -1,9 +1,9 @@
 helpers
 computePixelRampOfSize: length
-	
+
 	"Compute the pixel ramp in the receiver"
 	|bits lastColor lastIndex nextIndex nextColor distance theta ramp step lastWord nextWord|
-	
+
 	ramp := self colorRamp asSortedCollection: [:a1 :a2| a1 key < a2 key].
 	bits := Bitmap new: length.
 	lastColor := ramp first value.

packages/SVG-Morphic.package/SVGMorph.class/class/fromDroppedFile..st

@@ -1,5 +1,5 @@
 as yet unclassified
 fromDroppedFile: filename
 	"opens a Stream on a given file"
-	
+
 	^ (self fromFile: filename) openInWorld

packages/SVG-Morphic.package/SVGMorph.class/class/fromFile..st

@@ -1,7 +1,7 @@
 as yet unclassified
 fromFile: filename
 	"Open an SVGMorph from the given file."
-	
+
 	|s answer|
 	s := FileStream oldFileNamed: filename.
 	s ifNil: [^ nil].

packages/SVG-Morphic.package/SVGMorph.class/class/fromString..st

@@ -1,5 +1,5 @@
 as yet unclassified
 fromString: aString
 	"creates SVGMorph from xml string"
-	
+
 	^ self fromFileStream:(ReadStream on: aString)

packages/SVG-Morphic.package/SVGRenderer.class/instance/styleIn.fromSVGStyle..st

@@ -1,5 +1,5 @@
 helpers
 styleIn: aComponent fromSVGStyle: svgStyle
 	"Answer a dictionary of the style parameters for the given svg style dictionary."
-	
+
 	self subclassResponsibility

packages/SVG-Morphic.package/SVGStyleComposer.class/class/composeStyleFor.with..st

@@ -1,12 +1,12 @@
 as yet unclassified
 composeStyleFor: aSVGComponent with: aSVGStyle
-	
-	| svgStyleComposer |
+
+	|svgStyleComposer|
 
 	svgStyleComposer := self new.
-	
+
 	svgStyleComposer balloonStyle: aSVGComponent composedStyle.
 	svgStyleComposer svgStyle: aSVGStyle.
-	
+
 	^ svgStyleComposer setStyles
-	
+

packages/SVG-Morphic.package/SVGStyleComposer.class/instance/addStyleAt.defaultValue..st

@@ -1,7 +1,7 @@
 styling
-addStyleAt: aKey defaultValue: aValue 
+addStyleAt: aKey defaultValue: aValue
 
 	(self svgStyle includesKey: aKey)
-				ifTrue: [self balloonStyle at: aKey put: (self svgStyle at: aKey).]
+				ifTrue: [self balloonStyle at: aKey put: (self svgStyle at: aKey)]
 				ifFalse: [(self balloonStyle includesKey: aKey)
-						ifFalse: [self balloonStyle at: aKey put: aValue]].
+						ifFalse: [self balloonStyle at: aKey put: aValue]]

packages/SVG-Morphic.package/SVGStyleComposer.class/instance/balloonStyle..st

@@ -1,4 +1,4 @@
 accessing
 balloonStyle: anObject
 
-	balloonStyle := anObject.
+	balloonStyle := anObject

packages/SVG-Morphic.package/SVGStyleComposer.class/instance/newFillOpacity.st

@@ -1,3 +1,3 @@
 styling
 newFillOpacity
-	^ ((self svgStyle includesKey: 'opacity') or: [self svgStyle includesKey: 'fill-opacity']) or: [self svgStyle includesKey: 'fill'].
+	^ ((self svgStyle includesKey: 'opacity') or: [self svgStyle includesKey: 'fill-opacity']) or: [self svgStyle includesKey: 'fill']

packages/SVG-Morphic.package/SVGStyleComposer.class/instance/newStrokeOpacity.st

@@ -1,3 +1,3 @@
 styling
 newStrokeOpacity
-	^ ((self svgStyle includesKey: 'opacity') or: [self svgStyle includesKey: 'stroke-opacity']) or: [self svgStyle includesKey: 'stroke'].
+	^ ((self svgStyle includesKey: 'opacity') or: [self svgStyle includesKey: 'stroke-opacity']) or: [self svgStyle includesKey: 'stroke']

packages/SVG-Morphic.package/SVGStyleComposer.class/instance/setDisplayVisibilityStyle.st

@@ -8,4 +8,4 @@ setDisplayVisibilityStyle
 	(self svgStyle includesKey: 'visibility')
 		ifTrue: [self balloonStyle at: 'visibility' put: ((self svgStyle at: 'visibility') withBlanksTrimmed = 'visible')]
 		ifFalse: [(self balloonStyle includesKey: 'visibility')
-				ifFalse: [self balloonStyle at: 'visibility' put: self defaultVisibility]].
+				ifFalse: [self balloonStyle at: 'visibility' put: self defaultVisibility]]

packages/SVG-Morphic.package/SVGStyleComposer.class/instance/setFillStyle.st

@@ -1,12 +1,11 @@
 styling
 setFillStyle
-	
-	self 
+
+	self
 		addStyleAt: 'opacity' defaultValue: self defaultOpacity;
 	 	addStyleAt: 'fill-opacity' defaultValue: self defaultFillOpacity;
 		addStyleAt: 'fill' defaultValue: self defaultFill;
 		addStyleAt: 'fill-rule' defaultValue: self defaultFillRule.
-	
-	self newFillOpacity ifTrue: [ self balloonStyle at: 'fill' put: ((self balloonStyle at: 'fill')
+
+	self newFillOpacity ifTrue: [self balloonStyle at: 'fill' put: ((self balloonStyle at: 'fill')
 																alphaMixed: (self balloonStyle at: 'fill-opacity') * (self balloonStyle at: 'opacity'))]
-

packages/SVG-Morphic.package/SVGStyleComposer.class/instance/setFontStyle.st

@@ -1,7 +1,7 @@
 styling
 setFontStyle
 
-	| textStyle|
+	|textStyle|
 	self addStyleAt: 'font-size' defaultValue: self defaultSVGTextSize.
 	(self svgStyle includesKey: 'font-family')
 		ifTrue: [textStyle := TextStyle named: (self svgStyle at: 'font-family').

packages/SVG-Morphic.package/SVGStyleComposer.class/instance/setStrokeStyle.st

@@ -1,11 +1,11 @@
 styling
 setStrokeStyle
 
-	self 
+	self
 		addStyleAt: 'stroke-width' defaultValue: self defaultStrokeWidth;
 		addStyleAt: 'stroke-linecap' defaultValue: self defaultStrokeLinecap;
 		addStyleAt: 'stroke-opacity' defaultValue: self defaultStrokeOpacity;
 		addStyleAt: 'stroke' defaultValue: self defaultStroke.
-		
-	self newStrokeOpacity ifTrue: [ self balloonStyle at: 'stroke' put: ((self balloonStyle at: 'stroke')
+
+	self newStrokeOpacity ifTrue: [self balloonStyle at: 'stroke' put: ((self balloonStyle at: 'stroke')
 																alphaMixed: (self balloonStyle at: 'stroke-opacity') * (self balloonStyle at: 'opacity'))]

packages/SVG-Morphic.package/SVGStyleComposer.class/instance/setStyles.st

@@ -1,7 +1,7 @@
 styling
 setStyles
 
-	self 
+	self
 		setFontStyle;
 		setFillStyle;
 		setStrokeStyle;

packages/SVG-Morphic.package/SVGStyleComposer.class/instance/svgStyle..st

@@ -1,4 +1,4 @@
 accessing
 svgStyle: anObject
 
-	svgStyle := anObject.
+	svgStyle := anObject

packages/Tests-SVG-Linter.package/SVGLinterTests.class/instance/methodsLinesDo..st

@@ -2,7 +2,7 @@ private
 methodsLinesDo: aBlock
 
 	self methodTestObjects do: [:aSLMethodTestObject |
-		| lines |
+		|lines|
 		lines := aSLMethodTestObject sourceCode string lines.
 		((lines size >= 2) and: [lines second includesSubstring: '"@linter-ignore"'])
 			ifFalse: [

packages/Tests-SVG-Linter.package/SVGLinterTests.class/instance/testMethodNameIsLowerCase.st

@@ -2,7 +2,7 @@ tests
 testMethodNameIsLowerCase
 
 	self methodsLinesDo: [:lines |
-		| firstChar |
+		|firstChar|
 		firstChar := lines first first.
 		firstChar isLetter
 			ifTrue: [self assert: firstChar isLowercase]

packages/Tests-SVG-Linter.package/SVGLinterTests.class/instance/testSpaceAfterReturnCharacter.st

@@ -4,4 +4,4 @@ testSpaceAfterReturnCharacter
 
 	self methodsLinesDo: [:lines |
 		lines do: [:line |
-			self assert: ((line includes: $^) ==> [('\^[^ ]' asRegex search: line) not])]]
+			self assert: ((line includes: $^) ==> [('\^[^]' asRegex search: line) not])]]

packages/Tests-SVG-Linter.package/SVGScopedEnvironment.class/instance/fetchClasses..st

@@ -1,7 +1,7 @@
 testing
 fetchClasses: aCollection
 
-	aCollection do: [ :aClass |
+	aCollection do: [:aClass |
 		aClass category ifNotNil: [
 		(self category: aClass category)
 			add: aClass name]]

packages/Tests-SVG-Morphic.package/SVGGradientTest.class/instance/testBoundaryParsingLinear.st

@@ -4,9 +4,9 @@ testBoundaryParsingLinear
 	|gradient end start |
 	self wantsToTestSunsetGradient.
 	gradient := (self subject fills at: 'sizedGradient').
-	
+
 	start := 0.5 @ 0.
 	end := 0.9 @ 0.7.
-	
+
 	self assert: start equals: gradient origin.
 	self assert: end-start equals: gradient direction

packages/Tests-SVG-Morphic.package/SVGGradientTest.class/instance/testColorParsing.st

@@ -1,10 +1,10 @@
 tests
 testColorParsing
 
-	| colorRamp |
+	|colorRamp|
 	self wantsToTestSunsetGradient.
 	colorRamp := (self subject fills at: 'myGradient') colorRamp.
-	
+
 	self assert: Color yellow equals: colorRamp first value.
 	self assert: 0 equals: colorRamp first key.
 	self assert: Color red equals: colorRamp second value.

packages/Tests-SVG-Morphic.package/SVGGradientTest.class/instance/testDefaultBoundariesLinear.st

@@ -4,9 +4,9 @@ testDefaultBoundariesLinear
 	|gradient end start |
 	self wantsToTestSunsetGradient.
 	gradient := (self subject fills at: 'myGradient').
-	
+
 	start := 0.0 @ 0.
 	end := 1 @ 0.
-	
+
 	self assert: start equals: gradient origin.
 	self assert: end-start equals: gradient direction

packages/Tests-SVG-Morphic.package/SVGGradientTest.class/instance/testDefaultBoundariesRadial.st

@@ -4,9 +4,9 @@ testDefaultBoundariesRadial
 	|gradient direction start |
 	self wantsToTestSunsetGradient.
 	gradient := (self subject fills at: 'radialGradient1').
-	
+
 	start := 0.5 @ 0.5.
 	direction := 0.5 @ 0.
-	
+
 	self assert: start equals: gradient origin.
 	self assert: direction equals: gradient direction