Re: Nesting scrolled windows

--- On Wed, 9/10/08, Kevin Ryde <user42 zip com au> wrote:

From: Kevin Ryde <user42 zip com au>
Subject: Re: Nesting scrolled windows
To: gtk-perl-list gnome org
Date: Wednesday, September 10, 2008, 4:50 PM
zentara <zentara1 sbcglobal net> writes:

This isn't important, I was just wondering if this
type of setup is possible?

I'd guess it is, but I'd suspect each scrolled
window asks to a size
that accomodates its child, so there's no scrolling
until those scrolled
windows are forced to be less (by their parents in turn, or

 @{$categories->{data}} = @data;

Incidentally with 1.190 or the current cvs and the debian
i386 5.10.0
I get a segv at this line.  gdb claims

#0  0x080cef8d in Perl_av_clear (my_perl=0x8aac008,
av=0x8d4a50c) at av.c:436
#1  0x08149852 in Perl_leave_scope (my_perl=0x8aac008,
base=43) at scope.c:799
#2  0x08149e1c in Perl_pop_scope (my_perl=0x8aac008) at
#3  0x0815fd05 in Perl_pp_return (my_perl=0x8aac008) at
#4  0x080a597f in Perl_runops_debug (my_perl=0x8aac008) at
#5  0x080d57dd in Perl_call_sv (my_perl=0x8aac008,
    flags=<value optimized out>) at perl.c:2638
#6  0x080bf866 in Perl_magic_setpack (my_perl=0x8aac008,
    mg=0x8d7be2c) at mg.c:1660
#7  0x080c5565 in Perl_mg_set (my_perl=0x8aac008,
sv=0x8d41d3c) at mg.c:277
#8  0x080ea8c2 in Perl_pp_aassign (my_perl=0x8aac008) at
#9  0x080a597f in Perl_runops_debug (my_perl=0x8aac008) at
#10 0x080d6eb1 in perl_run (my_perl=0x8aac008) at
#11 0x08063f45 in main (argc=2, argv=0xbff95224,
    at perlmain.c:113

Inserting before it

   $categories->{data} = [];

seems to work.  Something freaky with
"auto-vivification" maybe?
gtk-perl-list mailing list
gtk-perl-list gnome org

Works fin on my S?USE 10.3 box with older Perl:

sergei z61m:~/junk> perl -v

This is perl, v5.8.8 built for i586-linux-thread-multi

Copyright 1987-2006, Larry Wall

Perl may be copied only under the terms of either the Artistic License or the
GNU General Public License, which may be found in the Perl 5 source kit.

Complete documentation for Perl, including FAQ lists, should be found on
this system using "man perl" or "perldoc perl".  If you have access to the
Internet, point your browser at, the Perl Home Page.

sergei z61m:~/junk> cat -n
     1  #!/usr/bin/perl -w
     3  use strict;
     5  my @data = (1, 2, 3);
     6  my $categories;
     8  @{$categories->{data}} = @data;
    10  warn "\ {\$categories->{data}}= {$categories->{data}}";
sergei z61m:~/junk> ./
@{$categories->{data}}=1 2 3 at ./ line 10.
sergei z61m:~/junk>               

I do not have 5.10.0 to try.

Would you file a bug ?



[Date Prev][Date Next]   [Thread Prev][Thread Next]   [Thread Index] [Date Index] [Author Index]