wxPerl: is BitmapFromImage implemented?

HelenCr has asked for the wisdom of the Perl Monks concerning the following question:

Dear esteemed PerlMonks

I am trying to incorporate some image showing, using wxPerl. I am getting errors trying to display images. Please see the following code excerpt:

# Image test - image manipulation
use strict;
use warnings;
use 5.014;

package MyForm;    # -----------------------------------------  packag
+e MyForm::
use strict;
use warnings;
use Wx qw[:everything]; 
use Wx::Event qw(EVT_BUTTON );
use parent -norequire, 'Wx::Frame';
use Wx qw(:id :toolbar :statictext wxNullBitmap wxDefaultPosition wxDe
+faultSize wxNullBitmap
                    wxTB_VERTICAL wxSIZE wxBITMAP_TYPE_ANY wxBITMAP_TY
+PE_BMP);
sub new {             #1 ---------------------------    new MyForm::
my $class = shift;
my %parms = @_;
my $self = $class->SUPER::new(
     undef,    -1, 'Image test', 
     wxDefaultPosition,     # position
     wxDefaultSize,     # size
   );
my ( $img, $sb, $sizer);
my $panel = Wx::Panel->new(
        $self, -1,          # parent window, ID
          wxDefaultPosition, wxDefaultSize);
    $panel->SetBackgroundColour(Wx::Colour->new('light blue'));
my $welcome = Wx::StaticText->new($panel, -1, 'Welcome to Image test',
                                                                      
+                          [150, 250], [-1, -1], wxALIGN_CENTER);
$sizer = Wx::BoxSizer->new(wxVERTICAL);
$img = Wx::Image->new($parms{image_fname}, wxBITMAP_TYPE_ANY);
$sb = Wx::StaticBitmap->new($panel, -1, Wx::BitmapFromImage->new($img)
+);
$sizer->Add( $welcome, 0, wxALL | wxEXPAND, 5 );
$sizer->Add( $sb, 0, wxALL | wxEXPAND, 5 );
$panel->SetSizer($sizer);
$panel->Fit;
  return $self;
}    #1 end sub new MyForm::
1; 
# end package MyForm

package main;            # -----------------------------  package main
+::
use strict;
use warnings;
use 5.014;
my $image_file = 'D:\My Documents\Media\Photography\IMG_8053.JPG';
my $app = Wx::SimpleApp->new;
my $frame = MyForm->new( image_fname => $image_file);
$frame->Show(1);
$app->MainLoop;

1;
[download]

The program fails with:

Can't locate object method "new" via package "Wx::BitmapFromImage" (perhaps you forgot to load "Wx::BitmapFromImage"?) at image test.pl line 32.

Is BitmapFromImage implemented in wxPerl?
What am I missing?

Many TIA - Helen

Comment on wxPerl: is BitmapFromImage implemented? Select or Download Code

