From 0f4720f08fab0d94535678c7ecfed2672d3c01dd Mon Sep 17 00:00:00 2001
From: milkbone57 <milkbone57>
Date: Sat, 30 Aug 2003 21:17:49 +0000
Subject: [PATCH] ""
---
plugins/Log.pl | 3 ---
plugins/Tk-BList/Milkbone/BList.pm | 2 +-
plugins/Tk-Convo/Milkbone/Convo.pm | 1 +
plugins/Tk-GUI/Tk/BrowseEdit.pm | 2 +-
plugins/Tk-GUI/Tk/Browser.pm | 2 +-
5 files changed, 4 insertions(+), 6 deletions(-)
diff --git a/plugins/Log.pl b/plugins/Log.pl
index 8084d82..31edfcc 100644
--- a/plugins/Log.pl
+++ b/plugins/Log.pl
@@ -10,7 +10,6 @@ our $dir;
register_hook("signed_in", sub {
$dir = user_file("log");
- print $dir;
mkpath($dir);
});
@@ -55,8 +54,6 @@ sub log_item
{
my ($file, $text) = @_;
- print $file, $text;
-
open(LOG, ">>$file");
print LOG $text;
close(LOG);
diff --git a/plugins/Tk-BList/Milkbone/BList.pm b/plugins/Tk-BList/Milkbone/BList.pm
index 70b02d8..11b1bba 100644
--- a/plugins/Tk-BList/Milkbone/BList.pm
+++ b/plugins/Tk-BList/Milkbone/BList.pm
@@ -174,7 +174,7 @@ sub on_rclick
return if @temp == 1;
$self->select_buddy($self->{tree}->nearest($y));
- my $offset = ($^O =~ /Win32/) ? 10 : -30;
+ my $offset = ($^O =~ /Win32/) ? 20 : -30;
$self->{buddy_menu}->Post($self->x + $x, $self->y + $self->height - $self->{tree}->height + $y + $offset);
}
diff --git a/plugins/Tk-Convo/Milkbone/Convo.pm b/plugins/Tk-Convo/Milkbone/Convo.pm
index a32d292..6d29c3f 100644
--- a/plugins/Tk-Convo/Milkbone/Convo.pm
+++ b/plugins/Tk-Convo/Milkbone/Convo.pm
@@ -191,6 +191,7 @@ sub init
-height => 6, -font => "times 12", -scrollbars => 'oe', -wrap => 'word',
-spacing1 => 0, -spacing2 => 0, -spacing3 => 0)->
pack(-expand => 1, -fill => 'both', -padx => 5);
+ $self->{top}->configure(-background => 'white');
$self->{typing} = $self->Label->pack(-anchor => 'w');
$self->Button(-text => "Send", -command => [$self, "on_send"])->
pack(-pady => 3, -side => 'right', -anchor => 'center');
diff --git a/plugins/Tk-GUI/Tk/BrowseEdit.pm b/plugins/Tk-GUI/Tk/BrowseEdit.pm
index aa9f30c..a02e0bb 100644
--- a/plugins/Tk-GUI/Tk/BrowseEdit.pm
+++ b/plugins/Tk-GUI/Tk/BrowseEdit.pm
@@ -37,7 +37,7 @@ sub Populate
my ($self, $args) = @_;
$self->SUPER::Populate($args);
$self->{panel} = $self->Frame(-borderwidth => 0)->pack(-fill => 'both');
- $self->{text} = $self->Text->pack(-expand => 1, -fill => 'both');
+ $self->{text} = $self->Text(-background => 'white')->pack(-expand => 1, -fill => 'both');
$self->{'<b>'} = $self->{panel}->Button(-text => 'B', -relief => 'flat',
-font => $self->Font(-family => 'times', -weight => 'bold', -size => '8'),
-command => [sub {
diff --git a/plugins/Tk-GUI/Tk/Browser.pm b/plugins/Tk-GUI/Tk/Browser.pm
index 5e8f76a..e3fbdba 100644
--- a/plugins/Tk-GUI/Tk/Browser.pm
+++ b/plugins/Tk-GUI/Tk/Browser.pm
@@ -15,7 +15,7 @@ sub insertHTML
my ($self, $pos, $html) = @_;
my @insert;
- $self->configure(-selectforeground => 'white', -selectbackground => 'black');
+ $self->configure(-selectforeground => 'white', -selectbackground => 'black', -background => 'white');
$html =~ s/<br>/\n/gi;
$html =~ s/<body bgcolor=/<font back=/gi;