about summary refs log tree commit diff stats
path: root/edit.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-08-17 16:54:51 -0700
committerKartik K. Agaram <vc@akkartik.com>2015-08-17 16:54:51 -0700
commit6f3619b20bcae97d1817cfaa5c8917ec3e50f724 (patch)
tree66bf9b5966628e6f27c67dec7328b96bed26c2f9 /edit.mu
parent418aa4914568ccd96f39f7d8a053066b5d6e1536 (diff)
downloadmu-6f3619b20bcae97d1817cfaa5c8917ec3e50f724.tar.gz
2032
Get all tests passing again. Actually slower now than before, thanks to
double-render when editing the sandbox side. But that is temporary.
Diffstat (limited to 'edit.mu')
-rw-r--r--edit.mu6
1 files changed, 3 insertions, 3 deletions
diff --git a/edit.mu b/edit.mu
index 721117a4..41e09cf3 100644
--- a/edit.mu
+++ b/edit.mu
@@ -4138,6 +4138,8 @@ recipe event-loop [
       {
         break-unless *sandbox-in-focus?
         handle-keyboard-event screen, current-sandbox, e:event
+        screen <- render-all screen, env
+        screen <- update-cursor screen, recipes, current-sandbox, *sandbox-in-focus?
       }
     }
     loop
@@ -4274,8 +4276,8 @@ scenario editor-in-focus-keeps-cursor [
   assume-console []
   run [
     3:address:programming-environment-data <- new-programming-environment screen:address, 1:address:array:character, 2:address:array:character
+    render-all screen, 3:address:programming-environment-data
     event-loop screen:address, console:address, 3:address:programming-environment-data
-    screen <- render-all screen, 3:address:programming-environment-data
     screen:address <- print-character screen:address, 9251/␣
   ]
   # is cursor at the right place?
@@ -4292,7 +4294,6 @@ scenario editor-in-focus-keeps-cursor [
   run [
     3:address:programming-environment-data <- new-programming-environment screen:address, 1:address:array:character, 2:address:array:character
     event-loop screen:address, console:address, 3:address:programming-environment-data
-    screen <- render-all screen, 3:address:programming-environment-data
     screen:address <- print-character screen:address, 9251/␣
   ]
   # cursor should still be right
@@ -4321,7 +4322,6 @@ def]
   run [
     4:address:programming-environment-data <- new-programming-environment screen:address, 1:address:array:character, 2:address:array:character
     event-loop screen:address, console:address, 4:address:programming-environment-data
-    screen <- render-all screen, 4:address:programming-environment-data
     screen:address <- print-character screen:address, 9251/␣
   ]
   # cursor moves to end of old line