perl-win32-gui-users — Using the Win32::GUI Perl extension

Re: [perl-win32-gui-users] Win32::GUI::Label Click()/DblClick()

[Jeremy B. <sco...@ya...>]

Last time i tried it, I could get Click to work, but
not DblClick.

Jeremy Blonde
sco...@ya...

--- "Thomas, Timothy B" <tim...@lm...>
wrote:
> 
> Do the Click() or DblClick() events work for the
> Win32::GUI::Label object yet?
> My tests seem to indicate no, but the events are
> listed in the documentation.
> 
> 	Tim
> 
>
-------------------------------------------------------------------------------------------------
> Tim Thomas
> Unix Systems Administrator
> Lockheed Martin EIS · Denver Data Center
> 303-430-2281
> mailto:tim...@lm...
>
-------------------------------------------------------------------------------------------------
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


__________________________________________________
Do You Yahoo!?
Get email at your own domain with Yahoo! Mail. 
http://personal.mail.yahoo.com/

[perl-win32-gui-users] Win32::GUI::Label Click()/DblClick()

[Thomas, T. B <tim...@lm...>]

Do the Click() or DblClick() events work for the Win32::GUI::Label =
object yet?
My tests seem to indicate no, but the events are listed in the =
documentation.

	Tim

------------------------------------------------------------------------=
-------------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:tim...@lm...
------------------------------------------------------------------------=
-------------------------

[perl-win32-gui-users] RichEdit->Change()

[Sean H. <jal...@ho...>]

I've been playing around with RichEdit, and I can't get the Change event to 
work.  Has anyone gotten this to work?
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

[perl-win32-gui-users] how to get the folder ??

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

Normally

