From 02244ae2405fb22ab57d3f3e85b13e4eff294f46 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Mon, 12 Jan 2015 10:45:08 -0800
Subject: 545 - graphics mode is now called bringing up a window

---
 graphics.mu | 4 ++--
 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)
-- 
cgit 1.4.1-2-gfad0