From: Matt Birkholz <puck@birchwood-abbey.net>
Date: Fri, 5 Feb 2016 23:21:02 +0000 (-0700)
Subject: gtk/swat-pole-zero: Quiet warnings about colors and fonts.
X-Git-Tag: mit-scheme-pucked-9.2.12~366^2^2~1
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d83458f15c007614821699dc39c85510c25a4e49;p=mit-scheme.git

gtk/swat-pole-zero: Quiet warnings about colors and fonts.

Fill unit circle with canvas-color.
---

diff --git a/src/gtk/swat-pole-zero.scm b/src/gtk/swat-pole-zero.scm
index 708f548f0..ffb0cd29b 100644
--- a/src/gtk/swat-pole-zero.scm
+++ b/src/gtk/swat-pole-zero.scm
@@ -243,6 +243,7 @@
 ;;; Button that switches from one label to another
 
 (define (make-switch color to-switch)
+  color
   ;;to-switch is list ((text command) (text command))
   (let ((n (length to-switch))
 	(button (make-button))
@@ -251,7 +252,7 @@
       (set! state i)
       ((cadr (list-ref to-switch i)))
       (ask-widget button `(configure -text ,(car (list-ref to-switch i)))))
-    (ask-widget button `(configure -background ,color))
+    ;;(ask-widget button `(configure -background ,color))
     (switch-to-state 0)
     (set-callback! button
 		   (lambda ()
@@ -291,13 +292,14 @@
 	   (plot-button (make-button '(-text "Plot"))))
 
       (set! LOCATION (make-active-variable))
-      (ask-widget coords-display `(configure -width 13 -background ,canvas-color
+      (ask-widget coords-display `(configure -width 13 ;;-background ,canvas-color
 					     -relief sunken -textvariable ,LOCATION
-					     -font ,text-font))
-      (for-each (lambda (b)
+					     ;;-font ,text-font
+					     ))
+      #;(for-each (lambda (b)
 		  (ask-widget b `(configure -background "yellow" -font ,text-font)))
 		(list maker-button clear-button  coords-button plot-button))
-      (ask-widget diagram-canvas `(configure -background ,canvas-color))
+      ;;(ask-widget diagram-canvas `(configure -background ,canvas-color))
       (on-death! diagram-canvas 'little-brother-canvas
 		 (lambda () (if graph-canvas (swat-close graph-canvas))))
       
@@ -364,7 +366,8 @@
 			    (* 2 (- half-window-size trim)))))
 	  (ask-widget x-axis '(configure -arrow last))
 	  (ask-widget y-axis '(configure -arrow first))
-	  (ask-widget unit-circle '(configure -outline "gray")))
+	  (ask-widget unit-circle '(configure -outline "gray"
+					      -fill ,canvas-color)))
 
 	(set! pz
 	      (lambda (message)