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

RE: [perl-win32-gui-users] newbie - trying to get data from text box

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

To get the text in the box:
$myText=$Frame->aTextField->Text();
To set the text:
$Frame->aTextField->Text($myText);



>tony

-----Original Message-----
From: per...@li...
[mailto:per...@li...]On Behalf Of
Michael Solomon
Sent: Friday, January 05, 2001 11:18 AM
To: Perl Gui (E-mail)
Subject: [perl-win32-gui-users] newbie - trying to get data from text box


I have just started looking at Win32 Gui
What I want to do is put up a text box and allow a user to enter data then
capture it
By looking at code posted here I have written the following:
use Win32::GUI;

         $Frame = new Win32::GUI::Window(
              -name => "aFrame",
               -top => 100,
                -left => 150,
             -width => 350,
              -height => 200,
               -title => "Test Win32::GUI",
            );
        $Frame->AddTextfield(
                -name => "aTextField",
                 -top => 50,
                  -left => 20,
                   -height => 20,
                    -width => 300,
                -prompt => "Type a text here : ",
           );
         $Frame->AddButton(
              -name => "aButton",
               -text => "OK",
                -top => 90,
             -left => 150,
              -height => 25
               -width => 50,
               );

         $Frame->Show();

          Win32::GUI::Dialog();

       sub aFrame_Terminate {
               -1;
          }

sub aButton_Click {
                print "test\n";
                &aFrame_Terminate;
}


What I haven't worked out how to do is to access the text entered.
Also I want the cursor to start in the text box rather than having to click
on it.
Any help will be gratefully received.
Regards


Mike Solomon
Technical Manager
Work     01582 831125
Mobile 07941 537 172
email   mso...@3s...
============================================================================
======
Important: Any views or opinions expressed by the sender do not necessarily
represent those of the 3s Group. This e-mail and any attachment(s)
are intended for the above named only and may be confidential.  If you are
not
the named recipient please notify us immediately.  You must not copy or
disclose
the contents to any third party.
Internet e-mail is not a fully secure communications medium.  Please take
this into account when sending e-mail to us.
Any attachment(s) to this e-mail are believed to be free from virus, but it
is the responsibility of the recipient to make all the necessary virus
checks.
www.3s-group.com
=========================================================================

Re: [perl-win32-gui-users] 0.0.502 on PPM

[Soren A. <so...@wo...>]

On 5 Jan 2001, an entity purporting to be Aldo Calpini wrote [regarding 
0.0.502 on PPM]  

> hello perl-win32-gui-users,
> 
> Win32::GUI version 0.0.502 is ready on PPM.
> goto http://dada.perl.it for info and instruction.

Congrats and hail, *dada*, it was *such* a smooth install. I have bumbled 
and stumbled around installing some of the modules authored by you in the 
past, even just getting PPM to run them was sometimes such a hassle. One 
thing: those new to PPM might easily forget a detail that I think they would 
be tripped up by, based on the current wording of the instructions 
(otherwise so clear and thorough) on your site:

--- pasted as quoted from http://dada.perl.it/#ppm -----
> Win32::GUI 0.0.502

> Win32::API 0.20
 
> Win32::Clipboard 0.51

> they're precompiled for 5.005 MSWin32-x86-object (ActivePerl 5xx)
>     and 5.6 MSWin32-x86-multi-thread (ActivePerl 6xx); to install from
>     there simply type:

> ppm install --location=http://dada.perl.it/PPM modulename
--- end pasted -----------

