diff options
Diffstat (limited to 'edit')
| -rw-r--r-- | edit/006-sandbox-copy.mu | 4 | ||||
| -rw-r--r-- | edit/007-sandbox-delete.mu | 2 | ||||
| -rw-r--r-- | edit/008-sandbox-edit.mu | 4 |
3 files changed, 5 insertions, 5 deletions
diff --git a/edit/006-sandbox-copy.mu b/edit/006-sandbox-copy.mu index e3f7fe55..c966ae78 100644 --- a/edit/006-sandbox-copy.mu +++ b/edit/006-sandbox-copy.mu @@ -146,7 +146,7 @@ def should-attempt-copy? click-row:num, click-column:num, env:&:environment -> r 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 + return-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, [!!] @@ -154,7 +154,7 @@ def should-attempt-copy? click-row:num, click-column:num, env:&:environment -> r 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 + return-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 diff --git a/edit/007-sandbox-delete.mu b/edit/007-sandbox-delete.mu index c7c01451..555d2859 100644 --- a/edit/007-sandbox-delete.mu +++ b/edit/007-sandbox-delete.mu @@ -84,7 +84,7 @@ def should-attempt-delete? click-row:num, click-column:num, env:&:environment -> 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 + return-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, [!!] diff --git a/edit/008-sandbox-edit.mu b/edit/008-sandbox-edit.mu index 5ca39e14..dcd0967d 100644 --- a/edit/008-sandbox-edit.mu +++ b/edit/008-sandbox-edit.mu @@ -141,7 +141,7 @@ def should-attempt-edit? click-row:num, click-column:num, env:&:environment -> r 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 + return-unless click-sandbox-area?, 0/false # narrower, is the click in the columns spanning the 'edit' button? first-sandbox:&:editor <- get *env, current-sandbox:offset assert first-sandbox, [!!] @@ -149,7 +149,7 @@ def should-attempt-edit? click-row:num, click-column:num, env:&:environment -> r sandbox-right-margin:num <- get *first-sandbox, right:offset edit-button-left:num, edit-button-right:num, _ <- sandbox-menu-columns sandbox-left-margin, sandbox-right-margin edit-button-vertical-area?:bool <- within-range? click-column, edit-button-left, edit-button-right - reply-unless edit-button-vertical-area?, 0/false + return-unless edit-button-vertical-area?, 0/false # finally, is sandbox editor empty? current-sandbox:&:editor <- get *env, current-sandbox:offset result <- empty-editor? current-sandbox |