#!/usr/bin/perl -w
use strict;

use Tk;
use Tk::Compound;

  my $parent = MainWindow->new();
  my $b = $parent->Button;
  my $c = $b->Compound;
  $b->configure(-image => $c);
  $c->Line;
  $c->Bitmap(-bitmap => 'warning');
  $c->Space(-width => 8);
  $c->Text(-text => "Warning", -underline => 0);
  $b->pack(-side => 'left');
  
MainLoop();