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/
