hpi-swa-teaching · dasGoogle · Jun 8, 2022 · May 27, 2022 · May 28, 2022 · May 28, 2022
diff --git a/packages/SVG-Editor.package/SVGEditor.class/instance/buildInfoPanelWith..st 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.
+
diff --git a/packages/SVG-Editor.package/SVGEditor.class/instance/buildTreeViewWith..st 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:
diff --git 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
diff --git a/packages/SVG-Editor.package/SVGEditor.class/instance/infoPanelFrame.st 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
diff --git 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
diff --git a/packages/SVG-Editor.package/SVGEditor.class/instance/treeFrame.st 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
diff --git 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
@@ -0,0 +1,4 @@
+accessing
+displayNameOf: aNode
+
+	^ aNode displayName
diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/instance/getChildrenOf..st b/packages/SVG-Editor.package/SVGEditorModel.class/instance/getChildrenOf..st
@@ -0,0 +1,4 @@
+accessing
+getChildrenOf: aNode
+
+	^ aNode submorphs
diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/instance/hasChildren..st b/packages/SVG-Editor.package/SVGEditorModel.class/instance/hasChildren..st
@@ -0,0 +1,4 @@
+accessing
+hasChildren: aNode
+
+	^ aNode submorphs isEmpty not
diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/instance/infoForSelectedElement.st b/packages/SVG-Editor.package/SVGEditorModel.class/instance/infoForSelectedElement.st
@@ -0,0 +1,4 @@
+accessing
+infoForSelectedElement
+
+	^ SVGInfoPanelGenerator for: self selectedElement
diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectElement..st 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
diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectedElement..st b/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectedElement..st
@@ -0,0 +1,7 @@
+accessing
+selectedElement: anObject
+
+	selectedElement := anObject.
+	self 
+		changed: #selectedElement;
+		changed: #infoForSelectedElement
diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectedElement.st b/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectedElement.st
@@ -0,0 +1,4 @@
+accessing
+selectedElement
+
+	^ selectedElement
diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectedPath.st b/packages/SVG-Editor.package/SVGEditorModel.class/instance/selectedPath.st
@@ -0,0 +1,4 @@
+accessing
+selectedPath
+
+	^ selectedPath
diff --git 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 
+		changed: #canSaveFile;
+		changed: #svgTree
diff --git a/packages/SVG-Editor.package/SVGEditorModel.class/instance/svgTree.st 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
diff --git 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
@@ -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
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/class/for..st 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
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/asList.st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/asList.st
@@ -0,0 +1,4 @@
+accessing
+asList
+
+	^ {self keys . self values}
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/at.put..st 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
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/initialize.st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/initialize.st
@@ -0,0 +1,7 @@
+initialize-release
+initialize
+
+	self 
+		keys: OrderedCollection new;
+		values: OrderedCollection new
+
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/keys..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/keys..st
@@ -0,0 +1,3 @@
+accessing
+keys: anObject
+	keys := anObject
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/keys.st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/keys.st
@@ -0,0 +1,3 @@
+accessing
+keys
+	^ keys
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readCircleAttributesOf..st 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
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readCommonAttributesOf..st 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.
+
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readEllipseAttributesOf..st 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
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readLineAttributesOf..st 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
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readPointsOf..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readPointsOf..st
@@ -0,0 +1,5 @@
+helpers
+readPointsOf: aPolygonalMorph
+
+	self at: 'Points' put: (aPolygonalMorph points joinSeparatedBy: ' ')
+
diff --git a/...ges/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readRectangleAttributesOf..st b/...ges/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
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readStylesOf..st 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]
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readTextAttributesOf..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/readTextAttributesOf..st
@@ -0,0 +1,4 @@
+helpers
+readTextAttributesOf: aText
+
+	self at: 'Text' put: aText text
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/values..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/values..st
@@ -0,0 +1,3 @@
+accessing
+values: anObject
+	values := anObject
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/values.st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/values.st
@@ -0,0 +1,3 @@
+accessing
+values
+	^ values
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGCircle..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGCircle..st
@@ -0,0 +1,8 @@
+visiting
+visitSVGCircle: aCircle
+
+	^ self 
+		readCommonAttributesOf: aCircle;
+		readCircleAttributesOf: aCircle;
+		asList
+
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGEllipse..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGEllipse..st
@@ -0,0 +1,7 @@
+visiting
+visitSVGEllipse: anEllipse
+
+	^ self 
+		readCommonAttributesOf: anEllipse;
+		readEllipseAttributesOf: anEllipse;
+		asList
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGGroup..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGGroup..st
@@ -0,0 +1,6 @@
+visiting
+visitSVGGroup: aGroup
+
+	^ self 
+		readCommonAttributesOf: aGroup;
+		asList
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGLine..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGLine..st
@@ -0,0 +1,7 @@
+visiting
+visitSVGLine: aLine
+
+	^ self 
+		readCommonAttributesOf: aLine;
+		readLineAttributesOf: aLine;
+		asList
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGMorph..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGMorph..st
@@ -0,0 +1,6 @@
+visiting
+visitSVGMorph: aMorph
+
+	^ self 
+		readCommonAttributesOf: aMorph;
+		asList
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGPath..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGPath..st
@@ -0,0 +1,6 @@
+visiting
+visitSVGPath: aPath
+
+	^ self 
+		readCommonAttributesOf: aPath;
+		asList
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGPolygon..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGPolygon..st
@@ -0,0 +1,7 @@
+visiting
+visitSVGPolygon: aPolygon
+
+	^ self 
+		readCommonAttributesOf: aPolygon;
+		readPointsOf: aPolygon;
+		asList
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGPolyline..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGPolyline..st
@@ -0,0 +1,7 @@
+visiting
+visitSVGPolyline: aPolyline
+
+	^ self 
+		readCommonAttributesOf: aPolyline;
+		readPointsOf: aPolyline;
+		asList
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGRectangle..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGRectangle..st
@@ -0,0 +1,7 @@
+visiting
+visitSVGRectangle: aRectangle
+
+	^ self 
+		readCommonAttributesOf: aRectangle;
+		readRectangleAttributesOf: aRectangle;
+		asList
diff --git a/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGTSpan..st b/packages/SVG-Editor.package/SVGInfoPanelGenerator.class/instance/visitSVGTSpan..st
@@ -0,0 +1,7 @@
+visiting
+visitSVGTSpan: aTSpan
+
+	^ self 
+		readCommonAttributesOf: aTSpan;
+		readTextAttributesOf: aTSpan;
+		asList