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

[perl-win32-gui-users] Event processing - soln?

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

David

does this do what you want? It is a little clunky but it does the job.

Jake


use Win32::GUI;

$Win = new Win32::GUI::Window(
      -left   => 341,
      -top    => 218,
      -width  => 300,
      -height => 213,
      -name   => "Win",
      -text   => "Window Title"
      );

$Win->Show();

$Win->AddButton(
       -text    => "Loop",
       -name    => "Loop",
       -left    => 104.5,
       -top     => 102,
       -width   => 95,
       -height  => 28,
      );

$Win2 = new Win32::GUI::Window(
      -left   => 391,
      -top    => 238,
      -width  => 200,
      -height => 183,
      -name   => "Win2",
      -title   => "New Window",
      );

$Win2->AddLabel(
       -text    => "",
       -name    => "Label",
       -left    => 60,
       -top     => 30,
       -width   => 20,
       -height  => 20,
      );

$Win2->AddButton(
       -text    => "OK",
       -name    => "OK",
       -left    => 50,
       -top     => 102,
       -width   => 95,
       -height  => 28,
      );


Win32::GUI::Dialog();

sub Win_Terminate {
   return -1;
}

sub OK_Click {
   $Win2->Hide();

   # I added this
   #
   return -1;
}

sub Loop_Click {

   foreach $i (0 ... 3) {
     &Show_Win2($i);
     sleep 1;
   }
}

sub Show_Win2 {
   my($num) = @_;

   $Win2->Label->Text($num);
   $Win2->Show();

   # And this
   #
   Win32::GUI::Dialog();
}

[perl-win32-gui-users] double click in listbox

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

I can't get my listbox to register a double click.  I looked this up on the 
old archives, and found references to the problem, but no solution.  Has 
anyone managed to get this to work?

I'm using 0.0502 on Win95.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

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

[Anthony C. G. <ag...@em...>]

I'm pretty sure you could just use the include for perl2exe:
somewhere in the script:
#perl2exe_include c:\winnt\system32\perlcrt.dll

then it will get extracted(and hopefully used) to the TMP or TEMP dir

check the docs on it, the syntax on the include directive is in there, i've
used it before to do this, but not recently so i may be wrong...


>tony

-----Original Message-----
From: per...@li...
[mailto:per...@li...]On Behalf Of
christopher sagayam
Sent: Thursday, January 11, 2001 12:20 PM
To: per...@li...
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] GetOpenFilename

[Erick J. B. <er...@e-...>]

I Can't even get the first call.

> > my $filename = Win32::GUI::GetOpenFileName(
> > -filter => [
> > "File type 1" => "*.ft1",
> > "File type 2" => "*.ft2",
> > ],
> > );
> >

I used the above code, but no results. The only way I can
filter files is one file ending at a time, that is by
placing a string (eg. "*.ft1") in the GetOpenFileName
dialog. Like this,

my $filename = Win32::GUI::GetOpenFileName(
    -file => "*.ft1"
);

[perl-win32-gui-users] (no subject)

[Erick J. B. <er...@e-...>]

Is there any way of showing a main window (ie.
Win32::Window) without having to call:
Win32::GUI::Dialog();
after:
$Frame->Show();

erick

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

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

Do they offer PerlApp by itself?  (I checked the site and couldn't find it, 
so I suspect the answer is no, but if anyone knows differently, please let 
me know.)

>I am using ActiveState's PerlApp which comes with their PDK.  It converts
>Perl applications into freestanding executeables very nicely. I have even
>converted a few Win32-GUI programs into executeables with great results on
>NT 4.0 and Win 98.  They seem to have um...upped their price to a whopping
>$125 for the PDK but last I checked you can create fully functional
>executeables with a trial license just to see if it will work for you.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

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

[Adam W. K. <ak...@te...>]

I am using ActiveState's PerlApp which comes with their PDK.  It converts
Perl applications into freestanding executeables very nicely. I have even
converted a few Win32-GUI programs into executeables with great results on
NT 4.0 and Win 98.  They seem to have um...upped their price to a whopping
$125 for the PDK but last I checked you can create fully functional
executeables with a trial license just to see if it will work for you.

see

http://www.activestate.com/Products/Perl_Dev_Kit/index.html

Adam Klaum

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

[BUESCHER,CONOR (HP-Corvallis,ex1) <con...@hp...>]

I've recently ran into this problem as well.  I had to include the
perlglob.exe with my distribution to get it to work properly.

I've only had this problem on one machine, so as far as I can tell it's not
consistent.

