Opened by Patrick at 2004-01-21 11:06
User since
2004-01-07
56 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-01-07
56 Artikel
BenutzerIn
Hi,
habe es fast geschafft :-)
hier mein Code
Jetzt nur noch der letzte Chirogische Eingriff!
Die Labels sind stellenweise enger aufeinander als die Textfelder, wie korrigiere ich diese Feinheit??
Trotzdem Danke.
habe es fast geschafft :-)
hier mein 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
#! /usr/bin/perl -w
use strict;
use Tk;
use warnings;
# Variablendeklaration
# Window object
my ($mw);
# framestuff
my ($fup, $fdw, $f1, $f2, $right1, $right2);
# vars
my ($file, $i, $line, $path, $lbs_val);
# Labels
my ($labl1_lbl, $labl2_lbl, $labl3_lbl, $labl4_lbl);
my ($labl5_lbl, $labl6_lbl, $labl7_lbl, $labl8_lbl);
# textvars
my ($text1, $text2, $text3, $text4, $text5, $text6);
my ($text7, $text8);
# first of all, create a main window
$mw = MainWindow->new();
###########################################################
#-----------------------------Declares-------------------------------------------#
###########################################################
# Gestapelte Frames
$fup = $mw->Frame()->pack();
$fdw = $mw->Frame()->pack();
$f1 = $fup->Frame()->pack(-side => 'left');
$f2 = $fup->Frame()->pack(-side => 'left');
$right1 = $fup->Frame()->pack(-side => 'left');
$right2 = $fup->Frame()->pack(-side => 'left');
$right1->Label(-text => "TEXT1:")->pack(-padx => '1c', -anchor => 'e');
$right1->Label(-text => "TEXT2:")->pack(-padx => '1c', -anchor => 'e');
$right1->Label(-text => "TEXT3:")->pack(-padx => '1c', -anchor => 'e');
$right1->Label(-text => "TEXT4:")->pack(-padx => '1c', -anchor => 'e');
$f1->Label(-text => "TEXT5:")->pack(-padx => '1c', -anchor => 'e');
$f1->Label(-text => "TEXT6:")->pack(-padx => '1c', -anchor => 'e');
$f1->Label(-text => "TEXT7:")->pack(-padx => '1c', -anchor => 'e');
$f1->Label(-text => "TEXT8:")->pack(-padx => '1c', -anchor => 'e');
# here the textfields
$labl1_lbl = $right2->Entry(-textvariable => \$text1 ) ->pack();
$labl2_lbl = $right2->Entry(-textvariable => \$text2 ) ->pack();
$labl3_lbl = $right2->Entry(-textvariable => \$text3) ->pack();
$labl4_lbl = $right2->Entry(-textvariable => \$text4) ->pack();
$labl5_lbl =$f2->Entry(-textvariable => \$text5) ->pack();
$labl6_lbl =$f2->Entry(-textvariable => \$text6) ->pack();
$labl7_lbl =$f2->Entry(-textvariable => \$text7) ->pack();
$labl8_lbl =$f2->Entry(-textvariable => \$text8) ->pack();
.
.
.
Jetzt nur noch der letzte Chirogische Eingriff!
Die Labels sind stellenweise enger aufeinander als die Textfelder, wie korrigiere ich diese Feinheit??
Trotzdem Danke.
Mfg
Paddy
Perl ist göttlich, die Kunst besteht darin Perl anwenden zu können.
Paddy
Perl ist göttlich, die Kunst besteht darin Perl anwenden zu können.