Skip to content

Commit

Permalink
WIP
Browse files Browse the repository at this point in the history 
Co-authored-by: Lukas Radermacher <49586507+lukasrad02@users.noreply.github.com>
  • Loading branch information
@Greenscreen23 @lukasrad02
Greenscreen23 and lukasrad02 committed Jun 16, 2022
1 parent 872b57c commit ddd0672
Show file tree
Hide file tree
Showing 49 changed files with 170 additions and 93 deletions.
10 changes: 10 additions & 0 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/addCircleTestSVGTo..st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,10 @@
building
addCircleTestSVGTo: aSVGCompositeMorph

|circle|
circle := SVGCircleMorph new.
aSVGCompositeMorph addMorph: circle.
^ circle
rectangle: self defaultCircleRectangle;
transform: self defaultTransform;
yourself
10 changes: 10 additions & 0 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/addEllipseTestSVGTo..st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,10 @@
building
addEllipseTestSVGTo: aSVGCompositeMorph

|ellipse|
ellipse := SVGEllipseMorph new.
aSVGCompositeMorph addMorph: ellipse.
^ ellipse
rectangle: self defaultEllipseRectangle;
transform: self defaultTransform;
yourself
7 changes: 7 additions & 0 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/addGroupTestSVGTo..st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,7 @@
building
addGroupTestSVGTo: aSVGCompositeMorph

|group|
group := SVGGroupMorph new.
aSVGCompositeMorph addMorph: group.
^ group
13 changes: 13 additions & 0 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/addLineTestSVGTo..st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,13 @@
building
addLineTestSVGTo: aSVGCompositeMorph

|line|
line := SVGLineMorph new.
aSVGCompositeMorph addMorph: line.
line
rectangle: self defaultLineRectangle;
transform: self defaultTransform.
line style
at: 'stroke' put: self defaultStrokeColor;
at: 'stroke-width' put: self defaultStrokeWidth.
^ line
10 changes: 10 additions & 0 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/addRectangleTestSVGTo..st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,10 @@
building
addRectangleTestSVGTo: aSVGCompositeMorph

|rect|
rect := SVGRectMorph new.
aSVGCompositeMorph addMorph: rect.
^ rect
rectangle: self defaultRectRectangle;
transform: self defaultTransform;
yourself
11 changes: 11 additions & 0 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/addTSpanTestSVGTo..st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,11 @@
building
addTSpanTestSVGTo: aSVGTextMorph

|tSpan|
tSpan := SVGTSpanMorph new.
aSVGTextMorph addMorph: tSpan.
^ tSpan
text: self defaultText;
location: tSpan owner location;
transform: self defaultTransform;
yourself
11 changes: 11 additions & 0 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/addTextTestSVGTo..st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,11 @@
building
addTextTestSVGTo: aSVGCompositeMorph

|text|
text := SVGTextMorph new.
aSVGCompositeMorph addMorph: text.
^ text
text: self defaultText;
location: self defaultLocation;
transform: self defaultTransform;
yourself
6 changes: 0 additions & 6 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/circleTestSVG.st
View file

This file was deleted.

2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/circleTestSVGString.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
resources
resources - svg strings
circleTestSVGString

^ '<svg width="200" height="200" version="1.1" xmlns="http://www.w3.org/2000/svg">
Expand Down
4 changes: 4 additions & 0 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/defaultCircleRectangle.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
default values
defaultCircleRectangle

^ 25 @ 25 extent: 50 @ 50
4 changes: 4 additions & 0 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/defaultEllipseRectangle.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
default values
defaultEllipseRectangle

^ 15 @ 25 extent: 70 @ 50
4 changes: 4 additions & 0 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/defaultLineRectangle.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
default values
defaultLineRectangle

^ 10 @ 10 extent: 80 @ 80
4 changes: 4 additions & 0 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/defaultLocation.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
default values
defaultLocation

^ 20 @ 20
4 changes: 4 additions & 0 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/defaultRectRectangle.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
default values
defaultRectRectangle

^ 25 @ 15 extent: 50 @ 70
4 changes: 4 additions & 0 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/defaultSVGBounds.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
default values
defaultSVGBounds

^ 0 @ 0 extent: 100 @ 100
4 changes: 4 additions & 0 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/defaultStrokeColor.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
default values
defaultStrokeColor

^ Color red
4 changes: 4 additions & 0 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/defaultStrokeWidth.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
default values
defaultStrokeWidth

^ 5.0
4 changes: 4 additions & 0 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/defaultText.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
default values
defaultText

^ 'Hi, I''m a teapot'
4 changes: 4 additions & 0 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/defaultTransform.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
default values
defaultTransform

^ MatrixTransform2x3 identity
6 changes: 0 additions & 6 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/ellipseTestSVG.st
View file

This file was deleted.

2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/ellipseTestSVGString.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
resources
resources - svg strings
ellipseTestSVGString

^ '<svg height="200" version="1.1" width="200" xmlns="http://www.w3.org/2000/svg">
Expand Down
10 changes: 0 additions & 10 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/groupTestSVG.st
View file

This file was deleted.

2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/groupTestSVGString.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
resources
resources - svg strings
groupTestSVGString

