getSaveFile

This is a multi-part message in MIME format.

--===============0637569111==
Content-class: urn:content-classes:message
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C75134.DFC21C93"

This is a multi-part message in MIME format.

------_=_NextPart_001_01C75134.DFC21C93
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

Hello all,

I am trying to use getSaveFile in ActivePerl version: v5.8.8 built for
MSWin32-x86-multi-thread, Binary build 819 [267479] provided by
ActiveState http://www.ActiveState.com
While I was using it in to 5.6 without any problem. In 5.8.8 the option
-initialfile does not work!

I am running it on Windows XP sp2.

See the following simple code:
#######################################################
use strict;

use Tk;
use Tk::Text;

my $top =3D MainWindow->new();
my $textwindow =3D $top->Text->pack;
my $savefilename =3D $textwindow->getSaveFile(-initialdir=3D>'c:\apps',
-initialfil=3D>'afile.nam');
print $savefilename;

MainLoop();
#######################################################

Any idea?

Thanks.

Paul Voyer
System/DB/PDM Administrator
Specialist, Engineering Applications Support
Harris Stratex Networks
mailto:Paul.Voyer [at] HSTX.com


------_=_NextPart_001_01C75134.DFC21C93
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2//EN">
<HTML>
<HEAD>
<META HTTP-EQUIV=3D"Content-Type" CONTENT=3D"text/html; =
charset=3Dus-ascii">
<META NAME=3D"Generator" CONTENT=3D"MS Exchange Server version =
6.5.7650.28">
<TITLE>getSaveFile</TITLE>
</HEAD>
<BODY>
<!-- Converted from text/rtf format -->

<P><FONT SIZE=3D2 FACE=3D"Arial">Hello all,</FONT>
</P>

<P><FONT SIZE=3D2 FACE=3D"Arial">I am trying to use getSaveFile in =
ActivePerl version: v5.8.8 built for MSWin32-x86-multi-thread, Binary =
build 819 [267479] provided by ActiveState </FONT><A =
HREF=3D"http://www.ActiveState.com"><U><FONT COLOR=3D"#0000FF" SIZE=3D2 =
FACE=3D"Arial">http://www.ActiveState.com</FONT></U></A></P>

<P><FONT SIZE=3D2 FACE=3D"Arial">While I was using it in to 5.6 without =
any problem. In 5.8.8 the option -initialfile does not work!</FONT>
</P>

<P><FONT SIZE=3D2 FACE=3D"Arial">I am running it on Windows XP =
sp2.</FONT>
</P>

<P><FONT SIZE=3D2 FACE=3D"Arial">See the following simple code:</FONT>

<BR><FONT SIZE=3D2 =
FACE=3D"Arial">############################################# ##########</F=
ONT>

<BR><FONT SIZE=3D2 FACE=3D"Arial">use strict;</FONT>
</P>

<P><FONT SIZE=3D2 FACE=3D"Arial">use Tk;</FONT>

<BR><FONT SIZE=3D2 FACE=3D"Arial">use Tk::Text;</FONT>
</P>

<P><FONT SIZE=3D2 FACE=3D"Arial">my $top =3D =
MainWindow->new();</FONT>

<BR><FONT SIZE=3D2 FACE=3D"Arial">my $textwindow =3D =
$top->Text->pack;</FONT>

<BR><FONT SIZE=3D2 FACE=3D"Arial">my $savefilename =3D =
$textwindow->getSaveFile(-initialdir=3D>'c:\apps',</FONT>

<BR><FONT SIZE=3D2 =
FACE=3D"Arial">         &nbs=
p;            =
;            =
          =
-initialfil=3D>'afile.nam');</FONT>

<BR><FONT SIZE=3D2 FACE=3D"Arial">print $savefilename;</FONT>
</P>

<P><FONT SIZE=3D2 FACE=3D"Arial">MainLoop(); </FONT>

