[Tk::ToolBar] Bug bei -width für Entry? (solved) (Graphische Oberflächen)

[thread]16049[/thread]

[Tk::ToolBar] Bug bei -width für Entry? [solved]

Tags: Tk Similar Threads

Readers: 15

Articles: hide open all | hide show old branches

+3 replies

pktm

2011-03-09 20:57

User since
2003-08-07
2921 articles
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 :) )

+2 replies

#Kein Kommentar

2011-03-09 22:14

User since
2007-06-09
575 articles
HausmeisterIn
[default_avatar]

bei mir funktioniert es auch nicht und ich habe Perl 5.8. war wohl einfach ein fehler in der programmierung. wenn du das Modul nicht direkt bearbeiten und verändern kannst, könntest du ja einen work-around mit einem frame erstellen, in welchen du dann das entry packst.
allerdings wird das dann ein bisschen unschön, wenn die toolbar bewegt wird:

Code (perl): (dl )

use Tk;
        use Tk::ToolBar;

        my $mw = new MainWindow;
        my $tb = $mw->ToolBar(qw/-movable 1 -side top
                                 -indicatorcolor blue/);

        $tb->ToolButton  (-text  => 'Button',
                          -tip   => 'tool tip',
                          -command => sub { print "hi\n" });
        $tb->ToolLabel   (-text  => 'A Label');
        $tb->Label       (-text  => 'Another Label');
        $tb->ToolLabEntry(-label => 'A LabEntry',
                          -labelPack => [-side => "left",
                                         -anchor => "w"]);

        # erstelle einen extra frame:
        my $frame = $tb->Frame()->pack(-side => right);
        $frame->Entry(-width => 40)->pack;

        my $tb2 = $mw->ToolBar;
        $tb2->ToolButton(-image   => 'navback22',
                         -tip     => 'back',
                         -command => \&back);
        $tb2->ToolButton(-image   => 'navforward22',
                         -tip     => 'forward',
                         -command => \&forward);
        $tb2->separator;
        $tb2->ToolButton(-image   => 'navhome22',
                         -tip     => 'home',
                         -command => \&home);
        $tb2->ToolButton(-image   => 'actreload22',
                         -tip     => 'reload',
                         -command => \&reload);

        MainLoop;

Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind

pktm

2011-03-10 08:52

User since
2003-08-07
2921 articles
BenutzerIn

Ah ok, dann auf zu RT. Ich hab mir zwischenzeitlich das Modul lokal zum Skript gelegt, die Version eins hochgezählt und dann entsprechend abgeändert:

Code (perl): (dl )

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

    my $m = delete $args{-tip} || '';
    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;
}

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

View all threads created 2011-03-09 20:57.