entry-on-change $tl.gal-number [list cmdr-set-gal-num $seq]
grid configure $tl.l-gal-number -row $r -column 0 -sticky e -padx 1 -pady 1
grid configure $tl.std-gal -row $r -column 1 -sticky w -padx 1 -pady 1
entry-on-change $tl.gal-number [list cmdr-set-gal-num $seq]
grid configure $tl.l-gal-number -row $r -column 0 -sticky e -padx 1 -pady 1
grid configure $tl.std-gal -row $r -column 1 -sticky w -padx 1 -pady 1