<BR><FONT SIZE=3D2 =
FACE=3D"Arial">############################################# ##########</F=
ONT>
</P>

<P><FONT SIZE=3D2 FACE=3D"Arial">Any idea?</FONT>
</P>

<P><FONT SIZE=3D2 FACE=3D"Arial">Thanks.</FONT>
</P>

<P><B><FONT SIZE=3D2 FACE=3D"Arial">Paul Voyer</FONT></B>

<BR><I><FONT SIZE=3D2 FACE=3D"Arial">System/DB/PDM =
Administrator</FONT></I>

<BR><I><FONT SIZE=3D2 FACE=3D"Arial">Specialist, Engineering =
Applications Support</FONT></I><SPAN LANG=3D"fr"></SPAN>

<BR><SPAN LANG=3D"fr"><FONT SIZE=3D2 FACE=3D"Arial">Harris Stratex =
Networks</FONT></SPAN>

<BR><SPAN LANG=3D"fr"></SPAN><A =
HREF=3D"mailto:Paul.Voyer [at] HSTX.com"><SPAN LANG=3D"fr"><U></U><U><FONT =
COLOR=3D"#0000FF" SIZE=3D2 =
FACE=3D"Arial">mailto:Paul.Voyer [at] HSTX.com</FONT></U></SPAN></A><SPAN =
LANG=3D"fr"></SPAN><SPAN LANG=3D"en-us"></SPAN>
</P>

</BODY>
</HTML>
------_=_NextPart_001_01C75134.DFC21C93--

