Scrolled('Frame'): expand klappt nicht (Graphische Oberflächen)

[thread]5222[/thread]

Scrolled('Frame'): expand klappt nicht

Leser: 1

styx-cc

2006-07-30 22:58

User since
2006-05-20
533 Artikel
BenutzerIn

user image

Hallo, ich versuche gerade eine kleine Applikation zu schreiben und wollte einen Button dazu bringen in einem Scrolled Frame zu expandieren, leider ohne Erfolg:

Code: (dl )

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

use Tk;
use Tk::Pane;

my $mw = MainWindow -> new();

my $sframe = $mw -> Scrolled('Frame') -> pack(-fill => 'both', -expand => 1);
my $b1 = $sframe -> Button(-text => 'Button Nummer 1')->pack(-fill => 'both', -expand => 1);
MainLoop;

Wenn ich das Fenster jetzt resize, bleibt der Button so gross, wie der Text Breit ist..

Habt ihr ne Idee, oder ich nen Denkfehler?

MfG :-)

Pörl.

Arkhen2

2006-07-31 11:21

User since
2005-03-11
25 Artikel
BenutzerIn
[default_avatar]

Wozu dann noch ein scrolled frame ?

Wenn die subwidgets immer die vorhandene Fläche ausfüllen, braucht man das scrollen ja gar nicht.

styx-cc

2006-07-31 14:25

User since
2006-05-20
533 Artikel
BenutzerIn

user image

Am Ende sollen die Subwidgets nur via fill => x gepackt werden und es sind dann so viele untereinander, dass sie mehr Platz einnehmen, als der Bildschirm hergibt..

MfG

Pörl.

Strat

2006-08-01 01:36