All of my machines are WinNT 4.0.

Conor Buescher
HP Corvallis

-----Original Message-----
From: christopher sagayam [mailto:chr...@ya...]
Sent: Thursday, January 11, 2001 9:20 AM
To: per...@li...
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

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

[<Chr...@ti...>]

Ask the writers of Perl2Exe.   I had a problem once when I was playing
around with it, and they were very helpful via e-mail, even though I wasn't
even a registered user.

HTH,
tcl...@we...

-----Original Message-----
From: christopher sagayam [mailto:chr...@ya...]
Sent: Thursday, January 11, 2001 11:20 AM
To: per...@li...
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] perl2exe stuff

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

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] something in VB to be converted to perl

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

can somebody give me 2 or 3 examples of doing something in PERL win32::gui
which has already been done in VB ?

for example like

if it is written like this inVB

-----vb code goes here----

then it should be done like this in perl win32 gui

---perl code goes here---

This will help many many programmers who know a bit of VB but a lot of PERL
...

simple examples will server as very good pointers


I am looking for a VB (or a perl) to be later conversted to win32 GUI  code
to autostart the default windows dial up connection if a user is NOT
connected to the internet ??

and also how to call a windows API call directly from perl ?

can anyone give me a raw perl GUI example of calling a win32 API ?




chris


_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com

RE: [perl-win32-gui-users] URL Link Object?

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

I found a sample of how to do it in VB.  Perhaps it
will help.  You'll need to download the zip and look
in the FHyper.frm file.

http://www.mvps.org/vb/code/HyperJmp.zip

From the looks of it, he just uses a label and formats
the text in the label (underlined, blue) and then
fires off the ShellExecute API call to load the URL.

I don't have Perl on the machine I'm using so I
haven't tried to convert it to Perl syntax yet.

Thanks,
Jeremy Blonde
sco...@ya...

--- Sean Healy <jal...@ho...> wrote:
> Never tried it or even seen anything on it, but
> theoretically you should be 
> able to grab the mouse position in the window, and
> if it falls within the 
> bounds of the text which should be a link, open an
> external application.
> 
> Some drawbacks:
> 1) You would have to change the mouse position range
> every time you changed 
> the text (or else write a little something to find
> out the mouse position 
> range of the text you want - but that would have to
> take into account font 
> face, font size, and the length of the preceding
> string, and might be a 
> little too complex to bother with.
> 
> 2) You would have to write something to find the
> path of the default browser 
> if you plan to distribute, as not everyone uses the
> same browser or keeps it 
> in the same place.
> 
> However, if you are going to use this only for
> yourself and not change the 
> link text (or the text surrounding it), you could
> theoretically do this to 
> make it work.
> 
> >Is there an object within Win32::GUI that will
> allow you to have a URL link 
> >in a GUI-window? When you click on the text it
> should open up your default 
> >browser and take you to that URL. You know, the
> kind that a lot of Apps 
> >have in their About screen. Or is there another way
> to create this effect?
>
_________________________________________________________________
> 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


__________________________________________________
Do You Yahoo!?
Yahoo! Photos - Share your holiday photos online!
http://photos.yahoo.com/

RE: [perl-win32-gui-users] URL Link Object?

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

Sean - thanks for your input. I hadn't thought of checking for the =
mouse position. Your drawbacks are BIG drawbacks and definitely would =
not be worth bothering with.

I had thought of doing it with a button or some other action, but I =
keep coming back to your drawback #2. How do I determine what the =
default browser is and where it is located? There is a Win32::FileType =
module where you can test file associations, but I couldn't seem to get =
it to work. Theoretically wherever your .html is associated, that is =
your default browser. I believe both IE and Netscape use this to check =
to see if they are the default browser.
Below is the code I have used to test out the Win32::FileType module, =
any help would be appreciated.
		Tim

use Win32::FileType;=20

check(".txt");
check(".pl");
check("Perl");
check(".doc");
check("Perl File");
check(".htm");
check(".html");


