clickable Keyframes show now right values and frames

packages/AnimationsEditor-Core.package/AnimationsEditorKeyframe.class/instance/mouseDown..st

@@ -1,4 +1,7 @@
 as yet unclassified
 mouseDown: anEvent
 	anEvent redButtonPressed 
-		ifTrue: [self animationsEditor selectedTreeNode: self selectedProperty].
+		ifTrue: [
+			self setValueAndFrame.
+			self animationsEditor selectedTreeNode: self selectProperty.
+		].

packages/AnimationsEditor-Core.package/AnimationsEditorKeyframe.class/instance/selectProperty.st

@@ -0,0 +1,13 @@
+as yet unclassified
+selectProperty
+	|targetMorph property|
+	targetMorph := self animationsEditor propertyList second.
+	"targetMorph hasSubproperties 
+		ifTrue: [property := targetMorph subproperties keyAtValue: self track property].
+	^property asString."
+
+
+	targetMorph hasSubproperties 
+			ifTrue: [property := targetMorph subproperties detect: [:each| self track property asString match: each asString]].
+	^property
+	"^ self animationsEditor propertyList second subproperties at: self track property ."

packages/AnimationsEditor-Core.package/AnimationsEditorKeyframe.class/instance/setValueAndFrame.st

@@ -0,0 +1,8 @@
+as yet unclassified
+setValueAndFrame
+	|property selectedFrame selectedValue|
+	property := self selectProperty.
+	selectedFrame:= self frame.
+	selectedValue := property targetValues at: self frame.
+	self track property currentValue: selectedValue.
+	self track property targetFrame: selectedFrame.

packages/AnimationsEditor-Core.package/AnimationsEditorKeyframe.class/methodProperties.json

@@ -9,9 +9,10 @@
 		"frame:" : "mjs 7/31/2021 15:46",
 		"handlesMouseDown:" : "SG 6/17/2022 14:57",
 		"initialize" : "mjs 7/31/2021 15:45",
-		"mouseDown:" : "SG 6/22/2022 14:15",
-		"selectedProperty" : "SG 6/22/2022 14:15",
+		"mouseDown:" : "SG 6/25/2022 16:11",
+		"selectProperty" : "SG 6/25/2022 14:40",
 		"setCenteredPosition:" : "FH 8/1/2021 19:04",
+		"setValueAndFrame" : "SG 6/25/2022 16:10",
 		"track" : "mjs 7/31/2021 15:46",
 		"track:" : "mjs 7/31/2021 15:46",
 		"value:" : "mjs 7/31/2021 15:46" } }

packages/AnimationsEditor-Core.package/AnimationsEditorPropertyPosition.class/methodProperties.json

@@ -5,7 +5,7 @@
 		"animationProperty" : "CL 7/29/2021 11:57",
 		"animationString" : "MH 7/8/2021 10:08",
 		"buildInputXWith:" : "mjs 8/1/2021 12:56",
-		"buildInputYWith:" : "mjs 8/1/2021 12:56",
+		"buildInputYWith:" : "SG 6/25/2022 15:15",
 		"buildPanelWith:" : "mjs 8/1/2021 12:54",
 		"buildTextXWith:" : "mjs 8/1/2021 12:57",
 		"buildTextYWith:" : "mjs 8/1/2021 12:57",