Hmmm...
I'm using Tk800.011 on Sun Solaris myself and it's difficult for me to try
800.017. The code that fails tries to create Button ($b) which is identical
to another Button ($h). This is done by obtaining all configure options from
the old one and pass them to the Button constructor. It looks OK to me, but
perhaps there are some none-portable stuff here?
my @opt = map {$_->[0] => $h->cget($_->[0])} $h->configure;
my $b=$tl->Button(@opt)->pack(-expand=>1,-fill=>'both');
Summary of my perl5 (5.0 patchlevel 4 subversion 1) configuration:
Platform:
osname=solaris, osvers=2.5.1, archname=sun4-solaris
uname='sunos creator 5.5.1 generic sun4u sparc sunw,ultra-1 '
hint=recommended, useposix=true, d_sigaction=define
bincompat3=n useperlio= d_sfio=
Compiler:
cc='cc', optimize='-O', gccversion=
cppflags=''
ccflags =''
stdchar='unsigned char', d_stdstdio=define, usevfork=false
voidflags=15, castflags=0, d_casti32=define, d_castneg=define
intsize=4, alignbytes=8, usemymalloc=y, randbits=15
Linker and Libraries:
ld='cc', ldflags =''
libpth=/lib /usr/lib /usr/ccs/lib
libs=-lsocket -lnsl -ldl -lm -lc -lcrypt
libc=/lib/libc.so, so=so
useshrplib=false, libperl=libperl.a
Dynamic Linking:
dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=, ccdlflags=' '
cccdlflags='-Kpic', lddlflags='-G'
Characteristics of this binary (from libperl):
Built under solaris
Compiled at Sep 16 1998 15:35:26
%ENV:
PERL5LIB="/projects/sw/ra/lib"
@INC:
/projects/sw/ra/lib
/opt/pin/5.5/lib/perl5/sun4-solaris/5.00401
/opt/pin/5.5/lib/perl5
/opt/pin/5.5/lib/perl5/site_perl/sun4-solaris
/opt/pin/5.5/lib
.
Hans J. Helgesen
>From: [EMAIL PROTECTED]
>To: [EMAIL PROTECTED]
>CC: [EMAIL PROTECTED]
>Subject: FAIL Tk-MListbox-1.06 sun4-solaris 2.7
>Date: 15 Jan 2000 15:21:52 -0000
>
>This distribution has been tested as part of the cpan-testers
>effort to test as many new uploads to CPAN as possible. See
>http://testers.cpan.org/
>
>Please cc any replies to [EMAIL PROTECTED] to keep other
>test volunteers informed and to prevent any duplicate effort.
>
>--
>No tests. When trying out filemgr.pl, I got bunches of Tk errors when
>manipulating the column headers, and the column header disappeared.
>I'm using Tk 800.017.
>
>Tk::Error: Odd number of args to Tk::Button->new(...)
> at blib/lib/Tk/MListbox.pm line 678
> Tk::Widget::new at
>/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/Tk/Widget.pm line 163
> Tk::Widget::__ANON__ at
>/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/Tk/Widget.pm line 242
> Tk::MListbox::dragOrSort at blib/lib/Tk/MListbox.pm line 678
> (command bound to event)
>Tk::Error: Odd number of args to Tk::Button->new(...)
> at blib/lib/Tk/MListbox.pm line 678
> Tk::Widget::new at
>/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/Tk/Widget.pm line 163
> Tk::Widget::__ANON__ at
>/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/Tk/Widget.pm line 242
> Tk::MListbox::dragOrSort at blib/lib/Tk/MListbox.pm line 678
> (command bound to event)
>Tk::Error: Odd number of args to Tk::Button->new(...)
> at blib/lib/Tk/MListbox.pm line 678
> Tk::Widget::new at
>/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/Tk/Widget.pm line 163
> Tk::Widget::__ANON__ at
>/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/Tk/Widget.pm line 242
> Tk::MListbox::dragOrSort at blib/lib/Tk/MListbox.pm line 678
> (command bound to event)
>Tk::Error: Odd number of args to Tk::Button->new(...)
> at blib/lib/Tk/MListbox.pm line 678
> Tk::Widget::new at
>/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/Tk/Widget.
>Tk::Widget::new at
>/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/Tk/Widget.pm line 163
> Tk::Widget::__ANON__ at
>/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/Tk/Widget.pm line 242
> Tk::MListbox::dragOrSort at blib/lib/Tk/MListbox.pm line 678
> (command bound to event)
>bin@leprss% !!
>perl -Iblib/lib filemgr.pl
>Tk::Error: Odd number of args to Tk::Button->new(...)
> at blib/lib/Tk/MListbox.pm line 678
> Tk::Widget::new at
>/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/Tk/Widget.pm line 163
> Tk::Widget::__ANON__ at
>/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/Tk/Widget.pm line 242
> Tk::MListbox::dragOrSort at blib/lib/Tk/MListbox.pm line 678
> (command bound to event)
>bin@leprss% !pe
>perl -Iblib/lib filemgr.pl
>Tk::Error: Odd number of args to Tk::Button->new(...)
> at blib/lib/Tk/MListbox.pm line 678
> Tk::Widget::new at
>/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/Tk/Widget.pm line 163
> Tk::Widget::__ANON__ at
>/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/Tk/Widget.pm line 242
> Tk::MListbox::dragOrSort at blib/lib/Tk/MListbox.pm line 678
> (command bound to event)
>bin@leprss% !!
>perl -Iblib/lib filemgr.pl
>Tk::Error: Odd number of args to Tk::Button->new(...)
> at blib/lib/Tk/MListbox.pm line 678
> Tk::Widget::new at
>/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/Tk/Widget.pm line 163
> Tk::Widget::__ANON__ at
>/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/Tk/Widget.pm line 242
> Tk::MListbox::dragOrSort at blib/lib/Tk/MListbox.pm line 678
> (command bound to event)
>bin@leprss% !pe
>perl -Iblib/lib filemgr.pl
>Tk::Error: Odd number of args to Tk::Button->new(...)
> at blib/lib/Tk/MListbox.pm line 678
> Tk::Widget::new at
>/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/Tk/Widget.pm line 163
> Tk::Widget::__ANON__ at
>/usr/local/lib/perl5/site_perl/5.005/sun4-solaris/Tk/Widget.pm line 242
> Tk::MListbox::dragOrSort at blib/lib/Tk/MListbox.pm line 678
> (command bound to event)
>
>
>
>--
>
>Summary of my perl5 (5.0 patchlevel 5 subversion 3) configuration:
> Platform:
> osname=solaris, osvers=2.7, archname=sun4-solaris
> uname='sunos leprss.gsfc.nasa.gov 5.7 generic_106541-07 sun4c sparc
>sunw,sun_4_75 '
> hint=recommended, useposix=true, d_sigaction=define
> usethreads=undef useperlio=undef d_sfio=undef
> Compiler:
> cc='gcc -B/usr/ccs/bin/', optimize='-O', gccversion=2.95.1 19990816
>(release)
> cppflags='-I/usr/local/include'
> ccflags ='-I/usr/local/include'
> stdchar='char', d_stdstdio=define, usevfork=false
> intsize=4, longsize=4, ptrsize=4, doublesize=8
> d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=16
> alignbytes=8, usemymalloc=n, prototype=define
> Linker and Libraries:
> ld='gcc -B/usr/ccs/bin/', ldflags =' -L/usr/local/lib'
> libpth=/usr/local/lib /lib /usr/lib /usr/ccs/lib
> libs=-lsocket -lnsl -ldb -ldl -lm -lc -lcrypt
> libc=/lib/libc.so, so=so, useshrplib=false, libperl=libperl.a
> Dynamic Linking:
> dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags=' '
> cccdlflags='-fPIC', lddlflags='-G -L/usr/local/lib'
>
______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com
