diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-02-12 23:33:43 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-02-12 23:33:43 -0800 |
commit | 406fd3badcf06bcb358ca800bd2877ea4a3e629d (patch) | |
tree | c0c3e3b751ed505efad130ddde5a8f6bcb828c9d /trace.arc.t | |
parent | 693c270dd464c7b1f93d32a6247b57e57f7ad487 (diff) | |
download | mu-406fd3badcf06bcb358ca800bd2877ea4a3e629d.tar.gz |
746 - toggle a set of lines by hitting enter twice
This just supports it, but we don't actually have collapse yet.
Diffstat (limited to 'trace.arc.t')
-rw-r--r-- | trace.arc.t | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/trace.arc.t b/trace.arc.t index bf81f3f9..a4389e04 100644 --- a/trace.arc.t +++ b/trace.arc.t @@ -325,5 +325,26 @@ schedule: done with routine") " mem : ((3 integer)): 3 <= 4 " " schedule : done with routine ")) (prn "F - process-key expands current trace segment on <enter>")) +; and cursor should remain on the top-level line +(run-code main3 + (replace-character 2:terminal-address/raw ((#\* literal))) + ) +(when (~memory-contains-array memory*.4 + (+ " " + " " + "+ main/ 0 : (((1 integer)) <- ((copy)) ((1 literal))) " + "+ main/ 0 : 1 => ((1 integer)) " + "+ main/ 1 : (((2 integer)) <- ((copy)) ((3 literal))) " + "+ main/ 1 : 3 => ((2 integer)) " + "+ main/ 2 : (((3 integer)) <- ((add)) ((1 integer)) ((2 integer))) " + "* main/ 2 : 4 => ((3 integer)) " + ;^cursor + " mem : ((1 integer)): 1 <= 1 " + " mem : ((2 integer)): 2 <= 3 " + " mem : ((1 integer)) => 1 " + " mem : ((2 integer)) => 3 " + " mem : ((3 integer)): 3 <= 4 " + " schedule : done with routine ")) + (prn "F - process-key positions cursor on top of trace after expanding")) (reset) |