sub check {
	print "-"x20,"\n";
	($type)=3D@_;
	if ($obj =3D Win32::FileType::Open($type))=20
		{
		my ($command,$title);
		print "type=3D$type\n";
		print "title=3D",$obj->Title,"\n";
		print "name=3D",$obj->Name,"\n";
		print "Icon=3D",$obj->Icon,"\n";
		print "Extensions=3D (".join(', ',$obj->Extensions).")\n";=20

############################################################
#none of this stuff seems to work
#
#
		print "Default Action=3D",$obj->DefaultAction,"\n";

		print "Action=3D",$obj->Action("Open"),"\n";

		($command,$title) =3D $obj->Action('&open') ;
		print "command, title=3D$command, $title\n";

		($command,$title) =3D $obj->Action('open') ;
		print "command, title=3D$command, $title\n";
		($command,$title) =3D $obj->Action("Open") ;
		print "command, title=3D$command, $title\n";

		($command,$title) =3D $obj->Action($type) ;
		print "command, title=3D$command, $title\n";

		$command =3D $obj->Action($obj->Title) ;
		print "command, title=3D$command, $title\n";

		($command,$title) =3D $obj->Action($obj->Title) ;
		print "command, title=3D$command, $title\n";

		($command,$title) =3D $obj->Action($obj->Name) ;
		print "command, title=3D$command, $title\n";

		$command =3D $obj->Action($obj->Name) ;
		print "command=3D$command\n";

		($command,$title) =3D $obj->Action('') ;
		print "command, title=3D$command, $title\n";

		($command,$title) =3D $obj->Action("/open/i") ;
		print "command, title=3D$command, $title\n";


			#print "Anything=3D",$obj->Anything(),"\n";
			#($action, $title) =3D DDEAction($obj->Name);=20
			#print "action, title=3D$action, $title\n";
#
#
#none of the above stuff seems to work
############################################################

		$obj->Close
		}
	else {print "\"$type\" is not associated\n";}
}

------------------------------------------------------------------------=
-------------------------
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: Thursday, January 11, 2001 9:22 AM
To: per...@li...
Subject: RE: [perl-win32-gui-users] URL Link Object?


Never tried it or even seen anything on it, but theoretically you =
should be=20
able to grab the mouse position in the window, and if it falls within =
the=20
bounds of the text which should be a link, open an external =
application.

Some drawbacks:
1) You would have to change the mouse position range every time you =
changed=20
the text (or else write a little something to find out the mouse =
position=20
range of the text you want - but that would have to take into account =
font=20
face, font size, and the length of the preceding string, and might be a =

little too complex to bother with.

2) You would have to write something to find the path of the default =
browser 
if you plan to distribute, as not everyone uses the same browser or =
keeps it=20
in the same place.

However, if you are going to use this only for yourself and not change =
the=20
link text (or the text surrounding it), you could theoretically do this =
to=20
make it work.

>Is there an object within Win32::GUI that will allow you to have a URL =
link=20
>in a GUI-window? When you click on the text it should open up your =
default=20
>browser and take you to that URL. You know, the kind that a lot of =
Apps=20
>have in their About screen. Or is there another way to create this =
effect?
_________________________________________________________________
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

[perl-win32-gui-users] Window properties

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

I came across the following code sample today.  In the
FormBdr.zip file is his sourcecode that enables you to
remove the titlebar from a window, set the AutoDrag
property so that the window can be moved from
anywhere, in addition to other window modifications. 
It uses the Win32 API's directly, so you'll need to
convert it to use the Win32::API module.  I don't know
if it's useful to anyone, but I have script that I
want to use this for and thought I'd pass the info
on...

http://www.mvps.org/vb/code/FormBdr.zip

Thanks,
Jeremy Blonde
sco...@ya...

__________________________________________________
Do You Yahoo!?
Yahoo! Photos - Share your holiday photos online!
http://photos.yahoo.com/

RE: [perl-win32-gui-users] URL Link Object?

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

Never tried it or even seen anything on it, but theoretically you should be 
able to grab the mouse position in the window, and if it falls within the 
bounds of the text which should be a link, open an external application.

Some drawbacks:
1) You would have to change the mouse position range every time you changed 
the text (or else write a little something to find out the mouse position 
range of the text you want - but that would have to take into account font 
face, font size, and the length of the preceding string, and might be a 
little too complex to bother with.

2) You would have to write something to find the path of the default browser 
if you plan to distribute, as not everyone uses the same browser or keeps it 
in the same place.

However, if you are going to use this only for yourself and not change the 
link text (or the text surrounding it), you could theoretically do this to 
make it work.

>Is there an object within Win32::GUI that will allow you to have a URL link 
>in a GUI-window? When you click on the text it should open up your default 
>browser and take you to that URL. You know, the kind that a lot of Apps 
>have in their About screen. Or is there another way to create this effect?
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

[perl-win32-gui-users] Just a couple of quick queries ...

[<pau...@or...>]

Hi all

I've been away for a bit in none GUI (DBI and Oracle) land and have just come
back to my pet GUI project.