sub button1_Click {
    $file = GUI::GetOpenFileName(
        -owner => $W,
        -directory => "C:\\",
        -title => "Location of ",
        -file => $file,
    );
$ModuleWindow->text4->Text("$file");


now what Im doing is this

I get the file selected using the win32 file dialog and browse the files in
my local computer and once the file is seleted it is shown in a text box

for eg C:\folder1\somefile.txt

Till now it is OK

Now I want to select a folder and NOT a particular file


for eg

C:\folder1\

and I want the  $file to contaim "C:\folder1\"

Is it possible to choose just the folder and not a specific file using
GUI::GetOpenFileName if NOT is there another module to do so??


chris
www.perl-resume.com

Re: [perl-win32-gui-users] Timer memory leak

[Sam <sa...@se...>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

it's been fixed already. Aldo is putting together a new version. If you 
compiled your version from source, and you want a patch in the 
meantime then mail me direct, and I'll send instructions.

> There seems to be some kind of memory leak in the Timer function.
> Somehow a timer seems to be chewing memory for each cycle, so a timer
> with a short interval uses more memory than one with a longer interval.
> 
> I can recall having read about this before, but I couldn't find anything
> about it in the archives... Is there anything being done to track this
> one down?
> 
> 	-Ludde
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 



-----BEGIN PGP SIGNATURE-----
Version: N/A

iQA/AwUBOmV3FpsRND2Z+TaWEQKp+gCeLZMn4Tt91lr2RdgHKJUR2a40Oh0AnRZf
RvelsYfiAdrIr21J4xK1IdOh
=NE/h
-----END PGP SIGNATURE-----

Sam Jacobson
R & D Manager / Software Engineer
Selective Communications
Ph +64 9 302 1142
www.selective.co.nz

[perl-win32-gui-users] Timer memory leak

[Ludvig af K. <kli...@ho...>]

There seems to be some kind of memory leak in the Timer function.
Somehow a timer seems to be chewing memory for each cycle, so a timer
with a short interval uses more memory than one with a longer interval.

I can recall having read about this before, but I couldn't find anything
about it in the archives... Is there anything being done to track this
one down?

	-Ludde

[perl-win32-gui-users] Poor Man's Tooltip

[Sean H. <jal...@ho...>]

Since Tooltip currently isn't working, I wrote what I call a poor man's 
tooltip.  The subroutines are here:

sub SetupPMTooltip
{
	unless ($pmt_text_color = $_[0]) { $pmt_text_color = '[0,0,0]';}
	unless ($pmt_bg_color = $_[1]) { $pmt_bg_color = '[255,255,255]';}
}

sub AddPMTooltip
{
	my $ref = $_[0];
	my $parent = $_[1];
	my $text = $_[2];
	eval ("\$pmt_left = (\$$ref->Left() + \$$ref->Width());");
	eval ("\$pmt_top = \$$ref->Top();");
	eval ("\$$parent->AddLabel(-name => 'PMT_$ref', -text => '$text', -left => 
$pmt_left, -top => $pmt_top, -visible => 0, -foreground => $pmt_text_color, 
-background => $pmt_bg_color);");
	eval ("\$$parent->AddTimer('PMT_$ref"."_Off',0);");
	eval ("sub PMT_$ref"."_Off_Timer { \$$parent->PMT_$ref->Hide(); };");
}

sub ShowPMTooltip
{
	my $ref = $_[0];
	my $parent = $_[1];
	eval ("\$$parent->PMT_$ref->Show();");
	eval ("\$$parent->PMT_$ref"."_Off->Interval(500);");
}

As you can see, they use a lot of evals, which is ugly, but I haven't been 
able to get it to work otherwise.

It works with the MouseMove event, which (as far as I've been able to 
determine) only works on subclasses, so you need to make a subclass.  
(According to GUI.pm, subclassing only works for Button, Listbox, TabStrip, 
and RichEdit.)  Here is an example for a Button:

$PMTButton = new Win32::GUI::Class(
    -name => "PMTButtonClass",
    -extends => "BUTTON",
    -widget => "Button",
);

Then you need to assign any controls you want tooltips for to a variable (I 
usually don't bother to do this, but you need to for this to work):

$TB = $MainWindow->AddButton(
	-class => $PMTButton,
	-name => 'TestButton',
	-text => 'Test',
	-left => 135,
	-top => 135,
	-width => 30,
	-height => 30,
	);

Before you can have any tooltips, you must call SetupPMTooltip, which 
assigns foreground and background colors for your tips.  You can use either 
of the valid forms for colors, but they must be surrounded by quotes (they 
need to be strings for those ugly evals).  You can also call it with no 
parameters, in which case it makes the foreground black and the background 
white:

SetupPMTooltip('[0,0,0]','[255,255,255]');

Now you can add a tooltip.  You must send the following parameters: the name 
of the variable for the button (or whatever), the name of the variable for 
the parent window, and the text you wish to have in your tooltip.  The 
variable names must be surrounded by quotes and must not have the '$' in 
front (again, this is for those evals):

AddPMTooltip('TB','MainWindow','This is a test');

Now you just define a MouseMove event for your control, and call 
ShowPMTooltip from there.  You send the variable names just as before, but 
don't send the text this time:

sub TestButton_MouseMove
{
    ShowPMTooltip('TB','MainWindow');
}

Now when you move the mouse over the control, the tooltip will appear at the 
upper right corner of the button.  It will disappear one half-second after 
you move the mouse away.

Any suggestions for improvement are welcome (especially ways to get rid of 
those evals.)  Let me know how it works for you if you use it.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

RE: [perl-win32-gui-users] Getting the browser

[Eric B. <er...@eb...>]

On Mon, 15 Jan 2001, Thomas, Timothy B wrote:

> Same problem, here's the output I am getting with your new regular
> expression:

> my ($cmd);
> ($cmd) = $command=~/^(\S*)\s/;
> return $cmd;

How about this:

	my $command_with_args;

	my $match_nonspace_expect_in_quotes = qr/((?:"[^"]+"|[^ "]+)+)/;
	
	$command_with_args =~ /$match_nonspace_expect_in_quotes/;

	my $command_part = $1;

	$command_part =~ s/"//g;  # Remove quotes

	return $command_part;

#
#  This works with examples like
#	'"C:\Program Files\"com"mand".exe "%1"';
#

   - Eric B.

--
"An intelligent carrot!  It boggles the mind."

RE: [perl-win32-gui-users] Getting the browser

[Sean H. <jal...@ho...>]

I think this topic had strayed from Win32-GUI to just Perl in general, so 
I'm sending my further responses just to Tim.  If anyone wants the code, 
feel free to email me.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

RE: [perl-win32-gui-users] Getting the browser

[Thomas, T. B <tim...@lm...>]

Same problem, here's the output I am getting with your new regular =
expression:
.html=3D"C:\PROGRA~1\Plus!\MICROS~1\iexplore.exe"
.htm=3D"C:\PROGRA~1\Plus!\MICROS~1\iexplore.exe"
.txt=3D"C:\Program
.pl=3DC:\Perl\bin\Perl.exe
.doc=3D"C:\Program
.xls=3D"C:\Program
.ppt=3D"C:\Program
.log=3D"C:\Program
.url=3Drundll32.exe
.jpg=3DC:\PROGRA~1\PAINTS~1\psp.exe
.gif=3DC:\PROGRA~1\PAINTS~1\psp.exe
.avi=3D"C:\Program
.wav=3D"C:\Program

it's not pulling anything after the space. We need some kind of regular =
expression that says
"Everything up to the first space unless that space is in quotes"

This doesn't apply to .html because the association is using the short =
path (at least for me)
but for those extensions that use the long path, it's a problem.

------------------------------------------------------------------------=
-------------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:tim...@lm...
------------------------------------------------------------------------=
-------------------------


-----Original Message-----
From: Sean Healy [mailto:jal...@ho...]
Sent: Monday, January 15, 2001 9:55 AM
To: per...@li...;
tim...@lm...
Subject: RE: [perl-win32-gui-users] Getting the browser


Tim-
   Thanks for the suggestions.  I changed this piece:
>				my ($cmd);
>				#print "\tcommand=3D$command\n";
>				if ($command=3D~/^".*"\s+.*$/)
>					{
>					($cmd)=3D$command=3D~/^(".*")\s+.*$/;
>					return $cmd;
>					}
>				else
>					{
>					split(/ /, $command);
>					return $_[0];
>					}

to this:
                                 my ($cmd);
                                 ($cmd) =3D $command=3D~/^(\S*)\s/;
                                 return $cmd;

which should solve both problems.  '\S' matches any non-whitespace=20
character, including quotes.  I ran it on my system and it works.

>  Also- How is Win32::TieRegistry different from Win32::Registry?

The Win32::Registry documentation says this:

NOTE: This module provides a very klunky interface to access the =
Windows=20
registry, and is not currently being developed actively. It only exists =
for=20
backward compatibility with old code that uses it. For more powerful =
and=20
flexible ways to access the registry, use Win32::TieRegistry.

Thanks again for your suggestions.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com


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

RE: [perl-win32-gui-users] Getting the browser

[Sean H. <jal...@ho...>]

Tim-
   Thanks for the suggestions.  I changed this piece:
>				my ($cmd);
>				#print "\tcommand=$command\n";
>				if ($command=~/^".*"\s+.*$/)
>					{
>					($cmd)=$command=~/^(".*")\s+.*$/;
>					return $cmd;
>					}
>				else
>					{
>					split(/ /, $command);
>					return $_[0];
>					}

to this:
                                 my ($cmd);
                                 ($cmd) = $command=~/^(\S*)\s/;
                                 return $cmd;

which should solve both problems.  '\S' matches any non-whitespace 
character, including quotes.  I ran it on my system and it works.

>  Also- How is Win32::TieRegistry different from Win32::Registry?

The Win32::Registry documentation says this:

NOTE: This module provides a very klunky interface to access the Windows 
registry, and is not currently being developed actively. It only exists for 
backward compatibility with old code that uses it. For more powerful and 
flexible ways to access the registry, use Win32::TieRegistry.

Thanks again for your suggestions.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

RE: [perl-win32-gui-users] Getting the browser

[Thomas, T. B <tim...@lm...>]

Sean -=20
	Hey - that's pretty cool. I hadn't thought of taking that angle. I =
noticed a problem or two with your code. The main one was that if your =
association is pointing to something like "C:\Program Files\Windows =
NT\Accessories\WORDPAD.EXE", it doesn't like it because of the space in =
"Program Files". So I modified your code a little. I also put in some =
debugging stuff to make it easier to see what's going on. Below is the =
output on a bunch of different associations, all are coming out ok.=20

I am not sure I like your use of split on getting everything up to the =
first space, but I couldn't figure out how to get everything up to the =
first space using a regular expression. If you do something like =
($cmd)=3D$command=3D~/^(.*)\s/; it gives you everything up to the last =
space, which is annoying, I am sure there is a way around it.
	Let me know your thoughts on it.

Also- How is Win32::TieRegistry different from Win32::Registry?
			Tim

.html=3D"C:\PROGRA~1\Plus!\MICROS~1\iexplore.exe"
.htm=3D"C:\PROGRA~1\Plus!\MICROS~1\iexplore.exe"
.txt=3D"C:\Program Files\Windows NT\Accessories\WORDPAD.EXE"
.pl=3DC:\Perl\bin\Perl.exe
.doc=3D"C:\Program Files\Microsoft Office\Office\winword.exe"
.xls=3D"C:\Program Files\Microsoft Office\Office\excel.exe"
.ppt=3D"C:\Program Files\Microsoft Office\Office\PowerPnt.exe"
.log=3D"C:\Program Files\Windows NT\Accessories\WORDPAD.EXE"
.url=3Drundll32.exe
.jpg=3DC:\PROGRA~1\PAINTS~1\psp.exe
.gif=3DC:\PROGRA~1\PAINTS~1\psp.exe
.avi=3D"C:\Program Files\Windows Media Player\mplayer2.exe"
.wav=3D"C:\Program Files\Netscape\Communicator\Winamp\winamp.exe"

Here's the code:

use Win32::TieRegistry;

check(".html");
check(".htm");
check(".txt");
check(".pl");
check(".doc");
check(".xls");
check(".ppt");
check(".log");
check(".url");
check(".jpg");
check(".gif");
check(".avi");
check(".wav");

sub check
	{
	($item)=3D@_;
	$prog=3DgetProgram($item);
	print "$item=3D$prog\n";
	}=09


sub getProgram
{
	if (my $ext =3D $_[0])
	{
		if (my $typeName =3D $Registry->{"HKEY_CLASSES_ROOT\\$ext\\\\"})
		{
			if (my $command =3D =
$Registry->{"HKEY_CLASSES_ROOT\\$typeName\\shell\\open\\command\\\\"})
			{
				my ($cmd);
				#print "\tcommand=3D$command\n";
				if ($command=3D~/^".*"\s+.*$/)
					{
					($cmd)=3D$command=3D~/^(".*")\s+.*$/;
					return $cmd;
					}
				else
					{
					split(/ /, $command);
					return $_[0];
					}
			}
			else { return 0; }
		}
		else { return 0; }
	}
	else { return 0; }
}


------------------------------------------------------------------------=
-------------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS =B7 Denver Data Center
303-430-2281
mailto:tim...@lm...
------------------------------------------------------------------------=
-------------------------


-----Original Message-----
From: Sean Healy [mailto:jal...@ho...]
Sent: Saturday, January 13, 2001 9:13 AM
To: per...@li...
Subject: [perl-win32-gui-users] Getting the browser


Due to a message earlier this week, I was thinking about the problem of =

getting a browser preference from the user's registry, so I wrote this:

use Win32::TieRegistry;

sub getProgram
{
	if (my $ext =3D $_[0])
	{
		if (my $typeName =3D $Registry->{"HKEY_CLASSES_ROOT\\$ext\\\\"})
		{
			if (my $command =3D=20
$Registry->{"HKEY_CLASSES_ROOT\\$typeName\\shell\\open\\command\\\\"})
			{
				split(/ /, $command);
				return $_[0];
			}
			else { return 0; }
		}
		else { return 0; }
	}
	else { return 0; }
}

You pass in the extension and this returns the path to the associated=20
program.  The extension must include the dot (i.e, pass in '.html', not =

'html').

This works on my machine, and you're welcome to use it (or modify it to =
make=20
it work on your system).  It does some basic error checking (makes sure =
you 
pass in an extension, makes sure the extension exists in the registry, =
makes=20
sure the file type has a command associated with it).  I have not =
tested=20
case sensitivity (I know Windows is not case-sensitive as far as file =
names=20
go, but I don't know if the same applies to the registry).

I'd be glad to hear any feedback.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com


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

Re: [perl-win32-gui-users] Combobox

[Jonathan S. <jso...@al...>]

In addition to making the height of your combobox larger, I would also
recommend adding WS_VSCROLL to your style command.  That way if you don't
make your combobox height large enough, people will not be under the
impression that they only have the choices of what they see, due to the
restricted combobox height.

I wonder if that was clearly stated??!!!

Jonathan Southwick
Technical & Network Services
Allegheny College, Meadsville, PA
jso...@al...


----- Original Message -----
From: "Koul Christian" <chr...@fu...>
To: <per...@ht...>
Sent: Monday, January 15, 2001 9:39 AM
Subject: [perl-win32-gui-users] Combobox


> Hi all,
>
>     I dont have my items in the combobox. The code is here below. can
> somebody
> tell me where i am wrong?
>
> ****************************
> use Win32::GUI;
>
> $menu =3D Win32::GUI::MakeMenu(
>   "&Fichier"   =3D> "Fichier",
>   " > &Fermer" =3D> "Terminer",
>   "&Aide"  =3D> "Informations",
>   " > &Soft" =3D> "SoftAide",
> );
>
> $Frame =3D new Win32::GUI::Window(
>   -top =3D> 100,
>   -left =3D> 150,
>   -width =3D> 500,
>   -height =3D> 400,
>         -name   =3D> "Frame",
>      -title   =3D> "Module de demande",
>   -menu =3D> $menu,
> );
>
> $QtyText =3D $Frame->AddTextfield(
>        -name    =3D> "QtyText",
>        -left    =3D> 300,
>        -top     =3D> 74,
>        -width   =3D> 31,
>        -height  =3D> 20,
> );
>
> $Menubox1 =3D $Frame->AddCombobox(
>         -name   =3D> "Menubox1",
>        -left    =3D> 35,
>        -top     =3D> 74,
>        -width   =3D> 95,
>        -height  =3D> 20,
>         -style  =3D> WS_VISIBLE | 2 | WS_NOTIFY,
> );
> $Menubox2 =3D $Frame->AddCombobox(
>      -name   =3D> "Menubox2",
>       -left    =3D> 166,
>      -top     =3D> 74,
>       -width   =3D> 95,
>      -height  =3D> 20,
>      -style  =3D> WS_VISIBLE | 2 | WS_NOTIFY,
> );
> for $i ( 0 .. 5 ) {
>   $Menubox1->InsertItem($i);
>   $Menubox2->InsertItem($i*$i);
>  }
>
> $Frame->Show();
>
> Win32::GUI::Dialog();
>
> sub Terminer_Click {
>          &Frame_Terminate;
>     }
> sub Frame_Terminate {
>            -1;
>     }
> *********************************
> --
>
> Sincerely.
> __________________
>
> Christian Koul
> Civil Engineer
> Unit=E9 Statistique - Fucam
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] Combobox

