2983 - migrate buttons over to sandbox/

3 files changed, 3 insertions, 30 deletions

diff --git a/edit/001-editor.mu b/edit/001-editor.mu
index 68bb1775..be210b95 100644
--- a/edit/001-editor.mu
+++ b/edit/001-editor.mu
@@ -222,26 +222,6 @@ def render screen:address:screen, editor:address:editor-data -> last-row:number,
   return row, column, screen/same-as-ingredient:0, editor/same-as-ingredient:1
 ]
 
-def clear-line-until screen:address:screen, right:number/inclusive -> screen:address:screen [
-  local-scope
-  load-ingredients
-  _, column:number <- cursor-position screen
-  space:character <- copy 32/space
-  bg-color:number, bg-color-found?:boolean <- next-ingredient
-  {
-    # default bg-color to black
-    break-if bg-color-found?
-    bg-color <- copy 0/black
-  }
-  {
-    done?:boolean <- greater-than column, right
-    break-if done?
-    screen <- print screen, space, 7/white, bg-color  # foreground color is mostly unused except if the cursor shows up at this cell
-    column <- add column, 1
-    loop
-  }
-]
-
 def clear-screen-from screen:address:screen, row:number, column:number, left:number, right:number -> screen:address:screen [
   local-scope
   load-ingredients
diff --git a/edit/005-sandbox.mu b/edit/005-sandbox.mu
index e63b7141..655d3eca 100644
--- a/edit/005-sandbox.mu
+++ b/edit/005-sandbox.mu
@@ -353,13 +353,6 @@ def sandbox-menu-columns left:number, right:number -> edit-button-left:number, e
   copy-button-right:number <- subtract delete-button-left, 1
 ]
 
-def move-cursor-to-column screen:address:screen, column:number -> screen:address:screen [
-  local-scope
-  load-ingredients
-  row:number, _ <- cursor-position screen
-  move-cursor screen, row, column
-]
-
 # assumes programming environment has no sandboxes; restores them from previous session
 def restore-sandboxes env:address:programming-environment-data -> env:address:programming-environment-data [
   local-scope
diff --git a/edit/007-sandbox-delete.mu b/edit/007-sandbox-delete.mu
index 6e377e38..83e6282e 100644
--- a/edit/007-sandbox-delete.mu
+++ b/edit/007-sandbox-delete.mu
@@ -30,9 +30,9 @@ scenario deleting-sandboxes [
     .                                                  ┊━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━.
     .                                                  ┊                                                 .
   ]
-  # delete second sandbox
+  # delete second sandbox by clicking on left edge of 'delete' button
   assume-console [
-    left-click 7, 99
+    left-click 7, 85
   ]
   run [
     event-loop screen:address:screen, console:address:console, 3:address:programming-environment-data
@@ -48,7 +48,7 @@ scenario deleting-sandboxes [
     .                                                  ┊                                                 .
     .                                                  ┊                                                 .
   ]
-  # delete first sandbox
+  # delete first sandbox by clicking at right edge of 'delete' button
   assume-console [
     left-click 3, 99
   ]