As per a message on this list from Aldo a while back I've been busily converting
all of my uses of '-style' to '-addstyle' and on the whole all is well. However
can some one explain why when I say this :

$mainWin = new Win32::GUI::Window(
      -left   => 141,
      -top    => 336,
      -width  => 321,
      -height => 250,
      -name   => "mainWin",
      -text   => "pageIT",
      -menu   => $menu,
      -addstyle  => WS_NORESIZE,
      );

I get a resizable window. However if I just say '-style => WS_NORESIZE' I get
the desired result ?

Also, I don't seem to be able to tab between TextFields (or more acurately I can
 tab into one but no further). Any ideas ?

Thanks

PB



*******************************************************************************
Important. This E-mail is intended for the above named person and may be
confidential and/or legally privileged. If this has come to you in error you
must take no action based on it, nor must you copy or show it to anyone; please
inform the sender immediately.
*******************************************************************************

RE: [perl-win32-gui-users] URL Link Object?

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

Should I take that as a no?
=20
 -----Original Message-----
From: tim...@lm... [mailto:tim...@lm...]
Sent: Monday, January 08, 2001 11:47 AM
To: per...@li...
Subject: [perl-win32-gui-users] URL Link Object?



Aldo or anyone else-

Is there an object within Win32::GUI that will allow you to have a URL =
link in a GUI-window? When you click on the text it should open up your =
default browser and take you to that URL. You know, the kind that a lot =
of Apps have in their About screen. Or is there another way to create =
this effect?

        Thanks,

                Tim Thomas





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

RE: [perl-win32-gui-users] RE: [perl-win32-gui] Print

[Peter E. <Pet...@at...>]

So, I guess my question is, how does the app, and therefore the print dialog
box, know what is selected, if anything? Do I need to code it? If so, how do
I (my code) know what was selected?

-----Original Message-----
From: Peter Eisengrein [mailto:Pet...@at...]
Sent: Friday, January 05, 2001 5:30 PM
To: 'per...@ht...'
Subject: [perl-win32-gui-users] RE: [perl-win32-gui] Print


True. But when I do this, I still don't get that option.

-----Original Message-----
From: MATA Tech [mailto:ma...@ma...]
Sent: Thursday, January 04, 2001 12:13 PM
To: per...@ht...
Subject: Re: [perl-win32-gui] Print


Peter:

As I understand it, you must highlight a selection to enable that 
radio button.  Otherwise, it is assumed that the user wants to print 
the entire portion.  

B Smith


On 26 Dec 00, at 17:19, Peter Eisengrein wrote:

> I saw a previous posting about using system("rundll32.exe
> $dll,PrintHTML $tmpfile"); to print a file and it works well for my
> app. However, I'd like to be able to "print selection" That radio
> button is currently disabled. Anyone know what variable to set to tell
> the system that you have selected some text in a AddRichEdit field?
> 
> Thanks,
> Pete
> 


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

RE: [perl-win32-gui-users] possible problem with GetOpenFilename

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

No wonder you were so keen on fixing the memory leak bug!!! :)
Jake

> stuff), and save a _whole_ byte of memory (for about 15 seconds).

Re: [perl-win32-gui-users] possible problem with GetOpenFilename

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

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

same goes for GetSaveFileName.

NB:
also if you're a pedant (like me) then you can change
filterlen += 2, to filterlen++ (so long as you change the pointer 
stuff), and save a _whole_ byte of memory (for about 15 seconds).

