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

[perl-win32-gui-users] Graying out checkbox

[Christian K. <uz...@un...>]

Hello listers,

I would like to gray out a checkbox in some situations. The Win32::GUI
documentation says that, to do this, I should call the SetCheck([VALUE])
method with the value 2 to set the checkbox to indeterminate or gray. I
tried it on my NT-workstation, but the checkbox only becomes "checked", but
not grayed. Is there something I do wrong or some other way to set a
checkbox to indeterminate?

I send some demonstration code bellow.

Regards,

  Christian

*** Code follows ***

#!perl

use Win32::GUI;

$Win = new Win32::GUI::Window(
  -name => 'Win',
  -title => 'Testing Checkbox',
  -height => 300,
  -width => 400,
);

$Win->AddCheckbox(
  -name => 'CB',
  -top => 130,
  -left => 50,
  -height => 20,
  -width => 300,
  -text => 'This checkbox should be indeterminate (grayed)',
);

# Setting the checkbox state to 2 (grayed):
$Win->CB->SetCheck(2);

# Display the window with the checkbox:
$Win->Show();
Win32::GUI::Dialog();

sub Win_Terminate {
  return -1;
}

[perl-win32-gui-users] RE: Perl-Win32-GUI-Users digest, Vol 1 #321 - 2 msgs

[Anufriyenko,Igor,SOLON,ITSS <igo...@us...>]

Sound and clear.

       Igor Anufriyenko
       Phone: (440)264.61.35 
       E-mail: igo...@us...


-----Original Message-----
From: per...@li...
[mailto:per...@li...]
Sent: Friday, February 08, 2002 3:25 PM
To: per...@li...
Subject: Perl-Win32-GUI-Users digest, Vol 1 #321 - 2 msgs


Send Perl-Win32-GUI-Users mailing list submissions to
	per...@li...

To subscribe or unsubscribe via the World Wide Web, visit
	https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
or, via email, send a message with subject or body 'help' to
	per...@li...

You can reach the person managing the list at
	per...@li...

When replying, please edit your Subject line so it is more specific
than "Re: Contents of Perl-Win32-GUI-Users digest..."


Today's Topics:

   1. test (Aldo Calpini)
   2. Re: test (=?iso-8859-1?Q?Peter_K=F6ller?=)

--__--__--

Message: 1
From: "Aldo Calpini" <da...@pe...>
To: "Perl-Win32-GUI-Users" <per...@li...>
Date: Fri, 8 Feb 2002 11:16:28 +0100
Subject: [perl-win32-gui-users] test

just testing. it seems that for some reason my messages do not reach 
the mailing list... I receive others just fine, but not my own messages,
so I'm not sure you receive them as well.

if you read this, please can you reply to my mail (da...@pe...) to 
ensure that everything is fine?

thankyou and cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;





--__--__--

Message: 2
From: "=?iso-8859-1?Q?Peter_K=F6ller?=" <pko...@me...>
To: "Perl-Win32-GUI-Users" <per...@li...>
Cc: "Aldo Calpini" <da...@pe...>
Subject: Re: [perl-win32-gui-users] test
Date: Fri, 8 Feb 2002 14:15:18 +0100

Hallo Aldo!

> if you read this, please can you reply to my mail (da...@pe...) to
> ensure that everything is fine?

It work's.

But I am still looking for a Win32::GUI Version with working checkboxes
(ItemCheck) in ListViews and no side effects with Win32::OLE :-)

Will there be an updated release in the future?

Thanks,

Peter

> -----Urspr=FCngliche Nachricht-----
> Von: per...@li...
> [mailto:per...@li...]Im Auftrag von
> Aldo Calpini
> Gesendet am: Freitag, 8. Februar 2002 11:16
> An: Perl-Win32-GUI-Users
> Betreff: [perl-win32-gui-users] test
>
> just testing. it seems that for some reason my messages do not reach
> the mailing list... I receive others just fine, but not my own messages=
,
> so I'm not sure you receive them as well.
>
> if you read this, please can you reply to my mail (da...@pe...) to
> ensure that everything is fine?
>
> thankyou and cheers,
> Aldo
>
> __END__
> $_=3Dq,just perl,,s, , another ,,s,$, hacker,,print;
>
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>




