about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--edit.mu16
1 files changed, 14 insertions, 2 deletions
diff --git a/edit.mu b/edit.mu
index 545bc90b..d42f2306 100644
--- a/edit.mu
+++ b/edit.mu
@@ -1133,8 +1133,8 @@ recipe render-all [
   local-scope
   screen:address <- next-ingredient
   env:address:programming-environment-data <- next-ingredient
-  screen:address <- render-recipes screen:address, env:address:programming-environment-data
-  screen:address <- render-sandbox-side screen:address, env:address:programming-environment-data
+  screen:address <- render-recipes screen:address, env:address:programming-environment-data, 1:literal/clear-below
+  screen:address <- render-sandbox-side screen:address, env:address:programming-environment-data, 1:literal/clear-below
   recipes:address:editor-data <- get env:address:programming-environment-data/deref, recipes:offset
   current-sandbox:address:editor-data <- get env:address:programming-environment-data/deref, current-sandbox:offset
   sandbox-in-focus?:boolean <- get env:address:programming-environment-data/deref, sandbox-in-focus?:offset
@@ -1171,6 +1171,7 @@ recipe render-recipes [
   local-scope
   screen:address <- next-ingredient
   env:address:programming-environment-data <- next-ingredient
+  clear:boolean <- next-ingredient
   recipes:address:editor-data <- get env:address:programming-environment-data/deref, recipes:offset
   # render recipes
   left:number <- get recipes:address:editor-data/deref, left:offset
@@ -1193,6 +1194,17 @@ recipe render-recipes [
   row:number <- add row:number, 1:literal
   move-cursor screen:address, row:number, left:number
   clear-line-delimited screen:address, left:number, right:number
+  # clear rest of screen in this column, if requested
+  reply-unless clear:boolean, screen:address/same-as-ingredient:0
+  screen-height:number <- screen-height screen:address
+  {
+    at-bottom-of-screen?:boolean <- greater-or-equal row:number, screen-height:number
+    break-if at-bottom-of-screen?:boolean
+    move-cursor screen:address, row:number, left:number
+    clear-line-delimited screen:address, left:number, right:number
+    row:number <- add row:number, 1:literal
+    loop
+  }
   reply screen:address/same-as-ingredient:0
 ]
 
pf_a@web.de> 2013-12-27 23:10:36 +0100 case consistency part 4' href='/ahoang/Nim/commit/compiler/hlo.nim?h=devel&id=92b8fac94a7243cde785d985db3fd86b6025b079'>92b8fac94 ^
b64eeeb43 ^
51672aef7 ^
b64eeeb43 ^







51672aef7 ^
b64eeeb43 ^

9de3bc8ef ^

51672aef7 ^
b64eeeb43 ^




51672aef7 ^
d68181246 ^
7c065bfad ^
51672aef7 ^

b64eeeb43 ^








9de3bc8ef ^
73c6efdf6 ^
b64eeeb43 ^

9de3bc8ef ^



b64eeeb43 ^



9de3bc8ef ^
b64eeeb43 ^




9de3bc8ef ^
b64eeeb43 ^
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103