Re: [perl-win32-gui] Camel Icon

[Aldo Calpini]

christopher paul wrote:
>Now maybe this will offend some of you, if it does, please
>forgive me, delete this message from your email program, and
>if necessary, never read my posts again.

and if we get very offended we could even blow your house down
and steal all your money from the bank and tell everyone that
you are a bad boy ;-)

seriously, I hope you were joking...

>Question:  How can i customise (ie change) the Camel Icon
>in the top left hand corner of a perl GUI application?

first of all, you have to build your own icon (eg. a .ICO
file) and load it in Win32::GUI:

    $MyIcon = new Win32::GUI::Icon("filename.ico");

then, register your own window class like this
(name it as you like, but it must be unique):

    $MyClass = new Win32::GUI::Class(
        -name => "my_Win32GUI_class_with_changed_icon",
        -icon => $MyIcon,
    );

then again, create your window of that class:

    $MyWindow = new Win32::GUI::Window(
        -name  => "MyWindow",
        -title => "My Window!",
        -class => $MyClass, 
        # ...and so on
    );

hope this helps.

__END__
# Aldo Calpini
print sort {$_{$a} cmp $_{$b}} values %{{split undef, 
"xritajbugne fahokem csuctawer jhdtlrnpqloevkshpr"}};