subr blink_sourcedown
 $blink_number -= 1
 $blink_number = $blink_number > 0
 xmtextfieldsetstring, $blink_nsources, string($blink_number)
 endsubr
 ;========================================================