--__--__--

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


End of Perl-Win32-GUI-Users Digest

[perl-win32-gui-users] multiline text fields "\r\n" ??

[Mark W. <ma...@il...>]

Hiya all,

I'm having trouble getting a multiline text field to display multiple lines
when setting the text with the -text option.  If my string contains any of the
following:

\n
\r\n  (as indicated in the documentation)
\n\r

I just get black boxes instead of newlines.

Has anyone got this figured out?

M

[perl-win32-gui-users] Need help for using Win32::SerialPort Module

[Doan, K. <kho...@in...>]

Hi,

I am writing a PERL GUI application that need to use the Win32::SerialPort
module.  I have no problem of read and display information on a command
prompt window.  But when I tried to write to a file with the information
that I'd read from the serial port, I got this control characer "^M" inside
the file and the line was very long.  There are several examples and manual
how to use the Win32::SerialPort in internet, but they are not helping me
much.  I am just wondered if anyone has experience with module or know how
fix the problem, please show me.

Below is the code:

use Win32::SerialPort;

$PortObj = new Win32::SerialPort ('COM1')
       || die "Can't open $PortName: $^E\n";

$flowcontrol = $PortObj->handshake("none"); 
$baudrate = $PortObj->baudrate(38400);
$parity = $PortObj->parity("none");
$databit = $PortObj->databits(8);
$stopbit = $PortObj->stopbits(1);

$PortObj->write_settings || undef $PortObj;
  print "Can't change Device_Control_Block: $^E\n" unless ($PortObj);

open(LOG,">test.log");

Loop:
    $input = $PortObj->input;
    if ($input ne "") {
      print "$input";
      print LOG "$input";
    }
goto Loop;

Thanks in advance.

Khoa D.

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

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

Hallo Aldo!

> if you read this, please can you reply to my mail (da...@pe...) to
> ensure that everything is fine?

It work's.

But I am still looking for a Win32::GUI Version with working checkboxes
(ItemCheck) in ListViews and no side effects with Win32::OLE :-)

Will there be an updated release in the future?

Thanks,

Peter

> -----Urspr=FCngliche Nachricht-----
> Von: per...@li...
> [mailto:per...@li...]Im Auftrag von
> Aldo Calpini
> Gesendet am: Freitag, 8. Februar 2002 11:16
> An: Perl-Win32-GUI-Users
> Betreff: [perl-win32-gui-users] test
>
> just testing. it seems that for some reason my messages do not reach
> the mailing list... I receive others just fine, but not my own messages=
,
> so I'm not sure you receive them as well.
>
> if you read this, please can you reply to my mail (da...@pe...) to
> ensure that everything is fine?
>
> thankyou and cheers,
> Aldo
>
> __END__
> $_=3Dq,just perl,,s, , another ,,s,$, hacker,,print;
>
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

[perl-win32-gui-users] test

[Aldo C. <da...@pe...>]

just testing. it seems that for some reason my messages do not reach 
the mailing list... I receive others just fine, but not my own messages,
so I'm not sure you receive them as well.

if you read this, please can you reply to my mail (da...@pe...) to 
ensure that everything is fine?

thankyou and cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

Re: [perl-win32-gui-users] Win32-API version 0.20

[Aldo C. <da...@pe...>]

Jeremy Blonde wrote:
> ...I can't seem to get to his site anymore...

sorry people, I'm having problems with the DNS people at my ISP, 
should be solved in a couple of days (I *really* hope :-).

in the mean time, you can access my site at this address:
http://www.perl.it/dada/
the regular, official address still remains:
http://dada.perl.it


cheers,
Aldo

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;

RE: [perl-win32-gui-users] Win32-API version 0.20

[Price, S. A <Ste...@kp...>]

Jeremy,

try here, follow the link for the .zip file, it contains a self extracting
archive of win32::api 0.2
http://www.generation.net/~aminer/Perl/

Regards

Steve

-----Original Message-----
From: Jeremy Blonde [mailto:sco...@ya...]
Sent: 07 February 2002 06:29
To: Perl-Win32-GUI-Users
Subject: [perl-win32-gui-users] Win32-API version 0.20


