1
2
3
4 scenario copy-a-sandbox-to-editor [
5 local-scope
6 trace-until 100/app
7 assume-screen 100/width, 10/height
8
9 assume-resources [
10 ]
11 env:&:environment <- new-programming-environment resources, screen, [add 1, 1]
12
13 assume-console [
14 ¦ press F4
15 ]
16 event-loop screen, console, env, resources
17 screen-should-contain [
18 ¦ . run (F4) .
19 ¦ . ╎ .
20 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
21 ¦ . ╎0 edit copy delete .
22 ¦ . ╎add 1, 1 .
23 ¦ . ╎2 .
24 ¦ . ╎─────────────────────────────────────────────────.
25 ¦ . ╎ .
26 ]
27
28 assume-console [
29 ¦ left-click 3, 69
30 ]
31 run [
32 ¦ event-loop screen, console, env, resources
33 ]
34
35 screen-should-contain [
36 ¦ . run (F4) .
37 ¦ . ╎add 1, 1 .
38 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
39 ¦ . ╎0 edit copy delete .
40 ¦ . ╎add 1, 1 .
41 ¦ . ╎2 .
42 ¦ . ╎─────────────────────────────────────────────────.
43 ¦ . ╎ .
44 ]
45
46 assume-console [
47 ¦ type [0]
48 ]
49 run [
50 ¦ event-loop screen, console, env, resources
51 ]
52 screen-should-contain [
53 ¦ . run (F4) .
54 ¦ . ╎0add 1, 1 .
55 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
56 ¦ . ╎0 edit copy delete .
57 ¦ . ╎add 1, 1 .
58 ¦ . ╎2 .
59 ¦ . ╎─────────────────────────────────────────────────.
60 ¦ . ╎ .
61 ]
62 ]
63
64 scenario copy-a-sandbox-to-editor-2 [
65 local-scope
66 trace-until 100/app
67 assume-screen 100/width, 10/height
68
69 assume-resources [
70 ]
71 env:&:environment <- new-programming-environment resources, screen, [add 1, 1]
72
73 assume-console [
74 ¦ press F4
75 ]
76 event-loop screen, console, env, resources
77 screen-should-contain [
78 ¦ . run (F4) .
79 ¦ . ╎ .
80 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
81 ¦ . ╎0 edit copy delete .
82 ¦ . ╎add 1, 1 .
83 ¦ . ╎2 .
84 ¦ . ╎─────────────────────────────────────────────────.
85 ¦ . ╎ .
86 ]
87
88 assume-console [
89 ¦ left-click 3, 84
90 ]
91 run [
92 ¦ event-loop screen, console, env, resources
93 ]
94
95 screen-should-contain [
96 ¦ . run (F4) .
97 ¦ . ╎add 1, 1 .
98 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
99 ¦ . ╎0 edit copy delete .
100 ¦ . ╎add 1, 1 .
101 ¦ . ╎2 .
102 ¦ . ╎─────────────────────────────────────────────────.
103 ¦ . ╎ .
104 ]
105
106 assume-console [
107 ¦ type [0]
108 ]
109 run [
110 ¦ event-loop screen, console, env, resources
111 ]
112 screen-should-contain [
113 ¦ . run (F4) .
114 ¦ . ╎0add 1, 1 .
115 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
116 ¦ . ╎0 edit copy delete .
117 ¦ . ╎add 1, 1 .
118 ¦ . ╎2 .
119 ¦ . ╎─────────────────────────────────────────────────.
120 ¦ . ╎ .
121 ]
122 ]
123
124 after <global-touch> [
125
126 {
127 ¦ copy?:bool <- should-attempt-copy? click-row, click-column, env
128 ¦ break-unless copy?
129 ¦ copy?, env <- try-copy-sandbox click-row, env
130 ¦ break-unless copy?
131 ¦ screen <- render-sandbox-side screen, env, render
132 ¦ screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env
133 ¦ loop +next-event
134 }
135 ]
136
137
138 def should-attempt-copy? click-row:num, click-column:num, env:&:environment -> result:bool [
139 local-scope
140 load-ingredients
141
142 click-sandbox-area?:bool <- click-on-sandbox-area? click-row, click-column, env
143 return-unless click-sandbox-area?, 0/false
144
145 first-sandbox:&:editor <- get *env, current-sandbox:offset
146 assert first-sandbox, [!!]
147 sandbox-left-margin:num <- get *first-sandbox, left:offset
148 sandbox-right-margin:num <- get *first-sandbox, right:offset
149 _, _, copy-button-left:num, copy-button-right:num, _ <- sandbox-menu-columns sandbox-left-margin, sandbox-right-margin
150 copy-button-vertical-area?:bool <- within-range? click-column, copy-button-left, copy-button-right
151 return-unless copy-button-vertical-area?, 0/false
152
153 current-sandbox:&:editor <- get *env, current-sandbox:offset
154 result <- empty-editor? current-sandbox
155 ]
156
157 def try-copy-sandbox click-row:num, env:&:environment -> clicked-on-copy-button?:bool, env:&:environment [
158 local-scope
159 load-ingredients
160
161 sandbox:&:sandbox <- find-sandbox env, click-row
162 return-unless sandbox, 0/false
163 clicked-on-copy-button? <- copy 1/true
164 text:text <- get *sandbox, data:offset
165 current-sandbox:&:editor <- get *env, current-sandbox:offset
166 current-sandbox <- insert-text current-sandbox, text
167
168 *env <- put *env, render-from:offset, -1
169
170 *env <- put *env, sandbox-in-focus?:offset, 1/true
171 ]
172
173 def find-sandbox env:&:environment, click-row:num -> result:&:sandbox [
174 local-scope
175 load-ingredients
176 curr-sandbox:&:sandbox <- get *env, sandbox:offset
177 {
178 ¦ break-unless curr-sandbox
179 ¦ start:num <- get *curr-sandbox, starting-row-on-screen:offset
180 ¦ found?:bool <- equal click-row, start
181 ¦ return-if found?, curr-sandbox
182 ¦ curr-sandbox <- get *curr-sandbox, next-sandbox:offset
183 ¦ loop
184 }
185 return 0/not-found
186 ]
187
188 def click-on-sandbox-area? click-row:num, click-column:num, env:&:environment -> result:bool [
189 local-scope
190 load-ingredients
191 current-sandbox:&:editor <- get *env, current-sandbox:offset
192 sandbox-left-margin:num <- get *current-sandbox, left:offset
193 on-sandbox-side?:bool <- greater-or-equal click-column, sandbox-left-margin
194 return-unless on-sandbox-side?, 0/false
195 first-sandbox:&:sandbox <- get *env, sandbox:offset
196 return-unless first-sandbox, 0/false
197 first-sandbox-begins:num <- get *first-sandbox, starting-row-on-screen:offset
198 result <- greater-or-equal click-row, first-sandbox-begins
199 ]
200
201 def empty-editor? editor:&:editor -> result:bool [
202 local-scope
203 load-ingredients
204 head:&:duplex-list:char <- get *editor, data:offset
205 first:&:duplex-list:char <- next head
206 result <- not first
207 ]
208
209 def within-range? x:num, low:num, high:num -> result:bool [
210 local-scope
211 load-ingredients
212 not-too-far-left?:bool <- greater-or-equal x, low
213 not-too-far-right?:bool <- lesser-or-equal x, high
214 result <- and not-too-far-left? not-too-far-right?
215 ]
216
217 scenario copy-fails-if-sandbox-editor-not-empty [
218 local-scope
219 trace-until 100/app
220 assume-screen 100/width, 10/height
221
222 assume-resources [
223 ]
224 env:&:environment <- new-programming-environment resources, screen, [add 1, 1]
225
226 assume-console [
227 ¦ press F4
228 ]
229 event-loop screen, console, env, resources
230 screen-should-contain [
231 ¦ . run (F4) .
232 ¦ . ╎ .
233 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
234 ¦ . ╎0 edit copy delete .
235 ¦ . ╎add 1, 1 .
236 ¦ . ╎2 .
237 ¦ . ╎─────────────────────────────────────────────────.
238 ¦ . ╎ .
239 ]
240
241 assume-console [
242 ¦ left-click 2, 70
243 ¦ type [0]
244 ¦ left-click 3, 70
245 ]
246 run [
247 ¦ event-loop screen, console, env, resources
248 ]
249
250 screen-should-contain [
251 ¦ . run (F4) .
252 ¦ . ╎0 .
253 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
254 ¦ . ╎0 edit copy delete .
255 ¦ . ╎add 1, 1 .
256 ¦ . ╎2 .
257 ¦ . ╎─────────────────────────────────────────────────.
258 ¦ . ╎ .
259 ]
260
261 assume-console [
262 ¦ type [1]
263 ]
264 run [
265 ¦ event-loop screen, console, env, resources
266 ]
267 screen-should-contain [
268 ¦ . run (F4) .
269 ¦ . ╎01 .
270 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
271 ¦ . ╎0 edit copy delete .
272 ¦ . ╎add 1, 1 .
273 ¦ . ╎2 .
274 ¦ . ╎─────────────────────────────────────────────────.
275 ¦ . ╎ .
276 ]
277 ]