RE: [perl-win32-gui-users] GUI & OLE (WAS: Drag-n-Drop?)

[Jason B. <jas...@gb...>]

I have had no problems with combining the use of Win32::GUI & =
Win32::OLE in
the same application. Currently I have a Win32::GUI program that sits =
in the
systray and communicates (read / write) to Outlook calendar & tasks via
Win32::OLE.

Is there any code that shows the problems....

Here is a quick and dirty modified hello.pl from the samples that =
connects
to outlook and reads the subject of the first item in the inbox and =
changes
the button text.

use Win32::GUI;
use Win32::OLE;
use Win32::OLE::Variant;
use Win32::OLE::Const 'Microsoft Outlook';

$MW =3D new Win32::GUI::Window(
    -title   =3D> 'hello.pl',
    -left    =3D> 100,
    -top     =3D> 100,
    -width   =3D> 150,
    -height  =3D> 100,
    -name    =3D> 'MainWindow',
    -visible =3D> 1,
);

$hello =3D $MW->AddButton(
    -text    =3D> 'Hello, world',
    -name    =3D> 'Hello',
    -left    =3D> 25,
    -top     =3D> 25,
);

$rc =3D Win32::GUI::Dialog(0);

sub MainWindow_Terminate {
    $MW->PostQuitMessage(1);
    # return -1;
}

sub Hello_Click {
   # Connect to Outlook
   my $Outlook =3D Win32::OLE->new('Outlook.Application', '');

   # Connect to active session & Get subject of first message
   my $namespace =3D $Outlook->GetNamespace("MAPI");
   my $folder =3D $namespace->GetDefaultFolder(olFolderInbox);
   my $Subject =3D $folder->{Items}->Item(1)->{Subject};

   # Update Button Text
   $MW->Hello->{-text} =3D "$Subject";
}




-----Original Message-----
From: Peter K=F6ller [mailto:pko...@me...]
Sent: Monday, 5 November 2001 2:35 AM
To: per...@li...
Subject: RE: [perl-win32-gui-users] Drag-n-Drop?


> But a Win32::GUI 0.0.559 with DnD-support would be nice. Aldo?

First, I would appreciate a Win32::GUI which works with Win32::OLE ;-) =
Aldo?

Peter


> -----Original Message-----
> From: per...@li...
> [mailto:per...@li...]On Behalf Of
> Johan Lindstrom
> Sent: Sunday, November 04, 2001 4:38 PM
> To: per...@li...
> Subject: Re: [perl-win32-gui-users] Drag-n-Drop?
>
>
> Margus wrote:
> >On the other hand, is anyone able to compile a PPM of Win32::GUI =
with
> >drag and drop functionality?
>
> Hmmm... wouldn't want to spread a rouge distribution of
> Win32::GUI, this is
> confusing enough as it is.
>
> But a Win32::GUI 0.0.559 with DnD-support would be nice. Aldo?
>
>
> /J
>
> ------ ---- --- -- -- -- -  -   -    -        -
> Johan Lindstr=F6m                    Boss Casinos
> Sourcerer                     jo...@ba...
>                   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
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>


_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users