Tk::Balloon menu problem

p5pRT commented 17 years ago

Migrated from rt.perl.org#43380 (status was 'rejected')

Searchable as RT43380$

p5pRT commented 17 years ago

From knollmay@enternet.hu

Created by knollmay@enternet.hu

Tk::Balloon menubutton -> submenu none balloon text.

sub grabBad {

my ($w\, $client) = @_; return 0 unless Exists($client); my $g = $w->grabCurrent; return 0 unless defined $g; #******************************************* #this line insert correction. return 0 if $client->isa('Tk::Menu'); #******************************************* return 0 if $g->isa('Tk::Menu'); return 0 if $g eq $client;

# The grab is OK if $client is a decendant of $g. Use the internal Tcl/Tk # pathname (yes\, it's cheating\, but it's legal).

return 0 if $g == $w->MainWindow; my $wp = $w->PathName; my $gp = $g->PathName; return 0 if $wp =~ /^$gp/; return 1; # bad grab

} # end grabBad

Perl Info

``` Flags: category=utilities severity=none Site configuration information for perl v5.8.8: Configured by root at Mon May 14 12:29:33 CEST 2007. Summary of my perl5 (revision 5 version 8 subversion 8) configuration: Platform: osname=linux, osvers=2.6.20-1.2925.fc6, archname=i686-linux uname='linux localhost.localdomain 2.6.20-1.2925.fc6 #1 smp sat mar 10 18:20:58 est 2007 i686 i686 i386 gnulinux ' config_args='' hint=recommended, useposix=true, d_sigaction=define usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef useperlio=define d_sfio=undef uselargefiles=define usesocks=undef use64bitint=undef use64bitall=undef uselongdouble=undef usemymalloc=n, bincompat5005=undef Compiler: cc='cc', ccflags ='-fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm', optimize='-O2', cppflags='-fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -I/usr/include/gdbm' ccversion='', gccversion='4.1.1 20070105 (Red Hat 4.1.1-51)', gccosandvers='' intsize=4, longsize=4, ptrsize=4, doublesize=8, byteorder=1234 d_longlong=define, longlongsize=8, d_longdbl=define, longdblsize=12 ivtype='long', ivsize=4, nvtype='double', nvsize=8, Off_t='off_t', lseeksize=8 alignbytes=4, prototype=define Linker and Libraries: ld='cc', ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc libc=/lib/libc-2.5.so, so=so, useshrplib=false, libperl=libperl.a gnulibc_version='2.5' Dynamic Linking: dlsrc=dl_dlopen.xs, dlext=so, d_dlsymun=undef, ccdlflags='-Wl,-E' cccdlflags='-fpic', lddlflags='-shared -L/usr/local/lib' Locally applied patches: @INC for perl v5.8.8: /usr/local/lib/perl5/5.8.8/i686-linux /usr/local/lib/perl5/5.8.8 /usr/local/lib/perl5/site_perl/5.8.8/i686-linux /usr/local/lib/perl5/site_perl/5.8.8 /usr/local/lib/perl5/site_perl . Environment for perl v5.8.8: HOME=/home/en LANG=hu_HU.UTF-8 LANGUAGE (unset) LD_LIBRARY_PATH (unset) LOGDIR (unset) PATH=/usr/lib/qt-3.3/bin:/usr/kerberos/bin:/usr/local/bin:/usr/bin:/bin:/usr/X11R6/bin:/usr/NX/bin:/home/en/bin:/usr/NX/bin PERL_BADLANG (unset) SHELL=/bin/bash ```

p5pRT commented 17 years ago

From a.r.ferreira@gmail.com

On 6/26/07\, via RT Knollmajer Janos \perlbug\-followup@perl\.org wrote:

# New Ticket Created by Knollmajer Janos # Please include the string: [perl #43380] # in the subject line of all future correspondence about this issue. # \<URL: http://rt.perl.org/rt3/Ticket/Display.html?id=43380 >

Reply-To: knollmay@enternet.hu Message-Id: \5\.8\.8\_5452\_1182840453@localhost\.localdomain

This is a bug report for perl from knollmay@enternet.hu\, generated with the help of perlbug 1.35 running under perl v5.8.8.

----------------------------------------------------------------- [Please enter your report here]

Tk::Balloon menubutton -> submenu none balloon text.

