milkbone57 22 years ago
parent
commit
c9481b941b
  1. 3
      plugins/Tk-BList/Milkbone/BList.pm

3
plugins/Tk-BList/Milkbone/BList.pm

@ -299,6 +299,9 @@ sub init @@ -299,6 +299,9 @@ sub init
$self->{away_button} = "Away Message";
my $label = $self->Label(-text => "Logged in");
$label->pack(-side => 'bottom', -anchor => 'w');
$self->{away} = $self->Button(-command => [$self, "on_away"], -text => 'Away Message', -border => 1);
$self->{away}->pack(-side => 'bottom');

Loading…
Cancel
Save