perl-Tk and the hours of work...

[thefinn]

On linux this particular perl-Tk app works just fine.

However, perl-Tk on cygwin seems to disagree?

Not entirely sure why, or what the issue is. It's just in development 
phase (ignore the sql errors, they are unimportant).

Output below:

$ ./console.pl
DBI connect('console_scan:127.0.0.1','silly',...) failed: Can't connect 
to MySQL
server on '127.0.0.1' (111) at ./console.pl line 364
DBI connect('console_expl:127.0.0.1','silly',...) failed: Can't connect 
to MySQL
server on '127.0.0.1' (111) at ./console.pl line 365
Tk::Error: Can't set -activebackground to `undef' for 
Tk::Menu=HASH(0x1fba660):
Cannot use undef value for object of type 'border' at 
/usr/lib/perl5/vendor_perl
/5.10/i686-cygwin/Tk/Configure.pm line 46.
 at /usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/Derived.pm line 294
 Tk callback for .
 Tk callback for .frame
 Tk::Derived::configure at 
/usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/Derive
d.pm line 306
 Tk::Widget::new at 
/usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/Widget.pm lin
e 205
 Tk::Widget::__ANON__ at 
/usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/Widget.p
m line 256
 Tk::Menubutton::menu at 
/usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/Menubutt
on.pm line 348
 Tk::Menubutton::command at 
/usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/Menub
utton.pm line 359
 main::mainmenu at ./console.pl line 30
Can't set -activebackground to `undef' for Tk::Menu=HASH(0x1fba660): 
Cannot use
undef value for object of type 'border' at 
/usr/lib/perl5/vendor_perl/5.10/i686-
cygwin/Tk/Configure.pm line 46.
 at /usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/Derived.pm line 294

 at /usr/lib/perl5/vendor_perl/5.10/i686-cygwin/Tk/Derived.pm line 306

--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/