Tk::Ballon is part of the Tk distribution (http://search.cpan.org/dist/Tk). This is the list of the developers of Perl core distribution and Tk is not part of the software maintained here.

You will have more chances to hit the solution you're looking for by filing a bug at the CPAN RT queue (via web: http://rt.cpan.org/Public/Dist/Display.html?Name=Tk or via e-mail: bug-Tk@rt.cpan.org) or by sending your issue to a Tk mailing list like ptk@perl.org. More information on the link:

http://lists.cpan.org/showlist.cgi?name=ptk

sub grabBad {
my $$w\, $client$ = @&#8203;\_;
return 0 unless Exists$$client$;
my $g = $w\->grabCurrent;
return 0 unless defined $g;
#******************************************* #this line insert correction. return 0 if $client->isa('Tk::Menu'); #******************************************* return 0 if $g->isa('Tk::Menu'); return 0 if $g eq $client;
\# The grab is OK if $client is a decendant of $g\. Use the internal
Tcl/Tk # pathname (yes\, it's cheating\, but it's legal).
return 0 if $g == $w\->MainWindow;
my $wp = $w\->PathName;
my $gp = $g\->PathName;
return 0 if $wp =~ /^$gp/;
return 1;                   \# bad grab
} # end grabBad

[Please do not change anything below this line] ----------------------------------------------------------------- --- Flags: category=utilities severity=none --- Site configuration information for perl v5.8.8:

Configured by root at Mon May 14 12:29:33 CEST 2007.

Summary of my perl5 (revision 5 version 8 subversion 8) configuration: Platform: osname=linux\, osvers=2.6.20-1.2925.fc6\, archname=i686-linux uname='linux localhost.localdomain 2.6.20-1.2925.fc6 #1 smp sat mar 10 18:20:58 est 2007 i686 i686 i386 gnulinux ' config_args='' hint=recommended\, useposix=true\, d_sigaction=define usethreads=undef use5005threads=undef useithreads=undef usemultiplicity=undef useperlio=define d_sfio=undef uselargefiles=define usesocks=undef use64bitint=undef use64bitall=undef uselongdouble=undef usemymalloc=n\, bincompat5005=undef Compiler: cc='cc'\, ccflags ='-fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -D_LARGEFILE_SOURCE -D_FILE_OFFSET_BITS=64 -I/usr/include/gdbm'\, optimize='-O2'\, cppflags='-fno-strict-aliasing -pipe -Wdeclaration-after-statement -I/usr/local/include -I/usr/include/gdbm' ccversion=''\, gccversion='4.1.1 20070105 (Red Hat 4.1.1-51)'\, gccosandvers='' intsize=4\, longsize=4\, ptrsize=4\, doublesize=8\, byteorder=1234 d_longlong=define\, longlongsize=8\, d_longdbl=define\, longdblsize=12 ivtype='long'\, ivsize=4\, nvtype='double'\, nvsize=8\, Off_t='off_t'\, lseeksize=8 alignbytes=4\, prototype=define Linker and Libraries: ld='cc'\, ldflags =' -L/usr/local/lib' libpth=/usr/local/lib /lib /usr/lib libs=-lnsl -lgdbm -ldb -ldl -lm -lcrypt -lutil -lc perllibs=-lnsl -ldl -lm -lcrypt -lutil -lc libc=/lib/libc-2.5.so\, so=so\, useshrplib=false\, libperl=libperl.a gnulibc_version='2.5' Dynamic Linking: dlsrc=dl_dlopen.xs\, dlext=so\, d_dlsymun=undef\, ccdlflags='-Wl\,-E' cccdlflags='-fpic'\, lddlflags='-shared -L/usr/local/lib'

Locally applied patches:

--- @INC for perl v5.8.8: /usr/local/lib/perl5/5.8.8/i686-linux /usr/local/lib/perl5/5.8.8 /usr/local/lib/perl5/site_perl/5.8.8/i686-linux /usr/local/lib/perl5/site_perl/5.8.8 /usr/local/lib/perl5/site_perl .

--- Environment for perl v5.8.8: HOME=/home/en LANG=hu_HU.UTF-8 LANGUAGE (unset) LD_LIBRARY_PATH (unset) LOGDIR (unset)

PATH=/usr/lib/qt-3.3/bin:/usr/kerberos/bin:/usr/local/bin:/usr/bin:/bin:/usr/X11R6/bin:/usr/NX/bin:/home/en/bin:/usr/NX/bin PERL_BADLANG (unset) SHELL=/bin/bash

p5pRT commented 17 years ago

The RT System itself - Status changed from 'new' to 'open'

p5pRT commented 17 years ago

@smpeters - Status changed from 'open' to 'rejected'

Perl / perl5