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

Fill unit circle with canvas-color.

diff --git a/src/gtk/swat-pole-zero.scm b/src/gtk/swat-pole-zero.scm
index 708f548f08de57bd4a4e5e8c0ca804bd2b9547ad..0587bbde4968bbda173905a66d09302ac9fee235 100644 (file)
--- 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)