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);