Added semi-functional functionality of timeline resizing to the windo…

…w (currently: on change of startend time)

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

@@ -4,4 +4,5 @@ initialize
 	super initialize. 
 	self color: Color orange. 
 	self extent: 15@15. 
-	"self rotationDegrees: 45."
+	"self addFlexShell.
+	self owner transform setAngle: 0.8."

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

@@ -4,7 +4,7 @@
 	"instance" : {
 		"frame" : "MH 7/1/2021 12:22",
 		"frame:" : "MH 7/1/2021 12:22",
-		"initialize" : "CL 7/2/2021 12:01",
+		"initialize" : "mjs 7/8/2021 10:27",
 		"setCenteredPosition:" : "CL 7/2/2021 12:01",
 		"track" : "MH 7/1/2021 12:11",
 		"track:" : "MH 7/1/2021 12:11",

packages/AnimationsEditor-Core.package/AnimationsEditorTimeline.class/instance/update..st

@@ -5,4 +5,5 @@ update: anObject
 	self endTime: anObject endTime.
 	self createTracks.
 	self addTimebar.
-
+	self owner owner addDependent: self.
+	self updateExtent.

packages/AnimationsEditor-Core.package/AnimationsEditorTimeline.class/instance/updateExtent.st

@@ -0,0 +1,5 @@
+updating
+updateExtent
+"Changes extent of the timeline to the ScrollPane extent."
+
+	self extent: self owner owner extent - 2.

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

@@ -11,8 +11,8 @@
 		"endTime" : "MH 7/1/2021 09:50",
 		"endTime:" : "MH 7/1/2021 09:50",
 		"initialExtent" : "MH 7/1/2021 10:48",
-		"initialize" : "NB 7/4/2021 15:15",
-		"initializeStartEndTime" : "MH 7/1/2021 10:41",
+		"initialize" : "mjs 7/8/2021 09:46",
+		"initializeStartEndTime" : "mjs 7/8/2021 09:48",
 		"property" : "CL 6/25/2021 15:49",
 		"property:" : "CL 6/25/2021 15:49",
 		"startTime" : "MH 7/1/2021 09:50",
@@ -21,4 +21,5 @@
 		"timebar" : "MH 7/1/2021 09:56",
 		"timebar:" : "MH 7/1/2021 09:56",
 		"trackHeight" : "CL 7/2/2021 11:56",
-		"update:" : "CL 7/2/2021 11:45" } }
+		"update:" : "mjs 7/8/2021 11:20",
+		"updateExtent" : "mjs 7/8/2021 10:48" } }

packages/AnimationsEditor-Tests.package/AnimationsEditorTimelineTest.class/instance/setUp.st

@@ -0,0 +1,4 @@
+as yet unclassified
+setUp
+	super setUp.
+	self morph: Morph new openInWorld.

packages/AnimationsEditor-Tests.package/AnimationsEditorTimelineTest.class/instance/tearDown.st

@@ -0,0 +1,4 @@
+as yet unclassified
+tearDown
+	super tearDown.
+	self morph abandon.

packages/AnimationsEditor-Tests.package/AnimationsEditorTimelineTest.class/methodProperties.json

@@ -0,0 +1,6 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"setUp" : "mjs 7/8/2021 11:23",
+		"tearDown" : "mjs 7/8/2021 11:24" } }

packages/AnimationsEditor-Tests.package/AnimationsEditorTimelineTest.class/properties.json

@@ -0,0 +1,14 @@
+{
+	"category" : "AnimationsEditor-Tests",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		"morph" ],
+	"name" : "AnimationsEditorTimelineTest",
+	"pools" : [
+		 ],
+	"super" : "TestCase",
+	"type" : "normal" }