diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2016-09-12 00:06:40 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2016-09-12 00:38:36 -0700 |
commit | ea19d0dc2c11f48ca384fb087b4e44ef400bfaa2 (patch) | |
tree | ba204ece67397481a3104f4c7c1d6a0f3ad271f7 /sandbox/006-sandbox-copy.mu | |
parent | ec1cd4ae38f283970a401354a1ec17823fa0b7da (diff) | |
download | mu-ea19d0dc2c11f48ca384fb087b4e44ef400bfaa2.tar.gz |
3337 - first use of type abbreviations: text
In the process I've uncover a couple of situations we don't support type abbreviations yet. They're next.
Diffstat (limited to 'sandbox/006-sandbox-copy.mu')
-rw-r--r-- | sandbox/006-sandbox-copy.mu | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/sandbox/006-sandbox-copy.mu b/sandbox/006-sandbox-copy.mu index d1d221d1..754a4a3d 100644 --- a/sandbox/006-sandbox-copy.mu +++ b/sandbox/006-sandbox-copy.mu @@ -4,11 +4,11 @@ scenario copy-a-sandbox-to-editor [ trace-until 50/app # trace too long assume-screen 50/width, 10/height - 1:address:array:character <- new [add 1, 1] + 1:text <- new [add 1, 1] assume-console [ press F4 ] - 2:address:programming-environment-data <- new-programming-environment screen:address:screen, 1:address:array:character + 2:address:programming-environment-data <- new-programming-environment screen:address:screen, 1:text event-loop screen:address:screen, console:address:console, 2:address:programming-environment-data screen-should-contain [ . run (F4) . @@ -66,11 +66,11 @@ scenario copy-a-sandbox-to-editor [ scenario copy-a-sandbox-to-editor-2 [ trace-until 50/app # trace too long assume-screen 50/width, 10/height - 1:address:array:character <- new [add 1, 1] + 1:text <- new [add 1, 1] assume-console [ press F4 ] - 2:address:programming-environment-data <- new-programming-environment screen:address:screen, 1:address:array:character + 2:address:programming-environment-data <- new-programming-environment screen:address:screen, 1:text event-loop screen:address:screen, console:address:console, 2:address:programming-environment-data screen-should-contain [ . run (F4) . @@ -167,7 +167,7 @@ def try-copy-sandbox click-row:number, env:address:programming-environment-data sandbox:address:sandbox-data <- find-sandbox env, click-row return-unless sandbox, 0/false clicked-on-copy-button? <- copy 1/true - text:address:array:character <- get *sandbox, data:offset + text:text <- get *sandbox, data:offset current-sandbox:address:editor-data <- get *env, current-sandbox:offset current-sandbox <- insert-text current-sandbox, text # reset scroll @@ -217,11 +217,11 @@ def within-range? x:number, low:number, high:number -> result:boolean [ scenario copy-fails-if-sandbox-editor-not-empty [ trace-until 50/app # trace too long assume-screen 50/width, 10/height - 1:address:array:character <- new [add 1, 1] + 1:text <- new [add 1, 1] assume-console [ press F4 ] - 2:address:programming-environment-data <- new-programming-environment screen:address:screen, 1:address:array:character + 2:address:programming-environment-data <- new-programming-environment screen:address:screen, 1:text event-loop screen:address:screen, console:address:console, 2:address:programming-environment-data screen-should-contain [ . run (F4) . |