[<fel...@mo...>]

Christian,

Increase the height of your combo boxes.

Felice




Koul Christian <chr...@fu...> on 01/15/2001 09:39:42 AM

Please respond to per...@li...

To:   "per...@ht..." <per...@ht...>
cc:    (bcc: Felice Vittoria/Aut/Schneider)
Subject:  [perl-win32-gui-users] Combobox

[perl-win32-gui-users] Combobox

[Koul C. <chr...@fu...>]

Hi all,

    I dont have my items in the combobox. The code is here below. can
somebody
tell me where i am wrong?

****************************
use Win32::GUI;

$menu =3D Win32::GUI::MakeMenu(
  "&Fichier"   =3D> "Fichier",
  " > &Fermer" =3D> "Terminer",
  "&Aide"  =3D> "Informations",
  " > &Soft" =3D> "SoftAide",
);

$Frame =3D new Win32::GUI::Window(
  -top =3D> 100,
  -left =3D> 150,
  -width =3D> 500,
  -height =3D> 400,
        -name   =3D> "Frame",
     -title   =3D> "Module de demande",
  -menu =3D> $menu,
);

$QtyText =3D $Frame->AddTextfield(
       -name    =3D> "QtyText",
       -left    =3D> 300,
       -top     =3D> 74,
       -width   =3D> 31,
       -height  =3D> 20,
);

