diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-03-09 21:20:28 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-03-09 21:20:28 -0700 |
| commit | 54bb970d2ff2c9bb1fe5ddc1934a669375280212 (patch) | |
| tree | aaf5f248925db6c1b4c8feda529d686551796649 /trace.arc.t | |
| parent | fdfd8998ebede6ddc63a35e1cbe8e8f2327f517e (diff) | |
| download | mu-54bb970d2ff2c9bb1fe5ddc1934a669375280212.tar.gz | |
877 - supporting pages in expand
Diffstat (limited to 'trace.arc.t')
| -rw-r--r-- | trace.arc.t | 21 |
1 files changed, 20 insertions, 1 deletions
diff --git a/trace.arc.t b/trace.arc.t index d516c8bc..a6d30d06 100644 --- a/trace.arc.t +++ b/trace.arc.t @@ -1251,7 +1251,7 @@ run: main 7: n") " " " ")) (prn "F - page-up 10 - expanded index overlaps target page - 2")) -;? (quit) ;? 1 +;? (quit) ;? 2 (reset2) (new-trace "trace-paginate2") @@ -1378,5 +1378,24 @@ run: main 7: n") " ")) (prn "F - page-up 13 - expanded index far above target page")) +(run-code main25 + (default-space:space-address <- new space:literal 30:literal/capacity) + (0:space-address/names:browser-state <- copy 3:space-address/raw/browser-state) + (s:string-address <- new "kk\n") + (k:keyboard-address <- init-keyboard s:string-address) + (process-key 3:space-address/raw/browser-state k:keyboard-address 2:terminal-address/raw) + (process-key 3:space-address/raw/browser-state k:keyboard-address 2:terminal-address/raw) + (process-key 3:space-address/raw/browser-state k:keyboard-address 2:terminal-address/raw) + ) +(each routine completed-routines* + (awhen rep.routine!error + (prn "error - " it))) +(when (~screen-contains memory*.4 17 + (+ "+ main/ 3 : j " + "- main/ 4 : k " + "+ main/ 5 : l " + " ")) + (prn "F - process-key expands trace segment on any page")) + (reset2) ;? (print-times) ;? 3 |