about summary refs log tree commit diff stats
path: root/html
Commit message (Expand)AuthorAgeFilesLines
* 4245 - fix example1.mu to actually runKartik Agaram2018-05-131-2/+6
* 4244Kartik Agaram2018-05-124-1070/+1005
* 4243Kartik Agaram2018-05-1218-928/+932
* 4242 - get rid of refcounts entirelyKartik Agaram2018-05-1220-1776/+1215
* 4239Kartik Agaram2018-05-08139-1030/+1045
* 4230Kartik K. Agaram2018-03-161-49/+47
* 4228Kartik K. Agaram2018-03-1533-3057/+3508
* 4209Kartik K. Agaram2018-02-1813-5286/+5323
* 4200Kartik K. Agaram2018-01-2754-2869/+2869
* 4199Kartik K. Agaram2018-01-25138-20904/+19978
* 4178Kartik K. Agaram2017-12-311-21/+19
* 4176Kartik K. Agaram2017-12-311-1/+1
* 4168Kartik K. Agaram2017-12-301-52/+52
* 4167 - show square colors in chessboard appKartik K. Agaram2017-12-271-399/+409
* 4166Kartik K. Agaram2017-12-271-10/+10
* 4165Kartik K. Agaram2017-12-2738-298/+298
* 4164Kartik K. Agaram2017-12-2713-37/+38
* 4163Kartik K. Agaram2017-12-241-1/+1
* 4162Kartik K. Agaram2017-12-2216-310/+285
* 4161Kartik K. Agaram2017-12-15135-1475/+1520
* 4157Kartik K. Agaram2017-12-091-31/+31
* 4156Kartik K. Agaram2017-12-071-1/+1
* 4155Kartik K. Agaram2017-12-0767-6049/+6317
* 4135Kartik K. Agaram2017-12-031-1/+1
* 4134 - 'input' = 'ingredient'Kartik K. Agaram2017-12-0383-1048/+1105
* 4133Kartik K. Agaram2017-11-255-146/+171
* 4123Kartik K. Agaram2017-11-161-24/+14
* 4122Kartik K. Agaram2017-11-1513-1242/+1266
* 4118Kartik K. Agaram2017-11-061-291/+292
* 4117 - done with delimited continuationsKartik K. Agaram2017-11-068-833/+973
* 4113Kartik K. Agaram2017-11-051-288/+291
* 4112Kartik K. Agaram2017-11-051-16/+12
* 4110 - add continuations to docsKartik K. Agaram2017-11-054-0/+363
* 4109Kartik K. Agaram2017-11-0541-1091/+1222
* 4102Kartik K. Agaram2017-11-0154-4738/+4816
* 4085 - done with first cut of the SubX VMKartik K. Agaram2017-10-182-3/+146
* 4084Kartik K. Agaram2017-10-183-95/+94
* 4083Kartik K. Agaram2017-10-182-1/+60
* 4082Kartik K. Agaram2017-10-182-50/+56
* 4081Kartik K. Agaram2017-10-181-222/+218
* 4080Kartik K. Agaram2017-10-181-13/+19
* 4079Kartik K. Agaram2017-10-183-26/+101
* 4078Kartik K. Agaram2017-10-176-449/+451
* 4077Kartik K. Agaram2017-10-175-32/+32
* 4072Kartik K. Agaram2017-10-166-68/+667
* 4069Kartik K. Agaram2017-10-154-221/+303
* 4068Kartik K. Agaram2017-10-151-3/+3
* 4067Kartik K. Agaram2017-10-153-3/+92
* 4066Kartik K. Agaram2017-10-142-2/+2
* 4065Kartik K. Agaram2017-10-143-0/+228
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-07-02 12:26:22 +0000
class="nv">too long assume-screen 100/width, 10/height # basic recipe recipes:text <- new [ recipe foo [ reply 4 ]] env:&:environment <- new-programming-environment screen, recipes, [foo] # run it assume-console [ press F4 ] event-loop screen, console, env screen-should-contain [ . run (F4) . . ┊ . .recipe foo [ ┊─────────────────────────────────────────────────. . reply 4 ┊0 edit copy delete . .] ┊foo . .┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊4 . . ┊─────────────────────────────────────────────────. . ┊ . ] # click at left edge of 'copy' button assume-console [ left-click 3, 69 ] run [ event-loop screen, console, env ] # it copies into editor screen-should-contain [ . run (F4) . . ┊foo . .recipe foo [ ┊─────────────────────────────────────────────────. . reply 4 ┊0 edit copy delete . .] ┊foo . .┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊4 . . ┊─────────────────────────────────────────────────. . ┊ . ] # cursor should be in the right place assume-console [ type [0] ] run [ event-loop screen, console, env ] screen-should-contain [ . run (F4) . . ┊0foo . .recipe foo [ ┊─────────────────────────────────────────────────. . reply 4 ┊0 edit copy delete . .] ┊foo . .┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊4 . . ┊─────────────────────────────────────────────────. . ┊ . ] ] scenario copy-a-sandbox-to-editor-2 [ local-scope trace-until 100/app # trace too long assume-screen 100/width, 10/height # basic recipe recipes:text <- new [ recipe foo [ reply 4 ]] env:&:environment <- new-programming-environment screen, recipes, [foo] # run it assume-console [ press F4 ] event-loop screen, console, env screen-should-contain [ . run (F4) . . ┊ . .recipe foo [ ┊─────────────────────────────────────────────────. . reply 4 ┊0 edit copy delete . .] ┊foo . .┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊4 . . ┊─────────────────────────────────────────────────. . ┊ . ] # click at right edge of 'copy' button (just before 'delete') assume-console [ left-click 3, 84 ] run [ event-loop screen, console, env ] # it copies into editor screen-should-contain [ . run (F4) . . ┊foo . .recipe foo [ ┊─────────────────────────────────────────────────. . reply 4 ┊0 edit copy delete . .] ┊foo . .┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊4 . . ┊─────────────────────────────────────────────────. . ┊ . ] # cursor should be in the right place assume-console [ type [0] ] run [ event-loop screen, console, env ] screen-should-contain [ . run (F4) . . ┊0foo . .recipe foo [ ┊─────────────────────────────────────────────────. . reply 4 ┊0 edit copy delete . .] ┊foo . .┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊4 . . ┊─────────────────────────────────────────────────. . ┊ . ] ] after <global-touch> [ # support 'copy' button { copy?:bool <- should-attempt-copy? click-row, click-column, env break-unless copy? copy?, env <- try-copy-sandbox click-row, env break-unless copy? hide-screen screen screen <- render-sandbox-side screen, env, render screen <- update-cursor screen, recipes, current-sandbox, sandbox-in-focus?, env show-screen screen loop +next-event } ] # some preconditions for attempting to copy a sandbox def should-attempt-copy? click-row:num, click-column:num, env:&:environment -> result:bool [ local-scope load-ingredients # are we below the sandbox editor? click-sandbox-area?:bool <- click-on-sandbox-area? click-row, click-column, env reply-unless click-sandbox-area?, 0/false # narrower, is the click in the columns spanning the 'copy' button? first-sandbox:&:editor <- get *env, current-sandbox:offset assert first-sandbox, [!!] sandbox-left-margin:num <- get *first-sandbox, left:offset sandbox-right-margin:num <- get *first-sandbox, right:offset _, _, copy-button-left:num, copy-button-right:num, _ <- sandbox-menu-columns sandbox-left-margin, sandbox-right-margin copy-button-vertical-area?:bool <- within-range? click-column, copy-button-left, copy-button-right reply-unless copy-button-vertical-area?, 0/false # finally, is sandbox editor empty? current-sandbox:&:editor <- get *env, current-sandbox:offset result <- empty-editor? current-sandbox ] def try-copy-sandbox click-row:num, env:&:environment -> clicked-on-copy-button?:bool, env:&:environment [ local-scope load-ingredients # identify the sandbox to copy, if the click was actually on the 'copy' button sandbox:&:sandbox <- find-sandbox env, click-row return-unless sandbox, 0/false clicked-on-copy-button? <- copy 1/true text:text <- get *sandbox, data:offset current-sandbox:&:editor <- get *env, current-sandbox:offset current-sandbox <- insert-text current-sandbox, text # reset scroll *env <- put *env, render-from:offset, -1 # position cursor in sandbox editor *env <- put *env, sandbox-in-focus?:offset, 1/true ] def find-sandbox env:&:environment, click-row:num -> result:&:sandbox [ local-scope load-ingredients curr-sandbox:&:sandbox <- get *env, sandbox:offset { break-unless curr-sandbox start:num <- get *curr-sandbox, starting-row-on-screen:offset found?:bool <- equal click-row, start return-if found?, curr-sandbox curr-sandbox <- get *curr-sandbox, next-sandbox:offset loop } return 0/not-found ] def click-on-sandbox-area? click-row:num, click-column:num, env:&:environment -> result:bool [ local-scope load-ingredients current-sandbox:&:editor <- get *env, current-sandbox:offset sandbox-left-margin:num <- get *current-sandbox, left:offset on-sandbox-side?:bool <- greater-or-equal click-column, sandbox-left-margin return-unless on-sandbox-side?, 0/false first-sandbox:&:sandbox <- get *env, sandbox:offset return-unless first-sandbox, 0/false first-sandbox-begins:num <- get *first-sandbox, starting-row-on-screen:offset result <- greater-or-equal click-row, first-sandbox-begins ] def empty-editor? editor:&:editor -> result:bool [ local-scope load-ingredients head:&:duplex-list:char <- get *editor, data:offset first:&:duplex-list:char <- next head result <- not first ] def within-range? x:num, low:num, high:num -> result:bool [ local-scope load-ingredients not-too-far-left?:bool <- greater-or-equal x, low not-too-far-right?:bool <- lesser-or-equal x, high result <- and not-too-far-left? not-too-far-right? ] scenario copy-fails-if-sandbox-editor-not-empty [ local-scope trace-until 100/app # trace too long assume-screen 100/width, 10/height # basic recipe recipes:text <- new [ recipe foo [ reply 4 ]] env:&:environment <- new-programming-environment screen, recipes, [foo] # run it assume-console [ press F4 ] event-loop screen, console, env screen-should-contain [ . run (F4) . . ┊ . .recipe foo [ ┊─────────────────────────────────────────────────. . reply 4 ┊0 edit copy delete . .] ┊foo . .┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊4 . . ┊─────────────────────────────────────────────────. . ┊ . ] # type something into the sandbox editor, then click on the 'copy' button assume-console [ left-click 2, 70 # put cursor in sandbox editor type [0] # type something left-click 3, 70 # click 'copy' button ] run [ event-loop screen, console, env ] # copy doesn't happen screen-should-contain [ . run (F4) . . ┊0 . .recipe foo [ ┊─────────────────────────────────────────────────. . reply 4 ┊0 edit copy delete . .] ┊foo . .┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊4 . . ┊─────────────────────────────────────────────────. . ┊ . ] # cursor should be in the right place assume-console [ type [1] ] run [ event-loop screen, console, env ] screen-should-contain [ . run (F4) . . ┊01 . .recipe foo [ ┊─────────────────────────────────────────────────. . reply 4 ┊0 edit copy delete . .] ┊foo . .┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┈┊4 . . ┊─────────────────────────────────────────────────. . ┊ . ] ]
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-07-02 12:26:20 +0000