$Menubox1 =3D $Frame->AddCombobox(
        -name   =3D> "Menubox1",
       -left    =3D> 35,
       -top     =3D> 74,
       -width   =3D> 95,
       -height  =3D> 20,
        -style  =3D> WS_VISIBLE | 2 | WS_NOTIFY,
);
$Menubox2 =3D $Frame->AddCombobox(
     -name   =3D> "Menubox2",
      -left    =3D> 166,
     -top     =3D> 74,
      -width   =3D> 95,
     -height  =3D> 20,
     -style  =3D> WS_VISIBLE | 2 | WS_NOTIFY,
);
for $i ( 0 .. 5 ) {
  $Menubox1->InsertItem($i);
  $Menubox2->InsertItem($i*$i);
 }

$Frame->Show();

Win32::GUI::Dialog();

sub Terminer_Click {
         &Frame_Terminate;
    }
sub Frame_Terminate {
           -1;
    }
*********************************
--

Sincerely.
__________________

Christian Koul
Civil Engineer
Unit=E9 Statistique - Fucam

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

Re: [perl-win32-gui-users] VB dialup code

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

Thanks

chris
www.perl-resume.com

----- Original Message -----
From: Reini Urban <ru...@sb...>
To: <per...@li...>
Sent: Monday, January 15, 2001 12:40 PM
Subject: Re: [perl-win32-gui-users] VB dialup code


