From 58269c270b9651f006add042673f300f60b5514f Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Thu, 25 Jun 2015 11:27:01 -0700
Subject: 1660

More bugs about pointing outside text.
Still not done.
---
 edit.mu | 58 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 58 insertions(+)

(limited to 'edit.mu')

diff --git a/edit.mu b/edit.mu
index 2e18b138..8f4c1b96 100644
--- a/edit.mu
+++ b/edit.mu
@@ -219,6 +219,7 @@ recipe render [
       column:number <- copy left:number
       move-cursor screen:address, row:number, column:number
       curr:address:duplex-list <- next-duplex curr:address:duplex-list
+      prev:address:duplex-list <- next-duplex prev:address:duplex-list
       loop +next-character:label
     }
     {
@@ -255,8 +256,12 @@ recipe render [
     above-cursor-row?:boolean <- lesser-than row:number, cursor-row:address:number/deref
     before-cursor?:boolean <- or before-cursor-on-same-line?:boolean, above-cursor-row?:boolean
     break-unless before-cursor?:boolean
+#?     $print [pointed after all text
+#? ] #? 1
     cursor-row:address:number/deref <- copy row:number
     cursor-column:address:number/deref <- copy column:number
+#?     $print [now ], cursor-row:address:number/deref, [, ], cursor-column:address:number/deref, [ 
+#? ] #? 1
     before-cursor:address:address:duplex-list/deref <- copy prev:address:duplex-list
   }
   # update cursor
@@ -597,6 +602,59 @@ scenario editor-inserts-characters-at-cursor [
   ]
 ]
 
+scenario editor-inserts-characters-at-cursor-2 [
+  assume-screen 10:literal/width, 5:literal/height
+  assume-console [
+    left-click 0, 5  # right of last line
+    type [d]  # should append
+  ]
+  run [
+    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
+    event-loop screen:address, console:address, 2:address:editor-data
+  ]
+  screen-should-contain [
+    .abcd      .
+    .          .
+  ]
+]
+
+scenario editor-inserts-characters-at-cursor-3 [
+  assume-screen 10:literal/width, 5:literal/height
+  assume-console [
+    left-click 3, 5  # below all text
+    type [d]  # should append
+  ]
+  run [
+    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
+    event-loop screen:address, console:address, 2:address:editor-data
+  ]
+  screen-should-contain [
+    .abcd      .
+    .          .
+  ]
+]
+
+scenario editor-inserts-characters-at-cursor-4 [
+  assume-screen 10:literal/width, 5:literal/height
+  assume-console [
+    left-click 3, 5  # below all text
+    type [e]  # should append
+  ]
+  run [
+    1:address:array:character <- new [abc
+d]
+    2:address:editor-data <- new-editor 1:address:array:character, screen:address, 0:literal/top, 0:literal/left, 5:literal/right
+    event-loop screen:address, console:address, 2:address:editor-data
+  ]
+  screen-should-contain [
+    .abc       .
+    .de        .
+    .          .
+  ]
+]
+
 scenario editor-moves-cursor-after-inserting-characters [
   assume-screen 10:literal/width, 5:literal/height
   assume-console [
-- 
cgit 1.4.1-2-gfad0