diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-12 10:45:08 -0800 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-12 10:45:08 -0800 |
| commit | 02244ae2405fb22ab57d3f3e85b13e4eff294f46 (patch) | |
| tree | 9def6d2e5e6a77f4494351867488d2595cc80cec | |
| parent | a1f2f613305cf0da4c1e73c40c1281766ee45a08 (diff) | |
| download | mu-02244ae2405fb22ab57d3f3e85b13e4eff294f46.tar.gz | |
545 - graphics mode is now called bringing up a window
| -rw-r--r-- | graphics.mu | 4 | ||||
| -rw-r--r-- | mu.arc | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/graphics.mu b/graphics.mu index 5f19367b..ad408470 100644 --- a/graphics.mu +++ b/graphics.mu @@ -1,7 +1,7 @@ ; open a viewport, print coordinates of mouse clicks ; currently need to ctrl-c to exit after closing the viewport (function main [ - (graphics-on (("practice" literal)) 300:literal 300:literal) + (window-on (("practice" literal)) 300:literal 300:literal) { begin (pos:integer-integer-pair click?:boolean <- mouse-position) (loop-unless click?:boolean) @@ -13,5 +13,5 @@ (print-primitive (("\n" literal))) (loop) } - (graphics-off) + (window-off) ]) diff --git a/mu.arc b/mu.arc index ac186e8f..1c4dccc9 100644 --- a/mu.arc +++ b/mu.arc @@ -677,12 +677,12 @@ (do1 nil (if ($.current-charterm) ($.close-charterm))) ; graphics - graphics-on + window-on (do1 nil ($.open-graphics) (= Viewport ($.open-viewport (m arg.0) ; name (m arg.1) (m arg.2)))) ; width height - graphics-off + window-off (do1 nil ($.close-viewport Viewport) ; why doesn't this close the window? works in naked racket. not racket vs arc. ($.close-graphics) |