[GRASSLIST:4543] r.digit failed once

[Maciek Sieczka]

r.digit gave me once a following error but I can't (happily :)) reproduce it
anymore
(precompiled 5.7 09_10_2004)

maybe worthy of fixing


invalid command name ".dialog1.pw.f1.frame.win.text"
invalid command name ".dialog1.pw.f1.frame.win.text"
    while executing
"$outtext insert end $str"
    invoked from within
"if [eof $fh] {
  close $fh
 } else {
  set str [read $fh]
  while {[set idx [string first {\b} $str]] != -1} {
   set last [expr $idx - 1]
   set str1..."
    (procedure "prnout" line 5)
    invoked from within
"prnout 2 file5