Hiya, all.
Hello Dodger,
I've had no problem building and compiling a simple standalone
application in Perl for Windows using WxWidgets and the ActiveState
PDK.
Thing is, there's more than 'simple' that I want to do and can't figure
out how.
1) I want to know how to be able to include an image embedded in the
code somehow rather than as a seperate, external file (this way
there's no pathing issue possible when compiling the thing).
I use something like this:
I convert the image to XPM with ImageMagick (eg.)
convert image.bmp image.xpm
This is a "textbased" format so you can open it in an editor and then use
it in code like so:
# ---------------------------------------------------------------------
sub img_checked {
my $img = q~
/* XPM */
static char *check[] = {
/* columns rows colors chars-per-pixel */
"16 16 5 1",
" c black",
". c #848284",
"X c #C6C3C6",
"o c gray100",
"O c white",
/* pixels */
"oooooooooooooooo",
"oooooooooooooooo",
"oo............oo",
"oo. Xoo",
"oo. OOOOOOOOOXoo",
"oo. OOOOOOO OXoo",
"oo. OOOOOO OXoo",
"oo. O OOO OXoo",
"oo. O O OOXoo",
"oo. O OOOXoo",
"oo. OO OOOOXoo",
"oo. OOO OOOOOXoo",
"oo. OOOOOOOOOXoo",
"oo.XXXXXXXXXXXoo",
"oooooooooooooooo",
"oooooooooooooooo"};
~;
my $data = [ map { m/^"(.*)"/ ? ( $1 ) : () } split /\n/, $img ];
my $xpm = Wx::Bitmap->newFromXPM( $data );
return $xpm;
}
# You can call it like this ....:
my $img_checked = Wx::StaticBitmap->new(
$self->{panel},
-1,
img_checked(),
);
# or in an Imagelist:
my $img_list = Wx::ImageList->new( 16, 16, 1 );
$img_list->Add( img_checked() );
# or an icon:
my $icon = Wx::Icon->new();
$icon->CopyFromBitmap( $img_checked() );
$self->SetIcon($icon);
# ---------------------------------------------------------------------
2) I want to be able to draw directly on something.
Define "something". It's not quite clear what you mean...
Can I embed ImageMagick somehow maybe? Is there a more
efficient way, since IM is pretty hefty?
There is a module on CPAN called Wx::Perl::Imagick which replaces
"Wx::Image with all functionality of Image::Magick" but like you said, IM
is pretty hefty. Apart from that, ImageMagick and PDK haven't work well
together in the past and the last time I tried was still problematic.
I have had very good results with Imager (also on CPAN or PPM) but it all
depends on what you want to do. Imager packs well with PDK
3) I'd REALLY like to be able to do some real-time OpenGL 3D stuff.
Totally lost on how.
No help here. Did you see Wx::GLCanvas on the wxPerl site?
Kind regards,
Huub Peters
