/[gnats]/gnats/contrib/tkgnats/tkpr_library.tcl
ViewVC logotype

Diff of /gnats/contrib/tkgnats/tkpr_library.tcl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by mcr, Tue Jan 7 20:45:10 2003 UTC revision 1.9 by mcr, Tue Jan 7 20:46:32 2003 UTC
# Line 1879  proc make_txt_mb {multitextflds} { Line 1879  proc make_txt_mb {multitextflds} {
1879    
1880              if {[info exists flds($field)]} {              if {[info exists flds($field)]} {
1881                  set tlength [string length $flds($field)]                  set tlength [string length $flds($field)]
1882                  puts stderr "field $field ($flds($field) has length: $tlength"                  #puts stderr "field $field ($flds($field) has length: $tlength"
1883              } {              } {
1884                  set tlength 0                  set tlength 0
1885              }              }

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26