> Sorry about essentially spamming this newsgroup, but I have a fix 
> for the following problem (if anyone else is ever actually effected by 
> it).
> 
> in the GetOpenFileName XSUB; change to following code:
>                     int i, filterlen;
>                     char *fpointer;
>                     filters = (AV*)SvRV(ST(next_i));
>                     for(i=0; i<=av_len(filters); i++) {
>                         t = av_fetch(filters, i, 0);
>                         if(t != NULL) {
>                             filterlen += SvCUR(*t) + 1;
>                         }
>                     }
> to:
>                     int i, filterlen = 0;		/* <---- must initialize this */
>                     char *fpointer;
>                     filters = (AV*)SvRV(ST(next_i));
>                     for(i=0; i<=av_len(filters); i++) {
>                         t = av_fetch(filters, i, 0);
>                         if(t != NULL) {
>                             filterlen += SvCUR(*t) + 1;
>                         }
>                     }
> 
> also (and _please_ correct me if I'm wrong) I've changed the 
> following code a little, as I disagree with the pointer arithmetic.
> 
>                     filterlen += 2;
>                     filter = (char *) safemalloc(filterlen);
>                     fpointer = filter;
>                     for(i=0; i<=av_len(filters); i++) {
>                         t = av_fetch(filters, i, 0);
>                         if(t != NULL) {
>                             strcpy(fpointer, SvPV_nolen(*t));
>                             fpointer += SvCUR(*t);				/* no + 1 */
>                             *fpointer++ = 0;			/* changed */
>                         }
> 
>                     }
>                     *fpointer = 0;				/* changed */
>                     ofn.lpstrFilter = (LPCTSTR) filter;
> 
> hope this helps someone. If not then sorry for the needless traffic.
> 
> > can anyone out there recreate this:
> > 
> > from perl call
> > my $filename = Win32::GUI::GetOpenFileName(
> > 	-filter => [
> > 		"File type 1" => "*.ft1",
> > 		"File type 2" => "*.ft2",
> > 	],
> > );
> > 
> > now call this twice. The first time it works wonderfully, the second 
> > time it causes my program to exit, and this is displayed:
> > Out of memory!
> > Callback called exit.
> > (I believe the message is from the perl interpreter rather than win32-
> > gui).
> > 
> > I'd be interested to hear if anyone is using this function with 
> > success (multiple times), as it may be a problem purely with my 
> > build of win32-gui (0.0502) or perl (5.60).
> > 
> > It doesn't seem to happen unless you specify a filter. All the other 
> > options work perfectly.
> > 
> > Sam Jacobson
> > R & D Manager / Software Engineer
> > Selective Communications
> > Ph +64 9 302 1142
> > www.selective.co.nz
> > 
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> > 
> >
> 
> Sam Jacobson
> R & D Manager / Software Engineer
> Selective Communications
> Ph +64 9 302 1142
> www.selective.co.nz
> 
> _______________________________________________
> 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/AwUBOlyX45sRND2Z+TaWEQIEAACcCwaE+SlILJnPMgDI6oX99+27yg0An1ig
Y4DrESrVnnx4uF4kHJ3oRD7r
=AdVr
-----END PGP SIGNATURE-----

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

Re: [perl-win32-gui-users] possible problem with GetOpenFilename

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

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

> I had this problem before - I found a possible solution in the old archives 
> (at http-tech), but it involved recompiling  (if I recall correctly, the 
> variable filterlen was not given a default value of 0, so when you specify a 
> filter, the program tries to increment something that hasn't been set yet).  
> Since I can't recompile, I shelved the program I was working on until a 
> fixed version came out.  I was using the last version, but I guess it's not 
> working with 0.0502 yet, either.
thank you.
(pity I didn't see this a few minutes ago).

> >can anyone out there recreate this:
> >
> >from perl call
> >my $filename = Win32::GUI::GetOpenFileName(
> >	-filter => [
> >		"File type 1" => "*.ft1",
> >		"File type 2" => "*.ft2",
> >	],
> >);
> >
> >now call this twice. The first time it works wonderfully, the second
> >time it causes my program to exit, and this is displayed:
> >Out of memory!
> >Callback called exit.
> >(I believe the message is from the perl interpreter rather than win32-
> >gui).
> >
> >I'd be interested to hear if anyone is using this function with
> >success (multiple times), as it may be a problem purely with my
> >build of win32-gui (0.0502) or perl (5.60).
> >
> >It doesn't seem to happen unless you specify a filter. All the other
> >options work perfectly.
> _________________________________________________________________
> 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
> 



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

iQA/AwUBOlyVD5sRND2Z+TaWEQKUhwCfTzqkuL+VU54ClRf64F3rq6FTRsQAoJvu
bUAL+pbhg9JJhHG4VMbu4X4j
=AwPo
-----END PGP SIGNATURE-----

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

Re: [perl-win32-gui-users] possible problem with GetOpenFilename

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

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

Sorry about essentially spamming this newsgroup, but I have a fix 
for the following problem (if anyone else is ever actually effected by 
it).

in the GetOpenFileName XSUB; change to following code:
                    int i, filterlen;
                    char *fpointer;
                    filters = (AV*)SvRV(ST(next_i));
                    for(i=0; i<=av_len(filters); i++) {
                        t = av_fetch(filters, i, 0);
                        if(t != NULL) {
                            filterlen += SvCUR(*t) + 1;
                        }
                    }
to:
                    int i, filterlen = 0;		/* <---- must initialize this */
                    char *fpointer;
                    filters = (AV*)SvRV(ST(next_i));
                    for(i=0; i<=av_len(filters); i++) {
                        t = av_fetch(filters, i, 0);
                        if(t != NULL) {
                            filterlen += SvCUR(*t) + 1;
                        }
                    }

also (and _please_ correct me if I'm wrong) I've changed the 
following code a little, as I disagree with the pointer arithmetic.

                    filterlen += 2;
                    filter = (char *) safemalloc(filterlen);
                    fpointer = filter;
                    for(i=0; i<=av_len(filters); i++) {
                        t = av_fetch(filters, i, 0);
                        if(t != NULL) {
                            strcpy(fpointer, SvPV_nolen(*t));
                            fpointer += SvCUR(*t);				/* no + 1 */
                            *fpointer++ = 0;			/* changed */
                        }

                    }
                    *fpointer = 0;				/* changed */
                    ofn.lpstrFilter = (LPCTSTR) filter;

hope this helps someone. If not then sorry for the needless traffic.

> can anyone out there recreate this:
> 
> from perl call
> my $filename = Win32::GUI::GetOpenFileName(
> 	-filter => [
> 		"File type 1" => "*.ft1",
> 		"File type 2" => "*.ft2",
> 	],
> );
> 
> now call this twice. The first time it works wonderfully, the second 
> time it causes my program to exit, and this is displayed:
> Out of memory!
> Callback called exit.
> (I believe the message is from the perl interpreter rather than win32-
> gui).
> 
> I'd be interested to hear if anyone is using this function with 
> success (multiple times), as it may be a problem purely with my 
> build of win32-gui (0.0502) or perl (5.60).
> 
> It doesn't seem to happen unless you specify a filter. All the other 
> options work perfectly.
> 
> Sam Jacobson
> R & D Manager / Software Engineer
> Selective Communications
> Ph +64 9 302 1142
> www.selective.co.nz
> 
> _______________________________________________
> 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/AwUBOlyUuZsRND2Z+TaWEQJORACfVCEfJBH6Ca1zEb6snziJsxUzetUAoN8+
PHUzaUdISWfzkjz3Z7b507iX
=BxIX
-----END PGP SIGNATURE-----

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

Re: [perl-win32-gui-users] possible problem with GetOpenFilename

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

I had this problem before - I found a possible solution in the old archives 
(at http-tech), but it involved recompiling  (if I recall correctly, the 
variable filterlen was not given a default value of 0, so when you specify a 
filter, the program tries to increment something that hasn't been set yet).  
Since I can't recompile, I shelved the program I was working on until a 
fixed version came out.  I was using the last version, but I guess it's not 
working with 0.0502 yet, either.

>can anyone out there recreate this:
>
>from perl call
>my $filename = Win32::GUI::GetOpenFileName(
>	-filter => [
>		"File type 1" => "*.ft1",
>		"File type 2" => "*.ft2",
>	],
>);
>
>now call this twice. The first time it works wonderfully, the second
>time it causes my program to exit, and this is displayed:
>Out of memory!
>Callback called exit.
>(I believe the message is from the perl interpreter rather than win32-
>gui).
>
>I'd be interested to hear if anyone is using this function with
>success (multiple times), as it may be a problem purely with my
>build of win32-gui (0.0502) or perl (5.60).
>
>It doesn't seem to happen unless you specify a filter. All the other
>options work perfectly.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

RE: [perl-win32-gui-users] The memory leak problem (fixed, I hope ;)

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

Well done Sam!!!!!

Well done Aldo!!!

[perl-win32-gui-users] possible problem with GetOpenFilename

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

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

can anyone out there recreate this:

from perl call
my $filename = Win32::GUI::GetOpenFileName(
	-filter => [
		"File type 1" => "*.ft1",
		"File type 2" => "*.ft2",
	],
);

now call this twice. The first time it works wonderfully, the second 
time it causes my program to exit, and this is displayed:
Out of memory!
Callback called exit.
(I believe the message is from the perl interpreter rather than win32-
gui).

I'd be interested to hear if anyone is using this function with 
success (multiple times), as it may be a problem purely with my 
build of win32-gui (0.0502) or perl (5.60).

It doesn't seem to happen unless you specify a filter. All the other 
options work perfectly.


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

iQA/AwUBOlyPOZsRND2Z+TaWEQIaMACglCnO6IUWinq3Edjli6FiNt1RtfIAn15U
CFa6ZCfkum4t9xQ8cVoqE5Be
=mQaa
-----END PGP SIGNATURE-----

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