From: Sergey Matveev <stargrave@stargrave.org>
Date: Mon, 13 Sep 2021 14:55:36 +0000 (+0300)
Subject: Less hacking Tcl substitution
X-Git-Tag: v0.1.0~64
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=b331b80a10a8fb3a440fd08745551bb71ed56323;hp=67ef2e681c52faa970eeb4858101bf67d2b09646;p=tofuproxy.git

Less hacking Tcl substitution
---

diff --git a/verify.go b/verify.go
index 4c5ad35..29dbbc0 100644
--- a/verify.go
+++ b/verify.go
@@ -94,12 +94,12 @@ proc addCertsWindow {name} {
 
     frame .fControl$name
     set l$name [label .lPage$name]
-    button .bNext$name -text "Next" -command "set page$name \[
-        paginator \$page$name +1 \$t$name \$l$name \$certs$name
-    ]"
-    button .bPrev$name -text "Prev" -command "set page$name \[
-        paginator \$page$name -1 \$t$name \$l$name \$certs$name
-    ]"
+    button .bNext$name -text "Next" -command [subst {
+        set page$name \[paginator \$page$name +1 \$t$name \$l$name \$certs$name]
+    }]
+    button .bPrev$name -text "Prev" -command [subst {
+        set page$name \[paginator \$page$name -1 \$t$name \$l$name \$certs$name]
+    }]
     grid .fControl$name
     grid .lPage$name .bNext$name .bPrev$name -in .fControl$name
     set page$name [paginator -1 +1 $t [set l$name] [set certs$name]]