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