about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-06-30 17:28:18 -0700
committerKartik K. Agaram <vc@akkartik.com>2015-06-30 17:28:18 -0700
commit9680bcbada10e114b580bb2807968b43b1f4a0f5 (patch)
tree8e38e837645a4a6014fad9e0311678d107a1b2cf
parentd933f15b64a907d54830d435b8ee24142b3254b3 (diff)
downloadmu-9680bcbada10e114b580bb2807968b43b1f4a0f5.tar.gz
1687
-rw-r--r--edit.mu7
1 files changed, 4 insertions, 3 deletions
diff --git a/edit.mu b/edit.mu
index bcb0ccf6..5264520a 100644
--- a/edit.mu
+++ b/edit.mu
@@ -1510,16 +1510,17 @@ scenario editors-chain-to-cover-multiple-columns [
 
 scenario multiple-editors-cover-only-their-own-areas [
   assume-screen 10:literal/width, 5:literal/height
-  draw-vertical screen:address, 5:literal/divider, 0:literal/top, 5:literal/height
   run [
-    # initialize an editor covering left half of screen
+    # draw a divider
+    draw-vertical screen:address, 5:literal/divider, 0:literal/top, 5:literal/height
+    # initialize editors on both sides of it and chain the two
     1:address:array:character <- new [abc]
     2:address:editor-data <- new-editor 1:address:array:character, screen:address, 0:literal/top, 0:literal/left, 5:literal/right
     3:address:array:character <- new [def]
-    # chain new editor to it, covering the right half of the screen
     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, 6:literal/left, 10:literal/right
   ]
+  # divider isn't messed up
   screen-should-contain [
     .abc  │def .
     .     │    .