sub makeimages {
      my $w = shift;
      foreach (qw /uparrow downarrow none/) {
         $w->{$_}->delete if (defined($w->{$_}));
         $w->{$_} = $w->Compound;
         $w->{$_}->Line;
         $w->{$_}->Text(
                        -text => $w->cget('-text'),
                       );
         if ($_ eq 'none') {
            $w->{$_}->Space(-width => 15);
         } else {
            $w->{$_}->Bitmap(-bitmap => $_);
         }
      }
      $w->OnDestroy( sub {
                           foreach (qw /uparrow downarrow none/) {
                              $w->{$_}->delete if (defined($w->{$_}));
                           }
                         }
                   );
   }