title: Linespacing lost in Textbox
body: <p>I've been trying to write a perl script which is supposed to read a file, parse it, display a brief summary of the contents (printed in set beginning and ending with a certain pattern) and display it in a report area when the user selects the summary of a certain set. I read the file line by line looking for starting and ending characters, save it in a hash with some other meta data that I use to build the summary. Then I tried creating a Textbox / ROText / Pane. However, when I try to populate the full contents using the insert command, all the spacing between the numbers is lost. This doesn't happen when I print the same lines into a file or onto the screen, the spacing is preserved. Can someone please shed some light on why this happens in the GUI? Here is an example of the file I am trying to read:</p>
  
  <pre><code>Assume that the file to be read looks as follows:
  
  Starting report1
  ----------------------------------------
  A B                   0.46    1.00  4.79
  C                             2.00  8.54
  DEF                   0.72          7.38
  GH                            6.97  8.88
  IJK                   7.46 8  6.98  4.32
  End of report1
  
  
  The GUI displays it randomly like this:
  
  Starting report1
  ----------------------------------------
  A B    0.46  1.00  4.79
  C      2.00  8.54
  DEF  0.72 7.38
  GH     6.97 8.88
  IJK   7.46 8  6.98  4.32
  End of report1
  </code></pre>
  
  <p>This is the code:</p>
  
  <pre><code>my $summary_list = $summary_box-&gt;Scrolled("Listbox", -height =&gt; 5,-width =&gt; 120,-font =&gt; "7x13bold",-scrollbars =&gt; "ose", -exportselection =&gt; 1, -background =&gt; "black", -foreground =&gt; "white", -selectmode=&gt;'single', -relief =&gt; 'groove')-&gt;pack(-side =&gt; 'left', -fill =&gt; "both", -expand =&gt;1);
  $summary_list-&gt;bind('&lt;Button-1&gt;', [\&amp;retrieveReport] );
  
  # Create the detailed text area, bind it to the summary list, configure the highlight text and disable editing
  #my $report_area = $display_frame -&gt; Frame()-&gt;pack(-side =&gt; 'top', -expand =&gt; 1, -fill =&gt;'both');
  my $report_area = $display_frame -&gt; LabFrame(-label =&gt; 'Selected Path', -labelside =&gt; 'acrosstop')-&gt;pack(-side =&gt; 'top', -expand =&gt; 1, -fill =&gt;'both');
  my $report_entry = $report_area-&gt;Scrolled("ROText", -height =&gt; 30,-width =&gt; 120, -font =&gt; "5x5",-scrollbars =&gt; "se", -exportselection =&gt; 1, -wrap =&gt; "none")-&gt;pack(-fill =&gt; "both", -expand =&gt;1);
  $report_entry-&gt;tagConfigure( 'highlight', -background =&gt; 'lightgreen', -foreground =&gt; 'black', -font =&gt; "Arial 15 bold" );
  
  sub retrieveReport {
  my @sel = $summary_list-&gt;curselection;  
  $report_entry-&gt;delete("0.0",'end');
  $report_entry-&gt;insert('end',$display_paths{$sel[0]}{report});
  #print "$display_paths{$sel[0]}{report}\n";
  
  #Debug
  my @lines = split("\n",$display_paths{$sel[0]}{report});
  foreach (@lines) {
      #$report_entry-&gt;insert('end',$_);
      #$report_entry-&gt;insert('end',"\n");
      #print "$_\n";
  }
  
  # Highlight text
  my @includes = $include_list-&gt;get(0, 'end');
  foreach (@includes) {
      $_ =~ s/([\/\]\[])/\\$1/g;
      while ($display_paths{$sel[0]}{report} =~ /$_/gi) {
          $report_entry-&gt;tagAdd('highlight',"1.0 + $-[0] chars","1.0 + $+[0] chars");
      }
  }
  }
  </code></pre>