diff options
| -rw-r--r-- | edit/001-editor.mu | 20 | ||||
| -rw-r--r-- | html/edit/001-editor.mu.html | 20 |
2 files changed, 20 insertions, 20 deletions
diff --git a/edit/001-editor.mu b/edit/001-editor.mu index 133a8472..54a35391 100644 --- a/edit/001-editor.mu +++ b/edit/001-editor.mu @@ -17,7 +17,7 @@ scenario editor-initially-prints-text-to-screen [ local-scope assume-screen 10/width, 5/height run [ - new-editor [abc], screen:&:screen, 0/left, 10/right + new-editor [abc], screen, 0/left, 10/right ] screen-should-contain [ # top line of screen reserved for menu @@ -98,7 +98,7 @@ scenario editor-initializes-without-data [ local-scope assume-screen 5/width, 3/height run [ - e:&:editor <- new-editor 0/data, screen:&:screen, 2/left, 5/right + e:&:editor <- new-editor 0/data, screen, 2/left, 5/right 2:editor/raw <- copy *e ] memory-should-contain [ @@ -261,7 +261,7 @@ scenario editor-initially-prints-multiple-lines [ run [ s:text <- new [abc def] - new-editor s, screen:&:screen, 0/left, 5/right + new-editor s, screen, 0/left, 5/right ] screen-should-contain [ . . @@ -276,7 +276,7 @@ scenario editor-initially-handles-offsets [ assume-screen 5/width, 5/height run [ s:text <- new [abc] - new-editor s, screen:&:screen, 1/left, 5/right + new-editor s, screen, 1/left, 5/right ] screen-should-contain [ . . @@ -291,7 +291,7 @@ scenario editor-initially-prints-multiple-lines-at-offset [ run [ s:text <- new [abc def] - new-editor s, screen:&:screen, 1/left, 5/right + new-editor s, screen, 1/left, 5/right ] screen-should-contain [ . . @@ -306,7 +306,7 @@ scenario editor-initially-wraps-long-lines [ assume-screen 5/width, 5/height run [ s:text <- new [abc def] - new-editor s, screen:&:screen, 0/left, 5/right + new-editor s, screen, 0/left, 5/right ] screen-should-contain [ . . @@ -327,7 +327,7 @@ scenario editor-initially-wraps-barely-long-lines [ assume-screen 5/width, 5/height run [ s:text <- new [abcde] - new-editor s, screen:&:screen, 0/left, 5/right + new-editor s, screen, 0/left, 5/right ] # still wrap, even though the line would fit. We need room to click on the # end of the line @@ -349,7 +349,7 @@ scenario editor-initializes-empty-text [ local-scope assume-screen 5/width, 5/height run [ - e:&:editor <- new-editor [], screen:&:screen, 0/left, 5/right + e:&:editor <- new-editor [], screen, 0/left, 5/right 3:num/raw <- get *e, cursor-row:offset 4:num/raw <- get *e, cursor-column:offset ] @@ -373,7 +373,7 @@ scenario render-colors-comments [ s:text <- new [abc # de f] - new-editor s, screen:&:screen, 0/left, 5/right + new-editor s, screen, 0/left, 5/right ] screen-should-contain [ . . @@ -455,7 +455,7 @@ scenario render-colors-assignment [ s:text <- new [abc d <- e f] - new-editor s, screen:&:screen, 0/left, 8/right + new-editor s, screen, 0/left, 8/right ] screen-should-contain [ . . diff --git a/html/edit/001-editor.mu.html b/html/edit/001-editor.mu.html index 01b0bf0a..ed370614 100644 --- a/html/edit/001-editor.mu.html +++ b/html/edit/001-editor.mu.html @@ -52,7 +52,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color <span class="Constant">local-scope</span> assume-screen <span class="Constant">10/width</span>, <span class="Constant">5/height</span> run [ - new-editor <span class="Constant">[abc]</span>, screen:&:screen, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> + new-editor <span class="Constant">[abc]</span>, screen, <span class="Constant">0/left</span>, <span class="Constant">10/right</span> ] screen-should-contain [ <span class="Comment"># top line of screen reserved for menu</span> @@ -133,7 +133,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color <span class="Constant">local-scope</span> assume-screen <span class="Constant">5/width</span>, <span class="Constant">3/height</span> run [ - e:&:editor <span class="Special"><-</span> new-editor <span class="Constant">0/data</span>, screen:&:screen, <span class="Constant">2/left</span>, <span class="Constant">5/right</span> + e:&:editor <span class="Special"><-</span> new-editor <span class="Constant">0/data</span>, screen, <span class="Constant">2/left</span>, <span class="Constant">5/right</span> 2:editor/<span class="Special">raw</span> <span class="Special"><-</span> copy *e ] memory-should-contain [ @@ -296,7 +296,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color run [ s:text <span class="Special"><-</span> new <span class="Constant">[abc</span> <span class="Constant">def]</span> - new-editor s, screen:&:screen, <span class="Constant">0/left</span>, <span class="Constant">5/right</span> + new-editor s, screen, <span class="Constant">0/left</span>, <span class="Constant">5/right</span> ] screen-should-contain [ <span class="Constant"> . .</span> @@ -311,7 +311,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color assume-screen <span class="Constant">5/width</span>, <span class="Constant">5/height</span> run [ s:text <span class="Special"><-</span> new <span class="Constant">[abc]</span> - new-editor s, screen:&:screen, <span class="Constant">1/left</span>, <span class="Constant">5/right</span> + new-editor s, screen, <span class="Constant">1/left</span>, <span class="Constant">5/right</span> ] screen-should-contain [ <span class="Constant"> . .</span> @@ -326,7 +326,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color run [ s:text <span class="Special"><-</span> new <span class="Constant">[abc</span> <span class="Constant">def]</span> - new-editor s, screen:&:screen, <span class="Constant">1/left</span>, <span class="Constant">5/right</span> + new-editor s, screen, <span class="Constant">1/left</span>, <span class="Constant">5/right</span> ] screen-should-contain [ <span class="Constant"> . .</span> @@ -341,7 +341,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color assume-screen <span class="Constant">5/width</span>, <span class="Constant">5/height</span> run [ s:text <span class="Special"><-</span> new <span class="Constant">[abc def]</span> - new-editor s, screen:&:screen, <span class="Constant">0/left</span>, <span class="Constant">5/right</span> + new-editor s, screen, <span class="Constant">0/left</span>, <span class="Constant">5/right</span> ] screen-should-contain [ <span class="Constant"> . .</span> @@ -362,7 +362,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color assume-screen <span class="Constant">5/width</span>, <span class="Constant">5/height</span> run [ s:text <span class="Special"><-</span> new <span class="Constant">[abcde]</span> - new-editor s, screen:&:screen, <span class="Constant">0/left</span>, <span class="Constant">5/right</span> + new-editor s, screen, <span class="Constant">0/left</span>, <span class="Constant">5/right</span> ] <span class="Comment"># still wrap, even though the line would fit. We need room to click on the</span> <span class="Comment"># end of the line</span> @@ -384,7 +384,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color <span class="Constant">local-scope</span> assume-screen <span class="Constant">5/width</span>, <span class="Constant">5/height</span> run [ - e:&:editor <span class="Special"><-</span> new-editor <span class="Constant">[]</span>, screen:&:screen, <span class="Constant">0/left</span>, <span class="Constant">5/right</span> + e:&:editor <span class="Special"><-</span> new-editor <span class="Constant">[]</span>, screen, <span class="Constant">0/left</span>, <span class="Constant">5/right</span> 3:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-row:offset</span> 4:num/<span class="Special">raw</span> <span class="Special"><-</span> get *e, <span class="Constant">cursor-column:offset</span> ] @@ -408,7 +408,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color s:text <span class="Special"><-</span> new <span class="Constant">[abc</span> <span class="Constant"># de</span> <span class="Constant">f]</span> - new-editor s, screen:&:screen, <span class="Constant">0/left</span>, <span class="Constant">5/right</span> + new-editor s, screen, <span class="Constant">0/left</span>, <span class="Constant">5/right</span> ] screen-should-contain [ <span class="Constant"> . .</span> @@ -490,7 +490,7 @@ body { font-size: 12pt; font-family: monospace; color: #eeeeee; background-color s:text <span class="Special"><-</span> new <span class="Constant">[abc</span> <span class="Constant">d <- e</span> <span class="Constant">f]</span> - new-editor s, screen:&:screen, <span class="Constant">0/left</span>, <span class="Constant">8/right</span> + new-editor s, screen, <span class="Constant">0/left</span>, <span class="Constant">8/right</span> ] screen-should-contain [ <span class="Constant"> . .</span> |