RE: [perl-win32-gui-users] Newbie Win32::GUI Question

[Jeff S. <jsl...@af...>]

Works like a charm, thank you very much.

-----Original Message-----
From:	Rogers, John 
Sent:	Thursday, January 23, 2003 10:26 PM
To:	'jsl...@af...'; 'per...@li...'
Subject:	RE: [perl-win32-gui-users] Newbie Win32::GUI Question

In your click sub, Try,
    $Win->campaign->Text("recording......");

call them by name.

JohnR

> -----Original Message-----
> From: Jeff Slutzky [mailto:jsl...@af...]
> Sent: Friday, January 24, 2003 1:24 PM
> To: 'per...@li...'
> Subject: [perl-win32-gui-users] Newbie Win32::GUI Question
> 
> 
> I have created a window with 4 buttons, 2 labels, 2 text fields, and a
> status bar.  In the Button_1 click event I try to write to 
> the txt field
> and get the following error:  "Can't locate
> auto/Win32/GUI/Textfield/text.al in @INC (@INC contains; C:/Perl/lib
> C:/Perl/site/lib .) at C:\Perl\Perlscripts\Sound 
> Recorder\soundrecorder.pl
> line 107"
> 
> Can anyone tell me what and why I get this error?
> 
> Ultimately, I want to be able to write to a Status bar for 
> each button 
> event.  I have a beefier application that calls Win32::API 
> calls and want 
> to make sure that the calls are also made in the correct space.  So, 
> obviously I'm a newbie and need some help.
> 
> 
> use Win32::GUI;
> 
> $Win = new Win32::GUI::DialogBox(
>       -left   => 284,
>       -top    => 466,
>       -width  => 334,
>       -height => 238,
>       -name   => "Win",
>       -text   => "sound recorder"
>       );
> 
> 
> 
> $Win->AddButton(
>        -text    => "Record",
>        -name    => "Button_1",
>        -left    => 15,
>        -top     => 19,
>        -width   => 46,
>        -height  => 21,
>        -foreground    => 16711680,
>       );
> 
> $sb1 = $Win->AddStatusBar(
>        -text    => "inactive.......",
>        -name    => "StatusBar_1",
>        -left    => 0,
>        -top     => 193,
>        -width   => 324,
>        -height  => 17,
>       );
> 
> $Win->AddButton(
>        -text    => "Play",
>        -name    => "Button_2",
>        -left    => 84,
>        -top     => 19,
>        -width   => 35,
>        -height  => 21,
>        -foreground    => 16711680,
>       );
> 
> $Win->AddButton(
>        -text    => "Stop",
>        -name    => "Button_3",
>        -left    => 143,
>        -top     => 20,
>        -width   => 36,
>        -height  => 21,
>        -foreground    => 16711680,
>       );
> 
> $Win->AddButton(
>        -text    => "Save",
>        -name    => "Button_4",
>        -left    => 203,
>        -top     => 20,
>        -width   => 41,
>        -height  => 21,
>        -foreground    => 16711680,
>       );
> 
> $Win->AddTextfield(
>        -text    => "",
>        -name    => "userid",
>        -left    => 126,
>        -top     => 89,
>        -width   => 95,
>        -height  => 20,
>       );
> 
> $txt1 = $Win->AddTextfield(
>        -text    => "",
>        -name    => "campaign",
>        -left    => 126,
>        -top     => 119,
>        -width   => 95,
>        -height  => 20,
>       );
> 
> $Win->AddLabel(
>        -text    => "userid",
>        -name    => "Label_1",
>        -left    => 86,
>        -top     => 90,
>        -width   => 28,
>        -height  => 13,
>        -foreground    => 0,
>       );
> 
> $Win->AddLabel(
>        -text    => "campaign",
>        -name    => "Label_2",
>        -left    => 69,
>        -top     => 120,
>        -width   => 46,
>        -height  => 13,
>        -foreground    => 0,
>       );
> 
> $Win->Show();
> Win32::GUI::Dialog();
> 
> 
> sub Button_1_Click {
>     print "test\n";
>     $txt1->text("recording......");
> }
> 
> sub Win_Terminate {
>    return -1;
> }
> 
> ______________________________________________________________
> __________
> ________
> 
> 
> Jeff Slutzky
> 
> 
> 
> -------------------------------------------------------
> This SF.NET email is sponsored by:
> SourceForge Enterprise Edition + IBM + LinuxWorld = Something 2 See!
> http://www.vasoftware.com
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 


############################################################## 
Disclaimer 

If this e-mail has been sent to you in error, please notify 
Oce-Australia Limited immediately and delete this e-mail from 
your system. 

Any views expressed in this e-mail are those of the individual 
sender and may not necessarily reflect the views of 
Oce-Australia Limited. 
##############################################################