From 7da2b04ea8bb633dd2151cfc09dc5ba3d637bb07 Mon Sep 17 00:00:00 2001
From: milkbone57 <milkbone57>
Date: Sat, 30 Aug 2003 20:59:04 +0000
Subject: [PATCH] ""

---
 build.bat                       |  2 +-
 docs/VERSION.txt                |  2 +-
 plugins/Tk-GUI/Tk/BrowseEdit.pm | 22 +++++++++++-----------
 3 files changed, 13 insertions(+), 13 deletions(-)

diff --git a/build.bat b/build.bat
index 6145592..1590eed 100644
--- a/build.bat
+++ b/build.bat
@@ -1,2 +1,2 @@
-perlapp --nocompress --gui --lib lib --verbose --icon images\mbone.ico --force --xclude mos.pl --freestanding --exe milkbone.exe --trim POSIX --add Tk;Tk::Photo;Tk::Text;Tk::TextUndo;Tk::ROText;Tk::HList;Tk::Tree;Tk::ItemStyle;Tk::LabEntry;Socket;Digest::MD5;Win32::API;Win32::GuiTest;Tk::Font;Winamp::Control;Tk::BrowseEntry;Win32::Sound;Win32::GUI;integer;Net::SMTP;constant;Fcntl;Win32::Process
+perlapp --nocompress --gui --lib lib --verbose --icon images\mbone.ico --force --xclude mos.pl --freestanding --exe milkbone.exe --trim POSIX --add Tk;Tk::Photo;Tk::Text;Tk::TextUndo;Tk::ROText;Tk::HList;Tk::Tree;Tk::ItemStyle;Tk::LabEntry;Socket;Digest::MD5;Win32::API;Win32::GuiTest;Tk::Font;Winamp::Control;Tk::BrowseEntry;Win32::Sound;Win32::GUI;integer;Net::SMTP;constant;Fcntl;Win32::Process;File::Path
 upx milkbone.exe 
\ No newline at end of file
diff --git a/docs/VERSION.txt b/docs/VERSION.txt
index e820d6d..b234d1d 100644
--- a/docs/VERSION.txt
+++ b/docs/VERSION.txt
@@ -2,7 +2,7 @@
 --
 
 * Timestamps work again
-* Logging works
+* Logging works (and is enabled by default)
 * Multiple styles in BrowseEdit
 * More font-tweaking
 * Fixed the %a - %s bug (thanks Dan)
diff --git a/plugins/Tk-GUI/Tk/BrowseEdit.pm b/plugins/Tk-GUI/Tk/BrowseEdit.pm
index e0dafe0..aa9f30c 100644
--- a/plugins/Tk-GUI/Tk/BrowseEdit.pm
+++ b/plugins/Tk-GUI/Tk/BrowseEdit.pm
@@ -65,17 +65,17 @@ $self]);
                 )->pack(-pady => 0, -side => 'left', -fill => 'both');
         $self->bind('<Control-U>', [sub { shift->{'<b>'}->invoke; }, $self]);
 
-        $self->{'<back>'} = $self->{panel}->Button(-text => 'back', -relief => 'flat', -background => 'blue',
-				-activebackground => 'blue',
-                -font => $self->Font(-family => 'times', -size => '8'),
-                -command => [sub {
-                        my ($self) = @_;
-						my $color = $self->pick_color;
-						return if $color eq "NOTACOLOR";
-		      
-                        $self->toggleTag("<font back=\"$color\">", '<back>');
-                }, $self]
-                )->pack(-pady => 0, -side => 'left', -fill => 'both');
+#        $self->{'<back>'} = $self->{panel}->Button(-text => 'back', -relief => 'flat', -background => 'blue',
+#				-activebackground => 'blue',
+#                -font => $self->Font(-family => 'times', -size => '8'),
+#                -command => [sub {
+#                        my ($self) = @_;
+#						my $color = $self->pick_color;
+#						return if $color eq "NOTACOLOR";
+#		      
+#                        $self->toggleTag("<font back=\"$color\">", '<back>');
+#                }, $self]
+#                )->pack(-pady => 0, -side => 'left', -fill => 'both');
         $self->bind('<Control-U>', [sub { shift->{'<b>'}->invoke; }, $self]);
 
         $self->{text}->tagConfigure('elide', -elide => 1);