Use selector instead of input

Author: graham-trott

iwsy/resources/ecs/steps.txt

@@ -34,7 +34,6 @@
     input TitleInput
     input LabelInput
     input DurationInput
-    input BlockInput
     input TargetInput
     input URLInput
     textarea InitCSS
@@ -343,7 +342,6 @@ SetupArrays:
     set the elements of DeleteStep to N
     set the elements of TitleInput to N
     set the elements of LabelInput to N
-    set the elements of BlockInput to N
     set the elements of DurationInput to N
     set the elements of URLInput to N
     set the elements of ChainSelect to N
@@ -717,10 +715,12 @@ EditAnimate:
     set the style of TD to `width:6em`
     set the content of TD to `Block:`
     create TD in TR
-    index BlockInput to SelectedStep
-    create BlockInput in TD
-    set the style of BlockInput to `width:100%`
-    set the content of BlockInput to property `block` of CurrentStep
+    set the elements of BlockSelect to 1
+    put property `block` of CurrentStep into Block
+    create BlockRow in TD
+    create BlockSelect in BlockRow
+    set the style of BlockSelect to `width:100%`
+    set BlockSelect from BlockNames as Block
     gosub to EditContinue
 	return
 
@@ -1142,8 +1142,7 @@ SaveCurrentStep:
     end
     else if Action is `animate`
     begin
-    	index BlockInput to SelectedStep
-    	set property `block` of CurrentStep to the text of BlockInput
+        set property `block` of CurrentStep to BlockSelect
         index ContinueSelect to SelectedStep
         set property `continue` of CurrentStep to ContinueSelect
     end