diff options
| -rw-r--r-- | trace.arc.t | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/trace.arc.t b/trace.arc.t index eca962b2..7fda5436 100644 --- a/trace.arc.t +++ b/trace.arc.t @@ -83,7 +83,7 @@ schedule: done with routine") "+ main/ 1 : 3 => ((2 integer)) " "+ main/ 2 : (((3 integer)) <- ((add)) ((1 integer)) ((2 integer))) " "+ main/ 2 : 4 => ((3 integer)) ")) - (prn "F - print-traces-collapsed works")) + (prn "F - print-traces-collapsed works anywhere on the screen")) (run-code main2 (print-character 1:terminal-address/raw ((#\* literal)))) (when (~screen-contains memory*.2 70 @@ -147,7 +147,7 @@ schedule: done with routine") "+ main/ 2 : (((3 integer)) <- ((add)) ((1 integer)) ((2 integer))) " "* main/ 2 : 4 => ((3 integer)) ")) ;^cursor - (prn "F - process-key can move up")) + (prn "F - process-key can move up the cursor")) (run-code main2 (default-space:space-address <- new space:literal 30:literal/capacity) ; reset2 previous cursor @@ -305,7 +305,7 @@ schedule: done with routine") "- main/ 2 : 4 => ((3 integer)) " " mem : ((3 integer)): 3 <= 4 " " schedule : done with routine ")) - (prn "F - process-key expands current trace segment on <enter>")) + (prn "F - process-key expands the trace index at cursor on <enter>")) ; and cursor should remain on the top-level line (run-code main3 (replace-character 2:terminal-address/raw ((#\* literal))) @@ -322,7 +322,7 @@ schedule: done with routine") ;^cursor " mem : ((3 integer)): 3 <= 4 " " schedule : done with routine ")) - (prn "F - process-key positions cursor on top of trace after expanding")) + (prn "F - process-key positions cursor at start of trace index after expanding")) (reset2) (new-trace "process-key-expand-nonlast") @@ -428,7 +428,7 @@ schedule: done with routine") " mem : ((1 integer)) => 1 " " mem : ((2 integer)) => 3 " "* main/ 2 : 4 => ((3 integer)) ")) - (prn "F - process-key: navigation moves between top-level lines only")) + (prn "F - process-key: navigation moves between top-level trace indices only")) (run-code main2 (default-space:space-address <- new space:literal 30:literal/capacity) ; reset2 previous cursor @@ -455,7 +455,7 @@ schedule: done with routine") " mem : ((1 integer)) => 1 " " mem : ((2 integer)) => 3 " "+ main/ 2 : 4 => ((3 integer)) ")) - (prn "F - process-key: navigation moves between top-level lines only")) + (prn "F - process-key: navigation moves between top-level indices only - 2")) (run-code main3 (default-space:space-address <- new space:literal 30:literal/capacity) ; reset2 previous cursor @@ -480,7 +480,7 @@ schedule: done with routine") "+ main/ 2 : 4 => ((3 integer)) " " " " ")) - (prn "F - process-key: navigation moves between top-level lines only")) + (prn "F - process-key: process-key collapses trace indices correctly after moving around")) (run-code main4 (default-space:space-address <- new space:literal 30:literal/capacity) ; move up a few lines, expand, then move down and expand again @@ -511,7 +511,7 @@ schedule: done with routine") " mem : ((1 integer)) => 1 " " mem : ((2 integer)) => 3 " "+ main/ 2 : 4 => ((3 integer)) ")) - (prn "F - process-key: navigation moves between top-level lines only")) + (prn "F - process-key: process-key collapses the previously expanded trace index when expanding elsewhere")) ;; manage screen height |