diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-07-08 16:59:44 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-07-08 16:59:44 -0700 |
commit | 59ab8289ba62c4354952626d853ed5c014a5025b (patch) | |
tree | b7865a2c89545a8aa3c2c2dfc7ff020275cadb06 /edit.mu | |
parent | 68bc2ffb0faf9b9e4e14b6cec16d88d23a73c9e1 (diff) | |
download | mu-59ab8289ba62c4354952626d853ed5c014a5025b.tar.gz |
1729
Diffstat (limited to 'edit.mu')
-rw-r--r-- | edit.mu | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/edit.mu b/edit.mu index f743aa60..d420eebf 100644 --- a/edit.mu +++ b/edit.mu @@ -1910,31 +1910,6 @@ recipe run-sandboxes [ reply screen:address/same-as-ingredient:1 ] -scenario run-instruction-silently [ - assume-screen 40:literal/width, 5:literal/height - # left editor is empty - 1:address:array:character <- new [] - 2:address:editor-data <- new-editor 1:address:array:character, screen:address, 0:literal/top, 0:literal/left, 5:literal/right - # right editor contains an instruction - 3:address:array:character <- new [12:number <- copy 34:literal] - 4:address:address:editor-data <- get-address 2:address:editor-data/deref, next-editor:offset - 4:address:address:editor-data/deref <- new-editor 3:address:array:character, screen:address, 0:literal/top, 5:literal/left, 40:literal/right - reset-focus 2:address:editor-data - # run the code in the editors - assume-console [ - press 65527 # F9 - ] - run [ - # now run query for it - event-loop screen:address, console:address, 2:address:editor-data - ] - # check that screen prints the value in location 12 - screen-should-contain [ - . 12:number <- copy 34:literal . - . . - ] -] - scenario run-instruction-and-print-warnings [ #? $print [===== #? ] #? 2 |