Replies are listed 'Best First'.
Re: wxPerl: is BitmapFromImage implemented? by hdb (Monsignor) on Apr 28, 2013 at 14:55 UTC
No helpful answer from me but ++ for your tenacity with wxPerl. I hope you will write a tutorial at some point...	[reply]
Re: wxPerl: is BitmapFromImage implemented? by jmlynesjr (Deacon) on Apr 28, 2013 at 22:20 UTC
Hi: I didn't find BitmapFromImage either, but by interpreting the hieroglyphics of the wxBook, the following works for me. You'll have to reset the image filename to your test jpg file. Note also that the StaticBitmap documentation lists a 64x64 size limit under Windows 9x that I don't see here on Ubuntu, but you might. YMMV. The hint was: `// Load an Image wxImage image(wxT("image.png"), wxBITMAP_TYPE_PNG); // Convert it to a bitmap wxBitmap bitmap(image);` [download] Read more... (3 kB) James There's never enough time to do it right, but always enough time to do it over...	[reply] [d/l] [select]
Re^2: wxPerl: is BitmapFromImage implemented? by HelenCr (Monk) on Apr 28, 2013 at 23:56 UTC
Thank you, James. This is great - it's working fine. You did a great job of deciphering hieroglyphics. Now the image shows great, but when you resize the window, it "crops" the image - it displays only the image part which is covered by the window (in other words, it does not compress the image size so that regardless of the actual window size, the entire image will always be shown). Can you suggest how to do it? (I could set up a resize event, and then in the event handler subroutine, change the image size and re-display, but this sounds a bit like a kludge, it there an automatic way to do it?) Many TIA - Helen (Running DWIM Perl 5.14.2 on Windows 7 and WinXP SP 3)	[reply]
Re^3: wxPerl: is BitmapFromImage implemented? by jmlynesjr (Deacon) on Apr 29, 2013 at 15:09 UTC
Helen, good question... No idea off hand. Seems I read about sizers that the control "communicates" a minimum size to the sizer process. Maybe there is a clue there. Most of the documentation refers to stretching controls not compressing them. Your "kludge" may be the way to go, at least until another idea surfaces. Once again from the wxBook(well worth $38 to Amazon): "(Sizers)...It is based upon the idea of individual windows reporting their minimal required size and their ability to be stretched if the size of the parent window has changed. This will most often mean that the programmer does not set the initial size of the dialog; instead, the dialog will be assigned a sizer, which will be queried about the recommended size....The minimal size of a control is calculated from the control's notion of it's "best size"(supplied by implementing DoGetBestSize for each control)....However, if you want the initial window size(as passed to the window's constructor) to be used as the initial minimum size instead, you can use the wxFIXED_MINSIZE style when adding the control to the sizer. Note that only some windows can calculate their size....whereas others....don't have any natural width or height and thus require an explicit size." Update1: The Wx::Image::Rescale seems to work. Try a subset of this in your resize event handler. Two scaling qualities are supported: wxIMAGE_QUALITY_NORMAL and wxIMAGE_QUALITY_HIGH(better quality but slower). `Wx::InitAllImageHandlers; $img = Wx::Image->new($parms{image_fname}, wxBITMAP_TYPE_ANY); my $h = $img->GetHeight; my $w = $img->GetWidth; $img->Rescale($w-150, $h-50); my $bmp = Wx::Bitmap->new($img); $sb = Wx::StaticBitmap->new($panel, -1, $bmp);` [download] Update2: Fixed a typo. Update3: Seems you may want to scale from the original Wx::Image each time to avoid compounding any scaling artifacts/losses of resolution. James There's never enough time to do it right, but always enough time to do it over...	[reply] [d/l]
Re: wxPerl: is BitmapFromImage implemented? (no;sleep;docs) by Anonymous Monk on Apr 29, 2013 at 08:26 UTC
Is BitmapFromImage implemented in wxPerl? No, BitmapFromImage doesn't exist, so it can't possibly be implement, there is no such thing as http://docs.wxwidgets.org/trunk/search.php?query=wxBitmapFromImage What am I missing? I guess sleep Go to http://docs.wxwidgets.org/trunk/classwx_image.html and search for "bitmap" and you'll have your answer in about 5 seconds Or go to http://docs.wxwidgets.org/stable/wx_wxbitmap.html and search for "wxImage" Another avenue `[ddg://site:perlmonks.org Wx::Image Wx::Bitmap ] , [google://site:perlmonks.org Wx::Image Wx::StaticBitmapBitmap], ...` site:perlmonks.org Wx::Image Wx::StaticBitmapBitmap, site:perlmonks.org Wx::Image Wx::StaticBitmapBitmap ... -> Re^2: wxPerl image handling (short & sweet). (iewxPerl Tutorial 2) -> Using wxMemoryDC to draw on a jpeg -> Re^5: What's wrong with this Wx::Bitmap construction? -> Re^3: Displaying changing images in Wx:: produces flicker ... stands for super search and or clicking and stuff And another avenue is wxperl_usage / wxperl-usage / wxPerl::Usage / Class Method Browser , available methods, method invocation syntax, link to docs , type "wxbitmap::new" and you'll see `Usage: Wx::Bitmap::new(CLASS, ...) Wx::Bitmap->new( ..., ) wxBitmap wxBitmap::new wxBitmap::new` [download] `Usage: Wx::Bitmap::newImage(CLASS, image) Wx::Bitmap->newImage( $image, ) wxBitmap wxBitmap::newImage wxBitmap::newImage` [download] Like my wxWidgets / wxPerl / wxGlade tutorial,http://www.wxperl.it/p/wxperl-primer.html explain, wxPerl will recognize that you're giving ->new a Wx::Image so it isn't necessary to call newImage explicitly	[reply] [d/l] [select]