From 529ea0681dd96d290c6ea377950659a06c8f484e Mon Sep 17 00:00:00 2001 From: Matt Birkholz Date: Sat, 6 Feb 2016 10:07:37 -0700 Subject: [PATCH] gtk/swat-pole-zero: Quiet warnings about unimplemented colors,fonts. Fill unit circle with canvas-color. --- src/gtk/swat-pole-zero.scm | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/src/gtk/swat-pole-zero.scm b/src/gtk/swat-pole-zero.scm index 708f548f0..0587bbde4 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) -- 2.25.1