> christopher sagayam schrieb:
> > can anyone tell me the equivalent of
> > "Private Declare Function InternetGoOnline Lib "wininet.dll" Alias
> > "InternetGoOnlineA" (ByVal lpszURL As String, ByVal hwndParent As Long,
> > ByVal dwReserved As Long) As Long"
> > in perl ?
> >
> > I mean the vb code is accessing a function present in the wininet.dll I
> > believe ..how to do the same using PERL...
>
> "Declare" is the FFI statement which declares a VB function as external,
> defined dynamically.
> The perl counterpart would be using one of the modules
> Win32::API (also written by Aldo), FFI or C::Dynalib.
>
> You normally don't need a FFI as in VB to declare functions. you just
> have a look into various modules if they aren't defined statically there.
> E.g. Win32::GUI defines all Win32 GUI methods and callbacks.
> Win32::RASE e.g. has your required function defined statically.
>
> however to answer your question, the perl equivalent is:
>
> # VB: "Private Declare Function InternetGoOnline Lib "wininet.dll" Alias
> #     "InternetGoOnlineA" (ByVal lpszURL As String, ByVal hwndParent As
Long,
> #     ByVal dwReserved As Long) As Long"
>
> use Win32::API;
> $InternetGoOnline = new Win32::API("wininet", "InternetGoOnlineA",
[P,N,N],
> N);
>
> # sample usage:
> $url = "http://www.myserver.com\0"; # ASCIIZ string!
> $result = $InternetGoOnline->Call($url,0,0);
>
> The FFI and C::Dynalib syntax is similar. FFI is the newest,
> supports arbitrary callbacks and is generally the best, but has a GPL
license
> only.
> C::Dynalib and Win32::API have a perl license.
> --
> Reini Urban
> http://xarch.tu-graz.ac.at/autocad/news/faq/autolisp.html
>
> _______________________________________________
> 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

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

