Re: possible to change the icon of the messageDialog?

[Jeff Mock <jeff-ml mock com>]

On Wed, 2003-10-08 at 13:56, Bruno Boettcher wrote:
> Hello,
>
>   as the title says... is it possible to change the icon the
>   messagedialog uses?
>
>   or alternativley does anyone allready have a code snippet of a nice
>   about box?

Here's how I do an about box, I nicked the original from someplace else,
I can't remember where. 

jeff

------

# About box
#
sub about
{
    my $about = new Gtk2::Dialog;
    my $label = new Gtk2::Label;
    my $markup = <<"    END";

        <span weight="bold" size="large">Burn Audio CDs</span>
        v$version

        Read XMMS playlists
        Decode MP3s
        Burn audio CDs

        Copyright (c) 2003 Jeff Mock
        jeff\ mock com

    END

    $markup =~ s/\n */\n/gs;
    $label->set_markup($markup);
    $label->set_justify('center');

    $about->set_title('');
    $about->set_icon($mw{cdicon});
    $about->set_border_width(8);
    $about->set_modal(TRUE);
    $about->set_resizable(FALSE);
    $about->add_buttons('gtk-ok' => 0);
    $about->vbox->set_spacing(8);
    $about->vbox->pack_start(
        Gtk2::Image->new_from_stock('gtk-cdrom', 'large-toolbar'),
        FALSE, FALSE, 0);
    $about->vbox->pack_start($label, TRUE, TRUE, 0);
    $about->show_all;
    $about->signal_connect(response => sub { $about->destroy(); });
}