Works like a charm, thank you very much.
-----Original Message-----
From: Rogers, John
Sent: Thursday, January 23, 2003 10:26 PM
To: '[EMAIL PROTECTED]'; '[email protected]'
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:[EMAIL PROTECTED]
> Sent: Friday, January 24, 2003 1:24 PM
> To: '[email protected]'
> 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
> [email protected]
> 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.
##############################################################
