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

[Jeff Slutzky]

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