## the 'copy' button makes it easy to duplicate a sandbox, and thence to ## see code operate in multiple situations scenario copy-a-sandbox-to-editor [ local-scope trace-until 50/app # trace too long assume-screen 50/width, 10/height # empty recipes assume-resources [ ] env:&:environment <- new-programming-environment resources, screen, [add 1, 1] # contents of sandbox editor render-all screen, env, render # run it assume-console [ press F4 ] event-loop screen, console, env, resources screen-should-contain [ . run (F4) . . . .──────────────────────────────────────────────────. .0 edit copy delete . .add 1, 1 . .2 . .──────────────────────────────────────────────────. . . . . . . ] # click at left edge of 'copy' button assume-console [ left-click 3, 19 ] run [ event-loop screen, console, env ] # it copies into editor screen-should-contain [ . run (F4) . .add 1, 1 . .──────────────────────────────────────────────────. .0 edit copy delete . .add 1, 1 . .2 . .──────────────────────────────────────────────────. . . . . . . ] # cursor should be in the right place assume-console [ type [0] ] run [ event-loop screen, console, env, resources ] screen-should-contain [ . run (F4) . .0add 1, 1 . .──────────────────────────────────────────────────. .0 edit copy delete . .add 1, 1 . .2 . .──────────────────────────────────────────────────. . . . . . . ] ] scenario copy-a-sandbox-to-editor-2 [ local-scope trace-until 50/app # trace too long assume-screen 50/width, 10/height # empty recipes assume-resources [ ] env:&:environment <- new-programming-environment resources, screen, [add 1, 1] # contents of sandbox editor render-all screen, env, render # run it assume-console [ press F4 ] event-loop screen, console, env, resources screen-should-contain [ . run (F4) . . . .──────────────────────────────────────────────────. .0 edit copy delete . .add 1, 1 . .2 . .──────────────────────────────────────────────────. . . . . . . ] # click at right edge of 'copy' button (just before 'delete') assume-console [ left-click 3, 33 ] run [ event-loop screen, console, env, resources ] # it copies into editor screen-should-contain [ . run (F4) . .add 1, 1 . .──────────────────────────────────────────────────. .0 edit copy delete . .add 1, 1 . .2 . .──────────────────────────────────────────────────. . . . . . . ] # cursor should be in the right place assume-console [ type [0] ] run [ event-loop screen, console, env, resources ] screen-should-contain [ . run (F4) . .0add 1, 1 . .──────────────────────────────────────────────────. .0 edit copy delete . .add 1, 1 . .2 . .──────────────────────────────────────────────────. . . . . . . ] ] after [ # 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? screen <- render-sandbox-side screen, env, render screen <- update-cursor screen, current-sandbox, env 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-inputs # are we below the sandbox editor? click-sandbox-area?:bool <- click-on-sandbox-area? click-row, env return-unless click-sandbox-area?, 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 return-unless copy-button-vertical-area?, 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:&: