subr flowdtwidth_tcb
 $band = (fix($textfield_value) > 1) < $nt
 xmscalesetvalue,$flowdtscale2,$band
 $scale_value = $band
 flowdtwidth_scb
 endsubr
 ;===============================================================================