Changeset 4133

Show
Ignore:
Timestamp:
02/14/12 13:41:50 (2 years ago)
Author:
josp
Message:

fixes #1200, se corrige según la propuesta del ticket.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • tolp/trunk/tolbase/lib/toltk/tolinspe.tcl

    r3957 r4133  
    21302130  set result [ list ] 
    21312131  foreach i $lst { 
    2132     lappend result \"$i\" 
     2132    lappend result \"[string map {\" \\\"} $i]\" 
    21332133  } 
    21342134  return "SetOfText([join $result ,])"