The point of concern is that where you give the sample commandline 
invocation above, the user will need to substitute the form `modulepart1-
modulepart2[-modulepartN]' for the `mod1::mod2[::modN]' format. Right? 
So perhaps your instructions could read:

 they're precompiled for 5.005 MSWin32-x86-object (ActivePerl 5xx)
     and 5.6 MSWin32-x86-multi-thread (ActivePerl 6xx); to install from
     there simply type (replace each doublecolon`::' with a hyphen `-'):

 ppm install --location=http://dada.perl.it/PPM modified-format-modulename

   Cheers!
      soren andersen


--

"Love is a snowmobile racing across the tundra and then suddenly it flips over, pinning
you underneath. At night, the ice weasels come."
                       -Matt Groening 
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

[perl-win32-gui-users] newbie - trying to get data from text box

[Michael S. <MSo...@3s...>]

I have just started looking at Win32 Gui

What I want to do is put up a text box and allow a user to enter data then
capture it

By looking at code posted here I have written the following:

use Win32::GUI; 
  
         $Frame = new Win32::GUI::Window( 
              -name => "aFrame", 
               -top => 100, 
                -left => 150, 
             -width => 350, 
              -height => 200, 
               -title => "Test Win32::GUI", 
            ); 
        $Frame->AddTextfield( 
                -name => "aTextField", 
                 -top => 50, 
                  -left => 20, 
                   -height => 20, 
                    -width => 300, 
                -prompt => "Type a text here : ", 
           ); 
         $Frame->AddButton( 
              -name => "aButton", 
               -text => "OK", 
                -top => 90, 
             -left => 150, 
              -height => 25 
               -width => 50, 
               ); 
   
         $Frame->Show(); 
   
          Win32::GUI::Dialog(); 
    
       sub aFrame_Terminate { 
               -1; 
          } 
    
sub aButton_Click {
		print "test\n";
		&aFrame_Terminate;
}


What I haven't worked out how to do is to access the text entered.

Also I want the cursor to start in the text box rather than having to click
on it.

Any help will be gratefully received.

Regards


Mike Solomon
Technical Manager
Work     01582 831125
Mobile 07941 537 172
email   mso...@3s...

============================================================================
======
Important: Any views or opinions expressed by the sender do not necessarily
represent those of the 3s Group. This e-mail and any attachment(s)
are intended for the above named only and may be confidential.  If you are
not
the named recipient please notify us immediately.  You must not copy or
disclose
the contents to any third party.

Internet e-mail is not a fully secure communications medium.  Please take
this into account when sending e-mail to us.
Any attachment(s) to this e-mail are believed to be free from virus, but it
is the responsibility of the recipient to make all the necessary virus
checks. 

www.3s-group.com

=========================================================================

Re: [perl-win32-gui-users] newbie query

[chris m. <ch...@ti...>]

On Fri, Jan 05, 2001 at 10:15:41AM +0100, Aldo Calpini wrote:
 
> well, the module needs compilation: you need not only make, but
> also a compiler. Micro$oft VisualC++ is not free, it should be
> possible to use cygwin's gcc but I haven't played with it
> very much. if you want to test it, you're very welcome.
> you need to download the Perl source and compile it under your
> cygwin environment, then try to compile the module.
 
thanks to your ppm, this is not a big worry for now.  thank you very
much for your info, though...i was quite confused.

i think i misunderstood what the Win32::GUI module could do, though...i want
to manipulate preexisting windows (of an app i have no source code for)
instead of making my own--specifically i need

GetWindowRect($window_id);

instead of

$mywindow=new Win32::GUI::Window;
$mywindow->GetWindowRect;

does anyone know if such functionality exists in another module or anywhere?

thanks much in advance for your help =)

Re: [perl-win32-gui-users] Re: [PLEASE UNSUBSCRIBE] .......

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

sending your request to the list address will not accomplish what you
want. go to this address to unsubscribe:

http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users





novacom wrote:
> 
> PLEASE UNSUBSCRIBE FROM YOUR MAILING LIST !!!!!
> 
>     ..........this is my umpteenth request !!~!!
> 
> thxs ...!!!
> 
>

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

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

My previous version was http://www.ActiveState.com/PPMPackages/5.6
PPM> search
Packages available from http://www.ActiveState.com/PPMPackages/5.6:
Win32-API                  [0.01     ] Implementation of arbitrary Win32
APIs.
Win32-AdminMisc        [0.10     ] Performs various Win32 administrative
tasks
                                                       that are not
addressed by Win32::NetAdmin.
Win32-DDE                  [0.02     ] Perl extension for Win32 DDE.
Win32-GUI                  [0.99     ] Win32 Graphical User Interface
Extension
Win32-Shell                    [0.03     ] A simple extension for
displaying Windows
                                   message boxes and
.........


I made the update at dada.perl.it/PPM and now it is

C:\Perl\koul> perl -MWin32::GUI -e "print Win32::GUI::Version;
0.0.502


Aldo Calpini wrote:

> Koul Christian wrote:
> > I still don't see the menu.
> > I have Win32-GUI 0.99 on Win95
>
> please? I have never released version 0.99 ;-)
> to find out your Win32::GUI version number, use this:
>
> perl -MWin32::GUI -e "print Win32::GUI::Version;"
>
> cheers,
> Aldo
>
> __END__
> $_=3Dq,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

--

Sincerely.
__________________

Christian Koul
Civil Engineer
Unit=E9 Statistique - Fucam

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

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

Koul Christian wrote:
> I still don't see the menu.
> I have Win32-GUI 0.99 on Win95

