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

[Jonathan Southwick]

Your problem is the lowercase 't' ... You could do what John Rogers 
suggested or change your line in the Button_1_Click subroutiine to

$txt1->Text("recording......");

Jonathan

----------
Jonathan Southwick
[EMAIL PROTECTED]
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755


At 1/23/2003 09:24 PM, Jeff Slutzky wrote:
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
Perl-Win32-GUI-Users@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users