archive
/
milkbone
1
0
Fork 0
Code Pull Requests Projects Releases Activity
Browse Source

""

master
milkbone57 22 years ago
parent
7da2b04ea8
commit
0f4720f08f
5 changed files with 4 additions and 6 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 3
      plugins/Log.pl
  2. 2
      plugins/Tk-BList/Milkbone/BList.pm
  3. 1
      plugins/Tk-Convo/Milkbone/Convo.pm
  4. 2
      plugins/Tk-GUI/Tk/BrowseEdit.pm
  5. 2
      plugins/Tk-GUI/Tk/Browser.pm

3
plugins/Log.pl
Unescape View File

@ -10,7 +10,6 @@ our $dir;
register_hook("signed_in", sub { register_hook("signed_in", sub {
$dir = user_file("log"); $dir = user_file("log");
print $dir;
mkpath($dir); mkpath($dir);
}); });
@ -55,8 +54,6 @@ sub log_item
{ {
my ($file, $text) = @_; my ($file, $text) = @_;
print $file, $text;
open(LOG, ">>$file"); open(LOG, ">>$file");
print LOG $text; print LOG $text;
close(LOG); close(LOG);

2
plugins/Tk-BList/Milkbone/BList.pm
Unescape View File

@ -174,7 +174,7 @@ sub on_rclick
return if @temp == 1; return if @temp == 1;
$self->select_buddy($self->{tree}->nearest($y)); $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); $self->{buddy_menu}->Post($self->x + $x, $self->y + $self->height - $self->{tree}->height + $y + $offset);
} }

1
plugins/Tk-Convo/Milkbone/Convo.pm
Unescape View File

@ -191,6 +191,7 @@ sub init
-height => 6, -font => "times 12", -scrollbars => 'oe', -wrap => 'word', -height => 6, -font => "times 12", -scrollbars => 'oe', -wrap => 'word',
-spacing1 => 0, -spacing2 => 0, -spacing3 => 0)-> -spacing1 => 0, -spacing2 => 0, -spacing3 => 0)->
pack(-expand => 1, -fill => 'both', -padx => 5); pack(-expand => 1, -fill => 'both', -padx => 5);
$self->{top}->configure(-background => 'white');
$self->{typing} = $self->Label->pack(-anchor => 'w'); $self->{typing} = $self->Label->pack(-anchor => 'w');
$self->Button(-text => "Send", -command => [$self, "on_send"])-> $self->Button(-text => "Send", -command => [$self, "on_send"])->
pack(-pady => 3, -side => 'right', -anchor => 'center'); pack(-pady => 3, -side => 'right', -anchor => 'center');

2
plugins/Tk-GUI/Tk/BrowseEdit.pm
Unescape View File

@ -37,7 +37,7 @@ sub Populate
my ($self, $args) = @_; my ($self, $args) = @_;
$self->SUPER::Populate($args); $self->SUPER::Populate($args);
$self->{panel} = $self->Frame(-borderwidth => 0)->pack(-fill => 'both'); $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', $self->{'<b>'} = $self->{panel}->Button(-text => 'B', -relief => 'flat',
-font => $self->Font(-family => 'times', -weight => 'bold', -size => '8'), -font => $self->Font(-family => 'times', -weight => 'bold', -size => '8'),
-command => [sub { -command => [sub {

2
plugins/Tk-GUI/Tk/Browser.pm
Unescape View File

@ -15,7 +15,7 @@ sub insertHTML
my ($self, $pos, $html) = @_; my ($self, $pos, $html) = @_;
my @insert; my @insert;
$self->configure(-selectforeground => 'white', -selectbackground => 'black'); $self->configure(-selectforeground => 'white', -selectbackground => 'black', -background => 'white');
$html =~ s/<br>/\n/gi; $html =~ s/<br>/\n/gi;
$html =~ s/<body bgcolor=/<font back=/gi; $html =~ s/<body bgcolor=/<font back=/gi;

Write Preview
Loading…
Cancel
Save