Aldo Calpini > Win32-GUI-0.0.558 > Win32::GUI::BitmapInline

Download:
Win32-GUI-0.0.558.tar.gz

Dependencies

Annotate this POD

CPAN RT

New  9
Open  7
View/Report Bugs
Module Version: 0.01   Source  

NAME ^

Win32::GUI::BitmapInline - Inline bitmap support for Win32::GUI

SYNOPSIS ^

To create a BitmapInline:

    perl -MWin32::GUI::BitmapInline -e inline('image.bmp') >>script.pl

To use a BitmapInline (in script.pl):

    use Win32::GUI;
    use Win32::GUI::BitmapInline ();
    
    $Bitmap1 = new Win32::GUI::BitmapInline( q(
    Qk32AAAAAAAAAHYAAAAoAAAAEAAAABAAAAABAAQAAAAAAIAAAAAAAAAAAAAAABAAAAAQAAAAAAAA
    AACcnABjzs4A9/f3AJzO/wCc//8Azv//AP///wD///8A////AP///wD///8A////AP///wD///8A
    ////AHd3d3d3d3d3d3d3d3d3d3dwAAAAAAAABxIiIiIiIiIHFkVFRUVEQgcWVVRUVFRCBxZVVVVF
    RUIHFlVVVFRUUgcWVVVVVUVCBxZVVVVUVFIHFlVVVVVVQgcWZmZmZmZSBxIiIiIRERF3cTZlUQd3
    d3d3EREQd3d3d3d3d3d3d3d3
    ) );

DESCRIPTION ^

This module can be used to "inline" a bitmap file in your script, so that it doesn't need to be accompained by several external files (less hassle when you need to redistribute your script or move it to another location).

The inline function is used to create an inlined bitmap resource; it will print on STDOUT the packed data including the lines of Perl needed to use the inlined bitmap resource; it is intended to be used as a one-liner whose output is appended to your script.

The function takes the name of the bitmap file to inline as its first parameter; an additional, optional parameter can be given which will be the name of the bitmap object in the resulting scriptlet, eg:

    perl -MWin32::GUI::BitmapInline -e inline('image.bmp','IMAGE')
    
    $IMAGE = new Win32::GUI::BitmapInline( q( ...

If no name is given, the resulting object name will be $Bitmap1 (the next ones $Bitmap2 , $Bitmap3 and so on).

Note that the object returned by new Win32::GUI::BitmapInline is a regular Win32::GUI::Bitmap object.

WARNINGS ^

VERSION ^

Win32::GUI::BitmapInline version 0.01, 02 April 1999.

AUTHOR ^

Aldo Calpini ( dada@divinf.it ).

syntax highlighting: