diff --git a/packages/SVG-Editor.package/SVGEditor.class/instance/buildInfoPanelWith..st b/packages/SVG-Editor.package/SVGEditor.class/instance/buildInfoPanelWith..st new file mode 100644 index 00000000..e5e319be --- /dev/null +++ b/packages/SVG-Editor.package/SVGEditor.class/instance/buildInfoPanelWith..st @@ -0,0 +1,8 @@ +toolbuilder +buildInfoPanelWith: aToolBuilder + + ^ aToolBuilder pluggableMultiColumnListSpec new + name: #infoPanel; + model: self model; + list: #infoForSelectedElement. + \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGEditor.class/instance/buildTreeViewWith..st b/packages/SVG-Editor.package/SVGEditor.class/instance/buildTreeViewWith..st new file mode 100644 index 00000000..45c37846 --- /dev/null +++ b/packages/SVG-Editor.package/SVGEditor.class/instance/buildTreeViewWith..st @@ -0,0 +1,13 @@ +toolbuilder +buildTreeViewWith: aToolBuilder + + ^ aToolBuilder pluggableTreeSpec new + roots: #svgTree; + name: #treeView; + model: self model; + getChildren: #getChildrenOf:; + hasChildren: #hasChildren:; + setSelected: #selectedElement:; + getSelected: #selectedElement; + getSelectedPath: #selectedPath; + label: #displayNameOf: \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGEditor.class/instance/buildWith..st b/packages/SVG-Editor.package/SVGEditor.class/instance/buildWith..st index eec14aad..fa1ee86d 100644 --- a/packages/SVG-Editor.package/SVGEditor.class/instance/buildWith..st +++ b/packages/SVG-Editor.package/SVGEditor.class/instance/buildWith..st @@ -4,7 +4,9 @@ buildWith: aToolBuilder | window | window := self model buildWindowWith: aToolBuilder specs: { (self switchesFrame) -> (self buildSwitchesWIth: aToolBuilder) . - (self panelDrawingFrame) -> (self buildDrawingAreaWith: aToolBuilder) + (self panelDrawingFrame) -> (self buildDrawingAreaWith: aToolBuilder) . + (self treeFrame) -> (self buildTreeViewWith: aToolBuilder) . + (self infoPanelFrame) -> (self buildInfoPanelWith: aToolBuilder) }. ^ aToolBuilder build: window \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGEditor.class/instance/infoPanelFrame.st b/packages/SVG-Editor.package/SVGEditor.class/instance/infoPanelFrame.st new file mode 100644 index 00000000..06b89e5c --- /dev/null +++ b/packages/SVG-Editor.package/SVGEditor.class/instance/infoPanelFrame.st @@ -0,0 +1,9 @@ +toolbuilder +infoPanelFrame + + ^ LayoutFrame new + leftFraction: 0.7 offset: 0; + topFraction: 0 offset: self buttonHeight; + rightFraction: 1 offset: 0; + bottomFraction: 0.3 offset: 0; + yourself \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGEditor.class/instance/panelDrawingFrame.st b/packages/SVG-Editor.package/SVGEditor.class/instance/panelDrawingFrame.st index 0920eedf..6f9f9050 100644 --- a/packages/SVG-Editor.package/SVGEditor.class/instance/panelDrawingFrame.st +++ b/packages/SVG-Editor.package/SVGEditor.class/instance/panelDrawingFrame.st @@ -4,6 +4,6 @@ panelDrawingFrame ^ LayoutFrame new leftFraction: 0 offset: 0; topFraction: 0 offset: self buttonHeight; - rightFraction: 1 offset: 0; + rightFraction: 0.7 offset: 0; bottomFraction: 1 offset: 0; yourself \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGEditor.class/instance/treeFrame.st b/packages/SVG-Editor.package/SVGEditor.class/instance/treeFrame.st new file mode 100644 index 00000000..0800a97a --- /dev/null +++ b/packages/SVG-Editor.package/SVGEditor.class/instance/treeFrame.st @@ -0,0 +1,9 @@ +toolbuilder +treeFrame + + ^ LayoutFrame new + leftFraction: 0.7 offset: 0; + topFraction: 0.3 offset:0; + rightFraction: 1 offset: 0; + bottomFraction: 1 offset: 0; + yourself \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGEditor.class/methodProperties.json b/packages/SVG-Editor.package/SVGEditor.class/methodProperties.json index 1cedcf00..b13d55d4 100644 --- a/packages/SVG-Editor.package/SVGEditor.class/methodProperties.json +++ b/packages/SVG-Editor.package/SVGEditor.class/methodProperties.json @@ -11,13 +11,17 @@ "buildAndOpenFromString:" : "lha 5/17/2022 19:37", "buildCloseButtonWith:" : "lha 5/17/2022 19:31", "buildDrawingAreaWith:" : "lha 5/17/2022 19:32", + "buildInfoPanelWith:" : "aes 5/28/2022 12:42", "buildOpenButtonWith:" : "lha 5/17/2022 19:32", "buildSaveButtonWith:" : "lha 5/17/2022 19:32", "buildSwitchesWIth:" : "nh 5/16/2022 15:54", - "buildWith:" : "lha 5/17/2022 19:34", + "buildTreeViewWith:" : "aes 5/28/2022 14:37", + "buildWith:" : "aes 5/28/2022 12:28", "buttonHeight" : "nh 5/15/2022 15:51", + "infoPanelFrame" : "aes 5/28/2022 12:29", "initialize" : "lha 5/17/2022 19:31", "model" : "lha 5/17/2022 19:30", "model:" : "lha 5/17/2022 19:30", - "panelDrawingFrame" : "lha 5/15/2022 19:10", - "switchesFrame" : "lha 5/15/2022 19:10" } } + "panelDrawingFrame" : "aes 5/27/2022 13:48", + "switchesFrame" : "lha 5/15/2022 19:10", + "treeFrame" : "aes 5/28/2022 12:30" } } diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/instance/displayNameOf..st b/packages/SVG-Editor.package/SVGEditorModel.class/instance/displayNameOf..st new file mode 100644 index 00000000..6f56cfba --- /dev/null +++ b/packages/SVG-Editor.package/SVGEditorModel.class/instance/displayNameOf..st @@ -0,0 +1,4 @@ +accessing +displayNameOf: aNode + + ^ aNode displayName \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/instance/getChildrenOf..st b/packages/SVG-Editor.package/SVGEditorModel.class/instance/getChildrenOf..st new file mode 100644 index 00000000..5bdf64ad --- /dev/null +++ b/packages/SVG-Editor.package/SVGEditorModel.class/instance/getChildrenOf..st @@ -0,0 +1,4 @@ +accessing +getChildrenOf: aNode + + ^ aNode submorphs \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/instance/hasChildren..st b/packages/SVG-Editor.package/SVGEditorModel.class/instance/hasChildren..st new file mode 100644 index 00000000..a2268fea --- /dev/null +++ b/packages/SVG-Editor.package/SVGEditorModel.class/instance/hasChildren..st @@ -0,0 +1,4 @@ +accessing +hasChildren: aNode + + ^ aNode submorphs isEmpty not \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/instance/infoForSelectedElement.st b/packages/SVG-Editor.package/SVGEditorModel.class/instance/infoForSelectedElement.st new file mode 100644 index 00000000..8e98bb4d --- /dev/null +++ b/packages/SVG-Editor.package/SVGEditorModel.class/instance/infoForSelectedElement.st @@ -0,0 +1,4 @@ +accessing +infoForSelectedElement + + ^ SVGInfoPanelGenerator for: self selectedElement \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectElement..st b/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectElement..st new file mode 100644 index 00000000..5205f9e9 --- /dev/null +++ b/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectElement..st @@ -0,0 +1,11 @@ +accessing +selectElement: anElement + + |current| + selectedPath := OrderedCollection new. + current := anElement. + selectedPath addFirst: current. + [current = self svg] + whileFalse: [current := current owner. + selectedPath addFirst: current]. + self changed: #selectedPath \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectedElement..st b/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectedElement..st new file mode 100644 index 00000000..e0cbbf3f --- /dev/null +++ b/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectedElement..st @@ -0,0 +1,7 @@ +accessing +selectedElement: anObject + + selectedElement := anObject. + self + changed: #selectedElement; + changed: #infoForSelectedElement \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectedElement.st b/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectedElement.st new file mode 100644 index 00000000..779839a6 --- /dev/null +++ b/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectedElement.st @@ -0,0 +1,4 @@ +accessing +selectedElement + + ^ selectedElement \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectedPath.st b/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectedPath.st new file mode 100644 index 00000000..ef8f74c4 --- /dev/null +++ b/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectedPath.st @@ -0,0 +1,4 @@ +accessing +selectedPath + + ^ selectedPath \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/instance/svg..st b/packages/SVG-Editor.package/SVGEditorModel.class/instance/svg..st index 3152a7f9..4ab4b436 100644 --- a/packages/SVG-Editor.package/SVGEditorModel.class/instance/svg..st +++ b/packages/SVG-Editor.package/SVGEditorModel.class/instance/svg..st @@ -7,4 +7,5 @@ svg: anSVGMorph self changed: #svg; changed: #canCloseFile; - changed: #canSaveFile \ No newline at end of file + changed: #canSaveFile; + changed: #svgTree \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/instance/svgTree.st b/packages/SVG-Editor.package/SVGEditorModel.class/instance/svgTree.st new file mode 100644 index 00000000..ec773e0a --- /dev/null +++ b/packages/SVG-Editor.package/SVGEditorModel.class/instance/svgTree.st @@ -0,0 +1,5 @@ +accessing +svgTree + + self svg ifNotNil: [^ Array with: self svg]. + ^ Array new \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/methodProperties.json b/packages/SVG-Editor.package/SVGEditorModel.class/methodProperties.json index 996b4d8f..7c5ee2d5 100644 --- a/packages/SVG-Editor.package/SVGEditorModel.class/methodProperties.json +++ b/packages/SVG-Editor.package/SVGEditorModel.class/methodProperties.json @@ -9,8 +9,17 @@ "askSavePath" : "lha 5/17/2022 19:28", "canCloseFile" : "lha 5/17/2022 19:28", "canSaveFile" : "lha 5/17/2022 19:28", + "displayNameOf:" : "aes 5/27/2022 14:20", + "getChildrenOf:" : "aes 5/27/2022 13:58", "getReadStreamForFileNamed:" : "lha 5/17/2022 19:28", "getWriteStreamForFileNamed:" : "lha 5/17/2022 19:28", + "hasChildren:" : "aes 5/27/2022 14:23", + "infoForSelectedElement" : "aes 5/28/2022 13:05", + "selectElement:" : "aes 5/28/2022 14:39", + "selectedElement" : "aes 5/27/2022 14:19", + "selectedElement:" : "aes 5/28/2022 12:30", + "selectedPath" : "aes 5/28/2022 14:36", "svg" : "lha 5/17/2022 19:28", - "svg:" : "lha 5/17/2022 19:36", + "svg:" : "aes 5/27/2022 14:11", + "svgTree" : "aes 5/27/2022 14:22", "windowTitle" : "lha 5/17/2022 20:29" } } diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/properties.json b/packages/SVG-Editor.package/SVGEditorModel.class/properties.json index 0d28a092..4ab7fb23 100644 --- a/packages/SVG-Editor.package/SVGEditorModel.class/properties.json +++ b/packages/SVG-Editor.package/SVGEditorModel.class/properties.json @@ -6,7 +6,9 @@ ], "commentStamp" : "", "instvars" : [ - "svg" ], + "svg", + "selectedElement", + "selectedPath" ], "name" : "SVGEditorModel", "pools" : [ ], diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/README.md b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/class/for..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/class/for..st new file mode 100644 index 00000000..83b96b15 --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/class/for..st @@ -0,0 +1,6 @@ +accessing +for: aMorph + + aMorph + ifNil: [^ Array new]. + ^ aMorph accept: self new \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/asList.st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/asList.st new file mode 100644 index 00000000..e1f6f15e --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/asList.st @@ -0,0 +1,4 @@ +accessing +asList + + ^ {self keys . self values} \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/at.put..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/at.put..st new file mode 100644 index 00000000..6d3a842f --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/at.put..st @@ -0,0 +1,5 @@ +accessing +at: aString put: aValue + + self keys add: aString. + self values add: aValue \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/initialize.st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/initialize.st new file mode 100644 index 00000000..02c9b765 --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/initialize.st @@ -0,0 +1,7 @@ +initialize-release +initialize + + self + keys: OrderedCollection new; + values: OrderedCollection new + \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/keys..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/keys..st new file mode 100644 index 00000000..1aa98dd0 --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/keys..st @@ -0,0 +1,3 @@ +accessing +keys: anObject + keys := anObject \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/keys.st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/keys.st new file mode 100644 index 00000000..5196c6bd --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/keys.st @@ -0,0 +1,3 @@ +accessing +keys + ^ keys \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readCircleAttributesOf..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readCircleAttributesOf..st new file mode 100644 index 00000000..dfc0de7d --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readCircleAttributesOf..st @@ -0,0 +1,6 @@ +helpers +readCircleAttributesOf: aCircle + + self + at: 'Position' put: aCircle rectangle center asString; + at: 'Radius' put: (aCircle rectangle width / 2) asString \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readCommonAttributesOf..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readCommonAttributesOf..st new file mode 100644 index 00000000..033577a6 --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readCommonAttributesOf..st @@ -0,0 +1,8 @@ +helpers +readCommonAttributesOf: aMorph + + self + at: 'Type' put: aMorph humanReadableClassName; + at: 'ID' put: aMorph id; + readStylesOf: aMorph. + \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readEllipseAttributesOf..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readEllipseAttributesOf..st new file mode 100644 index 00000000..d42b508a --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readEllipseAttributesOf..st @@ -0,0 +1,7 @@ +helpers +readEllipseAttributesOf: anEllipse + + self + at: 'Position' put: anEllipse rectangle center asString; + at: 'Horizontal Radius' put: (anEllipse rectangle width / 2) asString; + at: 'Vertical Radius' put: (anEllipse rectangle height / 2) asString \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readLineAttributesOf..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readLineAttributesOf..st new file mode 100644 index 00000000..82e05f02 --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readLineAttributesOf..st @@ -0,0 +1,6 @@ +helpers +readLineAttributesOf: aLine + + self + at: 'Start' put: aLine rectangle origin asString; + at: 'End' put: aLine rectangle corner asString \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readPointsOf..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readPointsOf..st new file mode 100644 index 00000000..9016fda3 --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readPointsOf..st @@ -0,0 +1,5 @@ +helpers +readPointsOf: aPolygonalMorph + + self at: 'Points' put: (aPolygonalMorph points joinSeparatedBy: ' ') + \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readRectangleAttributesOf..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readRectangleAttributesOf..st new file mode 100644 index 00000000..b9c28961 --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readRectangleAttributesOf..st @@ -0,0 +1,7 @@ +helpers +readRectangleAttributesOf: aRectangle + + self + at: 'Position' put: aRectangle rectangle origin asString; + at: 'Width' put: (aRectangle rectangle width) asString; + at: 'Height' put: (aRectangle rectangle height) asString \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readStylesOf..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readStylesOf..st new file mode 100644 index 00000000..8be78a6d --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readStylesOf..st @@ -0,0 +1,5 @@ +helpers +readStylesOf: aMorph + + aMorph style keysAndValuesDo: [ :key :value | + self at: key put: value asString] \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readTextAttributesOf..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readTextAttributesOf..st new file mode 100644 index 00000000..478bcd8a --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readTextAttributesOf..st @@ -0,0 +1,4 @@ +helpers +readTextAttributesOf: aText + + self at: 'Text' put: aText text \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/values..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/values..st new file mode 100644 index 00000000..ee141bfe --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/values..st @@ -0,0 +1,3 @@ +accessing +values: anObject + values := anObject \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/values.st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/values.st new file mode 100644 index 00000000..886bf9e9 --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/values.st @@ -0,0 +1,3 @@ +accessing +values + ^ values \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGCircle..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGCircle..st new file mode 100644 index 00000000..81689eb5 --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGCircle..st @@ -0,0 +1,8 @@ +visiting +visitSVGCircle: aCircle + + ^ self + readCommonAttributesOf: aCircle; + readCircleAttributesOf: aCircle; + asList + \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGEllipse..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGEllipse..st new file mode 100644 index 00000000..f83acc77 --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGEllipse..st @@ -0,0 +1,7 @@ +visiting +visitSVGEllipse: anEllipse + + ^ self + readCommonAttributesOf: anEllipse; + readEllipseAttributesOf: anEllipse; + asList \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGGroup..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGGroup..st new file mode 100644 index 00000000..d2890f00 --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGGroup..st @@ -0,0 +1,6 @@ +visiting +visitSVGGroup: aGroup + + ^ self + readCommonAttributesOf: aGroup; + asList \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGLine..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGLine..st new file mode 100644 index 00000000..2af6bfe4 --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGLine..st @@ -0,0 +1,7 @@ +visiting +visitSVGLine: aLine + + ^ self + readCommonAttributesOf: aLine; + readLineAttributesOf: aLine; + asList \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGMorph..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGMorph..st new file mode 100644 index 00000000..e6157e33 --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGMorph..st @@ -0,0 +1,6 @@ +visiting +visitSVGMorph: aMorph + + ^ self + readCommonAttributesOf: aMorph; + asList \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGPath..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGPath..st new file mode 100644 index 00000000..79ac64da --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGPath..st @@ -0,0 +1,6 @@ +visiting +visitSVGPath: aPath + + ^ self + readCommonAttributesOf: aPath; + asList \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGPolygon..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGPolygon..st new file mode 100644 index 00000000..0d083f5a --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGPolygon..st @@ -0,0 +1,7 @@ +visiting +visitSVGPolygon: aPolygon + + ^ self + readCommonAttributesOf: aPolygon; + readPointsOf: aPolygon; + asList \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGPolyline..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGPolyline..st new file mode 100644 index 00000000..82733a1d --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGPolyline..st @@ -0,0 +1,7 @@ +visiting +visitSVGPolyline: aPolyline + + ^ self + readCommonAttributesOf: aPolyline; + readPointsOf: aPolyline; + asList \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGRectangle..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGRectangle..st new file mode 100644 index 00000000..fc76b71c --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGRectangle..st @@ -0,0 +1,7 @@ +visiting +visitSVGRectangle: aRectangle + + ^ self + readCommonAttributesOf: aRectangle; + readRectangleAttributesOf: aRectangle; + asList \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGTSpan..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGTSpan..st new file mode 100644 index 00000000..3f38ae45 --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGTSpan..st @@ -0,0 +1,7 @@ +visiting +visitSVGTSpan: aTSpan + + ^ self + readCommonAttributesOf: aTSpan; + readTextAttributesOf: aTSpan; + asList \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGText..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGText..st new file mode 100644 index 00000000..cb645d72 --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGText..st @@ -0,0 +1,7 @@ +visiting +visitSVGText: aText + + ^ self + readCommonAttributesOf: aText; + readTextAttributesOf: aText; + asList \ No newline at end of file diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/methodProperties.json b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/methodProperties.json new file mode 100644 index 00000000..a0d22ad6 --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/methodProperties.json @@ -0,0 +1,30 @@ +{ + "class" : { + "for:" : "aes 5/28/2022 13:06" }, + "instance" : { + "asList" : "aes 5/28/2022 12:51", + "at:put:" : "aes 5/28/2022 12:52", + "initialize" : "aes 5/28/2022 13:07", + "keys" : "aes 5/28/2022 12:49", + "keys:" : "aes 5/28/2022 12:49", + "readCircleAttributesOf:" : "aes 5/28/2022 13:53", + "readCommonAttributesOf:" : "aes 5/28/2022 13:02", + "readEllipseAttributesOf:" : "aes 5/28/2022 14:03", + "readLineAttributesOf:" : "aes 5/28/2022 14:00", + "readPointsOf:" : "aes 5/28/2022 13:49", + "readRectangleAttributesOf:" : "aes 5/28/2022 13:56", + "readStylesOf:" : "aes 5/28/2022 12:58", + "readTextAttributesOf:" : "aes 5/28/2022 13:11", + "values" : "aes 5/28/2022 12:50", + "values:" : "aes 5/28/2022 12:50", + "visitSVGCircle:" : "aes 5/28/2022 13:51", + "visitSVGEllipse:" : "aes 5/28/2022 14:03", + "visitSVGGroup:" : "aes 5/28/2022 13:02", + "visitSVGLine:" : "aes 5/28/2022 14:02", + "visitSVGMorph:" : "aes 5/28/2022 13:02", + "visitSVGPath:" : "aes 5/28/2022 13:02", + "visitSVGPolygon:" : "aes 5/28/2022 13:47", + "visitSVGPolyline:" : "aes 5/28/2022 13:47", + "visitSVGRectangle:" : "aes 5/28/2022 13:56", + "visitSVGTSpan:" : "aes 5/28/2022 13:11", + "visitSVGText:" : "aes 5/28/2022 13:11" } } diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/properties.json b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/properties.json new file mode 100644 index 00000000..f403a710 --- /dev/null +++ b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/properties.json @@ -0,0 +1,15 @@ +{ + "category" : "SVG-Editor", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "keys", + "values" ], + "name" : "SVGInfoPanelGenerator", + "pools" : [ + ], + "super" : "SVGVisitor", + "type" : "normal" } diff --git a/packages/SVG-Morphic.package/SVGCircleMorph.class/instance/humanReadableClassName.st b/packages/SVG-Morphic.package/SVGCircleMorph.class/instance/humanReadableClassName.st new file mode 100644 index 00000000..8c520020 --- /dev/null +++ b/packages/SVG-Morphic.package/SVGCircleMorph.class/instance/humanReadableClassName.st @@ -0,0 +1,4 @@ +as yet unclassified +humanReadableClassName + + ^ 'Circle' \ No newline at end of file diff --git a/packages/SVG-Morphic.package/SVGCircleMorph.class/methodProperties.json b/packages/SVG-Morphic.package/SVGCircleMorph.class/methodProperties.json index 896ff21c..aedf9163 100644 --- a/packages/SVG-Morphic.package/SVGCircleMorph.class/methodProperties.json +++ b/packages/SVG-Morphic.package/SVGCircleMorph.class/methodProperties.json @@ -3,4 +3,5 @@ }, "instance" : { "accept:" : "aes 5/16/2022 16:29", - "createRectangleFromSVG:" : "lha 5/22/2022 16:51" } } + "createRectangleFromSVG:" : "lha 5/22/2022 16:51", + "humanReadableClassName" : "aes 5/27/2022 14:29" } } diff --git a/packages/SVG-Morphic.package/SVGComponentMorph.class/instance/displayName.st b/packages/SVG-Morphic.package/SVGComponentMorph.class/instance/displayName.st new file mode 100644 index 00000000..3283428c --- /dev/null +++ b/packages/SVG-Morphic.package/SVGComponentMorph.class/instance/displayName.st @@ -0,0 +1,4 @@ +accessing +displayName + + ^ self humanReadableClassName , self idForDisplayName \ No newline at end of file diff --git a/packages/SVG-Morphic.package/SVGComponentMorph.class/instance/humanReadableClassName.st b/packages/SVG-Morphic.package/SVGComponentMorph.class/instance/humanReadableClassName.st new file mode 100644 index 00000000..343e29a2 --- /dev/null +++ b/packages/SVG-Morphic.package/SVGComponentMorph.class/instance/humanReadableClassName.st @@ -0,0 +1,4 @@ +accessing +humanReadableClassName + + ^ self subclassResponsibility \ No newline at end of file diff --git a/packages/SVG-Morphic.package/SVGComponentMorph.class/instance/idForDisplayName.st b/packages/SVG-Morphic.package/SVGComponentMorph.class/instance/idForDisplayName.st new file mode 100644 index 00000000..668333c0 --- /dev/null +++ b/packages/SVG-Morphic.package/SVGComponentMorph.class/instance/idForDisplayName.st @@ -0,0 +1,6 @@ +accessing +idForDisplayName + + ^ (self id isNil) + ifTrue: [''] + ifFalse: [' #' , self id] \ No newline at end of file diff --git a/packages/SVG-Morphic.package/SVGComponentMorph.class/methodProperties.json b/packages/SVG-Morphic.package/SVGComponentMorph.class/methodProperties.json index 0a54f81b..43f6f53b 100644 --- a/packages/SVG-Morphic.package/SVGComponentMorph.class/methodProperties.json +++ b/packages/SVG-Morphic.package/SVGComponentMorph.class/methodProperties.json @@ -16,6 +16,7 @@ "context" : "gvc 7/30/2005 20:31", "createFromSVG:" : "AS 5/22/2022 12:46", "defaultContext" : "gvc 7/28/2005 16:25", + "displayName" : "aes 5/27/2022 14:36", "extent:" : "AS 5/19/2022 16:08", "fillFromSVGSpec:" : "gvc 7/29/2005 19:27", "fullContainsPoint:" : "AS 5/19/2022 16:46", @@ -25,8 +26,10 @@ "handleBoundsChange:" : "AS 5/19/2022 16:08", "handlesMouseOver:" : "AS 5/19/2022 16:44", "hasFill" : "gvc 7/30/2005 22:24", + "humanReadableClassName" : "aes 5/27/2022 14:28", "id" : "gvc 7/28/2005 09:54", "id:" : "gvc 7/28/2005 09:54", + "idForDisplayName" : "aes 5/27/2022 14:36", "initialize" : "lha 5/22/2022 13:53", "invalidateComposedStyleCache" : "gvc 8/1/2005 10:42", "printOn:" : "gvc 10/3/2005 09:04", diff --git a/packages/SVG-Morphic.package/SVGEllipseMorph.class/instance/humanReadableClassName.st b/packages/SVG-Morphic.package/SVGEllipseMorph.class/instance/humanReadableClassName.st new file mode 100644 index 00000000..ade733b7 --- /dev/null +++ b/packages/SVG-Morphic.package/SVGEllipseMorph.class/instance/humanReadableClassName.st @@ -0,0 +1,4 @@ +as yet unclassified +humanReadableClassName + + ^ 'Ellipse' \ No newline at end of file diff --git a/packages/SVG-Morphic.package/SVGEllipseMorph.class/methodProperties.json b/packages/SVG-Morphic.package/SVGEllipseMorph.class/methodProperties.json index f8cacf39..edd3b81b 100644 --- a/packages/SVG-Morphic.package/SVGEllipseMorph.class/methodProperties.json +++ b/packages/SVG-Morphic.package/SVGEllipseMorph.class/methodProperties.json @@ -5,4 +5,5 @@ "accept:" : "aes 5/16/2022 15:54", "containsPoint:" : "AS 5/20/2022 16:06", "createRectangleFromSVG:" : "AS 5/19/2022 15:54", - "drawOn:" : "AS 5/19/2022 16:05" } } + "drawOn:" : "AS 5/19/2022 16:05", + "humanReadableClassName" : "aes 5/27/2022 14:29" } } diff --git a/packages/SVG-Morphic.package/SVGGroupMorph.class/instance/humanReadableClassName.st b/packages/SVG-Morphic.package/SVGGroupMorph.class/instance/humanReadableClassName.st new file mode 100644 index 00000000..aeed79c4 --- /dev/null +++ b/packages/SVG-Morphic.package/SVGGroupMorph.class/instance/humanReadableClassName.st @@ -0,0 +1,4 @@ +as yet unclassified +humanReadableClassName + + ^ 'Group' \ No newline at end of file diff --git a/packages/SVG-Morphic.package/SVGGroupMorph.class/methodProperties.json b/packages/SVG-Morphic.package/SVGGroupMorph.class/methodProperties.json index ae2f7307..685d926a 100644 --- a/packages/SVG-Morphic.package/SVGGroupMorph.class/methodProperties.json +++ b/packages/SVG-Morphic.package/SVGGroupMorph.class/methodProperties.json @@ -6,4 +6,5 @@ "computeBounds" : "AS 5/19/2022 10:18", "createFromSVG:" : "AS 5/19/2022 15:50", "drawOn:" : "AS 5/19/2022 16:11", - "handlesMouseOver:" : "AS 5/20/2022 15:52" } } + "handlesMouseOver:" : "AS 5/20/2022 15:52", + "humanReadableClassName" : "aes 5/27/2022 14:28" } } diff --git a/packages/SVG-Morphic.package/SVGLineMorph.class/instance/humanReadableClassName.st b/packages/SVG-Morphic.package/SVGLineMorph.class/instance/humanReadableClassName.st new file mode 100644 index 00000000..7a5653c8 --- /dev/null +++ b/packages/SVG-Morphic.package/SVGLineMorph.class/instance/humanReadableClassName.st @@ -0,0 +1,4 @@ +as yet unclassified +humanReadableClassName + + ^ 'Line' \ No newline at end of file diff --git a/packages/SVG-Morphic.package/SVGLineMorph.class/methodProperties.json b/packages/SVG-Morphic.package/SVGLineMorph.class/methodProperties.json index a733467e..6005ae5a 100644 --- a/packages/SVG-Morphic.package/SVGLineMorph.class/methodProperties.json +++ b/packages/SVG-Morphic.package/SVGLineMorph.class/methodProperties.json @@ -4,4 +4,5 @@ "instance" : { "accept:" : "aes 5/16/2022 17:25", "createRectangleFromSVG:" : "gvc 10/4/2005 09:08", - "drawOn:" : "AS 5/19/2022 16:10" } } + "drawOn:" : "AS 5/19/2022 16:10", + "humanReadableClassName" : "aes 5/27/2022 14:29" } } diff --git a/packages/SVG-Morphic.package/SVGMorph.class/instance/humanReadableClassName.st b/packages/SVG-Morphic.package/SVGMorph.class/instance/humanReadableClassName.st new file mode 100644 index 00000000..dc06e7f3 --- /dev/null +++ b/packages/SVG-Morphic.package/SVGMorph.class/instance/humanReadableClassName.st @@ -0,0 +1,4 @@ +as yet unclassified +humanReadableClassName + + ^ 'SVG' \ No newline at end of file diff --git a/packages/SVG-Morphic.package/SVGMorph.class/methodProperties.json b/packages/SVG-Morphic.package/SVGMorph.class/methodProperties.json index 5c05186c..0cdc766a 100644 --- a/packages/SVG-Morphic.package/SVGMorph.class/methodProperties.json +++ b/packages/SVG-Morphic.package/SVGMorph.class/methodProperties.json @@ -21,6 +21,7 @@ "drawSubmorphsOn:" : "nh 6/5/2022 18:53", "getFill:" : "gvc 7/30/2005 20:12", "handlesMouseOver:" : "AS 5/20/2022 16:02", + "humanReadableClassName" : "aes 5/27/2022 14:28", "initialize" : "gvc 8/1/2005 13:42", "saveSVGBoundsInformation:" : "aes 5/23/2022 15:53", "setDimensionsFromSVG:" : "aes 5/23/2022 15:41", diff --git a/packages/SVG-Morphic.package/SVGPathMorph.class/instance/humanReadableClassName.st b/packages/SVG-Morphic.package/SVGPathMorph.class/instance/humanReadableClassName.st new file mode 100644 index 00000000..84e03ef5 --- /dev/null +++ b/packages/SVG-Morphic.package/SVGPathMorph.class/instance/humanReadableClassName.st @@ -0,0 +1,4 @@ +accessing +humanReadableClassName + + ^ 'Path' \ No newline at end of file diff --git a/packages/SVG-Morphic.package/SVGPathMorph.class/methodProperties.json b/packages/SVG-Morphic.package/SVGPathMorph.class/methodProperties.json index 2355d1a4..a4e37b4f 100644 --- a/packages/SVG-Morphic.package/SVGPathMorph.class/methodProperties.json +++ b/packages/SVG-Morphic.package/SVGPathMorph.class/methodProperties.json @@ -20,6 +20,7 @@ "d" : "aes 5/23/2022 12:34", "d:" : "aes 5/23/2022 12:34", "drawOn:" : "AS 5/19/2022 16:10", + "humanReadableClassName" : "aes 5/27/2022 14:29", "initialize" : "gvc 7/28/2005 15:24", "pathDataFromSVG:" : "gvc 10/3/2005 10:15", "segments" : "gvc 7/28/2005 15:24", diff --git a/packages/SVG-Morphic.package/SVGPolygonMorph.class/instance/humanReadableClassName.st b/packages/SVG-Morphic.package/SVGPolygonMorph.class/instance/humanReadableClassName.st new file mode 100644 index 00000000..e2308fcf --- /dev/null +++ b/packages/SVG-Morphic.package/SVGPolygonMorph.class/instance/humanReadableClassName.st @@ -0,0 +1,4 @@ +as yet unclassified +humanReadableClassName + + ^ 'Polygon' \ No newline at end of file diff --git a/packages/SVG-Morphic.package/SVGPolygonMorph.class/methodProperties.json b/packages/SVG-Morphic.package/SVGPolygonMorph.class/methodProperties.json index f31e4bf3..51e70e06 100644 --- a/packages/SVG-Morphic.package/SVGPolygonMorph.class/methodProperties.json +++ b/packages/SVG-Morphic.package/SVGPolygonMorph.class/methodProperties.json @@ -3,4 +3,5 @@ }, "instance" : { "accept:" : "aes 5/23/2022 12:00", - "drawOn:" : "AS 5/19/2022 16:10" } } + "drawOn:" : "AS 5/19/2022 16:10", + "humanReadableClassName" : "aes 5/27/2022 14:29" } } diff --git a/packages/SVG-Morphic.package/SVGPolylineMorph.class/instance/humanReadableClassName.st b/packages/SVG-Morphic.package/SVGPolylineMorph.class/instance/humanReadableClassName.st new file mode 100644 index 00000000..5ddb386e --- /dev/null +++ b/packages/SVG-Morphic.package/SVGPolylineMorph.class/instance/humanReadableClassName.st @@ -0,0 +1,4 @@ +as yet unclassified +humanReadableClassName + + ^ 'Polyline' \ No newline at end of file diff --git a/packages/SVG-Morphic.package/SVGPolylineMorph.class/methodProperties.json b/packages/SVG-Morphic.package/SVGPolylineMorph.class/methodProperties.json index 8aecde5f..1d171188 100644 --- a/packages/SVG-Morphic.package/SVGPolylineMorph.class/methodProperties.json +++ b/packages/SVG-Morphic.package/SVGPolylineMorph.class/methodProperties.json @@ -3,4 +3,5 @@ }, "instance" : { "accept:" : "aes 5/23/2022 12:01", - "drawOn:" : "AS 5/19/2022 16:10" } } + "drawOn:" : "AS 5/19/2022 16:10", + "humanReadableClassName" : "aes 5/27/2022 14:29" } } diff --git a/packages/SVG-Morphic.package/SVGRectMorph.class/instance/humanReadableClassName.st b/packages/SVG-Morphic.package/SVGRectMorph.class/instance/humanReadableClassName.st new file mode 100644 index 00000000..ae795921 --- /dev/null +++ b/packages/SVG-Morphic.package/SVGRectMorph.class/instance/humanReadableClassName.st @@ -0,0 +1,4 @@ +as yet unclassified +humanReadableClassName + + ^ 'Rectangle' \ No newline at end of file diff --git a/packages/SVG-Morphic.package/SVGRectMorph.class/methodProperties.json b/packages/SVG-Morphic.package/SVGRectMorph.class/methodProperties.json index 910696b9..2221782a 100644 --- a/packages/SVG-Morphic.package/SVGRectMorph.class/methodProperties.json +++ b/packages/SVG-Morphic.package/SVGRectMorph.class/methodProperties.json @@ -4,4 +4,5 @@ "instance" : { "accept:" : "aes 5/14/2022 12:18", "createRectangleFromSVG:" : "AS 5/15/2022 13:36", - "drawOn:" : "AS 5/19/2022 16:10" } } + "drawOn:" : "AS 5/19/2022 16:10", + "humanReadableClassName" : "aes 5/27/2022 14:30" } } diff --git a/packages/SVG-Morphic.package/SVGTSpanMorph.class/instance/humanReadableClassName.st b/packages/SVG-Morphic.package/SVGTSpanMorph.class/instance/humanReadableClassName.st new file mode 100644 index 00000000..86c8fbe2 --- /dev/null +++ b/packages/SVG-Morphic.package/SVGTSpanMorph.class/instance/humanReadableClassName.st @@ -0,0 +1,4 @@ +as yet unclassified +humanReadableClassName + + ^ 'TSpan' \ No newline at end of file diff --git a/packages/SVG-Morphic.package/SVGTSpanMorph.class/methodProperties.json b/packages/SVG-Morphic.package/SVGTSpanMorph.class/methodProperties.json index 0cfbfdca..bb2b2bad 100644 --- a/packages/SVG-Morphic.package/SVGTSpanMorph.class/methodProperties.json +++ b/packages/SVG-Morphic.package/SVGTSpanMorph.class/methodProperties.json @@ -4,4 +4,5 @@ "instance" : { "accept:" : "aes 5/16/2022 17:20", "createTextFromSVG:" : "aes 5/23/2022 16:21", + "humanReadableClassName" : "aes 5/27/2022 14:28", "processSVGElements:" : "gvc 8/1/2005 11:15" } } diff --git a/packages/SVG-Morphic.package/SVGTextMorph.class/instance/displayName.st b/packages/SVG-Morphic.package/SVGTextMorph.class/instance/displayName.st new file mode 100644 index 00000000..4fa5fa02 --- /dev/null +++ b/packages/SVG-Morphic.package/SVGTextMorph.class/instance/displayName.st @@ -0,0 +1,4 @@ +as yet unclassified +displayName + + ^ super displayName , self textForDisplayName \ No newline at end of file diff --git a/packages/SVG-Morphic.package/SVGTextMorph.class/instance/humanReadableClassName.st b/packages/SVG-Morphic.package/SVGTextMorph.class/instance/humanReadableClassName.st new file mode 100644 index 00000000..e9d93921 --- /dev/null +++ b/packages/SVG-Morphic.package/SVGTextMorph.class/instance/humanReadableClassName.st @@ -0,0 +1,4 @@ +as yet unclassified +humanReadableClassName + + ^ 'Text' \ No newline at end of file diff --git a/packages/SVG-Morphic.package/SVGTextMorph.class/instance/textForDisplayName.st b/packages/SVG-Morphic.package/SVGTextMorph.class/instance/textForDisplayName.st new file mode 100644 index 00000000..ae28ee25 --- /dev/null +++ b/packages/SVG-Morphic.package/SVGTextMorph.class/instance/textForDisplayName.st @@ -0,0 +1,6 @@ +as yet unclassified +textForDisplayName + + ^ (self text isEmpty) + ifTrue: [''] + ifFalse: [' ("' , self text , '")'] \ No newline at end of file diff --git a/packages/SVG-Morphic.package/SVGTextMorph.class/methodProperties.json b/packages/SVG-Morphic.package/SVGTextMorph.class/methodProperties.json index e10fb432..ce9712fb 100644 --- a/packages/SVG-Morphic.package/SVGTextMorph.class/methodProperties.json +++ b/packages/SVG-Morphic.package/SVGTextMorph.class/methodProperties.json @@ -7,11 +7,14 @@ "createFromSVG:" : "AS 5/19/2022 14:09", "createTSpanFromSVGTSpan:" : "gvc 8/1/2005 11:12", "createTextFromSVG:" : "gvc 10/4/2005 09:10", + "displayName" : "aes 5/27/2022 14:36", "drawOn:" : "AS 5/19/2022 14:31", "fontToUse" : "gvc 7/31/2005 09:37", + "humanReadableClassName" : "aes 5/27/2022 14:28", "location" : "gvc 7/30/2005 10:34", "location:" : "gvc 7/30/2005 10:34", "processSVGElements:" : "gvc 8/1/2005 11:15", "text" : "gvc 7/30/2005 10:29", "text:" : "gvc 7/30/2005 10:29", + "textForDisplayName" : "aes 5/27/2022 14:36", "userSpaceBoundingBoxWithRespectTo:" : "gvc 7/30/2005 19:42" } } diff --git a/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/instance/testChildrenOf.st b/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/instance/testChildrenOf.st new file mode 100644 index 00000000..c2b71e7c --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/instance/testChildrenOf.st @@ -0,0 +1,8 @@ +testing +testChildrenOf + + |svg| + svg := self treeViewTestSVG. + self subject svg: svg. + + self assert: svg submorphs equals: (self subject getChildrenOf: svg) \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/instance/testDisplayName.st b/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/instance/testDisplayName.st new file mode 100644 index 00000000..fd60d1d4 --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/instance/testDisplayName.st @@ -0,0 +1,8 @@ +testing +testDisplayName + + |svg| + svg := self treeViewTestSVG. + self subject svg: svg. + + self assert: (svg displayName) equals: (self subject displayNameOf: svg) \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/instance/testHasChildren.st b/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/instance/testHasChildren.st new file mode 100644 index 00000000..10c7926f --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/instance/testHasChildren.st @@ -0,0 +1,11 @@ +testing +testHasChildren + + |svg| + svg := self treeViewTestSVG. + self subject svg: svg. + + self + assert: true equals: (self subject hasChildren: svg); + assert: false equals: (self subject hasChildren: (svg submorphs first)) + \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/instance/testTreeRoots.st b/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/instance/testTreeRoots.st new file mode 100644 index 00000000..7f450a92 --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/instance/testTreeRoots.st @@ -0,0 +1,9 @@ +testing +testTreeRoots + + |svg| + svg := self treeViewTestSVG. + self subject svg: svg. + + self assert: (Array with: svg) equals: self subject svgTree + \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/instance/treeViewTestSVG.st b/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/instance/treeViewTestSVG.st new file mode 100644 index 00000000..799bc72b --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/instance/treeViewTestSVG.st @@ -0,0 +1,4 @@ +testing-helpers +treeViewTestSVG + + ^ SVGMorph fromString: '' \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/methodProperties.json b/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/methodProperties.json index e5926cf8..225a499b 100644 --- a/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/methodProperties.json +++ b/packages/Tests-SVG-Editor.package/SVGEditorModelTest.class/methodProperties.json @@ -13,9 +13,14 @@ "testActionOpenFilePathNil" : "lha 5/17/2022 20:18", "testActionSaveFile" : "lha 5/17/2022 20:20", "testActionSaveFilePathNil" : "lha 5/17/2022 20:20", + "testChildrenOf" : "aes 5/28/2022 12:05", + "testDisplayName" : "aes 5/28/2022 12:06", + "testHasChildren" : "aes 5/28/2022 12:05", + "testTreeRoots" : "aes 5/28/2022 12:05", "testUpdateCanClose" : "lha 5/17/2022 19:12", "testUpdateCanSave" : "lha 5/17/2022 19:13", "testUpdateSVG" : "lha 5/17/2022 19:12", + "treeViewTestSVG" : "aes 5/28/2022 12:00", "update:" : "lha 5/17/2022 18:30", "updateObjects" : "lha 5/17/2022 18:30", "updateObjects:" : "lha 5/17/2022 18:30" } } diff --git a/packages/Tests-SVG-Editor.package/SVGEditorTest.class/instance/testTreeViewExists.st b/packages/Tests-SVG-Editor.package/SVGEditorTest.class/instance/testTreeViewExists.st new file mode 100644 index 00000000..0d75cd9b --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGEditorTest.class/instance/testTreeViewExists.st @@ -0,0 +1,6 @@ +testing +testTreeViewExists + + | treeView | + treeView := self subject findByName: #treeView. + self deny: treeView morphs isEmpty \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGEditorTest.class/methodProperties.json b/packages/Tests-SVG-Editor.package/SVGEditorTest.class/methodProperties.json index d7250543..74e29c07 100644 --- a/packages/Tests-SVG-Editor.package/SVGEditorTest.class/methodProperties.json +++ b/packages/Tests-SVG-Editor.package/SVGEditorTest.class/methodProperties.json @@ -16,4 +16,5 @@ "testSaveButtonAction" : "lha 5/17/2022 20:00", "testSaveButtonActionWithoutSVG" : "lha 5/18/2022 12:35", "testSaveButtonExists" : "lha 5/17/2022 20:10", + "testTreeViewExists" : "aes 5/28/2022 11:48", "testWindowTitle" : "lha 5/18/2022 12:38" } } diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/README.md b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/demoSVG.st b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/demoSVG.st new file mode 100644 index 00000000..ce68ca0d --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/demoSVG.st @@ -0,0 +1,15 @@ +as yet unclassified +demoSVG + + ^ +' + + + + + + + + TestTest2 + +' \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/hasValue.atKey.in..st b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/hasValue.atKey.in..st new file mode 100644 index 00000000..da5fe5bb --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/hasValue.atKey.in..st @@ -0,0 +1,10 @@ +as yet unclassified +hasValue: aValue atKey: aKey in: anArrayOfLists + + |keys values| + keys := anArrayOfLists first. + values := anArrayOfLists second. + + self assert: (keys indexOf: aKey ifAbsent: [self fail]) = (values indexOf: aValue ifAbsent: [self fail]) description: 'The value could not be found at the given Key.' + + \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/setUp.st b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/setUp.st new file mode 100644 index 00000000..a32c1254 --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/setUp.st @@ -0,0 +1,4 @@ +as yet unclassified +setUp + + self wantsToTest: (SVGMorph fromString: self demoSVG) \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testCircle.st b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testCircle.st new file mode 100644 index 00000000..dee82603 --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testCircle.st @@ -0,0 +1,10 @@ +as yet unclassified +testCircle + + |panelInfo| + panelInfo := SVGInfoPanelGenerator for: (self subject findByClass: SVGCircleMorph). + + self + hasValue: 'Circle' atKey: 'Type' in: panelInfo; + hasValue: '30@40' atKey: 'Position' in: panelInfo; + hasValue: '60' atKey: 'Radius' in: panelInfo \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testColor.st b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testColor.st new file mode 100644 index 00000000..dfc12a86 --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testColor.st @@ -0,0 +1,4 @@ +as yet unclassified +testColor + + self hasValue: 'Color black' atKey: 'stroke' in: (SVGInfoPanelGenerator for: (self subject findByClass: SVGRectMorph)) \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testEllipse.st b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testEllipse.st new file mode 100644 index 00000000..be3ab3b5 --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testEllipse.st @@ -0,0 +1,11 @@ +as yet unclassified +testEllipse + + |panelInfo| + panelInfo := SVGInfoPanelGenerator for: (self subject findByClass: SVGEllipseMorph). + + self + hasValue: 'Ellipse' atKey: 'Type' in: panelInfo; + hasValue: '100@120' atKey: 'Position' in: panelInfo; + hasValue: '20' atKey: 'Horizontal Radius' in: panelInfo; + hasValue: '50' atKey: 'Vertical Radius' in: panelInfo \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testGroup.st b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testGroup.st new file mode 100644 index 00000000..ae355a64 --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testGroup.st @@ -0,0 +1,8 @@ +as yet unclassified +testGroup + + |panelInfo| + panelInfo := SVGInfoPanelGenerator for: (self subject findByClass: SVGGroupMorph). + + self + hasValue: 'Group' atKey: 'Type' in: panelInfo \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testID.st b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testID.st new file mode 100644 index 00000000..3b065425 --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testID.st @@ -0,0 +1,4 @@ +as yet unclassified +testID + + self hasValue: 'testID' atKey: 'ID' in: (SVGInfoPanelGenerator for: (self subject findByClass: SVGRectMorph)) \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testLine.st b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testLine.st new file mode 100644 index 00000000..7547cabc --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testLine.st @@ -0,0 +1,10 @@ +as yet unclassified +testLine + + |panelData| + panelData := SVGInfoPanelGenerator for: (self subject findByClass: SVGLineMorph). + + self + hasValue: 'Line' atKey: 'Type' in: panelData; + hasValue: '20@30' atKey: 'Start' in: panelData; + hasValue: '100@170' atKey: 'End' in: panelData \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testPath.st b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testPath.st new file mode 100644 index 00000000..d5145993 --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testPath.st @@ -0,0 +1,5 @@ +as yet unclassified +testPath + + self hasValue: 'Path' atKey: 'Type' in: (SVGInfoPanelGenerator for: (self subject findByClass: SVGPathMorph)) + \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testPolygon.st b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testPolygon.st new file mode 100644 index 00000000..a26d8a31 --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testPolygon.st @@ -0,0 +1,9 @@ +as yet unclassified +testPolygon + + |panelInfo| + panelInfo := SVGInfoPanelGenerator for: (self subject findByClass: SVGPolygonMorph). + + self + hasValue: 'Polygon' atKey: 'Type' in: panelInfo; + hasValue: '60@20 100@40 100@80 60@100 20@80 20@40' atKey: 'Points' in: panelInfo \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testPolyline.st b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testPolyline.st new file mode 100644 index 00000000..bfb564e3 --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testPolyline.st @@ -0,0 +1,9 @@ +as yet unclassified +testPolyline + + |panelInfo| + panelInfo := SVGInfoPanelGenerator for: (self subject findByClass: SVGPolylineMorph). + + self + hasValue: 'Polyline' atKey: 'Type' in: panelInfo; + hasValue: '0@100 50@25 50@75 100@0' atKey: 'Points' in: panelInfo \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testRectangle.st b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testRectangle.st new file mode 100644 index 00000000..2a619174 --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testRectangle.st @@ -0,0 +1,11 @@ +as yet unclassified +testRectangle + + |panelInfo| + panelInfo := SVGInfoPanelGenerator for: (self subject findByClass: SVGRectMorph). + + self + hasValue: 'Rectangle' atKey: 'Type' in: panelInfo; + hasValue: '100@100' atKey: 'Position' in: panelInfo; + hasValue: '60' atKey: 'Width' in: panelInfo; + hasValue: '50' atKey: 'Height' in: panelInfo \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testSVG.st b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testSVG.st new file mode 100644 index 00000000..51eb8eb8 --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testSVG.st @@ -0,0 +1,8 @@ +as yet unclassified +testSVG + + |panelInfo| + panelInfo := SVGInfoPanelGenerator for: (self subject findByClass: SVGMorph). + + self + hasValue: 'SVG' atKey: 'Type' in: panelInfo \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testTSpan.st b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testTSpan.st new file mode 100644 index 00000000..8b338da5 --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testTSpan.st @@ -0,0 +1,9 @@ +as yet unclassified +testTSpan + + |panelInfo| + panelInfo := SVGInfoPanelGenerator for: (self subject findByClass: SVGTSpanMorph). + + self + hasValue: 'TSpan' atKey: 'Type' in: panelInfo; + hasValue: 'Test2' atKey: 'Text' in: panelInfo \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testText.st b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testText.st new file mode 100644 index 00000000..99c82b84 --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/instance/testText.st @@ -0,0 +1,9 @@ +as yet unclassified +testText + + |panelInfo| + panelInfo := SVGInfoPanelGenerator for: (self subject findByClass: SVGTextMorph). + + self + hasValue: 'Text' atKey: 'Type' in: panelInfo; + hasValue: 'Test' atKey: 'Text' in: panelInfo \ No newline at end of file diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/methodProperties.json b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/methodProperties.json new file mode 100644 index 00000000..a946815b --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/methodProperties.json @@ -0,0 +1,20 @@ +{ + "class" : { + }, + "instance" : { + "demoSVG" : "aes 5/30/2022 14:10", + "hasValue:atKey:in:" : "aes 5/28/2022 13:29", + "setUp" : "aes 5/28/2022 13:40", + "testCircle" : "aes 5/30/2022 14:29", + "testColor" : "aes 5/28/2022 13:44", + "testEllipse" : "aes 5/30/2022 14:29", + "testGroup" : "aes 5/30/2022 14:26", + "testID" : "aes 5/28/2022 13:40", + "testLine" : "aes 5/30/2022 14:26", + "testPath" : "aes 5/30/2022 14:11", + "testPolygon" : "aes 5/30/2022 14:26", + "testPolyline" : "aes 5/30/2022 14:26", + "testRectangle" : "aes 5/30/2022 14:28", + "testSVG" : "aes 5/30/2022 14:27", + "testTSpan" : "aes 5/30/2022 14:27", + "testText" : "aes 5/30/2022 14:27" } } diff --git a/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/properties.json b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/properties.json new file mode 100644 index 00000000..5504d452 --- /dev/null +++ b/packages/Tests-SVG-Editor.package/SVGInfoPanelGeneratorTest.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Tests-SVG-Editor", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "SVGInfoPanelGeneratorTest", + "pools" : [ + ], + "super" : "MTFTestCase", + "type" : "normal" } diff --git a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/circleTestSVG.st b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/circleTestSVG.st index b5f484f6..9c4a737e 100644 --- a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/circleTestSVG.st +++ b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/circleTestSVG.st @@ -2,5 +2,5 @@ resources circleTestSVG ^ ' - + ' \ No newline at end of file diff --git a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/expectedFailures.st b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/expectedFailures.st new file mode 100644 index 00000000..db216902 --- /dev/null +++ b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/expectedFailures.st @@ -0,0 +1,5 @@ +testing - printing +expectedFailures + + "Bounds calculation is broken in the current version, to allow for a CI that tests everything else, these tests have been marked as invalid" + ^ #(#testSVGCircleBounds #testSVGGroup) \ No newline at end of file diff --git a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testDisplayNameBasic.st b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testDisplayNameBasic.st new file mode 100644 index 00000000..633986e2 --- /dev/null +++ b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testDisplayNameBasic.st @@ -0,0 +1,8 @@ +testing - printing +testDisplayNameBasic + + | rectangle | + self wantsToTestRectangle. + + rectangle := self subject findByClass: SVGRectMorph. + self assert: 'Rectangle' equals: (rectangle displayName) \ No newline at end of file diff --git a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testDisplayNameOfTSpan.st b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testDisplayNameOfTSpan.st new file mode 100644 index 00000000..2747642a --- /dev/null +++ b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testDisplayNameOfTSpan.st @@ -0,0 +1,8 @@ +testing - printing +testDisplayNameOfTSpan + + | text | + self wantsToTestTSpan. + + text := self subject findByClass: SVGTSpanMorph. + self assert: 'TSpan ("not")' equals: (text displayName) \ No newline at end of file diff --git a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testDisplayNameOfText.st b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testDisplayNameOfText.st new file mode 100644 index 00000000..88587d73 --- /dev/null +++ b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testDisplayNameOfText.st @@ -0,0 +1,8 @@ +testing - printing +testDisplayNameOfText + + | text | + self wantsToTestText. + + text := self subject findByClass: SVGTextMorph. + self assert: 'Text ("Test")' equals: (text displayName) \ No newline at end of file diff --git a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testDisplayNameWithId.st b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testDisplayNameWithId.st new file mode 100644 index 00000000..a141b731 --- /dev/null +++ b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testDisplayNameWithId.st @@ -0,0 +1,8 @@ +testing - printing +testDisplayNameWithId + + | circle | + self wantsToTestCircle. + + circle := self subject findByClass: SVGCircleMorph. + self assert: 'Circle #TestCircle' equals: (circle displayName) \ No newline at end of file diff --git a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGCircleExists.st b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGCircleExists.st index 0c729c0d..638c284f 100644 --- a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGCircleExists.st +++ b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGCircleExists.st @@ -1,4 +1,4 @@ -testing - existance +testing - existence testSVGCircleExists | circle | diff --git a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGEllipseExists.st b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGEllipseExists.st index 6f9c66f5..2deaa96d 100644 --- a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGEllipseExists.st +++ b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGEllipseExists.st @@ -1,4 +1,4 @@ -testing - existance +testing - existence testSVGEllipseExists | ellipse | diff --git a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGGroupExists.st b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGGroupExists.st index 23b20feb..fe7e86ba 100644 --- a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGGroupExists.st +++ b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGGroupExists.st @@ -1,4 +1,4 @@ -testing - existance +testing - existence testSVGGroupExists | group | diff --git a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGLineExists.st b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGLineExists.st index 85c8e41c..bc2ef9ef 100644 --- a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGLineExists.st +++ b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGLineExists.st @@ -1,4 +1,4 @@ -testing - existance +testing - existence testSVGLineExists | line | diff --git a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGPathExists.st b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGPathExists.st index 92d91888..3275bf64 100644 --- a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGPathExists.st +++ b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGPathExists.st @@ -1,4 +1,4 @@ -testing - existance +testing - existence testSVGPathExists | path | diff --git a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGPolygonExists.st b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGPolygonExists.st index 6f636ee3..1ac2c207 100644 --- a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGPolygonExists.st +++ b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGPolygonExists.st @@ -1,4 +1,4 @@ -testing - existance +testing - existence testSVGPolygonExists | polygon | diff --git a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGPolylineExists.st b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGPolylineExists.st index 336c7277..885ad661 100644 --- a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGPolylineExists.st +++ b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGPolylineExists.st @@ -1,4 +1,4 @@ -testing - existance +testing - existence testSVGPolylineExists | polyline | diff --git a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGRectangleExists.st b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGRectangleExists.st index 86570a0f..ab4ead32 100644 --- a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGRectangleExists.st +++ b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGRectangleExists.st @@ -1,4 +1,4 @@ -testing - existance +testing - existence testSVGRectangleExists | rectangle | diff --git a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGTSpanExists.st b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGTSpanExists.st index 33170d67..2baf756d 100644 --- a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGTSpanExists.st +++ b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGTSpanExists.st @@ -1,4 +1,4 @@ -testing - existance +testing - existence testSVGTSpanExists | tSpan | diff --git a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGTextExists.st b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGTextExists.st index e9e1ee6e..4225291c 100644 --- a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGTextExists.st +++ b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/instance/testSVGTextExists.st @@ -1,4 +1,4 @@ -testing - existance +testing - existence testSVGTextExists | text | diff --git a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/methodProperties.json b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/methodProperties.json index 49c53942..d8abd963 100644 --- a/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/methodProperties.json +++ b/packages/Tests-SVG-Morphic.package/SVGMorphTest.class/methodProperties.json @@ -3,8 +3,9 @@ }, "instance" : { "addRenderer:on:" : "lha 5/22/2022 15:59", - "circleTestSVG" : "lha 5/22/2022 13:12", + "circleTestSVG" : "aes 5/28/2022 12:15", "ellipseTestSVG" : "lha 5/22/2022 13:14", + "expectedFailures" : "aes 5/29/2022 12:13", "groupTestSVG" : "lha 5/22/2022 17:11", "lineTestSVG" : "lha 5/22/2022 13:15", "pathTestSVG" : "lha 5/22/2022 13:39", @@ -14,6 +15,10 @@ "render:" : "lha 5/22/2022 16:15", "submorphBoundsOf:" : "lha 5/22/2022 18:44", "tSpanTestSVG" : "lha 5/22/2022 13:40", + "testDisplayNameBasic" : "aes 5/28/2022 12:18", + "testDisplayNameOfTSpan" : "aes 5/28/2022 12:14", + "testDisplayNameOfText" : "aes 5/28/2022 12:12", + "testDisplayNameWithId" : "aes 5/28/2022 12:15", "testSVGCircleBounds" : "lha 5/22/2022 16:56", "testSVGCircleExists" : "lha 5/22/2022 13:32", "testSVGCircleRectangle" : "lha 5/22/2022 18:41",