gtk: Use gtk-graphics/make in planetarium/snapshot.
authorMatt Birkholz <matt@birkholz.chandler.az.us>
Sun, 7 Apr 2013 21:16:20 +0000 (14:16 -0700)
committerMatt Birkholz <matt@birkholz.chandler.az.us>
Sun, 7 Apr 2013 21:16:20 +0000 (14:16 -0700)
Gtk-graphics/make doesn't care if DISPLAY is set.

src/planetarium/snapshot.scm

index c57be34fab4f32b4601a3ff7946f9beb0bcdbea2..c5cee1845c5562345f7c89db088d53138a624b15 100644 (file)
@@ -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))