[Tk::ToolBar] Bug bei -width für Entry? (gelöst) - #146351 (Graphische Oberflächen)

pktm

2011-03-09 20:57

User since
2003-08-07
2921 Artikel
BenutzerIn

Hallo!

Ich erstelle mir hier gerade einen CPAN:

Tk::ToolBar. Bei mir kann ich die Breite eines Entry nicht mittels -width setzen. Im Quellcode von Tk::ToolBar steht auch ein festgelegter Wert dafür:

Code (perl): (dl )

sub ToolEntry {
    my $self = shift;
    my %args = @_;

    my $m = delete $args{-tip} || '';
    my $l = $self->{CONTAINER}->Entry(%args, -width => 5);

    push @{$self->{WIDGETS}} => $l;

    $self->_packWidget($l);
    $self->{BALLOON}->attach($b, -balloonmsg => $m) if $m;

    return $l;
}

Jetzt die Quizfrage: konnte man vorher -width setzen, oder ist das schon immer kaputt gewesen? Vllt. ging Perl früher ja mal anders mit doppelten Hashkeys um? Ich hab hier Strawberry Perl 5.12.2.

Edit: da ist sogar noch ein kleiner Typo drin: an Stelle von von $b in $self->{BALLOON}->attach($b, -balloonmsg => $m) if $m; muss da $l hin.

Grüße, pktm
Last edited: 2011-03-09 21:02:27 +0100 (CET)

http://www.intergastro-service.de (mein erstes CMS :) )