Opened by styx-cc at 2006-07-30 22:58
User since
2006-05-20
533 Artikel
BenutzerIn
2006-05-20
533 Artikel
BenutzerIn
Hallo, ich versuche gerade eine kleine Applikation zu schreiben und wollte einen Button dazu bringen in einem Scrolled Frame zu expandieren, leider ohne Erfolg:
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 :-)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
#!/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.