From 0ff6affed25bbe4834c81cf4c73a5408fb0a9cb8 Mon Sep 17 00:00:00 2001
From: milkbone57 <milkbone57>
Date: Sun, 24 Aug 2003 20:09:29 +0000
Subject: [PATCH] ""

---
 plugins/Tk-GUI/Tk/BrowseEdit.pm | 85 +++++++++++++++++----------------
 1 file changed, 43 insertions(+), 42 deletions(-)

diff --git a/plugins/Tk-GUI/Tk/BrowseEdit.pm b/plugins/Tk-GUI/Tk/BrowseEdit.pm
index 69d8336..e0dafe0 100644
--- a/plugins/Tk-GUI/Tk/BrowseEdit.pm
+++ b/plugins/Tk-GUI/Tk/BrowseEdit.pm
@@ -202,53 +202,54 @@ sub to_html
         $end ||= 'end';
 
         my ($res, $temp);
-        my $pos = '1.0';
-		my $chars = 0;
-		my ($curtag, $prevtag) = ("", "");
-		my %all_tags;
+        my $pos = '0.0';
+	my $chars = 0;
+	my ($curtag, $prevtag) = ("", "");
+	my %all_tags;
         
-		while($self->{text}->index($pos) != $self->{text}->index('end'))
+	while($self->{text}->index($pos) != $self->{text}->index('end'))
         {
-			%all_tags = ();
-			$all_tags{$_} = $_ for $self->{text}->tagNames($pos);
-			delete $all_tags{'sel'};
-			delete $all_tags{'elide'};
-			delete $all_tags{''};
+          %all_tags = ();
+          $all_tags{$_} = $_ for $self->{text}->tagNames($pos);
+          delete $all_tags{'sel'};
+          delete $all_tags{'elide'};
+          delete $all_tags{''};
+          
+          if(scalar(keys %all_tags) == 0 && $prevtag eq "")
+            {
+              $res .= $self->{text}->get($pos);
+              $pos = $self->{text}->index('0.0 + ' . ++$chars . " chars");
+              $prevtag = "";
+              next;
+            }
+          
+          $curtag = (keys %all_tags)[0] || "";
+          
 
-			if(scalar(keys %all_tags) == 0 && $prevtag eq "") 
-			{
-				$pos = $self->{text}->index('0.0 + ' . ++$chars . " chars");
-				$res .= $self->{text}->get($pos);
-				$prevtag = "";
-				next;
-			}
-
-			$curtag = (keys %all_tags)[0] || "";
-
-
-			if($prevtag =~ /$curtag/)
-			{
-				# tag added
-				($temp = $prevtag) =~ s/$curtag//;
-				$res .= end_tag($temp);
-			}
-			elsif($curtag =~ /$prevtag/)
-			{
-				# tag removed
-				($temp = $curtag) =~ s/$prevtag//;
-				$res .= $temp;
-			}
-
-			$prevtag = $curtag;
+          if($prevtag =~ /$curtag/)
+            {
+              # tag added
+              ($temp = $prevtag) =~ s/$curtag//;
+              $res .= end_tag($temp);
+            }
+          elsif($curtag =~ /$prevtag/)
+            {
+              # tag removed
+              ($temp = $curtag) =~ s/$prevtag//;
+              $res .= $temp;
+            }
+          
+          $prevtag = $curtag;
 	    
-            $res .= $self->{text}->get($pos);
-            $pos = $self->{text}->index('0.0 + ' . ++$chars . " chars");
-		}
-
-		my $chr = chr(255);
-		$res =~ s/$chr//g;
-		return $res;
+          $res .= $self->{text}->get($pos);
+          $pos = $self->{text}->index('0.0 + ' . ++$chars . " chars");
+        }
+        
+        my $chr = chr(255);
+        $res =~ s/$chr//g;
+        return $res;
 }
+
 sub end_tag
 {
         my ($tag) = @_;