From: Matt Birkholz <matt@birkholz.chandler.az.us>
Date: Sun, 7 Apr 2013 21:16:20 +0000 (-0700)
Subject: gtk: Use gtk-graphics/make in planetarium/snapshot.
X-Git-Tag: mit-scheme-pucked-9.2.12~517
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=80a0b05e00ea8b0cfd7001a2fda2d329eb8478bb;p=mit-scheme.git

gtk: Use gtk-graphics/make in planetarium/snapshot.

Gtk-graphics/make doesn't care if DISPLAY is set.
---

diff --git a/src/planetarium/snapshot.scm b/src/planetarium/snapshot.scm
index c57be34fa..c5cee1845 100644
--- a/src/planetarium/snapshot.scm
+++ b/src/planetarium/snapshot.scm
@@ -29,7 +29,7 @@ USA.
       (latitude 33.3)
       (longitude -111.9)
 
-      (device (make-graphics-device 'gtk 400 400 #t))
+      (device (gtk-graphics/make 400 400))
       (here (the-environment))
       (gtk (->environment '(gtk))))
   (for-each (lambda (name) (environment-link-name here gtk name))