please? I have never released version 0.99 ;-)
to find out your Win32::GUI version number, use this:

perl -MWin32::GUI -e "print Win32::GUI::Version;"


cheers,
Aldo

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

[perl-win32-gui-users] menu

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

Hi,

it's work with this (copied from From: Vince
                                                          Subject:
[perl-win32-gui] Code
                                                          Date: Wed, 14
Oct 1998 16:54:06 -0700 (PDT) )

-----------------------------
use Win32::GUI;

    $menu =3D Win32::GUI::MakeMenu(
                     "&File"    =3D> "File",
                     " > &Load" =3D> "FileLoad",
                );

       $Frame =3D new Win32::GUI::Window(
             -name =3D> "aFrame",
             -top =3D> 100,
             -left =3D> 150,
             -width =3D> 350,
             -height =3D> 400,
             -title =3D> "Test Win32::GUI",
             -menu =3D> $menu,
            );
       $Frame->AddTextfield(
                -name =3D> "aTextField",
                 -top =3D> 200,
                 -left =3D> 20,
                 -height =3D> 20,
                 -width =3D> 300,
                -prompt =3D> "Type a text here : ",
           );
         $Frame->AddButton(
             -name =3D> "aButton",
             -text =3D> "OK",
             -top =3D> 260,
             -left =3D> 150,
             -height =3D> 25
             -width =3D> 50,
            );

       $Frame->AddStatusBar();
       $Frame->Show();

       Win32::GUI::Dialog();

       sub aFrame_Terminate {
            -1;
       }


------------------------------

--

Sincerely.
__________________

Christian Koul
Civil Engineer
Unit=E9 Statistique - Fucam

RE: [perl-win32-gui-users] 0.0.502 on PPM

[Kuo D. <dk...@or...>]

Hi Aldo,

Does it have updated online help also? Thanks.

David

-----Original Message-----
From: Aldo Calpini [mailto:da...@pe...]
Sent: Friday, January 05, 2001 7:25 AM
To: per...@li...
Subject: [perl-win32-gui-users] 0.0.502 on PPM


hello perl-win32-gui-users,

Win32::GUI version 0.0.502 is ready on PPM.
goto http://dada.perl.it for info and instruction.


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

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

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

I still don't see the menu.
I have Win32-GUI 0.99 on Win95
and perl v5.6.0 built for MSWin32-x86-multi-thread (Binary build 620
provided by ActiveState).


Jonathan Southwick wrote:

> It works for me!  Are you saying you don't see the menu at all?
>
> Jonathan Southwick
> Technical & Network Services
> Allegheny College
> jso...@al...
>
> ----- Original Message -----
> From: "Koul Christian" <chr...@fu...>
> To: <per...@ht...>
> Sent: Friday, January 05, 2001 6:44 AM
> Subject: [perl-win32-gui-users] menu
>
> > Hi,
> >
> >     I am new in win32::GUI and i have problem using menu.
> > I have this but i can not see the menu. can somebody help me?
> >
> > -------------------------------------------
> > use Win32::GUI;
> >
> >     $Menu =3D new Win32::GUI::Menu(
> >                   "&File"    =3D> "File",
> >                   " > &Load" =3D> "FileLoad",
> >              );
> >
> >     $Frame =3D new Win32::GUI::Window(
> >           -name =3D> "aFrame",
> >           -top =3D> 100,
> >           -left =3D> 150,
> >           -width =3D> 350,
> >           -height =3D> 400,
> >           -title =3D> "Test Win32::GUI",
> >           -menu =3D> $Menu,
> >          );
> >     $Frame->AddTextfield(
> >              -name =3D> "aTextField",
> >               -top =3D> 200,
> >               -left =3D> 20,
> >               -height =3D> 20,
> >               -width =3D> 300,
> >              -prompt =3D> "Type a text here : ",
> >         );
> >       $Frame->AddButton(
> >           -name =3D> "aButton",
> >           -text =3D> "OK",
> >           -top =3D> 260,
> >           -left =3D> 150,
> >           -height =3D> 25
> >           -width =3D> 50,
> >          );
> >
> >     $Frame->AddStatusBar();
> >     $Frame->Show();
> >
> >     Win32::GUI::Dialog();
> >
> >     sub aFrame_Terminate {
> >          -1;
> >     }
> >
> > -------------------------------------------
> >
> >
> > --
> >
> > Sincerely.
> > __________________
> >
> > Christian Koul
> > Civil Engineer
> > Unit=E9 Statistique - Fucam
> >
> >
> >
> > _______________________________________________
> > Perl-Win32-GUI-Users mailing list
> > Per...@li...
> > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> >
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

