Select Code to Download

-image => value
    Specifies an image to display in the menu instead of a text string
+ or bitmap The image must have been created by some previous invocati
+on of image create. This option overrides the -label and -bitmap opti
+ons but may be reset to an empty string to enable a textual or bitmap
+ label to be displayed. This option is not available for separator or
+ tear-off entries.

  my $b = $parent->Button;
  my $c = $b->Compound;
...
  $c->Space(-width => 8);
  $c->Text(-text => "Warning", -underline => 0);
  $b->pack;