- 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]
+ }]