package Gtk::Icon;

use strict;
use Gtk;
use Gtk::Atoms;
use Gtk::Symbols qw();

#$SIG{__DIE__} = sub { use Carp; Carp::confess(@_) };

use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION);

@ISA         = ();
@EXPORT      = ();
@EXPORT_OK   = ();
%EXPORT_TAGS = ();
$VERSION     = 0.01_02;

sub xpm ($$$)
{
    my($xpm,$msk);
    my $backgrnd;
    my $gdk_wind;
    my $gtk_wind = $_[0];
    my $xpm_file = $_[1];
    my $gtk_stat = $_[2];

    $gtk_wind->realized() || $gtk_wind->realize();

    $backgrnd = $gtk_wind->style()->bg( $gtk_stat );
    $gdk_wind = $gtk_wind->window();

    #warn( qq[Gtk::Gdk::Pixmap->create_from_xpm( '$gdk_wind', '$backgrnd', '$xpm_file' )\n] );
    
    ($xpm, $msk) =
      Gtk::Gdk::Pixmap->create_from_xpm( $gdk_wind, $backgrnd, $xpm_file );

    #use Data::Dumper;
    #warn( Data::Dumper->Dump( [$xpm, $msk], ["*xpm","*msk"] ) );

    return Gtk::Pixmap->new( $xpm, $msk );
}