diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-06-30 17:28:18 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-06-30 17:28:18 -0700 |
commit | 9680bcbada10e114b580bb2807968b43b1f4a0f5 (patch) | |
tree | 8e38e837645a4a6014fad9e0311678d107a1b2cf | |
parent | d933f15b64a907d54830d435b8ee24142b3254b3 (diff) | |
download | mu-9680bcbada10e114b580bb2807968b43b1f4a0f5.tar.gz |
1687
-rw-r--r-- | edit.mu | 7 |
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 . . │ . |