Does anyone have Win32-API version 0.20 from Aldo's site?  Due to a recent
hard drive crash, I lost most of my archives.  I can't seem to get to his
site anymore to pull it down myself and I need it in order to use the
Hyperlink module.  If someone could send me the compiled version (the source
code still exists on cpan), I'd appreciate it.

Thanks,
Jeremy Blonde


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


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


		Email Disclaimer

The information in this email is confidential and may be legally privileged.
It is intended solely for the addressee.  Access to this email by anyone else 
is unauthorised.
If you are not the intended recipient, any disclosure, copying, distribution 
or any action taken or omitted to be taken in reliance on it, is prohibited
and may be unlawful.  When addressed to our clients any opinions or advice
contained in this email are subject to the terms and conditions expressed in 
the governing KPMG client engagement letter.

[perl-win32-gui-users] Win32-API version 0.20

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

Does anyone have Win32-API version 0.20 from Aldo's site?  Due to a recent
hard drive crash, I lost most of my archives.  I can't seem to get to his
site anymore to pull it down myself and I need it in order to use the
Hyperlink module.  If someone could send me the compiled version (the source
code still exists on cpan), I'd appreciate it.

Thanks,
Jeremy Blonde


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

[perl-win32-gui-users] transparency

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

Has anyone succeeded in making the background of a label transparent or in 
giving a label a background image?  I want text to appear with a background 
image.  I tried a separate label for the background, but the grey background 
of the label with text in it shows up.

(I'm on Win95; I don't know whether NT/2000 or XP works differently in 
regard to transparency.)

BTW, in my attempts to do this, I discovered an interesting quirk which I 
suspect is part of Windows itself:  if I set my background label to 
CLIPSIBLINGS, and then place a button in front of it, the label receives the 
click instead of the button.  The solution was to place the code for the 
button before the code for the label (and keep CLIPSIBLINGS set on the 
label); then the button showed up through the label and clicking worked 
properly.  Don't know if this has been posted before, but in case it hasn't 
and someone else has this problem, that's how you fix it.

_________________________________________________________________
MSN Photos is the easiest way to share and print your photos: 
http://photos.msn.com/support/worldwide.aspx

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

[Marcus <li...@wo...>]

On 25.01.02 at 12:34 Howard, Steven (US - Tulsa) wrote:
>In my opinion, Perl2exe is well worth the money - and perlCC has a
long way
>to go.

I would second that. I only managed to get hello world compiled with
perlCC. The Lite version of Perl2Exe at $50 is quite sufficient in most
cases.

For Win32::GUI you just need to get the DOS window handle (because the
Lite version doesn't create GUI apps, so you get a console window on
launching the app). 
$DOSWIN->Hide(), then Show it again before exiting. There's an example
in the FAQ(?), I think. At least the issue is addressed there.

Marcus

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

[Howard, S. (US - Tulsa) <sth...@de...>]

PerlCC is supposed to be able to accomplish this. It is part of the standard
distribution from Activestate - however, I have had nothing but difficulty
with perlCC. I have succeeded in compiling executables a few times, but
often they produce errors such as memory access errors at run time.

I think even with PerlCC you must have a C compiler installed on your
machine for it to work, and it must be the same C compiler which compiled
your Perl executables (MS VC++ for Activestate) - I can't test that for sure
because I have C compilers on all my machines and am not curious enough to
uninstall them for that purpose :).

In my opinion, Perl2exe is well worth the money - and perlCC has a long way
to go.

Steve H.

-----Original Message-----
From: Manuel E. Emmelhainz M. [mailto:em...@ho...]
Sent: Friday, January 25, 2002 11:46 AM
To: per...@li...
Subject: Re: [perl-win32-gui-users] win32-gui and perl2exe


Just for curiosity, is there any way to make an EXEcutable from a Perl
script (and Win32-GUI) but with a freeware tool, because Perl2EXE is NOT a
free tool and you could also use the PDK from ActivePerl, but this also
costs.

This question really relates to the fact that PERL is freely distributed and
maybe there's also a freely distributed tool for creating EXEcutables.

