""

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