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

[perl-win32-gui-users] Resizing

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

How does one prevent a user from resizing a window? The only
thing I could think of is testing the window size when they
attempt to resize and then stopit from being resized. Is
there an easier or more efficient way of doing it?

erick

Re: [perl-win32-gui-users] Win32::GUI version 0.0.558

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

Aldo,

I noticed that when I do a

ppm install --location=http://dada.perl.it/PPM Win32-GUI

I will get Win32-GUI version 0.0.502.  I don't get Win32-GUI version 0.0.558.

Are you not placing this version in your PPM repository?

Felice




Aldo Calpini <da...@pe...> on 01/22/2001 11:16:06 AM

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

To:   per...@li...
cc:    (bcc: Felice Vittoria/Aut/Schneider)
Subject:  [perl-win32-gui-users] Win32::GUI version 0.0.558




hello perl-win32-gui-users,

version 0.0.558 is out!
this is primarily a bugfix version, and also
please note that I'm not sure how stable it is
(read on for more details).

bugs fixed:
- the infamous memory leak problem is now gone
  (everybody say: thank you Sam!!! :-)
- fixed the -filter option to Get(Open|Save)FileName
  (again, thank you Sam :-)
- the warnings from Win32::GUI::Dialog are now gone

new features:
- colors can now be given in the HTML notation too
  (eg. "#E3E2CC")
- the module is generally a lot faster

and now the bad news :-)
I've rearranged most of the module internals so that
it uses more C and less Perl to do its job (hence the
speed increase). I'm not sure now that everything
works correctly yet (pride.pl in the samples directory
seems to freeze, but I haven't noticed any other
disturbs). please make all the tests that you can,
and report anything that used to work and doesn't
anymore, so that I know where to look :-)

BTW, the module is available on:
- SourceForge
- dada's perl lab (http://www.dada.it)
- CPAN
hey, releasing this beast it's becoming a lot of
work :-)

cheers,
Aldo

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



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

[perl-win32-gui-users] Win32::GUI version 0.0.558

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

hello perl-win32-gui-users,

version 0.0.558 is out!
this is primarily a bugfix version, and also
please note that I'm not sure how stable it is
(read on for more details).

bugs fixed:
- the infamous memory leak problem is now gone
  (everybody say: thank you Sam!!! :-)
- fixed the -filter option to Get(Open|Save)FileName
  (again, thank you Sam :-)
- the warnings from Win32::GUI::Dialog are now gone

new features:
- colors can now be given in the HTML notation too
  (eg. "#E3E2CC")
- the module is generally a lot faster

and now the bad news :-)
I've rearranged most of the module internals so that
it uses more C and less Perl to do its job (hence the
speed increase). I'm not sure now that everything
works correctly yet (pride.pl in the samples directory
seems to freeze, but I haven't noticed any other
disturbs). please make all the tests that you can,
and report anything that used to work and doesn't
anymore, so that I know where to look :-)

BTW, the module is available on:
- SourceForge
- dada's perl lab (http://www.dada.it)
- CPAN
hey, releasing this beast it's becoming a lot of
work :-)

cheers,
Aldo

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

RE: [perl-win32-gui-users] Interacting with DOS Shell

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

Look into the Expect module.  (note: I'm not positive it is implemented in
the Win32 environment - so forgive me if it is not..)

tcl...@we...

-----Original Message-----
From: Sean Healy [mailto:jal...@ho...]
Sent: Friday, January 19, 2001 7:22 PM
To: per...@li...
Subject: Re: [perl-win32-gui-users] Interacting with DOS Shell


I'm trying to make a gui interface to a command-line program I have.  The 
problem is that at certain points, the program wants user input.  I tried 
backticks, but my script hangs at the point where the program wants input.  
Is there a way to interface with DOS so that when a DOS program wants input,

the control switches back to the Perl script, which can ask for input and 
then pipe that input into DOS?

Backticks, exec(), and system() all fail to allow for user input after the 
initial command.  Is there a module or something I can use for this?
_________________________________________________________________
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] Interacting with DOS Shell