Finally, and since someone also asked this to me and I was clueless, do you
know any way to convert a simple Perl script to C code (by simple, I mean
without or even with basic Modules).

Thank you!

Manuel Emmelhainz

----- Original Message -----
From: "Marcus" <li...@wo...>
To: <per...@li...>
Sent: Friday, January 25, 2002 4:27 PM
Subject: RE: [perl-win32-gui-users] win32-gui and perl2exe


> On 24.01.02 at 22:42 Price, Steve A wrote:
> >Thanks for the responses, I'll do a bit more playing around with my
> >original
> >.pl and the Lite version to see if I can resolve the issue before I
> >register, but I'm glad to hear others are having success with this.
>
> I have compiled an app with the Lite version which uses child windows
> (e.g. an about box, or settings window) , and had no problems.
>
> Marcus
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
- This message (including any attachments) contains confidential information
intended for a specific individual and purpose, and is protected by law.  -
If you are not the intended recipient, you should delete this message and
are hereby notified that any disclosure, copying, or distribution of this
message, or the taking of any action based on it, is strictly prohibited.

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

[Manuel E. E. M. <em...@ho...>]

Just for curiosity, is there any way to make an EXEcutable from a Perl
script (and Win32-GUI) but with a freeware tool, because Perl2EXE is NOT a
free tool and you could also use the PDK from ActivePerl, but this also
costs.

This question really relates to the fact that PERL is freely distributed and
maybe there's also a freely distributed tool for creating EXEcutables.

Finally, and since someone also asked this to me and I was clueless, do you
know any way to convert a simple Perl script to C code (by simple, I mean
without or even with basic Modules).

Thank you!

Manuel Emmelhainz

----- Original Message -----
From: "Marcus" <li...@wo...>
To: <per...@li...>
Sent: Friday, January 25, 2002 4:27 PM
Subject: RE: [perl-win32-gui-users] win32-gui and perl2exe


> On 24.01.02 at 22:42 Price, Steve A wrote:
> >Thanks for the responses, I'll do a bit more playing around with my
> >original
> >.pl and the Lite version to see if I can resolve the issue before I
> >register, but I'm glad to hear others are having success with this.
>
> I have compiled an app with the Lite version which uses child windows
> (e.g. an about box, or settings window) , and had no problems.
>
> Marcus
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

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

[Marcus <li...@wo...>]

On 24.01.02 at 22:42 Price, Steve A wrote:
>Thanks for the responses, I'll do a bit more playing around with my
>original
>.pl and the Lite version to see if I can resolve the issue before I
>register, but I'm glad to hear others are having success with this.

I have compiled an app with the Lite version which uses child windows
(e.g. an about box, or settings window) , and had no problems.

Marcus

AW: [perl-win32-gui-users] win32-gui and perl2exe

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

Hello!

> Does anyone have any success creating free standing .exe files from
> Win32::gui scripts using
> either perl2exe?

Yes, here is my work. Perl2Exe works. The sourcecode is distributed, too.=
 So
you can have a look at that.

http://sourceforge.net/projects/auctioneer/

Regards,

Peter

> -----Urspr=FCngliche Nachricht-----
> Von: per...@li...
> [mailto:per...@li...]Im Auftrag von
> Price, Steve A
> Gesendet am: Donnerstag, 24. Januar 2002 23:00
> An: per...@li...
> Betreff: [perl-win32-gui-users] win32-gui and perl2exe
>
> Does anyone have any success creating free standing .exe files from
> Win32::gui scripts using
> either perl2exe?
>
> I have downloaded the free Lite version of perl2exe and whilst I get so=
me
> functionality, I can't create child windows. The script works
> fine as a .pl,
> so I assume its a problem with perl2exe... Don't want to waste hard ear=
ned
> cash on the full version if the problem is not
> just with the Lite version
>
>
> Regards
>
> Steve
>
>
> 		Email Disclaimer
>
> The information in this email is confidential and may be legally
> privileged.
> It is intended solely for the addressee.  Access to this email by
> anyone else
> is unauthorised.
> If you are not the intended recipient, any disclosure, copying,
> distribution
> or any action taken or omitted to be taken in reliance on it, is
> prohibited
> and may be unlawful.  When addressed to our clients any opinions or adv=
ice
> contained in this email are subject to the terms and conditions
> expressed in
> the governing KPMG client engagement letter.
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

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

