From b331b80a10a8fb3a440fd08745551bb71ed56323 Mon Sep 17 00:00:00 2001 From: Sergey Matveev Date: Mon, 13 Sep 2021 17:55:36 +0300 Subject: [PATCH] Less hacking Tcl substitution --- verify.go | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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]] -- 2.44.0