[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] VB dialup code

[Reini U. <ru...@sb...>]

christopher sagayam schrieb:
> can anyone tell me the equivalent of
> "Private Declare Function InternetGoOnline Lib "wininet.dll" Alias
> "InternetGoOnlineA" (ByVal lpszURL As String, ByVal hwndParent As Long,
> ByVal dwReserved As Long) As Long"
> in perl ?
> 
> I mean the vb code is accessing a function present in the wininet.dll I
> believe ..how to do the same using PERL...

"Declare" is the FFI statement which declares a VB function as external, 
defined dynamically.
The perl counterpart would be using one of the modules
Win32::API (also written by Aldo), FFI or C::Dynalib.

You normally don't need a FFI as in VB to declare functions. you just 
have a look into various modules if they aren't defined statically there.
E.g. Win32::GUI defines all Win32 GUI methods and callbacks.
Win32::RASE e.g. has your required function defined statically.

however to answer your question, the perl equivalent is:

# VB: "Private Declare Function InternetGoOnline Lib "wininet.dll" Alias
#     "InternetGoOnlineA" (ByVal lpszURL As String, ByVal hwndParent As Long,
#     ByVal dwReserved As Long) As Long"

use Win32::API;
$InternetGoOnline = new Win32::API("wininet", "InternetGoOnlineA", [P,N,N],
N);

