From c9481b941bf1abbc1db11f1b0eab0a61fdb74490 Mon Sep 17 00:00:00 2001
From: milkbone57 <milkbone57>
Date: Tue, 9 Sep 2003 03:40:19 +0000
Subject: [PATCH] ""

---
 plugins/Tk-BList/Milkbone/BList.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/plugins/Tk-BList/Milkbone/BList.pm b/plugins/Tk-BList/Milkbone/BList.pm
index 588f6a3..9426338 100644
--- a/plugins/Tk-BList/Milkbone/BList.pm
+++ b/plugins/Tk-BList/Milkbone/BList.pm
@@ -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');