[Price, S. A <Ste...@kp...>]

Thanks for the responses, I'll do a bit more playing around with my original
.pl and the Lite version to see if I can resolve the issue before I
register, but I'm glad to hear others are having success with this.

Regards

Steve

-----Original Message-----
From: Howard, Steven (US - Tulsa) [mailto:sth...@de...]
Sent: 24 January 2002 22:28
To: 'Price, Steve A'; per...@li...
Subject: RE: [perl-win32-gui-users] win32-gui and perl2exe


I use the PRO version of Perl2exe regularly with GUI. No problems. There is
also a -gui switch to get rid of the console window while it runs, but I
have to change how I log the execution if I use that switch. Normally I set
up logging like this:

open (logfile, ">$logfile") || die "Can't open $logfile: $!"

local *STDOUT = *logfile;
local *STDERR = *logfile;

# all STDOUT and STDERR messages now redirected to the logfile.

but when using the -gui switch - it will no longer log items. Not a real
problem, I just need to plan ahead and set up the logging accordingly if I'm
going to use Perl2exe using the -gui switch.

Steve H.

-----Original Message-----
From: Price, Steve A [mailto:Ste...@KP...]
Sent: Thursday, January 24, 2002 4:00 PM
To: per...@li...
Subject: [perl-win32-gui-users] win32-gui and perl2exe


Does anyone have any success creating free standing .exe files from
Win32::gui scripts using
either perl2exe?

I have downloaded the free Lite version of perl2exe and whilst I get some
functionality, I can't create child windows. The script works fine as a .pl,
so I assume its a problem with perl2exe... Don't want to waste hard earned
cash on the full version if the problem is not
just with the Lite version


Regards

Steve


		Email Disclaimer

The information in this email is confidential and may be legally privileged.
It is intended solely for the addressee.  Access to this email by anyone
else 
is unauthorised.
If you are not the intended recipient, any disclosure, copying, distribution

or any action taken or omitted to be taken in reliance on it, is prohibited
and may be unlawful.  When addressed to our clients any opinions or advice
contained in this email are subject to the terms and conditions expressed in

the governing KPMG client engagement letter.


_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
- This message (including any attachments) contains confidential information
intended for a specific individual and purpose, and is protected by law.  -
If you are not the intended recipient, you should delete this message and
are hereby notified that any disclosure, copying, or distribution of this
message, or the taking of any action based on it, is strictly prohibited.

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

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

[Howard, S. (US - Tulsa) <sth...@de...>]

I use the PRO version of Perl2exe regularly with GUI. No problems. There is
also a -gui switch to get rid of the console window while it runs, but I
have to change how I log the execution if I use that switch. Normally I set
up logging like this:

open (logfile, ">$logfile") || die "Can't open $logfile: $!"

local *STDOUT = *logfile;
local *STDERR = *logfile;

# all STDOUT and STDERR messages now redirected to the logfile.

but when using the -gui switch - it will no longer log items. Not a real
problem, I just need to plan ahead and set up the logging accordingly if I'm
going to use Perl2exe using the -gui switch.

Steve H.

-----Original Message-----
From: Price, Steve A [mailto:Ste...@KP...]
Sent: Thursday, January 24, 2002 4:00 PM
To: per...@li...
Subject: [perl-win32-gui-users] win32-gui and perl2exe


Does anyone have any success creating free standing .exe files from
Win32::gui scripts using
either perl2exe?

I have downloaded the free Lite version of perl2exe and whilst I get some
functionality, I can't create child windows. The script works fine as a .pl,
so I assume its a problem with perl2exe... Don't want to waste hard earned
cash on the full version if the problem is not
just with the Lite version


Regards

Steve


		Email Disclaimer

The information in this email is confidential and may be legally privileged.
It is intended solely for the addressee.  Access to this email by anyone
else 
is unauthorised.
If you are not the intended recipient, any disclosure, copying, distribution

