perl-win32-gui-users

[perl-win32-gui-users] perl2exe stuff - what version?

[Jake S. <js...@gr...>]

> > "Use sockets" in my perl win32 GUI code and convert it to .exe using
> > perl2exe
> >
> > and I try to run the code in another machine it complaines "
> perlcrt.dll not
> > found"

I haven't run across this before. I use perl2exe and the resultant program
runs on 2k/NT/9x/Me machines that I never see until I arrive at the clients
premises. I have this program running at 800 odd sites and this has never
happened - thankfully! :) Maybe perlcrt.dll is included? I don't think so
cause I build the exe with the -tiny flag, which puts everything in dlls -
my exe ends up being 878k, with nearly 1M in dlls. The only thing I can
think of is the p2x560.dll. Could it be the way perl was originally
compiled?

Jake

[perl-win32-gui-users] small problem

[christopher s. <chr...@ya...>]

part of code
----------------

.....


$ModuleWindow = new Win32::GUI::DialogBox(
    -left    => 100,
    -top     => 110,
    -width   => 500,
    -height  => 400,
    -name    => "ModuleWindow",
    -style   => WS_BORDER
              | DS_MODALFRAME
              | WS_POPUP
              | WS_CAPTION
              | WS_SYSMENU,
    -exstyle => WS_EX_DLGMODALFRAME
              | WS_EX_WINDOWEDGE
              | WS_EX_CONTEXTHELP
              | WS_EX_CONTROLPARENT,

);

$ModuleWindow->{-title'} = "site title";


does not produce a title

why ?

chris

[perl-win32-gui-users] GUI::GetOpenFileName and current directory of perl script

[christopher s. <chr...@ya...>]

sub button1_tab1_Click {
    $file = GUI::GetOpenFileName(
        -owner => $W,
        -directory => "C:\\",
        -title => "Location of ",
        -file => $file,
    );
open (FILE , ">./datafile.txt")
print FILE $file;
close(FILE)
}


Now I am intending to do this

1) Store the full path of the openend file to a file "datafile.txt"
2) I have used ./datafile.txt assuming that the file will get stored in the
SAME folder as that of my PERL SCRIPT

BUT

when I open the file dialog and choose a file say "D:\mywork\pages\one.html"

the datafile.txt gets written in D:\mywork\pages\

when I open the file dialog and choose a file say "C:\important\rdf.exe"

the datafile.txt gets written in C:\important\

my perl script is all along at

E:\perlscripts\

SO how do I achieve my objective

chris

Re: [perl-win32-gui-users] GUI::GetOpenFileName and current directory of perl script

[Indy S. <in...@in...>]

Try something like this:

use Cwd;
my $starting_dir = getcwd();
$file = GUI::GetOpenFileName(...
open (FILE , ">$starting_dir/datafile.txt");

You could also do call 'chdir $starting_dir;' before doing the open, however
this probably not does not work if the user changes to a different drive
letter.

Indy Singh
IndigoSTAR Software -- www.indigostar.com

----- Original Message -----
From: "christopher sagayam" <chr...@ya...>
To: <per...@li...>
Sent: Monday, January 15, 2001 4:23 AM
Subject: [perl-win32-gui-users] GUI::GetOpenFileName and current directory
of perl script


> sub button1_tab1_Click {
>     $file = GUI::GetOpenFileName(
>         -owner => $W,
>         -directory => "C:\\",
>         -title => "Location of ",
>         -file => $file,
>     );
> open (FILE , ">./datafile.txt")
> print FILE $file;
> close(FILE)
> }
>
>
> Now I am intending to do this
>
> 1) Store the full path of the openend file to a file "datafile.txt"
> 2) I have used ./datafile.txt assuming that the file will get stored in
the
> SAME folder as that of my PERL SCRIPT
>
> BUT
>
> when I open the file dialog and choose a file say
"D:\mywork\pages\one.html"
>
> the datafile.txt gets written in D:\mywork\pages\
>
> when I open the file dialog and choose a file say "C:\important\rdf.exe"
>
> the datafile.txt gets written in C:\important\
>
> my perl script is all along at
>
> E:\perlscripts\
>
> SO how do I achieve my objective
>
> chris
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] GUI::GetOpenFileName and current directory of perl script

[christopher s. <chr...@ya...>]

Thanks Indy

chris
www.perl-resume.com

----- Original Message -----
From: Indy Singh <in...@in...>
To: <per...@li...>
Sent: Monday, January 15, 2001 7:20 PM
Subject: Re: [perl-win32-gui-users] GUI::GetOpenFileName and current
directory of perl script


> Try something like this:
>
> use Cwd;
> my $starting_dir = getcwd();
> $file = GUI::GetOpenFileName(...
> open (FILE , ">$starting_dir/datafile.txt");
>
> You could also do call 'chdir $starting_dir;' before doing the open,
however
> this probably not does not work if the user changes to a different drive
> letter.
>
> Indy Singh
> IndigoSTAR Software -- www.indigostar.com
>
> ----- Original Message -----
> From: "christopher sagayam" <chr...@ya...>
> To: <per...@li...>
> Sent: Monday, January 15, 2001 4:23 AM
> Subject: [perl-win32-gui-users] GUI::GetOpenFileName and current directory
> of perl script
>
>
> > sub button1_tab1_Click {
> >     $file = GUI::GetOpenFileName(
> >         -owner => $W,
> >         -directory => "C:\\",
> >         -title => "Location of ",
> >         -file => $file,
> >     );
> > open (FILE , ">./datafile.txt")
> > print FILE $file;
> > close(FILE)
> > }
> >
> >
> > Now I am intending to do this
> >
> > 1) Store the full path of the openend file to a file "datafile.txt"
> > 2) I have used ./datafile.txt assuming that the file will get stored in
> the
> > SAME folder as that of my PERL SCRIPT
> >
> > BUT
> >
> > when I open the file dialog and choose a file say
> "D:\mywork\pages\one.html"
> >
> > the datafile.txt gets written in D:\mywork\pages\
> >
> > when I open the file dialog and choose a file say "C:\important\rdf.exe"
> >
> > the datafile.txt gets written in C:\important\
> >
> > my perl script is all along at
> >
> > E:\perlscripts\
> >
> > SO how do I achieve my objective
> >
> > chris
> >
> >
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> >
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users