--===============0637569111==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0637569111==--
pvoyer [ Do, 15 Februar 2007 20:09 ] [ ID #1630689 ]

RE: getSaveFile

This is a multi-part message in MIME format.

--===============0586955208==
Content-class: urn:content-classes:message
Content-Type: multipart/alternative;
boundary="----_=_NextPart_001_01C7513A.029D5241"

This is a multi-part message in MIME format.

------_=_NextPart_001_01C7513A.029D5241
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

Yes you are right!

But fixing the "e" does not make it work!!!

I removed the 'e' to try something...

Thanks for the quick answer, but any other idea?


Paul Voyer
System/DB/PDM Administrator
Specialist, Engineering Applications Support
mailto:Paul.Voyer [at] HSTX.com



________________________________

From: John Day [mailto:johnday [at] wordsnimages.com]
Sent: Thursday, February 15, 2007 2:41 PM
To: Voyer, Paul (Harris Stratex)
Subject: Re: getSaveFile



At 02:09 PM 2/15/2007, you wrote:


Content-class: urn:content-classes:message
Content-Type: multipart/alternative;
boundary=3D"----_=3D_NextPart_001_01C75134.DFC21C93"
=09
Hello all,
=09
I am trying to use getSaveFile in ActivePerl version: v5.8.8
built for MSWin32-x86-multi-thread, Binary build 819 [267479] provided
by ActiveState http://www.ActiveState.com <http://www.ActiveState.com>
=09
While I was using it in to 5.6 without any problem. In 5.8.8 the
option -initialfile does not work!
=09
I am running it on Windows XP sp2.
=09
See the following simple code:
#######################################################
use strict;
=09
use Tk;
use Tk::Text;
=09
my $top =3D MainWindow->new();
my $textwindow =3D $top->Text->pack;
my $savefilename =3D
$textwindow->getSaveFile(-initialdir=3D>'c:\apps',
-initialfile
=3D>'afile.nam');
print $savefilename;
=09
MainLoop();
#######################################################
=09
Any idea?


Yep, check your spelling! You are missing the 'e' off the end of
-initialfile

John





Thanks.
=09
Paul Voyer
System/DB/PDM Administrator
Specialist, Engineering Applications Support
Harris Stratex Networks
mailto:Paul.Voyer [at] HSTX.com
_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs


------_=_NextPart_001_01C7513A.029D5241
Content-Type: text/html;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Dus-ascii">
<META content=3D"MSHTML 6.00.2900.2995" name=3DGENERATOR></HEAD>
<BODY>
<DIV dir=3Dltr align=3Dleft><FONT face=3DArial color=3D#0000ff =
size=3D2><SPAN
class=3D703284219-15022007>Yes you are right!</SPAN></FONT></DIV>
<DIV dir=3Dltr align=3Dleft><FONT face=3DArial color=3D#0000ff =
size=3D2><SPAN
class=3D703284219-15022007></SPAN></FONT> </DIV>
<DIV dir=3Dltr align=3Dleft><FONT face=3DArial color=3D#0000ff =
size=3D2><SPAN
class=3D703284219-15022007>But fixing the "e" does not make it
work!!!</SPAN></FONT></DIV>
<DIV dir=3Dltr align=3Dleft><FONT face=3DArial color=3D#0000ff =
size=3D2><SPAN
class=3D703284219-15022007></SPAN></FONT> </DIV>
<DIV dir=3Dltr align=3Dleft><FONT face=3DArial color=3D#0000ff =
size=3D2><SPAN
class=3D703284219-15022007>I removed the 'e' to try
something...</SPAN></FONT></DIV>
<DIV dir=3Dltr align=3Dleft><FONT face=3DArial color=3D#0000ff =
size=3D2><SPAN
class=3D703284219-15022007></SPAN></FONT> </DIV>
<DIV dir=3Dltr align=3Dleft><FONT face=3DArial color=3D#0000ff =
size=3D2><SPAN
class=3D703284219-15022007>Thanks for the quick answer, but =
a</SPAN></FONT><FONT
face=3DArial color=3D#0000ff size=3D2><SPAN =
class=3D703284219-15022007>ny other
idea?</SPAN></FONT></DIV>
<DIV><FONT face=3DArial color=3D#0000ff size=3D2></FONT> </DIV><!-- =
Converted from text/rtf format -->
<P><B><FONT face=3DArial size=3D2>Paul Voyer</FONT></B> <BR><I><FONT =
face=3DArial
size=3D2>System/DB/PDM Administrator</FONT></I> <BR><I><FONT =
face=3DArial
size=3D2>Specialist, Engineering Applications Support</FONT></I><SPAN
lang=3Dfr></SPAN> <BR><SPAN lang=3Dfr><FONT face=3DArial size=3D2><A
href=3D"mailto:Paul.Voyer [at] HSTX.com">mailto:Paul.Voyer [at] HSTX.c om</A></FONT>=
</SPAN><SPAN
lang=3Den-us></SPAN> </P>
<DIV> </DIV><BR>
<DIV class=3DOutlookMessageHeader lang=3Den-us dir=3Dltr align=3Dleft>
<HR tabIndex=3D-1>
<FONT face=3DTahoma size=3D2><B>From:</B> John Day =
[mailto:johnday [at] wordsnimages.com]
<BR><B>Sent:</B> Thursday, February 15, 2007 2:41 PM<BR><B>To:</B> =
Voyer, Paul
(Harris Stratex)<BR><B>Subject:</B> Re: getSaveFile<BR></FONT><BR></DIV>
<DIV></DIV><BR>At 02:09 PM 2/15/2007, you wrote:<BR>
<BLOCKQUOTE class=3Dcite cite=3D"" type=3D"cite">Content-class:
urn:content-classes:message<BR>Content-Type:
=
multipart/alternative;<BR><X-TAB>      &nbs=
p; </X-TAB>
boundary=3D"----_=3D_NextPart_001_01C75134.DFC21C93"<BR><BR><FONT =
size=3D2>Hello
all,</FONT> <BR><BR><FONT size=3D2>I am trying to use getSaveFile in =
ActivePerl
version: v5.8.8 built for MSWin32-x86-multi-thread, Binary build 819 =
[267479]
provided by ActiveState </FONT><A =
href=3D"http://www.ActiveState.com"><FONT
color=3D#0000ff =
size=3D2><U>http://www.ActiveState.com</A><BR></U></FONT><BR><FONT
size=3D2>While I was using it in to 5.6 without any problem. In 5.8.8 =
the option
-initialfile does not work!</FONT> <BR><BR><FONT size=3D2>I am running =
it on
Windows XP sp2.</FONT> <BR><BR><FONT size=3D2>See the following simple =

code:</FONT> <BR><FONT
=
size=3D2>################################################### ####</FONT>
<BR><FONT size=3D2>use strict;</FONT> <BR><BR><FONT size=3D2>use =
Tk;</FONT>
<BR><FONT size=3D2>use Tk::Text;</FONT> <BR><BR><FONT size=3D2>my $top =
=3D
MainWindow->new();</FONT> <BR><FONT size=3D2>my $textwindow =3D
$top->Text->pack;</FONT> <BR><FONT size=3D2>my $savefilename =3D =

$textwindow->getSaveFile(-initialdir=3D>'c:\apps',</FONT> =
<BR><FONT
=
size=3D2>          &nbs=
p;            =
;            =
        
-initialfil<SPAN class=3D703284219-15022007><FONT face=3DArial
color=3D#0000ff>e </FONT></SPAN>=3D>'afile.nam');</FONT> =
<BR><FONT
size=3D2>print $savefilename;</FONT> <BR><BR><FONT =
size=3D2>MainLoop();
</FONT><BR><FONT
=
size=3D2>################################################### ####</FONT>
<BR><BR><FONT size=3D2>Any idea?</FONT> </BLOCKQUOTE><BR>Yep, check =
your spelling!
You are missing the 'e' off the end of =
-initialfile<BR><BR>John<BR><BR><BR><BR>
<BLOCKQUOTE class=3Dcite cite=3D"" type=3D"cite"><FONT =
size=3D2>Thanks.</FONT>
<BR><BR><FONT size=3D2><B>Paul Voyer</B></FONT> <BR><FONT
size=3D2><I>System/DB/PDM Administrator</I></FONT> <BR><FONT
size=3D2><I>Specialist, Engineering Applications Support</I></FONT> =
<BR><FONT
size=3D2>Harris Stratex Networks</FONT> <BR><FONT color=3D#0000ff =
size=3D2><U><A
=
href=3D"mailto:Paul.Voyer [at] HSTX.com">mailto:Paul.Voyer [at] HSTX.c om</A></U></F=
ONT>
<BR>_______________________________________________<BR>ActivePerl =
mailing
list<BR>ActivePerl [at] listserv.ActiveState.com<BR>To unsubscribe: <A
href=3D"http://listserv.activestate.com/mailman/mysubs"
=
eudora=3D"autourl">http://listserv.ActiveState.com/mailman/m ysubs</A></BL=
OCKQUOTE></BODY></HTML>

------_=_NextPart_001_01C7513A.029D5241--

--===============0586955208==
Content-Type: text/plain; charset="us-ascii"
MIME-Version: 1.0
Content-Transfer-Encoding: 7bit
Content-Disposition: inline

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
--===============0586955208==--
pvoyer [ Do, 15 Februar 2007 20:46 ] [ ID #1630690 ]

Re: getSaveFile

Voyer, Paul (Harris Stratex) wrote:
> Hello all,
>
> I am trying to use getSaveFile in ActivePerl version: v5.8.8 built for
> MSWin32-x86-multi-thread, Binary build 819 [267479] provided by
> ActiveState _http://www.ActiveState.com_
>
> While I was using it in to 5.6 without any problem. In 5.8.8 the option
> -initialfile does not work!
>
> I am running it on Windows XP sp2.
....
> Any idea?

Works OK for me on 811. What are your symptoms ?

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
Bill Luebkert [ Fr, 16 Februar 2007 00:54 ] [ ID #1630692 ]

RE: getSaveFile

Okay! I have more information...

The -initialfile does not appear in the "File name: " field.

Now doing more test with that, I have the same version of Perl and Tk
installed on different machines this is working fine on those. The
difference now is about the installed modules.

How can I know which module is causing my problem or force Perl to use
the specific original module?

Thanks,


Paul Voyer
System/DB/PDM Administrator
Specialist, Engineering Applications Support
Harris Stratex Networks
mailto:Paul.Voyer [at] HSTX.com

-----Original Message-----
From: Bill Luebkert [mailto:dbecoll [at] roadrunner.com]
Sent: Thursday, February 15, 2007 6:54 PM
To: Voyer, Paul (Harris Stratex)
Cc: ActivePerl [at] listserv.ActiveState.com
Subject: Re: getSaveFile

Voyer, Paul (Harris Stratex) wrote:
> Hello all,
>
> I am trying to use getSaveFile in ActivePerl version: v5.8.8 built for

> MSWin32-x86-multi-thread, Binary build 819 [267479] provided by
> ActiveState _http://www.ActiveState.com_
>
> While I was using it in to 5.6 without any problem. In 5.8.8 the
option
> -initialfile does not work!
>
> I am running it on Windows XP sp2.
....
> Any idea?

Works OK for me on 811. What are your symptoms ?

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
pvoyer [ Fr, 16 Februar 2007 14:35 ] [ ID #1631901 ]

RE: getSaveFile

Found a solution!

Completely uninstalled Perl and did clean re-install of everything.

It is working fine now.

Probably my Perl installation was corrupted.

Thanks All,


Paul Voyer
System/DB/PDM Administrator
Specialist, Engineering Applications Support
Harris Stratex Networks
mailto:Paul.Voyer [at] HSTX.com


-----Original Message-----
From: activeperl-bounces [at] listserv.ActiveState.com
[mailto:activeperl-bounces [at] listserv.ActiveState.com] On Behalf Of Voyer,
Paul (Harris Stratex)
Sent: Friday, February 16, 2007 8:35 AM
To: Bill Luebkert
Cc: ActivePerl [at] listserv.ActiveState.com
Subject: RE: getSaveFile

Okay! I have more information...

The -initialfile does not appear in the "File name: " field.

Now doing more test with that, I have the same version of Perl and Tk
installed on different machines this is working fine on those. The
difference now is about the installed modules.

How can I know which module is causing my problem or force Perl to use
the specific original module?

Thanks,


Paul Voyer
System/DB/PDM Administrator
Specialist, Engineering Applications Support
Harris Stratex Networks
mailto:Paul.Voyer [at] HSTX.com

-----Original Message-----
From: Bill Luebkert [mailto:dbecoll [at] roadrunner.com]
Sent: Thursday, February 15, 2007 6:54 PM
To: Voyer, Paul (Harris Stratex)
Cc: ActivePerl [at] listserv.ActiveState.com
Subject: Re: getSaveFile

Voyer, Paul (Harris Stratex) wrote:
> Hello all,
>
> I am trying to use getSaveFile in ActivePerl version: v5.8.8 built for

> MSWin32-x86-multi-thread, Binary build 819 [267479] provided by
> ActiveState _http://www.ActiveState.com_
>
> While I was using it in to 5.6 without any problem. In 5.8.8 the
option
> -initialfile does not work!
>
> I am running it on Windows XP sp2.
....
> Any idea?

Works OK for me on 811. What are your symptoms ?

_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
ActivePerl mailing list
ActivePerl [at] listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
pvoyer [ Fr, 16 Februar 2007 19:13 ] [ ID #1631902 ]
Perl » gmane.comp.lang.perl.active-perl » getSaveFile

Vorheriges Thema: intercept output from another application?
Nächstes Thema: how to find if a module is installed on my machine or not