Verkleinerung einer gescrollter Listbox mit place (Graphische Oberflächen)

[thread]13227[/thread]

Verkleinerung einer gescrollter Listbox mit place

Leser: 13

Articles: hide open all | hide show old branches

+3 replies
meier19

2009-03-15 09:32
User since
2009-02-03
73 Artikel
BenutzerIn
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).
- +2 replies
- #Kein Kommentar
  
  2009-03-15 12:59
  User since
  2007-06-09
  575 Artikel
  HausmeisterIn
  wieso das so ist, weiß ich auch nicht, aber du kannst es umgehen indem du place eine bestimmte höhe und breite des widgets zuweist:
  
  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
  
  #!/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", -scrollbars => 'sw' )->place( -x => 10, -y => 30, -height => 150, # wird benötigt -width => 150 # wird benötigt ); }
  
  Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind
  - meier19
    
    2009-03-15 16:24
    
    User since
    2009-02-03
    73 Artikel
    BenutzerIn
    
    Vielen Dank für die Lösung!
    Der Mensch schöpft seine Gesetze nicht aus der Natur, sondern schreibt sie dieser vor (Immanuel Kant).

View all threads created 2009-03-15 09:32.