Thread Label linkbündig: wie geht das? (20 answers)
Opened by format_c at 2003-09-01 16:08

Crian
 2003-09-01 20:30
#42015 #42015
User since
2003-08-04
5873 Artikel
ModeratorIn
[Homepage]
user image
Sooo erstmal die Pack-Lösung:

Code: (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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
#!/usr/bin/perl
use diagnostics;
use strict;
use warnings;

use Tk;

my $mw = Tk::MainWindow->new();

my $f1 = $mw->Frame()
             ->pack(-side   => 'top',
                    -expand => 1,
                    -fill   => 'both',
                   );
$f1->Label(-text   => 'Startpfad: ',
           -width  => 20,
           -anchor => 'w',
          )
    ->pack(-side   => 'left',
           -expand => 1,
           -fill   => 'x',
          );
my $pfad = $f1->Entry(-width  => 50
                     )
               ->pack(-side   => 'left',
                      -expand => 1,
                      -fill   => 'x',
                     );

my $f2 = $mw->Frame()
             ->pack(-side   => 'top',
                    -expand => 1,
                    -fill   => 'both',
                   );
$f2->Label(-text => 'Suchstring: ',
           -width  => 20,
           -anchor => 'w',
          )
    ->pack(-side   => 'left',
           -expand => 1,
           -fill   => 'x',
          );
my $Such = $f2->Entry(-width  => 50,
                     )
               ->pack(-side   => 'left',
                      -expand => 1,
                      -fill   => 'x',
                     );

my $f3 = $mw->Frame()
             ->pack(-side   => 'top',
                    -expand => 1,
                    -fill   => 'both',
                   );
$f3->Label(-text   => 'Ersetzungsstring: ',
           -width  => 20,
           -anchor => 'w',
          )
    ->pack(-side   => 'left',
           -expand => 1,
           -fill   => 'x',
          );
my $Erse = $f3->Entry(-width  => 50,
                     )
               ->pack(-side   => 'left',
                      -expand => 1,
                      -fill   => 'x',
                     );

MainLoop();


und damit gehts natürlich auch mit grid :rolleyes:

Code: (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/usr/bin/perl
use diagnostics;
use strict;
use warnings;

use Tk;

my $mw = Tk::MainWindow->new();
my $f1 = $mw->Frame()->grid();

$f1->Label(-text=>'Startpfad: ',-width  => 20,-anchor => 'w')->grid(-row=>0,-column=>0);
my $pfad = $f1->Entry(-width=>50)->grid(-row=>0,-column=>1);
$f1->Label(-text=>'Suchstring: ',-width  => 20,-anchor => 'w')->grid(-row=>1,-column=>0);
my $Such = $f1->Entry(-width=>50)->grid(-row=>1,-column=>1);
$f1->Label(-text=>'Ersetzungsstring: ',-width  => 20,-anchor => 'w')->grid(-row=>2,-column=>0);
my $Erse = $f1->Entry(-width=>50)->grid(-row=>2,-column=>1);

MainLoop();
s--Pevna-;s.([a-z]).chr((ord($1)-84)%26+97).gee; s^([A-Z])^chr((ord($1)-52)%26+65)^gee;print;

use strict; use warnings; Link zu meiner Perlseite

View full thread Label linkbündig: wie geht das?