# sample usage:
$url = "http://www.myserver.com\0"; # ASCIIZ string!
$result = $InternetGoOnline->Call($url,0,0);

The FFI and C::Dynalib syntax is similar. FFI is the newest, 
supports arbitrary callbacks and is generally the best, but has a GPL license
only.
C::Dynalib and Win32::API have a perl license.
-- 
Reini Urban
http://xarch.tu-graz.ac.at/autocad/news/faq/autolisp.html

[perl-win32-gui-users] Re: small problem

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

sorry for posting it

got the answer

$ModuleWindow->Caption("new title");

chris

----- Original Message ----- 
From: christopher sagayam <chr...@ya...>
To: <per...@li...>
Sent: Monday, January 15, 2001 9:20 AM
Subject: Re: small problem


> $ModuleWindow->{-title'} = "site title";
> 
> should be
> 
> $ModuleWindow->{-title} = "site title";
> 
> 
> chris
> 
> ----- Original Message ----- 
> From: christopher sagayam <chr...@ya...>
> To: <per...@li...>
> Sent: Monday, January 15, 2001 9:19 AM
> Subject: small problem
> 
> 
> > 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] Re: small problem

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

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

should be

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


chris

----- Original Message ----- 
From: christopher sagayam <chr...@ya...>
To: <per...@li...>
Sent: Monday, January 15, 2001 9:19 AM
Subject: small problem


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

Re: [perl-win32-gui-users] perl2exe stuff

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

> so I should copy perlcrt.dll in the same directory as the exe file to be
> compiled and once complied the .exe will  NOT require percrt.dll at all in
> any other machine where it runs ?

Not quite.  Copy the file from your windows\system32 directory to the
_target_ computer and place it in the same directory as the executable.

This discussion is probably off-topic for this list.  If you have more
questions please email me at su...@in...

Indy Singh
IndigoSTAR Software -- www.indigostar.com

----- Original Message -----
From: "christopher sagayam" <chr...@ya...>
To: <per...@li...>
Sent: Sunday, January 14, 2001 8:17 PM
Subject: Re: [perl-win32-gui-users] perl2exe stuff


