Thread Text und Entry-Field in einer Zeile: Wie richte ich die Zeilen aus? (3 answers)
Opened by Gerry at 2004-09-07 01:25

Gerry
 2004-09-07 01:25
#42676 #42676
User since
2004-08-18
26 Artikel
BenutzerIn
[default_avatar]
Hallo zusammen,

nach ein paar Stunden probieren muss ich mich mal wieder an euch wenden. Ich möchte in einem LABFRAME mehrere Zeilen untereinander stellen. Links steht statischer Text und rechts daneben soll ein ENTRY FIELD stehen. Ich schaffe es nicht, beide Felder, also TEXT LABEL und ENTRY FIELD in einer Zeile nebeneinander zu stellen.

So sollte es eigentlich aussehen:
TEXT1 ENTRY FIELD 1
TEXT2 ENTRY FIELD 2
TEXT3 ENTRY FIELD 3

Und so sieht es im Moment noch aus:
TEXT 1
ENTRY FIELD 1
TEXT 1
ENTRY FIELD 2
TEXT 2
ENTRY FIELD 1
TEXT 3
ENTRY FIELD 3

Wer kann mir sagen wo das Problem liegt? Ich habe das TEXT-Feld links oben "verankert" und dachte, dass das ENTRY FIELD rechts oben verankert werden könnte. Ich habe ich wohl noch ein falsches Verständnis für die Raum-Einteilung in einem Widget.

Hier ist der lauffähige Test Code:
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
#!/usr/bin/perl
use Tk::LabFrame;
use Tk::NoteBook;
use strict;
use Tk 8.0;

my $mw = MainWindow->new;
$mw->title("TEST TEST");

# *****************************************************************************
# ** Generiere NOTEBOOK *******************************************************
# *****************************************************************************
my $MyTab = $mw->NoteBook()        -> pack(
               
               
         -side   => 'top',
               
               
         -fill   => 'x',
               
               
         -anchor => 'nw',
               
               
         -padx   => 5,
               
               
         -pady   => 5);

# *****************************************************************************
# ** Generiere TAB1 ***********************************************************
# *****************************************************************************
my $MyTabOne   = $MyTab->add        ('tab1',
               
               
         -label       => 'Bla bla bla',
               
               
         -state       => 'normal',
               
               
         -justify     => 'left');

my $MyTabOne_1 = $MyTabOne->LabFrame(-label=>'[ Überschrift ]',
                                     -labelside    =>'acrosstop')
                                     ->pack(-side  =>'left',
               
               
              -expand=>'0',
               
               
              -fill  =>'y');

my $MyTabOne_Lab_11 = $MyTabOne_1->Label(-text=>"Ein Eintrag:      ") ->pack(-anchor =>"nw");
my $MyTabOneEntry_11= $MyTabOne_1->Entry(-width=>25)->pack(-anchor=>"ne");
my $MyTabOne_Lab_12 = $MyTabOne_1->Label(-text=>"Hallo:            ") ->pack(-anchor =>"nw");
my $MyTabOneEntry_12= $MyTabOne_1->Entry(-width=>25)->pack(-anchor=>"ne");
my $MyTabOne_Lab_13 = $MyTabOne_1->Label(-text=>"Alles klar:       ") ->pack(-anchor =>"nw");
my $MyTabOneEntry_13= $MyTabOne_1->Entry(-width=>25)->pack(-anchor=>"ne");
my $MyTabOne_Lab_14 = $MyTabOne_1->Label(-text=>"Geht so:          ") ->pack(-anchor =>"nw");
my $MyTabOneEntry_14= $MyTabOne_1->Entry(-width=>25)->pack(-anchor=>"ne");

MainLoop;

View full thread Text und Entry-Field in einer Zeile: Wie richte ich die Zeilen aus?