Thanks to Martin Schipany for this fix.


---SNIP---

hi!

here is just a (suggested) modification to quickswitch/switcher: I
changed the "load profiles" section so that it adapts the width
according to the profile-names:

 ### load profiles
 my @profiles = ();
 my $columns;
 for my $key ( keys %{ $self->{services} } ){
   push @profiles, " ".$key." - ".$self->{services}->{$key}->{description};
   $columns = length($profiles[$#profiles])>$columns ? length($profiles[$#profiles])+1 : $columns;
 }
 push @profiles, " No Profile (Exit)";
 $columns = length($profiles[$#profiles])>$columns ? length($profiles[$#profiles])+1 : $columns;
 $columns = 70 if $columns > 70;

and add the following line to $listbox:

   COLUMNS => $columns,

sorry for not sending a diff, but I made some other more personal
changes, too, that are probably not of public interest ;)

thanks for quickswitch! great tool! :)


---SNIP---