--

Sincerely.
__________________

Christian Koul
Civil Engineer
Unit=E9 Statistique - Fucam

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

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

It works for me!  Are you saying you don't see the menu at all?

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

----- Original Message -----
From: "Koul Christian" <chr...@fu...>
To: <per...@ht...>
Sent: Friday, January 05, 2001 6:44 AM
Subject: [perl-win32-gui-users] menu


> Hi,
>
>     I am new in win32::GUI and i have problem using menu.
> I have this but i can not see the menu. can somebody help me?
>
> -------------------------------------------
> use Win32::GUI;
>
>     $Menu =3D new Win32::GUI::Menu(
>                   "&File"    =3D> "File",
>                   " > &Load" =3D> "FileLoad",
>              );
>
>     $Frame =3D new Win32::GUI::Window(
>           -name =3D> "aFrame",
>           -top =3D> 100,
>           -left =3D> 150,
>           -width =3D> 350,
>           -height =3D> 400,
>           -title =3D> "Test Win32::GUI",
>           -menu =3D> $Menu,
>          );
>     $Frame->AddTextfield(
>              -name =3D> "aTextField",
>               -top =3D> 200,
>               -left =3D> 20,
>               -height =3D> 20,
>               -width =3D> 300,
>              -prompt =3D> "Type a text here : ",
>         );
>       $Frame->AddButton(
>           -name =3D> "aButton",
>           -text =3D> "OK",
>           -top =3D> 260,
>           -left =3D> 150,
>           -height =3D> 25
>           -width =3D> 50,
>          );
>
>     $Frame->AddStatusBar();
>     $Frame->Show();
>
>     Win32::GUI::Dialog();
>
>     sub aFrame_Terminate {
>          -1;
>     }
>
> -------------------------------------------
>
>
> --
>
> Sincerely.
> __________________
>
> Christian Koul
> Civil Engineer
> Unit=E9 Statistique - Fucam
>
>
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>

[perl-win32-gui-users] 0.0.502 on PPM

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

hello perl-win32-gui-users,

Win32::GUI version 0.0.502 is ready on PPM.
goto http://dada.perl.it for info and instruction.


cheers,
Aldo

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

[perl-win32-gui-users] menu

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

Hi,

    I am new in win32::GUI and i have problem using menu.
I have this but i can not see the menu. can somebody help me?

-------------------------------------------
use Win32::GUI;

    $Menu =3D new Win32::GUI::Menu(
                  "&File"    =3D> "File",
                  " > &Load" =3D> "FileLoad",
             );

    $Frame =3D new Win32::GUI::Window(
          -name =3D> "aFrame",
          -top =3D> 100,
          -left =3D> 150,
          -width =3D> 350,
          -height =3D> 400,
          -title =3D> "Test Win32::GUI",
          -menu =3D> $Menu,
         );
    $Frame->AddTextfield(
             -name =3D> "aTextField",
              -top =3D> 200,
              -left =3D> 20,
              -height =3D> 20,
              -width =3D> 300,
             -prompt =3D> "Type a text here : ",
        );
      $Frame->AddButton(
          -name =3D> "aButton",
          -text =3D> "OK",
          -top =3D> 260,
          -left =3D> 150,
          -height =3D> 25
          -width =3D> 50,
         );

    $Frame->AddStatusBar();
    $Frame->Show();

    Win32::GUI::Dialog();

    sub aFrame_Terminate {
         -1;
    }

-------------------------------------------


--

Sincerely.
__________________

Christian Koul
Civil Engineer
Unit=E9 Statistique - Fucam

[perl-win32-gui-users] FW: [perl-win32-gui] BrowseForFolder?

[Michael S. <MSo...@3s...>]

I am also interested in 'Browse for Folder'

I tried the code

$folder = Win32::GUI::BrowseForFolder(
* root => "C:\\Program Files",
* includefiles => 1,
        );

and was given the following error message

Your vendor has not defined Win32::GUI macro BrowseForFolder, used at
E:\scripts
\dev\gui1.pl line 11. at C:/Perl/site/lib/Win32/GUI.pm line 347.
22 returned


has anyone got any idea why I get this?

I downloaded Win32::GUI yesterday as a PPM from activestate

Am I using an old version ?

Thanks



Regards


Mike Solomon
Technical Manager
Work     01582 831125
Mobile 07941 537 172
email   mso...@3s...

