#!/usr/bin/perl --

use strict;
use warnings;

use Wx;
use Wx::RichText;

my $png = shift(@ARGV) || 'camel.favicon.png';
my $rtc = Wx::RichTextCtrl->new;
my $img = Wx::Image->new( $png, Wx::wxBITMAP_TYPE_ANY() );
my $bmp = Wx::Bitmap->new( $png, Wx::wxBITMAP_TYPE_ANY() );
my $ico = Wx::GetWxPerlIcon();

for my $i ( $png, $img, $bmp, $ico ) {
  printf "%03d %s\n %s\n\n", __LINE__, $i,
    eval { $rtc->WriteImage($i); 1 } || $@;
}

printf "%03d %s\n %s\n\n", __LINE__, $png,
  eval { $rtc->WriteImage( $png, Wx::wxBITMAP_TYPE_ANY() ); 1 } || $@;

printf "$_\n" for grep /image/i, keys %Wx::RichTextCtrl::;

__END__
016 camel.favicon.png
 unable to resolve overloaded method for "Wx::RichTextCtrl::WriteImage" at 2 line 17
	eval {...} called at 2 line 17


016 Wx::Image=SCALAR(0x9ff81c)
 1

016 Wx::Bitmap=SCALAR(0xd53534)
 1

016 Wx::Icon=SCALAR(0x9ffabc)
 unable to resolve overloaded method for "Wx::RichTextCtrl::WriteImage" at 2 line 17
	eval {...} called at 2 line 17


020 camel.favicon.png
 1

WriteImageImage
AddImage
WriteImageFile
WriteImageBitmap
WriteImage