From: Rajdeep Sengupta (rajdeep@noida.atrenta.com)
Date: Fri May 07 2004 - 09:35:07 EDT
Hi Managers,
I am using Perl 5.6.1 on HP11 in 64-bit mode, compiled using aCC.
While building perl/tk 8.022, when I run "make test", one of the
testcases of browse entry fails with following error:
Tk::Error: Can't set -choices to `ARRAY(0x800000010022f9a8)' for
Tk::BrowseEntry=HASH(0x8000000100399830): Failed to AUTOLOAD
'Tk::Widget::delete' at
/delsoft/spyglass/import/Perl/perl-5.6.1/HPUX11/lib/site_perl/5.6.1/PA-RISC2.0_64/Tk/Derived.pm
line 467
I reduced down the the perl script of that testcase, which is attached at
the end of this mail.
It just creates two browse entry widgets, with different parameters.
The first one passes, but the second browse entry call fails.
Note the same script runs fine on all the other platforms like linux,
sun, hp10 etc.
I also tried Tk-800.025, but it also produced the same error for the
same testcase.
The same perl/Tk code when compiled on other platforms ( Red Hat Linux
release 7.2 (Enigma) 2.4.7-10
and SunOS jack 5.7 Generic_106541-08 sun4u sparc SUNW,Ultra-5_10) runs
without any problems.
--------------------- Script ----------------------------------------
use Tk;
use Tk::BrowseEntry;
my $mw;
$mw = Tk::MainWindow->new();
$mw->geometry('+10+10');
my(@listcmd, @browsecmd);
my $listcmd = sub { @listcmd = @_ };
my $browsecmd = sub { @browsecmd = @_ };
my ($bla, $bla2);
my $be = $mw->BrowseEntry(-listcmd => $listcmd, -browsecmd => $browsecmd,
-textvariable => \$bla)->pack;
my $be2 = $mw->BrowseEntry(-choices => [qw/a b c d e/], -textvariable =>
\$bla2,
-state => "normal")->pack;
Tk::MainLoop;
--------------------------------------------------------------------------------
--
---> Please post QUESTIONS and SUMMARIES only!! <---
To subscribe/unsubscribe to this list, contact majordomo@dutchworks.nl
Name: hpux-admin@dutchworks.nl Owner: owner-hpux-admin@dutchworks.nl
Archives: ftp.dutchworks.nl:/pub/digests/hpux-admin (FTP, browse only)
http://www.dutchworks.nl/htbin/hpsysadmin (Web, browse & search)
This archive was generated by hypermail 2.1.7 : Sat Apr 12 2008 - 11:02:40 EDT