gtk: Update fix-demo.scm's copyright notice. Turn the ball blue.

diff --git a/src/gtk/fix-demo.scm b/src/gtk/fix-demo.scm
index a3a7ebb2b043bd92e35e582cc8f9669a888a9700..44ebe0d605ca4e800e8186f8c53ef6ceb20ddbf3 100644 (file)
--- a/src/gtk/fix-demo.scm
+++ b/src/gtk/fix-demo.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012  Matthew Birkholz
+Copyright (C) 2007, 2008, 2009, 2010, 2011, 2012, 2013  Matthew Birkholz
 
 This file is part of an extension to MIT/GNU Scheme.
 
@@ -150,7 +150,7 @@ USA.
     (let ((pattern #;(cairo-pattern-create-linear 0. 0. 1. 1.)
                   (cairo-pattern-create-radial .25 .25 0. .25 .25 1.)))
       (cairo-pattern-add-color-stop pattern 0. "white")
-      (cairo-pattern-add-color-stop pattern 1. "gold")
+      (cairo-pattern-add-color-stop pattern 1. "blue")
       (let ((2pi (flo:* 8. (flo:atan2 1. 1.))))
        (cairo-arc cr 0. 0. 1. 0. 2pi))
       (cairo-set-source cr pattern)