Skip Menu |
 

This queue is for tickets about the Tk-ToolBar CPAN distribution.

Report information
The Basics
Id: 66514
Status: resolved
Priority: 0/
Queue: Tk-ToolBar

People
Owner: Nobody in particular
Requestors: ASB [...] cpan.org
Cc:
AdminCc:

Bug Information
Severity: Normal
Broken in: 0.10
Fixed in: 0.11



Subject: Typo in variable + cannot set width of Entry
Download (untitled) / with headers
text/plain 700b
Hi! There is a small typo in ToolEntry(). When attaching the balloonmsg to the entry, you refer to $b. However, the current entry is stored in $l. Also, the width is set hardcoded by 5, there is no way to override it. Please find a solution to both problems: sub ToolEntry { my $self = shift; my %args = @_; my $m = delete $args{-tip} || ''; # TIMTOWTDI: you could also type: $args{-width} = 5 unless exists( $args{-width} ); my $w = delete $args{-width} || 5; my $l = $self->{CONTAINER}->Entry(%args, -width => $w); push @{$self->{WIDGETS}} => $l; $self->_packWidget($l); $self->{BALLOON}->attach($l, -balloonmsg => $m) if $m; return $l; } hth, Alex
The same typo is in ToolLabEntry() and ToolOptionmenu(). Same -width problem in ToolLabEntry().
Fixed in Tk::Toolbar v0.11


This service is sponsored and maintained by Best Practical Solutions and runs on Perl.org infrastructure.

Please report any issues with rt.cpan.org to rt-cpan-admin@bestpractical.com.