#!/usr/bin/perl

use strict;
use warnings;
use FindBin qw($Bin);
use Gtk2::Notify -init, 'Images';

my $n = Gtk2::Notify->new('Icon Test', 'Testing stock icon', 'stock_samples');
$n->show;

my $uri = 'file://'. $Bin .'/applet-critical.png';
print "Sending $uri\n";

$n = Gtk2::Notify->new('Alert!', 'Testing URI icons', $uri);
$n->show;

$n = Gtk2::Notify->new('Raw image test', 'Testing sending raw pixbufs');

my $button = Gtk2::Button->new;
my $icon = $button->render_icon('gtk-ok', 'dialog');
$n->set_icon_from_pixbuf($icon);

$n->show;