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

[Geoffrey S. <geo...@gm...>]

You want a Textfield, not a TextField.  Perl is case sensitive.

On 8/27/07, a98...@gm... <a98...@gm...> 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 =3D> "Script";
> use constant VERSION =3D> "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 =3D Win32::GUI::Window->new(
>       -name  =3D> 'Main',
>       -left =3D> CW_USEDEFAULT,
>       -width =3D> 100,
>       -height =3D> 100,
>       -text   =3D> "title",
>       #-menu =3D> $cfg{mainmenu},
>       -vscroll =3D> 1,
>       -hscroll =3D> 1,
>       -size        =3D> [800,550],
>       -helpbutton  =3D> 0,
>       -maximizebox =3D> 0,
>   #    -minimizebox =3D> 0,
>       -resizable   =3D> 1,
>       -background =3D> {0x00FF00},
>       -foreground =3D> {0x33AABB},
>       -dialogui    =3D> 1,
>       #-accel      =3D> $cfg{accelerator},
>       -noflicker =3D> 1,
>       #-onMinimize =3D> \&toggle_show_state,
>       -eventmodel =3D> both,
>       );
>
>       my $TF =3D $main->AddTextField(
>         -name =3D> "aaa",
>         -text =3D> "bbb",
>         -pos =3D> [ 50, 50 ],
>
>       );
> }
> [/snip]
> --
> Der GMX SmartSurfer hilft bis zu 70% Ihrer Onlinekosten zu sparen!
> Ideal f=FCr 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
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>


--=20
Geoffrey Spear
http://www.geoffreyspear.com/