pixmap

Actually, what I have is ...

    $button_box  = new Gtk::HBox( $false, 0 );
    $button = new Gtk::Button();
    $style = $window->get_style()->bg( 'normal' );

    $label = new Gtk::Label( "   Press to deactivate $cust     " );
    ($pixmap, $mask ) = Gtk::Gdk::Pixmap->create_from_xpm_d(
$window->window,$style,@yes_xpm );
    $pixmapwid = new Gtk::Pixmap( $pixmap, $mask );
    $button_box->pack_start( $pixmapwid, $false, $false, 0 );
    $button_box->pack_start( $label, $false, $false, 0 );
    $pixmapwid->show();
    $button->add( $button_box );
    $vbox->add( $button );
    $button->signal_connect( "clicked", \&support, $cust, \$cust_state
);


When I am in the function support i.e.

sub support
{
    my $button = shift;
    my $cust = shift;
    my $cust_status_ref = shift;
}

I now have the button reference, but I am unsure of how to change the
label or the pixmap on the button

Any help would be greatly received!!

Regards

Andy