[Robert S. <rs...@em...>]

maybe some sort of IPC, like pipes? (i haven't played with it myself,
but that sounds like what you need...)

-rob




Sean Healy wrote:
> 
> I'm trying to make a gui interface to a command-line program I have.  The
> problem is that at certain points, the program wants user input.  I tried
> backticks, but my script hangs at the point where the program wants input.
> Is there a way to interface with DOS so that when a DOS program wants input,
> the control switches back to the Perl script, which can ask for input and
> then pipe that input into DOS?
> 
> Backticks, exec(), and system() all fail to allow for user input after the
> initial command.  Is there a module or something I can use for this?
> _________________________________________________________________
> 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] Interacting with DOS Shell

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

I'm trying to make a gui interface to a command-line program I have.  The 
problem is that at certain points, the program wants user input.  I tried 
backticks, but my script hangs at the point where the program wants input.  
Is there a way to interface with DOS so that when a DOS program wants input, 
the control switches back to the Perl script, which can ask for input and 
then pipe that input into DOS?

Backticks, exec(), and system() all fail to allow for user input after the 
initial command.  Is there a module or something I can use for this?
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

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

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

it was the -notify option that I needed to make it clickable.
Thanks!

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


-----Original Message-----
From: Jeremy Blonde [mailto:sco...@ya...]
Sent: Friday, January 19, 2001 4:28 PM
To: per...@li...
Subject: RE: [perl-win32-gui-users] Win32::GUI::Label =
Click()/DblClick()


There's not really much too it.  But here it is:

# Creates the label for the About "button"
$MAIN->AddLabel(
  -name   =3D> "About",
  -notify =3D> 1,
  -bitmap =3D> 1,
  -top    =3D> $top,
  -left   =3D> $left,
  -width  =3D> $width,
  -height =3D> $height,
);

sub About_Click {
  Help_About_Click();
}

This creates a label that I use to fire up the about
dialog.  The label is "hidden" behind a bitmap.  As
long as I apply the bitmap to the background prior to
creating the label, the label's messages are received.

Jeremy Blonde
sco...@ya...

--- "Thomas, Timothy B" <tim...@lm...>
wrote:
> Jeremy - can you post your code that uses it?
> 	Thanks,
> 		Tim
>=20
>
------------------------------------------------------------------------=
----
---------------------
> Tim Thomas
> Unix Systems Administrator
> Lockheed Martin EIS =B7 Denver Data Center
> 303-430-2281
> mailto:tim...@lm...
>
------------------------------------------------------------------------=
----
---------------------
>=20
>=20
> -----Original Message-----
> From: Jeremy Blonde [mailto:sco...@ya...]
> Sent: Thursday, January 18, 2001 4:59 PM
> To: per...@li...
> Subject: Re: [perl-win32-gui-users]
> Win32::GUI::Label Click()/DblClick()
>=20
>=20
> Last time i tried it, I could get Click to work, but
> not DblClick.
>=20
> Jeremy Blonde
> sco...@ya...
>=20
> --- "Thomas, Timothy B" <tim...@lm...>
> wrote:
> >=20
> > 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.
> >=20
> > 	Tim
> >=20
> >
>
------------------------------------------------------------------------=
----
---------------------
> > Tim Thomas
> > Unix Systems Administrator
> > Lockheed Martin EIS =B7 Denver Data Center
> > 303-430-2281
> > mailto:tim...@lm...
> >
>
------------------------------------------------------------------------=
----
---------------------
> >=20
> >=20
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> >
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20
>=20
> __________________________________________________
> Do You Yahoo!?
> Get email at your own domain with Yahoo! Mail.=20
> http://personal.mail.yahoo.com/
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
>
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users


__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - Buy the things you want at great prices.=20
http://auctions.yahoo.com/

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

[perl-win32-gui-users] Final Code: Click on URL in About Window

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

Here's the code that you all helped me to figure out. You can use this =
to
implement a clickable URL in your About Window, or whereever you like. =
The
code may not be very clean, let me know if you have suggestions to =
improve
this. This example runs as-is.

