No explicit grey pallete

diff --git a/httpauth.go b/httpauth.go
index 8e324528306d630edc11ca60723dcf0665db3327..e14ed3fafc671d30121c34db30d31a4000eceb2f 100644 (file)
--- a/httpauth.go
+++ b/httpauth.go
@@ -31,7 +31,6 @@ func authDialog(host, realm string) (string, string, error) {
        var b bytes.Buffer
        userInit, passInit := netrc.Find(host)
        fmt.Fprintf(&b, `
-tk_setPalette grey
 wm title . "Unauthorized: %s"
 
 label .luser -text "User"

diff --git a/tls/tlsauth.go b/tls/tlsauth.go
index 1a9d95788b7446fb46cf15f4371ba6d0d41e18e5..0fc4375fad7051b18d6088dcecb83153d3b141a1 100644 (file)
--- a/tls/tlsauth.go
+++ b/tls/tlsauth.go
@@ -56,7 +56,6 @@ func (g *ClientCertificateGetter) get(
        }
        var b bytes.Buffer
        fmt.Fprintf(&b, `
-tk_setPalette grey
 wm title . "TLS client authentication: %s"
 
 set lb [listbox .lb]

diff --git a/tls/verify.go b/tls/verify.go
index 6e45c3eec2a25eae3d849a9f3f7301b37a1bedf3..03f78f12802e8e70241d5428e0e842feea7b66f6 100644 (file)
--- a/tls/verify.go
+++ b/tls/verify.go
@@ -65,7 +65,6 @@ proc certsDecode {raws} {
 set certsTheir [certsDecode $certsTheir]
 set certsOur [certsDecode $certsOur]
 
-tk_setPalette grey
 wm title . $host
 
 proc paginator {i delta t l certs} {