""

plugins/Tk-GUI/Tk/BrowseEdit.pm

@@ -202,7 +202,7 @@ sub to_html
         $end ||= 'end';
 
         my ($res, $temp);
-        my $pos = '1.0';
+        my $pos = '0.0';
 	my $chars = 0;
 	my ($curtag, $prevtag) = ("", "");
 	my %all_tags;
@@ -217,8 +217,8 @@ sub to_html
           
           if(scalar(keys %all_tags) == 0 && $prevtag eq "")
             {
-				$pos = $self->{text}->index('0.0 + ' . ++$chars . " chars");
               $res .= $self->{text}->get($pos);
+              $pos = $self->{text}->index('0.0 + ' . ++$chars . " chars");
               $prevtag = "";
               next;
             }
@@ -249,6 +249,7 @@ sub to_html
         $res =~ s/$chr//g;
         return $res;
 }
+
 sub end_tag
 {
         my ($tag) = @_;