Thread [Tk::ToolBar] Bug bei -width für Entry? (2 answers)
Opened by pktm at 2011-03-09 20:57

#Kein Kommentar
 2011-03-09 22:14
#146352 #146352
User since
2007-06-09
575 Artikel
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 )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

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

View full thread [Tk::ToolBar] Bug bei -width für Entry?