Thread Verkleinerung einer gescrollter Listbox mit place (2 answers)
Opened by meier19 at 2009-03-15 09:32

meier19
 2009-03-15 09:32
#119402 #119402
User since
2009-02-03
73 Artikel
BenutzerIn
[Homepage] [default_avatar]
Ich möchte eine gescrollte Listbox mit place erstellen und diese mit einem Button erneut aufrufen. Bei der erstmaligen Erstellung hat die Listbox eine bestimmte Grösse. Rufe ich jedoch über den Button die Listbox erneut auf, so verkleinert sie sich in beiden Richtungen, und zwar anscheinend je um die Breite eines Scrollbalkens (bei weitern Aufrufen über den Button erfolgt keine Grössenveränderung mehr).

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

#!/usr/bin/perl
use strict;
use warnings;

use Tk;

my $mw = MainWindow -> new ();
$mw -> minsize (200, 250);

&listbox;
$mw -> Button (-text => "Button", -command => \&listbox) -> pack ();

MainLoop;

sub listbox 
        {
        my @liste = @_;
        my $listbox = $mw -> Scrolled ("Listbox") -> place (-x => 0, -y => 35);
        }



Das Problem besteht nicht, wenn pack anstelle von place verwendet wird oder die Listbox ohne Scrollbalken erstellt wird. Aber ich möchte eben eine gescrollte Listbox mit place haben.

Was mache ich falsch? Merkwürdig ist, dass die Grössenänderung auch erfolgt, wenn mit -height und -width eine bestimmte Grösse der Listbox vorgegeben wird.
Der Mensch schöpft seine Gesetze nicht aus der Natur, sondern schreibt sie dieser vor (Immanuel Kant).

View full thread Verkleinerung einer gescrollter Listbox mit place