============================================================================
======
Important: Any views or opinions expressed by the sender do not necessarily
represent those of the 3s Group. This e-mail and any attachment(s)
are intended for the above named only and may be confidential.  If you are
not
the named recipient please notify us immediately.  You must not copy or
disclose
the contents to any third party.

Internet e-mail is not a fully secure communications medium.  Please take
this into account when sending e-mail to us.
Any attachment(s) to this e-mail are believed to be free from virus, but it
is the responsibility of the recipient to make all the necessary virus
checks. 

www.3s-group.com

=========================================================================

-----Original Message-----
From:	Yoda [mailto:yo...@pl...] 
Sent:	04 January 2001 21:12
To:	per...@ht...
Subject:	RE: [perl-win32-gui] BrowseForFolder?

<cut from methods.html>
BrowseForFolder( OPTIONS )
Displays the standard "Browse For Folder" dialog box. Returns the selected
item's name, or undef if no item was selected or an error occurred.
Note that BrowseForFolder must be called as a standalone function, not as a
method.
Example:
$folder = Win32::GUI::BrowseForFolder(
* root => "C:\\Program Files",
* includefiles => 1,
        );
<end cut>
* Yoda
PlanetUnreal
-----Original Message-----
From:	own...@ht...
[mailto:own...@ht...]On Behalf Of Joel Oliveira
Sent:	Thursday, January 04, 2001 9:18 PM
To:	per...@ht...
Subject:	[perl-win32-gui] BrowseForFolder?


Hello All,
Can I get something like BrowseForFolder in the Win32:GUI?
Thanks,

Joel Oliveira

--------------------------------------------

[perl-win32-gui-users] Re: [perl-win32-gui] newbie query

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

chris mccraw wrote:
> hey *,
>
> i'm extremely new to perl dev under win32 (i've done my share of
> it under unix in the past tho) so i'm sure this question has an
> answer somewhere obvious and if you could direct me towards the
> answer/resource from which the answer is available, i'd be
> extremely indebted.
>
> in the absence of an available PPM of the latest version of the
> Win32-GUI module i tried to install it myself...unfortunately i
> lack make, and using cpan to install it fails miserably for many
> reasons (i tried under cygwin since i have make/cc there but i
> should have realized that was not going to work from the start...).
> is there some easy "copy everything over to the Lib directory"
> type install for those of us lacking make (where can i find this
> nmake.exe many modules refer to?) and an MS dev environment?
> the 502 tarball seems to be lacking the dll anyway...
> (i've also never used xs stuff before if that wasn't obvious =))

well, the module needs compilation: you need not only make, but
also a compiler. Micro$oft VisualC++ is not free, it should be
possible to use cygwin's gcc but I haven't played with it
very much. if you want to test it, you're very welcome.
you need to download the Perl source and compile it under your
cygwin environment, then try to compile the module.

> also, what's up with the sourceforge lists?  the links to
> browse the archives point to nonexistent geocrawler pages (as
> of approx 10am CST today) and the subscribe/unsubscribe pages
> link to archives that are on sourceforge but nonexistent also.

the lists are scheduled to archive weekly, so I guess you have
to wait (at least) a week for the archives :-)
also note that past message (from the per...@ht...
mailing list), unfortunately, will not be archived in the same
place.

> since i saw traffic in the httptech archive from this morning
> i guess this list is still semiactive...

yes, it is. but PLEASE PLEASE PLEASE use the new address
for posting instead:

    per...@li...

everybody who was subscribed to the old list should have been
subscribed to the new one (thanks Joe! :-), you should have
received a message with the subject:

    [perl-win32-gui-users] List moved
    
if you are subscribed to this list and didn't receive this
message, please contact either me or Joe (pe...@ht...).

otherwise, PLEASE PLEASE PLEASE once again, from now on
use ONLY the new address to post.


cheers,
Aldo

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

[perl-win32-gui-users] Re: [PLEASE UNSUBSCRIBE] .......

[novacom <no...@af...>]

PLEASE UNSUBSCRIBE FROM YOUR MAILING LIST !!!!!

    ..........this is my umpteenth request !!~!!

thxs ...!!!

Joe Stewart wrote:

> If all went well, everyone from the old per...@ht... should
> now be subscribed to per...@li.... If you can
> see this, then it obviously worked. :) No further action should be required on
> your part.
>
> -Joe
>
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

[perl-win32-gui-users] List moved

[Joe S. <pe...@ht...>]

If all went well, everyone from the old per...@ht... should
now be subscribed to per...@li.... If you can
see this, then it obviously worked. :) No further action should be required on
your part.

-Joe