my $pic = $config{MainWindow}->Photo(-file => 'cool.gif');
    my $i = $config{BuddyListPane1}->Getimage($pic);
    $config{BuddyListPane1}->imageCreate('end', -image => $i);