or any action taken or omitted to be taken in reliance on it, is prohibited
and may be unlawful.  When addressed to our clients any opinions or advice
contained in this email are subject to the terms and conditions expressed in

the governing KPMG client engagement letter.


_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
- This message (including any attachments) contains confidential information
intended for a specific individual and purpose, and is protected by law.  -
If you are not the intended recipient, you should delete this message and
are hereby notified that any disclosure, copying, or distribution of this
message, or the taking of any action based on it, is strictly prohibited.

[perl-win32-gui-users] win32-gui and perl2exe

[Price, S. A <Ste...@kp...>]

Does anyone have any success creating free standing .exe files from
Win32::gui scripts using
either perl2exe?

I have downloaded the free Lite version of perl2exe and whilst I get some
functionality, I can't create child windows. The script works fine as a .pl,
so I assume its a problem with perl2exe... Don't want to waste hard earned
cash on the full version if the problem is not
just with the Lite version


Regards

Steve


		Email Disclaimer

The information in this email is confidential and may be legally privileged.
It is intended solely for the addressee.  Access to this email by anyone else 
is unauthorised.
If you are not the intended recipient, any disclosure, copying, distribution 
or any action taken or omitted to be taken in reliance on it, is prohibited
and may be unlawful.  When addressed to our clients any opinions or advice
contained in this email are subject to the terms and conditions expressed in 
the governing KPMG client engagement letter.

[perl-win32-gui-users] Re: Sending text to other windows with Win32::GUI

[Glenn L. <Gle...@ne...>]

Careful... you get more than one process doing the append thing, and
you'll lose some of the appends, if they happen concurrently.

Unless you have a separate control for each process to use.

Scott Campbell wrote:
>=20
> It would appear that the Perl gods have found favor with you.
> This works like a charm.  Very impressive.
>=20
> Thank you so much for the help.
> Scott
>=20
> Scott Campbell
> Senior Software Developer
> Somix Technologies
> (207) 324-8805
> http://www.somix.com
>=20
> -----Original Message-----
> From: per...@li...
> [mailto:per...@li...] On Behalf Of
> Johan Lindstrom
> Sent: Thursday, January 24, 2002 10:29 AM
> To: per...@li...;
> per...@li...
> Subject: RE: Sending text to other windows with Win32::GUI
>=20
> At 09:25 2002-01-24 -0500, Scott Campbell wrote:
> >Yes, this is very simple and works!  Thank you.
> >My one wish is that whenever text is sent to the main gui window, it
> >would append it on, and not overwrite the current text already in the
> >window.  But I don't see a simple way to do this.
>=20
> Try this (untested):
> Win32::GUI::Text( $hwind, Win32::GUI::Text($hwind) . $text );
>=20
> Why does that work? (if it works :)
> $win->Text() returns the text.
>=20
> /J
>=20
> -------- ------ ---- --- -- --  --  -    -     -      -         -
> Johan Lindstr=F6m    Sourcerer @ Boss Casinos     jo...@ba...
>=20
> Latest bookmark: "Managing IMAP Chapter 9 Cyrus System Adminis..."
> http://www.oreilly.com/catalog/mimap/chapter/ch09.html
>=20
> _______________________________________________
> Perl-Win32-Users mailing list
> Per...@li...
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users
>=20
> _______________________________________________
> Perl-Win32-Users mailing list
> Per...@li...
> http://listserv.ActiveState.com/mailman/listinfo/perl-win32-users

--=20
Glenn
=3D=3D=3D=3D=3D
Due to the current economic situation, the light at the
end of the tunnel will be turned off until further notice.

[perl-win32-gui-users] RE: Sending text to other windows with Win32::GUI

[Johan L. <jo...@ba...>]

At 09:25 2002-01-24 -0500, Scott Campbell wrote:
>Yes, this is very simple and works!  Thank you.
>My one wish is that whenever text is sent to the main gui window, it
>would append it on, and not overwrite the current text already in the
>window.  But I don't see a simple way to do this.

Try this (untested):
Win32::GUI::Text( $hwind, Win32::GUI::Text($hwind) . $text );

Why does that work? (if it works :)
$win->Text() returns the text.


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "Managing IMAP Chapter 9 Cyrus System Adminis..."
http://www.oreilly.com/catalog/mimap/chapter/ch09.html

[perl-win32-gui-users] perl-win32-gui-users win32:gui in a

[Pete <pe...@mu...>]

Jeremy, Johan, thanks you were both right in this case :)

Re: [perl-win32-gui-users] perl-win32-gui-users win32:gui in a subroutine

[Johan L. <jo...@ba...>]

At 17:56 2002-01-20 +0000, Pete wrote:
>I'm trying to get a routine running as either a subroutine or more ideally
>an object(using strict and diagnostic). It works fine if it  is all in the
>main body but once I put it in  a subroutine It generates errors when trying
>to access the subroutine called from the "button Click" subroutine. So far I
>can't see any way round this. I have include an extract below. Thanks in
>advance.

I think I see what you are trying to do, but please post the entire piece 
of code to clarify the situation.

Basically, the problem with Win32::GUI event handlers is that there is no 
context (i.e. an object) passed to them when the event is fired. So you 
need to keep track of the Win32::GUI object yourself. The easiest way to do 
that is in a global var of some sort. If you think that sucks/is poor form, 
well yes you're right. Deal with it :)


Also, since it looks like you're using modules it might be good know that 
event handlers are (almost) always located in package main. Consider this code:


package MyMod;

#This will never be called
sub winMain_Terminate {
     return(-1);
     }

#This will be called
sub main::winMain_Terminate {
     return(-1);
     }

#This is the same as package main
sub ::winMain_Terminate {
     return(-1);
     }


If you want to put a window/control in another package, set the -name 
option like this:

-name => "MyModule::ControlName"

But that makes accessing the control a bit difficult (but not impossible).


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "What does efficient mean!"
<http://www.perlmonks.org/index.pl?node_id=138919&lastnode_id=140162>

Re: [perl-win32-gui-users] wrapping label text

[Johan L. <jo...@ba...>]

Haven't seen any response to this one yet so here goes...

At 16:19 2002-01-18 -0800, ed wrote:
>I want to put a label on my window after the user
>opens up a file to edit.
>It's a long string of text, it's the full path to the
>file.
>The label displays, but if it's too long it just runs
>until it gets cut off
>by the right border of the main window.
>I've been searching docs and email archives and can't
>seem to find the solution.
>I don't know if it matters, but I add the label from
>the sub that handles the opening
>of the file.

Two things.

First, I would suggest you build the entire window at once (including the 
Label for the path), then you can modify the contents as you go along. Do 
that like this:

$main->current_file_label()->Text("Currently editing file: $OPENED_FILE . ")


Second, I think your problem is that you assign the label a location, but 
not a size. So although you have correctly set the option -wrap => 1, maybe 
the label itself runs off the edge of the window. Set the label -width and 
-height options as well.


/J

-------- ------ ---- --- -- --  --  -    -     -      -         -
Johan Lindström    Sourcerer @ Boss Casinos     jo...@ba...

Latest bookmark: "What does efficient mean!"
<http://www.perlmonks.org/index.pl?node_id=138919&lastnode_id=140162>

Re: [perl-win32-gui-users] perl-win32-gui-users win32:gui in a subroutine

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

I'm not quite understanding what you are asking here Pete.  Are you simply
saying that you want the "$Bad_Results" window to appear every time you
click "Button_1"?

If so, then create the "$Bad_Results" window inside of the "Button_1_Click"
subroutine.  If you place "my $Bad_Results;" outside of that subroutine,
then the window object will be available to other subroutines, after it has
been created.

When you create the window outside of the subroutine, display it, and then
close it, you've just destroyed the window (by calling the default
_Terminate subroutine).  Once the object is destroyed, you obviously can't
call it's methods anymore which is why "$Bad_Results->Show();" stopped
working.

I may be way off in what you are asking here, so correct me if I'm wrong.

jb
----- Original Message -----
From: "Pete" <pe...@mu...>
To: <pe...@mu...>; <per...@li...>
Sent: Sunday, January 20, 2002 9:56 AM
Subject: [perl-win32-gui-users] perl-win32-gui-users win32:gui in a
subroutine


