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 render-all screen, env, render
13
14 assume-console [
15 ¦ press F4
16 ]
17 event-loop screen, console, env, resources
18 screen-should-contain [
19 ¦ . run (F4) .
20 ¦ . ╎ .
21 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
22 ¦ . ╎0 edit copy to recipe delete .
23 ¦ . ╎add 1, 1 .
24 ¦ . ╎2 .
25 ¦ . ╎─────────────────────────────────────────────────.
26 ¦ . ╎ .
27 ]
28
29 assume-console [
30 ¦ left-click 3, 69
31 ]
32 run [
33 ¦ event-loop screen, console, env, resources
34 ]
35
36 screen-should-contain [
37 ¦ . run (F4) .
38 ¦ . ╎add 1, 1 .
39 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
40 ¦ . ╎0 edit copy to recipe delete .
41 ¦ . ╎add 1, 1 .
42 ¦ . ╎2 .
43 ¦ . ╎─────────────────────────────────────────────────.
44 ¦ . ╎ .
45 ]
46
47 assume-console [
48 ¦ type [0]
49 ]
50 run [
51 ¦ event-loop screen, console, env, resources
52 ]
53 screen-should-contain [
54 ¦ . run (F4) .
55 ¦ . ╎0add 1, 1 .
56 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
57 ¦ . ╎0 edit copy to recipe delete .
58 ¦ . ╎add 1, 1 .
59 ¦ . ╎2 .
60 ¦ . ╎─────────────────────────────────────────────────.
61 ¦ . ╎ .
62 ]
63 ]
64
65 scenario copy-a-sandbox-to-editor-2 [
66 local-scope
67 trace-until 100/app
68 assume-screen 100/width, 10/height
69
70 assume-resources [
71 ]
72 env:&:environment <- new-programming-environment resources, screen, [add 1, 1]
73 render-all screen, env, render
74
75 assume-console [
76 ¦ press F4
77 ]
78 event-loop screen, console, env, resources
79 screen-should-contain [
80 ¦ . run (F4) .
81 ¦ . ╎ .
82 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
83 ¦ . ╎0 edit copy to recipe delete .
84 ¦ . ╎add 1, 1 .
85 ¦ . ╎2 .
86 ¦ . ╎─────────────────────────────────────────────────.
87 ¦ . ╎ .
88 ]
89
90 assume-console [
91 ¦ left-click 3, 76
92 ]
93 run [
94 ¦ event-loop screen, console, env, resources
95 ]
96
97 screen-should-contain [
98 ¦ . run (F4) .
99 ¦ . ╎add 1, 1 .
100 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
101 ¦ . ╎0 edit copy to recipe delete .
102 ¦ . ╎add 1, 1 .
103 ¦ . ╎2 .
104 ¦ . ╎─────────────────────────────────────────────────.
105 ¦ . ╎ .
106 ]
107
108 assume-console [
109 ¦ type [0]
110 ]
111 run [
112 ¦ event-loop screen, console, env, resources
113 ]
114 screen-should-contain [
115 ¦ . run (F4) .
116 ¦ . ╎0add 1, 1 .
117 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
118 ¦ . ╎0 edit copy to recipe delete .
119 ¦ . ╎add 1, 1 .
120 ¦ . ╎2 .
121 ¦ . ╎─────────────────────────────────────────────────.
122 ¦ . ╎ .
123 ]
124 ]
125
126 after <global-touch> [
127
128 {
129 ¦ copy?:bool <- should-attempt-copy? click-row, click-column, env
130 ¦ break-unless copy?
131 ¦ copy?, env <- try-copy-sandbox click-row, env
132 ¦ break-unless copy?
133 ¦ screen <- render-sandbox-side screen, env, render
134 ¦ screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env
135 ¦ loop +next-event
136 }
137 ]
138
139
140 def should-attempt-copy? click-row:num, click-column:num, env:&:environment -> result:bool [
141 local-scope
142 load-inputs
143
144 click-sandbox-area?:bool <- click-on-sandbox-area? click-row, click-column, env
145 return-unless click-sandbox-area?, 0/false
146
147 first-sandbox:&:editor <- get *env, current-sandbox:offset
148 assert first-sandbox, [!!]
149 sandbox-left-margin:num <- get *first-sandbox, left:offset
150 sandbox-right-margin:num <- get *first-sandbox, right:offset
151 _, _, copy-button-left:num, copy-button-right:num <- sandbox-menu-columns sandbox-left-margin, sandbox-right-margin
152 copy-button-vertical-area?:bool <- within-range? click-column, copy-button-left, copy-button-right
153 return-unless copy-button-vertical-area?, 0/false
154
155 current-sandbox:&:editor <- get *env, current-sandbox:offset
156 result <- empty-editor? current-sandbox
157 ]
158
159 def try-copy-sandbox click-row:num, env:&:environment -> clicked-on-copy-button?:bool, env:&:environment [
160 local-scope
161 load-inputs
162
163 sandbox:&:sandbox <- find-sandbox env, click-row
164 return-unless sandbox, 0/false
165 clicked-on-copy-button? <- copy 1/true
166 text:text <- get *sandbox, data:offset
167 current-sandbox:&:editor <- get *env, current-sandbox:offset
168 current-sandbox <- insert-text current-sandbox, text
169
170 *env <- put *env, render-from:offset, -1
171
172 *env <- put *env, sandbox-in-focus?:offset, 1/true
173 ]
174
175 def find-sandbox env:&:environment, click-row:num -> result:&:sandbox [
176 local-scope
177 load-inputs
178 curr-sandbox:&:sandbox <- get *env, sandbox:offset
179 {
180 ¦ break-unless curr-sandbox
181 ¦ start:num <- get *curr-sandbox, starting-row-on-screen:offset
182 ¦ found?:bool <- equal click-row, start
183 ¦ return-if found?, curr-sandbox
184 ¦ curr-sandbox <- get *curr-sandbox, next-sandbox:offset
185 ¦ loop
186 }
187 return 0/not-found
188 ]
189
190 def click-on-sandbox-area? click-row:num, click-column:num, env:&:environment -> result:bool [
191 local-scope
192 load-inputs
193 current-sandbox:&:editor <- get *env, current-sandbox:offset
194 sandbox-left-margin:num <- get *current-sandbox, left:offset
195 on-sandbox-side?:bool <- greater-or-equal click-column, sandbox-left-margin
196 return-unless on-sandbox-side?, 0/false
197 first-sandbox:&:sandbox <- get *env, sandbox:offset
198 return-unless first-sandbox, 0/false
199 first-sandbox-begins:num <- get *first-sandbox, starting-row-on-screen:offset
200 result <- greater-or-equal click-row, first-sandbox-begins
201 ]
202
203 def empty-editor? editor:&:editor -> result:bool [
204 local-scope
205 load-inputs
206 head:&:duplex-list:char <- get *editor, data:offset
207 first:&:duplex-list:char <- next head
208 result <- not first
209 ]
210
211 def within-range? x:num, low:num, high:num -> result:bool [
212 local-scope
213 load-inputs
214 not-too-far-left?:bool <- greater-or-equal x, low
215 not-too-far-right?:bool <- lesser-or-equal x, high
216 result <- and not-too-far-left? not-too-far-right?
217 ]
218
219 scenario copy-fails-if-sandbox-editor-not-empty [
220 local-scope
221 trace-until 100/app
222 assume-screen 100/width, 10/height
223
224 assume-resources [
225 ]
226 env:&:environment <- new-programming-environment resources, screen, [add 1, 1]
227 render-all screen, env, render
228
229 assume-console [
230 ¦ press F4
231 ]
232 event-loop screen, console, env, resources
233 screen-should-contain [
234 ¦ . run (F4) .
235 ¦ . ╎ .
236 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
237 ¦ . ╎0 edit copy to recipe delete .
238 ¦ . ╎add 1, 1 .
239 ¦ . ╎2 .
240 ¦ . ╎─────────────────────────────────────────────────.
241 ¦ . ╎ .
242 ]
243
244 assume-console [
245 ¦ left-click 2, 70
246 ¦ type [0]
247 ¦ left-click 3, 70
248 ]
249 run [
250 ¦ event-loop screen, console, env, resources
251 ]
252
253 screen-should-contain [
254 ¦ . run (F4) .
255 ¦ . ╎0 .
256 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
257 ¦ . ╎0 edit copy to recipe delete .
258 ¦ . ╎add 1, 1 .
259 ¦ . ╎2 .
260 ¦ . ╎─────────────────────────────────────────────────.
261 ¦ . ╎ .
262 ]
263
264 assume-console [
265 ¦ type [1]
266 ]
267 run [
268 ¦ event-loop screen, console, env, resources
269 ]
270 screen-should-contain [
271 ¦ . run (F4) .
272 ¦ . ╎01 .
273 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
274 ¦ . ╎0 edit copy to recipe delete .
275 ¦ . ╎add 1, 1 .
276 ¦ . ╎2 .
277 ¦ . ╎─────────────────────────────────────────────────.
278 ¦ . ╎ .
279 ]
280 ]
281
282
283
284 scenario copy-a-sandbox-to-recipe-side [
285 local-scope
286 trace-until 100/app
287 assume-screen 100/width, 10/height
288
289 assume-resources [
290 ]
291 env:&:environment <- new-programming-environment resources, screen, [add 1, 1]
292 render-all screen, env, render
293
294 assume-console [
295 ¦ press F4
296 ]
297 event-loop screen, console, env, resources
298 screen-should-contain [
299 ¦ . run (F4) .
300 ¦ . ╎ .
301 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎─────────────────────────────────────────────────.
302 ¦ . ╎0 edit copy to recipe delete .
303 ¦ . ╎add 1, 1 .
304 ¦ . ╎2 .
305 ¦ . ╎─────────────────────────────────────────────────.
306 ¦ . ╎ .
307 ]
308
309 assume-console [
310 ¦ left-click 3, 78
311 ]
312 run [
313 ¦ event-loop screen, console, env, resources
314 ]
315
316 screen-should-contain [
317 ¦ . run (F4) .
318 ¦ .add 1, 1 ╎ .
319 ¦ . ╎─────────────────────────────────────────────────.
320 ¦ . ╎0 edit copy to recipe delete .
321 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎add 1, 1 .
322 ¦ . ╎2 .
323 ¦ . ╎─────────────────────────────────────────────────.
324 ¦ . ╎ .
325 ]
326
327 assume-console [
328 ¦ type [0]
329 ]
330 run [
331 ¦ event-loop screen, console, env, resources
332 ]
333 screen-should-contain [
334 ¦ . run (F4) .
335 ¦ .0add 1, 1 ╎ .
336 ¦ . ╎─────────────────────────────────────────────────.
337 ¦ . ╎0 edit copy to recipe delete .
338 ¦ .╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╌╎add 1, 1 .
339 ¦ . ╎2 .
340 ¦ . ╎─────────────────────────────────────────────────.
341 ¦ . ╎ .
342 ]
343 ]
344
345 after <global-touch> [
346
347 {
348 ¦ copy?:bool <- should-copy-to-recipe? click-row, click-column, env
349 ¦ break-unless copy?
350 ¦ modified?:bool <- prepend-sandbox-into-recipe-side click-row, env
351 ¦ break-unless modified?
352 ¦ *env <- put *env, sandbox-in-focus?:offset, 0/false
353 ¦ screen <- render-recipes screen, env, render
354 ¦ screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env
355 ¦ loop +next-event
356 }
357 ]
358
359
360 def should-copy-to-recipe? click-row:num, click-column:num, env:&:environment -> result:bool [
361 local-scope
362 load-inputs
363
364 click-sandbox-area?:bool <- click-on-sandbox-area? click-row, click-column, env
365 return-unless click-sandbox-area?, 0/false
366
367 first-sandbox:&:editor <- get *env, current-sandbox:offset
368 assert first-sandbox, [!!]
369 sandbox-left-margin:num <- get *first-sandbox, left:offset
370 sandbox-right-margin:num <- get *first-sandbox, right:offset
371 _, _, _, _, recipe-button-left:num, recipe-button-right:num <- sandbox-menu-columns sandbox-left-margin, sandbox-right-margin
372 result <- within-range? click-column, recipe-button-left, recipe-button-right
373 ]
374
375 def prepend-sandbox-into-recipe-side click-row:num, env:&:environment -> clicked-on-copy-to-recipe-button?:bool, env:&:environment [
376 local-scope
377 load-inputs
378 sandbox:&:sandbox <- find-sandbox env, click-row
379 return-unless sandbox, 0/false
380 recipe-editor:&:editor <- get *env, recipes:offset
381 recipe-data:&:duplex-list:char <- get *recipe-editor, data:offset
382
383 newline:char <- copy 10
384 insert newline, recipe-data
385 insert newline, recipe-data
386
387 sandbox-data:text <- get *sandbox, data:offset
388 insert recipe-data, sandbox-data
389
390 *recipe-editor <- put *recipe-editor, top-of-screen:offset, recipe-data
391 *recipe-editor <- put *recipe-editor, before-cursor:offset, recipe-data
392 *recipe-editor <- put *recipe-editor, cursor-row:offset, 1
393 *recipe-editor <- put *recipe-editor, cursor-column:offset, 0
394 return 1/true
395 ]