> Thanks for helping
>
> V3.13
>
> so I should copy perlcrt.dll in the same directory as the exe file to be
> compiled and once complied the .exe will  NOT require percrt.dll at all in
> any other machine where it runs ?
>
> chris
> ----- Original Message -----
> From: Indy Singh <in...@in...>
> To: <per...@li...>
> Sent: Monday, January 15, 2001 6:25 AM
> Subject: Re: [perl-win32-gui-users] perl2exe stuff
>
>
> > > it complaines " perlcrt.dll not found"
> >
> > Make sure that you are using the correct version of Perl2Exe.  There are
> > several versions of Perl2Exe for different versions of Perl.
> >
> > Perl2Exe V4.03 for Perl 5.6 is the latest version.  It does NOT use
> > perlcrt.dll
> > Perl2Exe V3.13 for Perl 5.005_03 is an older version.  It uses
perlcrt.dll
> >
> > You have two options:
> > 1) Use Perl2Exe V4.03 and Perl 5.6.  You will not run into this problem
> > because this version of Perl2Exe does not use perlcrt.dll.
> >
> > 2) If you must use Perl2Exe V3.13, copy perlcrt.dll to the same
directory
> as
> > your executable file.  The perlcrt.dll file will be located in your
> > windows\system32 directory.  It was placed there when you installed Perl
> > 5.005_03.
> >
> > If that does not help let me know what version of Perl you are using.
> >
> > Indy Singh
> > IndigoSTAR Software -- www.indigostar.com
> >
> >
> > ----- Original Message -----
> > From: "christopher sagayam" <chr...@ya...>
> > To: <per...@li...>
> > Sent: Thursday, January 11, 2001 12:19 PM
> > Subject: [perl-win32-gui-users] perl2exe stuff
> >
> >
> > > since there are many win32 gurus in this list I thought I could post
it
> > here
> > >
> > > when I use
> > >
> > > "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"
> > >
> > > can I compile perlcrt.dll into the .exe using perl2exe ?
> > >
> > > or is there any program available which will convert perl to .exe
FULLY
> ?
> > >
> > >
> > > chris
> > >
> > >
> > >
> > >
> > > _________________________________________________________
> > > Do You Yahoo!?
> > > Get your free @yahoo.com address at http://mail.yahoo.com
> > >
> > >
> > > _______________________________________________
> > > 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
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

Re: [perl-win32-gui-users] perl2exe stuff

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

Thanks for helping

V3.13

so I should copy perlcrt.dll in the same directory as the exe file to be
compiled and once complied the .exe will  NOT require percrt.dll at all in
any other machine where it runs ?

chris
----- Original Message -----
From: Indy Singh <in...@in...>
To: <per...@li...>
Sent: Monday, January 15, 2001 6:25 AM
Subject: Re: [perl-win32-gui-users] perl2exe stuff


> > it complaines " perlcrt.dll not found"
>
> Make sure that you are using the correct version of Perl2Exe.  There are
> several versions of Perl2Exe for different versions of Perl.
>
> Perl2Exe V4.03 for Perl 5.6 is the latest version.  It does NOT use
> perlcrt.dll
> Perl2Exe V3.13 for Perl 5.005_03 is an older version.  It uses perlcrt.dll
>
> You have two options:
> 1) Use Perl2Exe V4.03 and Perl 5.6.  You will not run into this problem
> because this version of Perl2Exe does not use perlcrt.dll.
>
> 2) If you must use Perl2Exe V3.13, copy perlcrt.dll to the same directory
as
> your executable file.  The perlcrt.dll file will be located in your
> windows\system32 directory.  It was placed there when you installed Perl
> 5.005_03.
>
> If that does not help let me know what version of Perl you are using.
>
> Indy Singh
> IndigoSTAR Software -- www.indigostar.com
>
>
> ----- Original Message -----
> From: "christopher sagayam" <chr...@ya...>
> To: <per...@li...>
> Sent: Thursday, January 11, 2001 12:19 PM
> Subject: [perl-win32-gui-users] perl2exe stuff
>
>
> > since there are many win32 gurus in this list I thought I could post it
> here
> >
> > when I use
> >
> > "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"
> >
> > can I compile perlcrt.dll into the .exe using perl2exe ?
> >
> > or is there any program available which will convert perl to .exe FULLY
?
> >
> >
> > chris
> >
> >
> >
> >
> > _________________________________________________________
> > Do You Yahoo!?
> > Get your free @yahoo.com address at http://mail.yahoo.com
> >
> >
> > _______________________________________________
> > 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