Thanks Johan, but i am fairly new to GUI Dev. I have a little knowledge
of VB, and have been working in Perl for about 3 years, but none of it
has used core API calls directly. Also, I have never needed to use
pack/unpack before, so I am not sure of the intricate details.
Here is a sample, perhasp Aldo or someone else can help me make sure it
is right( I am sure it is not)
$icon = new Win32::GUI::Icon('SECUR05.ICO');
$Window->ChangeIcon($icon);
$ni = $Window->AddNotifyIcon(-name => "NI", -id => 1, -icon => $icon,
-tip => "PCKeys");
$nifunc = new Win32::API("shell32", "Shell_NotifyIconA",[N,N,N,N,N,N,P],
I);
$size = # what?
$tip = "Show this tip"; # same as tip above
$id = 1; # same as id above
$flags = undef; # would this be -style type stuff?
$callback = undef; # right? what else could you put? A callback
when the icon i
#created/modified/deleted?
$icon = $icon; # I assume I can use an object?????
$hWnd = # what? Is this the -name Param above or the
parent window object?
$params = pack("LLLLLLA", $size, $hWnd, $id, $flags, $callback, $icon,
$tip);
# I have never messed with pack/unpack, does this look about
right?
$NIM_ADD = 0;
$NIM_MODIFY = 1;
$NIM_DELETE = 2;
$rval = $nifunc->Call($NIM_MODIFY,$params); # now what? I know I have
to unpack,
#but what kind of data is returned? Is is a simple bool?
$return = unpack("I", $rval);
for the pack/unpack, are values returned signed or unsigned? Also,
should strings normally be a,A or Z in pack/unpack?
Thanks for any pointers.
> -----Original Message-----
> From: Johan Lindstrom [mailto:[EMAIL PROTECTED]
> Sent: Wednesday, June 13, 2001 17:06
> To: [email protected]
> Subject: RE: [perl-win32-gui-users] RE: How to change tip for Notify
> Icon
>
>
> Joe wrote:
> >No go.. Got the "Cant Locate object method Change in package
> >Win32::GUI::NotifyIcon ..... Any more thoughts?
>
> When Win32::GUI doesn't do what you want, you do what you
> want with Win32::API.
>
> Look at "Shell_NotifyIcon" and "NOTIFYICONDATA" in the Win32
> API Reference.
> I posted a few urls the other day.
>
>
> /J
>
> ------ ---- --- -- -- -- - - - - -
> Johan Lindström Boss Casinos
> Sourcerer [EMAIL PROTECTED]
> http://www.bahnhof.se/~johanl/
> If the only tool you have is a hammer,
> everything tends to look
> like a nail
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> [email protected]
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