^ '<svg width="200" height="200" version="1.1" xmlns="http://www.w3.org/2000/svg">
Expand Down
6 changes: 0 additions & 6 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/lineTestSVG.st
View file

This file was deleted.

2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/lineTestSVGString.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
resources
resources - svg strings
lineTestSVGString

^ '<svg height="200" version="1.1" width="200" xmlns="http://www.w3.org/2000/svg">
Expand Down
11 changes: 11 additions & 0 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/morphTestSVG.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,11 @@
building
morphTestSVG

|morph|
morph := SVGMorph new
bounds: self defaultSVGBounds;
transform: self defaultTransform;
yourself.
morph renderer styleIn: morph fromSVGStyle: morph style.
^ morph

6 changes: 2 additions & 4 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/pathTestSVG.st
View file
Original file line number Diff line number Diff line change
@@ -1,6 +1,4 @@
resources
building
pathTestSVG

^ '<svg width="200" height="200" xmlns="http://www.w3.org/2000/svg">
<path d="M10 10"/>
</svg>'
^ nil
2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/pathTestSVGString.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
resources
resources - svg strings
pathTestSVGString

^ '<svg width="200" height="200" xmlns="http://www.w3.org/2000/svg">
Expand Down
8 changes: 2 additions & 6 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/polygonTestSVG.st
View file
Original file line number Diff line number Diff line change
@@ -1,8 +1,4 @@
resources
building
polygonTestSVG

^ '<svg width="120" height="120" viewBox="0 0 120 120"
xmlns="http://www.w3.org/2000/svg">
<polygon points="60,20 100,40 100,80 60,100 20,80 20,40"/>
</svg>'
^ nil
2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/polygonTestSVGString.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
resources
resources - svg strings
polygonTestSVGString

^ '<svg width="120" height="120" viewBox="0 0 120 120"
Expand Down
6 changes: 2 additions & 4 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/polylineTestSVG.st
View file
Original file line number Diff line number Diff line change
@@ -1,6 +1,4 @@
resources
building
polylineTestSVG

^ '<svg viewBox="0 0 200 100" xmlns="http://www.w3.org/2000/svg">
<polyline points="0,100 50,25 50,75 100,0" />
</svg>'
^ nil
2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/polylineTestSVGString.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
resources
resources - svg strings
polylineTestSVGString

^ '<svg viewBox="0 0 200 100" xmlns="http://www.w3.org/2000/svg">
Expand Down
6 changes: 0 additions & 6 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/rectangleTestSVG.st
View file

This file was deleted.

2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/rectangleTestSVGString.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
resources
resources - svg strings
rectangleTestSVGString

^ '<svg width="200" height="200" version="1.1" xmlns="http://www.w3.org/2000/svg">
Expand Down
10 changes: 0 additions & 10 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/tSpanTestSVG.st
View file

This file was deleted.

2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/tSpanTestSVGString.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
resources
resources - svg strings
tSpanTestSVGString

^ '<svg viewBox="0 0 240 40" xmlns="http://www.w3.org/2000/svg">
Expand Down
5 changes: 0 additions & 5 deletions packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/textTestSVG.st
View file

This file was deleted.

2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/textTestSVGString.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
resources
resources - svg strings
textTestSVGString

^ '<svg height="200" version="1.1" width="200" xmlns="http://www.w3.org/2000/svg">
Expand Down
2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/wantsToTestCircle.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
building
wantsToTestSVG - from string
wantsToTestCircle

self wantsToTest: (SVGMorph fromString: self circleTestSVGString)
2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/wantsToTestEllipse.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
building
wantsToTestSVG - from string
wantsToTestEllipse

self wantsToTest: (SVGMorph fromString: self ellipseTestSVGString)
2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/wantsToTestGroup.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
building
wantsToTestSVG - from string
wantsToTestGroup

self wantsToTest: (SVGMorph fromString: self groupTestSVGString)
2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/wantsToTestLine.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
building
wantsToTestSVG - from string
wantsToTestLine

self wantsToTest: (SVGMorph fromString: self lineTestSVGString)
2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/wantsToTestPath.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
building
wantsToTestSVG - from string
wantsToTestPath

self wantsToTest: (SVGMorph fromString: self pathTestSVGString)
2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/wantsToTestPolygon.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
building
wantsToTestSVG - from string
wantsToTestPolygon

self wantsToTest: (SVGMorph fromString: self polygonTestSVGString)
2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/wantsToTestPolyline.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
building
wantsToTestSVG - from string
wantsToTestPolyline

self wantsToTest: (SVGMorph fromString: self polylineTestSVGString)
2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/wantsToTestRectangle.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
building
wantsToTestSVG - from string
wantsToTestRectangle

self wantsToTest: (SVGMorph fromString: self rectangleTestSVGString)
2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/wantsToTestTSpan.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
building
wantsToTestSVG - from string
wantsToTestTSpan

self wantsToTest: (SVGMorph fromString: self tSpanTestSVGString)
2 changes: 1 addition & 1 deletion packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/wantsToTestText.st
View file
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
building
wantsToTestSVG - from string
wantsToTestText

self wantsToTest: (SVGMorph fromString: self textTestSVGString)
Loading

0 comments on commit ddd0672

Please sign in to comment.