From: Pat Thoyts <patthoyts@users.sourceforge.net>
Date: Wed, 24 Jul 2024 08:08:06 +0000 (+0100)
Subject: Change the colors to be less saturated.
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=a73fc4b4ff1984f18048e78fc35057a6ff97e00d;p=sockspy

Change the colors to be less saturated.
---

diff --git a/bin/sockspy.tcl b/bin/sockspy.tcl
index 18a732f..204a396 100644
--- a/bin/sockspy.tcl
+++ b/bin/sockspy.tcl
@@ -126,7 +126,14 @@ set saveList {
     SP(servHost)
 }
 
-array set colors {client green server cyan meta red meta2 yellow}
+# roughly: lightgreen, lightblue, tomato, sand
+array set colors {
+    client "#90ee90"
+    server "#b1eaf9"
+    meta "#ed9276"
+    meta2 "#edcd76"
+}
+
 array set SP {proxyPort 8080 clntPort 8080 servHost "" servPort 80}
 
 set extract(client) {^(GET |POST |HEAD )}
@@ -264,12 +271,11 @@ proc createMain {} {
     ${NS}::scrollbar .yscroll -orient vertical -command {.out yview}
     ${NS}::scrollbar .xscroll -orient horizontal -command {.out xview}
     text .out -width 80 -height 43 -font $state(fixed) -background white -setgrid 1 \
-	    -yscrollcommand ".yscroll set" -xscrollcommand ".xscroll set" -borderwidth 1
+        -yscrollcommand ".yscroll set" -xscrollcommand ".xscroll set" -borderwidth 1
     foreach t [array names colors] {
-	.out tag configure $t -background $colors($t) -borderwidth 1 \
-	    -relief raised -lmargin1 5 -lmargin2 5
-	.out tag configure time_$t -background $colors($t) -borderwidth 1 \
-	    -relief raised -lmargin1 5 -lmargin2 5 -font $state(fixedbold)
+        .out tag configure $t -background $colors($t) \
+            -lmargin1 5 -lmargin2 5
+        .out tag configure time_$t -background $colors($t) -font $state(fixedbold)
     }
     .out tag configure sockname -elide 1
     .out tag configure client2 -font $state(fixedbold)