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

[<pko...@me...>]

> 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....

I think I can find a pieve of code on my harddisk which shows the problem=
s.
Please wait for the end of this week because I am busy.

Peter

> -----Original Message-----
> From: per...@li...
> [mailto:per...@li...]On Behalf Of
> Jason Bingham
> Sent: Monday, November 05, 2001 12:04 AM
> To: per...@li...
> Subject: RE: [perl-win32-gui-users] GUI & OLE (WAS: Drag-n-Drop?)
>
>
> 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 conne=
cts
> 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 wit=
h
> > >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
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>