[perl-win32-gui-users] AddTextField() does not work

[<a98...@gm...>]

hi,

I'm trying to create a window with a TextField to put text in it.
in some scripts it works fine.
but in my main script it doesn't work.
so I cut down my script to the essential functions (see the attached code) - it doesn't work.
I get the message:
[snip]
Can't locate auto/AddTextFiel.al in @INC (@INC contains: C:/Perl588/site/lib C:/Perl588/lib .) at test_with_AddTextField.pl line 55
[/]

Can anybody tell me whats the problem?
thx
juergen

[snip]
use strict;
no strict qw(subs);

use constant NAME => "Script";
use constant VERSION => "0.2";

# GUI
use Win32::GUI 1.05 qw( CW_USEDEFAULT
                        WM_HOTKEY
                        VK_J
                        IDI_DEFAULTICON
                        MB_OK 
                        MB_ICONHAND 
                        ES_WANTRETURN 
                        WS_CLIPCHILDREN 
                        WS_EX_TOPMOST 
                        );

use Win32::GUI::Constants ();
use Win32::API();
use Win32::Sound;
use Win32::ChangeNotify;
use Win32::GUI::SplashScreen();

my $main;
my %config;
my $mh;
my $mw;
my $cfg_window;
my %cfg;

create_MainWindow();
$main->Center();
$main->Show();
Win32::GUI::Dialog();


sub create_MainWindow
{
  $main = Win32::GUI::Window->new(
      -name  => 'Main',
      -left => CW_USEDEFAULT,
      -width => 100,
      -height => 100,
      -text   => "title",
      #-menu => $cfg{mainmenu},
      -vscroll => 1,
      -hscroll => 1,
      -size        => [800,550],
      -helpbutton  => 0,
      -maximizebox => 0,
  #    -minimizebox => 0,
      -resizable   => 1,    
      -background => {0x00FF00},
      -foreground => {0x33AABB},
      -dialogui    => 1,
      #-accel      => $cfg{accelerator},
      -noflicker => 1,
      #-onMinimize => \&toggle_show_state,
      -eventmodel => both,    
      );
      
      my $TF = $main->AddTextField(
        -name => "aaa",
        -text => "bbb",
        -pos => [ 50, 50 ],
        
      );
}
[/snip]
-- 
Der GMX SmartSurfer hilft bis zu 70% Ihrer Onlinekosten zu sparen! 
Ideal für Modem und ISDN: http://www.gmx.net/de/go/smartsurfer