You want a Textfield, not a TextField. Perl is case sensitive.
On 8/27/07, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
> 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
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by: Splunk Inc.
> Still grepping through log files to find problems? Stop.
> Now Search log events and configuration files using AJAX and a browser.
> Download your FREE copy of Splunk now >> http://get.splunk.com/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>
--
Geoffrey Spear
http://www.geoffreyspear.com/
-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems? Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >> http://get.splunk.com/
_______________________________________________
Perl-Win32-GUI-Users mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/