Aldo - any way to build all this in to the GUI Module and just have a =
-URL
option on the label? or a separate object?

	Thanks everyone!
		Tim Thomas


use Win32;
use Win32::GUI;
use Win32::Process;


$title=3D'TestTool';
$author=3D'T. Thomas';
$contact=3D'tt...@co...';
$contacturl=3D'www.coloradonarwhal.com';
$version=3D"1.0";
$date=3D'January 2001';

my $AboutWindow =3D new GUI::Window(-title=3D>"About $title...", =
-left=3D>110,
-top=3D>110, -width=3D>230, -height=3D>150, -name=3D>"AboutWindow",);
	my $AboutTitleFont =3D new Win32::GUI::Font(-name =3D> "Times New
Roman", -height =3D> 20, -bold =3D> 1);
	my $AboutFont =3D new Win32::GUI::Font(-name =3D> "Times New Roman",
-height =3D> 15);
	my $URLFont =3D new Win32::GUI::Font(-name =3D> "Times New Roman",
-height =3D> 15, -underline =3D> 1);

	my $AboutTitle =3D $AboutWindow->AddLabel(    -top =3D> 13,    -left =
=3D>
5,    -height =3D> 32,    -width =3D> $AboutWindow->ScaleWidth-10,    =
-name =3D>
"AboutTitle",     -text =3D> "$title Version $version",    -font =3D>
$AboutTitleFont,);
	my $AboutDetails =3D $AboutWindow->AddLabel(    -top =3D> 32,    -left
=3D> 5,    -height =3D>15*3,    -width =3D> =
$AboutWindow->ScaleWidth-10,    -name
=3D> "AboutDetails", -text=3D>"Author: $author\r\nContact: =
$contact\r\nDate:
$date\r\n\r\n", -font =3D> $AboutFont);
	my $AboutURL =3D $AboutWindow->AddLabel(    -top
=3D>(32+$AboutDetails->Height),    -left =3D> 5,    -height =3D> =
$URLFont->Height,
-width =3D> $AboutWindow->ScaleWidth-10,    -name =3D> "AboutURL",
-text=3D>"$contacturl", -font =3D> $URLFont, -notify =3D> 1, =
-foreground
=3D>[0,0,255]);
	my $AboutOK =3D $AboutWindow->AddButton(-left =3D> 0,    -top =3D> 0,
-text =3D> "    OK    ",    -name =3D> "AboutOK",     -visible =3D> 1,  =
  -default
=3D> 1,    -ok =3D> 1,);
=09
$AboutOK->Move($AboutWindow->ScaleWidth-$AboutOK->Width,$AboutWindow->Sc=
aleH
eight-$AboutOK->Height,);

$AboutWindow->Show();

Win32::GUI::Dialog();
#-----------------------------------------------------------------------=
----
-----------------------------------------------


sub AboutOK_Click
	{
	$AboutWindow->Hide();
	exit;
	}
sub AboutWindow_Terminate
	{
	AboutOK_Click();
	return 0;
	}

sub AboutURL_Click
	{
	if ($ftype=3Dgetftype(".html"))
		{
		$ftype=3D~s/"//g;
		($ftypeexe)=3D$ftype=3D~/^.*\\(.*\.exe)$/i;
		my ($process);
		Win32::Process::Create($process,$ftype,"$ftypeexe
$contacturl",0,DETACHED_PROCESS,".") || warn "Create: $!";
		}
	}

sub getftype
	{
	use Win32::TieRegistry;
	if (my ($ext) =3D @_)
	{
		if (my $typeName =3D
$Registry->{"HKEY_CLASSES_ROOT\\$ext\\\\"})
		{
			if (my $command =3D
$Registry->{"HKEY_CLASSES_ROOT\\$typeName\\shell\\open\\command\\\\"})
			{
				my ($cmd);
				unless (($cmd) =3D $command=3D~/^(".*")\s+.*$/)
{ ($cmd) =3D $command=3D~/^(\S*)\s/; }
				return $cmd;
			}
			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...
------------------------------------------------------------------------=
----
---------------------

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

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

There's not really much too it.  But here it is:

# Creates the label for the About "button"
$MAIN->AddLabel(
  -name   => "About",
  -notify => 1,
  -bitmap => 1,
  -top    => $top,
  -left   => $left,
  -width  => $width,
  -height => $height,
);

sub About_Click {
  Help_About_Click();
}

This creates a label that I use to fire up the about
dialog.  The label is "hidden" behind a bitmap.  As
long as I apply the bitmap to the background prior to
creating the label, the label's messages are received.

Jeremy Blonde
sco...@ya...

--- "Thomas, Timothy B" <tim...@lm...>
wrote:
> Jeremy - can you post your code that uses it?
> 	Thanks,
> 		Tim
> 
>
-------------------------------------------------------------------------------------------------
> Tim Thomas
> Unix Systems Administrator
> Lockheed Martin EIS · Denver Data Center
> 303-430-2281
> mailto:tim...@lm...
>
-------------------------------------------------------------------------------------------------
> 
> 
> -----Original Message-----
> From: Jeremy Blonde [mailto:sco...@ya...]
> Sent: Thursday, January 18, 2001 4:59 PM
> To: per...@li...
> Subject: Re: [perl-win32-gui-users]
> Win32::GUI::Label Click()/DblClick()
> 
> 
> 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 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


__________________________________________________
Do You Yahoo!?
Yahoo! Auctions - Buy the things you want at great prices. 
http://auctions.yahoo.com/

RE: [perl-win32-gui-users] Net::FTP with AddStatusBar()

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

Try $FTPInfo = $ftp->message();  

-----Original Message-----
From: Erick J. Bourgeois [mailto:er...@e-...]
Sent: Friday, January 19, 2001 4:15 PM
To: per...@li...
Subject: [perl-win32-gui-users] Net::FTP with AddStatusBar()


Sorry, here is the sub for connecting to an FTP server

sub CmdConnect_Click {
    my $FTPInfo;
    $Textbox->Text("Connecting to     $Host");
    if ($ftp = Net::FTP->new($Host, Timeout => 45, Debug =>
1)) {
        $FTPInfo = Net::Cmd::message();           #Problem
lies here, it just stops
        $StatusBar->Text("$FTPInfo");
        if ($ftp->login($User, $Pass)) {
            $StatusBar->Text("Logged on to      $Host ...");
        } else {
            $StatusBar->Text("Connect not authenticated.");
        }
    } else {
        $StatusBar->Text("Can't connect to     $Host");
    }
}



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

[perl-win32-gui-users] Net::FTP with AddStatusBar()

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

Sorry, here is the sub for connecting to an FTP server

sub CmdConnect_Click {
    my $FTPInfo;
    $Textbox->Text("Connecting to     $Host");
    if ($ftp = Net::FTP->new($Host, Timeout => 45, Debug =>
1)) {
        $FTPInfo = Net::Cmd::message();           #Problem
lies here, it just stops
        $StatusBar->Text("$FTPInfo");
        if ($ftp->login($User, $Pass)) {
            $StatusBar->Text("Logged on to      $Host ...");
        } else {
            $StatusBar->Text("Connect not authenticated.");
        }
    } else {
        $StatusBar->Text("Can't connect to     $Host");
    }
}

RE: [perl-win32-gui-users] Net::FTP with AddStatusBar()

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

I think It may be time for you to start submitting some code to us..  It's a
lot easier to give advice when you see a whole block of code...


-----Original Message-----
From: Erick J. Bourgeois [mailto:er...@e-...]
Sent: Friday, January 19, 2001 3:46 PM
To: per...@li...
Subject: [perl-win32-gui-users] Net::FTP with AddStatusBar()


The program stalls when it tries to read from the STDOUT.
I was looking at the docs, Net::Cmd, and there is a
ion      ->message(), however, it stalls there as well,
waiting.

->message() returns the text message returned from the last
command . Don't get it?




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

[perl-win32-gui-users] Net::FTP with AddStatusBar()

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

sorry ->message()  is method

[perl-win32-gui-users] Net::FTP with AddStatusBar()

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

The program stalls when it tries to read from the STDOUT.
I was looking at the docs, Net::Cmd, and there is a
ion      ->message(), however, it stalls there as well,
waiting.

->message() returns the text message returned from the last
command . Don't get it?

Re: [perl-win32-gui-users] pressing ENTER key in text box

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

>I have created a text box using
>
>$dialog3->AddTextfield(
>     -name     => "dialog3text3",
>     -left     => $dialog3->ScaleWidth-470,
>     -top      => $dialog3->ScaleHeight-98,
>     -text     => "$dialog3text3",
>     -width    => 460,
>     -height   => 100,
>
>);

Try adding '-multiline => 1,' to your options.

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

RE: [perl-win32-gui-users] Net::FTP with AddStatusBar()

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

try tieing STDOUT to a scalar with IO:Scalar.

Here's an example (untested) that may point you in the right direction:

	use IO::Scalar;

	my $FTPInfo; 
	tie *STDOUT, 'IO::Scalar', \$FTPInfo;
	print "line 1\nline 2\n", "line 3\n";
	$SB->Text($FTPInfo);


HTH,
tcl...@we...

-----Original Message-----
From: Kev...@Al... [mailto:Kev...@Al...]
Sent: Friday, January 19, 2001 8:08 AM
To: er...@e-...
Cc: per...@li...
Subject: Re: [perl-win32-gui-users] Net::FTP with AddStatusBar()


Erick,

I'm convinced that there must be a simple way
to do this but, I've tried everything I can think of
but haven't found it yet.

The PerlDocs seemed to suggest using Forks,
Pipes and/or IPC, but this will probably be
abit more complicated than you want.  You
could redirect STDOUT (and/or STDERR)
to a file while you do the ftp stuff, and read
the contents of the file back once you've
finished.  Doesn't seem right to have to
do it that way though.

Kev.





er...@e-... on 19/01/2001 06:01:40
To: per...@li... @ INTERNET
cc:  

Subject: [perl-win32-gui-users] Net::FTP with AddStatusBar()

I guess my question was really how to catch it from
Net::FTP. For example, catch the STDOUT so that I could have
$FTPInfo = "331 User name okay, need password."


> >Is there a way to catch the STDOUT from using Net::FTP
(ie. let $FTPInfo
> >equal the information (string) from Net::FTP) and place
it in
> >
> >$SB = $Window->AddStatusBar(-text => $FTPInfo);
>
> $SB->Text($FTPInfo);
>
> should do the trick.

erick



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

Re: [perl-win32-gui-users] pressing ENTER key in text box

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

Christopher,

I believe you need to use the RichEdit control instead of the TextBox ( or
TextField ) control.

Felice




"christopher sagayam" <chr...@ya...> on 01/19/2001 12:19:00 PM

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

To:   per...@li...
cc:    (bcc: Felice Vittoria/Aut/Schneider)
Subject:  [perl-win32-gui-users] pressing ENTER key in text box




I have created a text box using

$dialog3->AddTextfield(
    -name     => "dialog3text3",
    -left     => $dialog3->ScaleWidth-470,
    -top      => $dialog3->ScaleHeight-98,
    -text     => "$dialog3text3",
    -width    => 460,
    -height   => 100,

);

when I press ENTER key in the text box  the CURSOR is not going to the next
line inside the text box ? why ?


chris
www.perl-resume.com




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

[perl-win32-gui-users] pressing ENTER key in text box

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

I have created a text box using

$dialog3->AddTextfield(
    -name     => "dialog3text3",
    -left     => $dialog3->ScaleWidth-470,
    -top      => $dialog3->ScaleHeight-98,
    -text     => "$dialog3text3",
    -width    => 460,
    -height   => 100,

);

when I press ENTER key in the text box  the CURSOR is not going to the next
line inside the text box ? why ?


chris
www.perl-resume.com

Re: [perl-win32-gui-users] Greyed Controls

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

Yes just disable it using

->Disable()


chris
www.perl-resume.com

  ----- Original Message -----=20
  From: Erick J. Bourgeois=20
  To: per...@li...=20
  Sent: Friday, January 19, 2001 10:28 PM
  Subject: [perl-win32-gui-users] Greyed Controls


  Is it possible to "grey out" a control (user can not change it, but =
he/she can see it, like a DUN). I have tried many options and can not =
find the answer.
  =20
  erick
  =20
  Never Stop Questioning
  www.jeb.ca

[perl-win32-gui-users] Greyed Controls

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

Is it possible to "grey out" a control (user can not change it, but =
he/she can see it, like a DUN). I have tried many options and can not =
find the answer.

erick

Never Stop Questioning
www.jeb.ca

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

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

Jeremy - can you post your code that uses it?
	Thanks,
		Tim

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


-----Original Message-----
From: Jeremy Blonde [mailto:sco...@ya...]
Sent: Thursday, January 18, 2001 4:59 PM
To: per...@li...
Subject: Re: [perl-win32-gui-users] Win32::GUI::Label =
Click()/DblClick()


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

Jeremy Blonde
sco...@ya...

--- "Thomas, Timothy B" <tim...@lm...>
wrote:
>=20
> 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.
>=20
> 	Tim
>=20
>
------------------------------------------------------------------------=
-------------------------
> Tim Thomas
> Unix Systems Administrator
> Lockheed Martin EIS =B7 Denver Data Center
> 303-430-2281
> mailto:tim...@lm...
>
------------------------------------------------------------------------=
-------------------------
>=20
>=20
> _______________________________________________
> 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.=20
http://personal.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] Net::FTP with AddStatusBar()

[<Kev...@Al...>]

Erick,

I'm convinced that there must be a simple way
to do this but, I've tried everything I can think of
but haven't found it yet.

The PerlDocs seemed to suggest using Forks,
Pipes and/or IPC, but this will probably be
abit more complicated than you want.  You
could redirect STDOUT (and/or STDERR)
to a file while you do the ftp stuff, and read
the contents of the file back once you've
finished.  Doesn't seem right to have to
do it that way though.

Kev.





er...@e-... on 19/01/2001 06:01:40
To: per...@li... @ INTERNET
cc:  

Subject: [perl-win32-gui-users] Net::FTP with AddStatusBar()

I guess my question was really how to catch it from
Net::FTP. For example, catch the STDOUT so that I could have
$FTPInfo = "331 User name okay, need password."


> >Is there a way to catch the STDOUT from using Net::FTP
(ie. let $FTPInfo
> >equal the information (string) from Net::FTP) and place
it in
> >
> >$SB = $Window->AddStatusBar(-text => $FTPInfo);
>
> $SB->Text($FTPInfo);
>
> should do the trick.

erick



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

[perl-win32-gui-users] Net::FTP with AddStatusBar()

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

I guess my question was really how to catch it from
Net::FTP. For example, catch the STDOUT so that I could have
$FTPInfo = "331 User name okay, need password."


> >Is there a way to catch the STDOUT from using Net::FTP
(ie. let $FTPInfo
> >equal the information (string) from Net::FTP) and place
it in
> >
> >$SB = $Window->AddStatusBar(-text => $FTPInfo);
>
> $SB->Text($FTPInfo);
>
> should do the trick.

erick

Re: [perl-win32-gui-users] Net::FTP with AddStatusBar()

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

>Is there a way to catch the STDOUT from using Net::FTP (ie. let $FTPInfo 
>equal the information (string) from Net::FTP) and place it in
>
>$SB = $Window->AddStatusBar(-text => $FTPInfo);

$SB->Text($FTPInfo);

should do the trick.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com

[perl-win32-gui-users] Net::FTP with AddStatusBar()

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

Is there a way to catch the STDOUT from using Net::FTP (ie. let $FTPInfo =
equal the information (string) from Net::FTP) and place it in=20

$SB =3D $Window->AddStatusBar(-text =3D> $FTPInfo);

erick
Never Stop Questioning
www.jeb.ca