From 449059c44d7145253a61c225bcf1911b6c566d46 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Tue, 1 Sep 2015 20:36:43 -0700 Subject: 2128 --- edit.mu | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) diff --git a/edit.mu b/edit.mu index 31d479c2..7d7ccc81 100644 --- a/edit.mu +++ b/edit.mu @@ -5942,6 +5942,23 @@ recipe foo [ . ┊ . . ┊ . ] + # cursor should be in the right place + assume-console [ + type [0] + ] + run [ + event-loop screen:address, console:address, 3:address:programming-environment-data + ] + screen-should-contain [ + . run (F4) . + . ┊0foo . + .recipe foo [ ┊━━━━━━━━━━━━━━━━━━━. + . add 2, 2 ┊ . + .] ┊ . + .┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊ . + . ┊ . + . ┊ . + ] ] after +global-touch [ @@ -6003,6 +6020,9 @@ recipe extract-sandbox [ # snip sandbox out of its list result:address:sandbox-data <- copy *sandbox *sandbox <- copy next-sandbox + # position cursor in sandbox editor + sandbox-in-focus?:address:boolean <- get-address *env, sandbox-in-focus?:offset + *sandbox-in-focus? <- copy 1/true reply result ] -- cgit 1.4.1-2-gfad0