> I'm trying to get a routine running as either a subroutine or more ideally
> an object(using strict and diagnostic). It works fine if it  is all in the
> main body but once I put it in  a subroutine It generates errors when
trying
> to access the subroutine called from the "button Click" subroutine. So far
I
> can't see any way round this. I have include an extract below. Thanks in
> advance.
>
> my $Win = new Win32::GUI::Window(
>        -left   => 276,
>        -top    => 365,
>        -width  => 580,
>        -height => 361,
>        -name   => "Win",
>        -text   => "Single Runner"
>        );
>
>  my $Bad_Results = new Win32::GUI::Window(
>        -left   => 460,
>        -top    => 372,
>        -width  => 300,
>        -height => 300,
>        -name   => "Results",
>        -text   => "Results"
>        );
>
>  $Win->AddButton(
>         -text    => "Push Me!!",
>         -name    => "Button_1",
>         -left    => 200,
>         -top     => $Row,
>         -width   => 150,
>         -height  => 23,
>         -foreground    => 0,
>        );
>
>   sub Button_1_Click
>   { $Bad_Results->Show();}
>
> The eror message is of the following
>
> Variable "$Bad_Results" will not stay shared at rts_gui.pm line 435 (#1)
>     (W closure) An inner (nested) named subroutine is referencing a
>     lexical variable defined in an outer subroutine.
>
>     When the inner subroutine is called, it will probably see the value of
>     the outer subroutine's variable as it was before and during the
*first*
>     call to the outer subroutine; in this case, after the first call to
the
>     outer subroutine is complete, the inner and outer subroutines will no
>     longer share a common value for the variable.  In other words, the
>     variable will no longer be shared.
>
>     Furthermore, if the outer subroutine is anonymous and references a
>     lexical variable outside itself, then the outer and inner subroutines
>     will never share the given variable.
>
>     This problem can usually be solved by making the inner subroutine
>     anonymous, using the sub {} syntax.  When inner anonymous subs that
>     reference variables in outer subroutines are called or referenced,
they
>     are automatically rebound to the current values of such variables.
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


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

[perl-win32-gui-users] perl-win32-gui-users win32:gui in a subroutine

[Pete <pe...@mu...>]

I'm trying to get a routine running as either a subroutine or more ideally
an object(using strict and diagnostic). It works fine if it  is all in the
main body but once I put it in  a subroutine It generates errors when trying
to access the subroutine called from the "button Click" subroutine. So far I
can't see any way round this. I have include an extract below. Thanks in
advance.

my $Win = new Win32::GUI::Window(
       -left   => 276,
       -top    => 365,
       -width  => 580,
       -height => 361,
       -name   => "Win",
       -text   => "Single Runner"
       );

 my $Bad_Results = new Win32::GUI::Window(
       -left   => 460,
       -top    => 372,
       -width  => 300,
       -height => 300,
       -name   => "Results",
       -text   => "Results"
       );

 $Win->AddButton(
        -text    => "Push Me!!",
        -name    => "Button_1",
        -left    => 200,
        -top     => $Row,
        -width   => 150,
        -height  => 23,
        -foreground    => 0,
       );

  sub Button_1_Click
  { $Bad_Results->Show();}

The eror message is of the following

Variable "$Bad_Results" will not stay shared at rts_gui.pm line 435 (#1)
    (W closure) An inner (nested) named subroutine is referencing a
    lexical variable defined in an outer subroutine.

    When the inner subroutine is called, it will probably see the value of
    the outer subroutine's variable as it was before and during the *first*
    call to the outer subroutine; in this case, after the first call to the
    outer subroutine is complete, the inner and outer subroutines will no
    longer share a common value for the variable.  In other words, the
    variable will no longer be shared.

    Furthermore, if the outer subroutine is anonymous and references a
    lexical variable outside itself, then the outer and inner subroutines
    will never share the given variable.

    This problem can usually be solved by making the inner subroutine
    anonymous, using the sub {} syntax.  When inner anonymous subs that
    reference variables in outer subroutines are called or referenced, they
    are automatically rebound to the current values of such variables.


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