sub RefreshBuddyList {
    my $nickname;
    my $frame = $config{MainWindow}->Frame(
        -relief => 'sunken', 
        -borderwidth => 8
    );
    foreach(@_) {
        my $m = $config{MainWindow}->Menu(-tearoff => 0);
        my $user = (split(/\:/, $_))[0];
        $m->add(
            'command',
            -label => "Privat-Chat starten",
            -background=> 'white',
            -command => sub { StartChat($user) }
        );
        $nickname = $config{MainWindow}->Label(
            -text => $user,
            -background => 'white',
            -font => $config{Font}
        );
        $nickname->bind('<Button-3>' => sub { $m->Popup(-popover => 'cursor') });

        $nickname->pack(-side => 'left');
    
    }
    $frame->pack(-side => 'right');
}