Opened by hudo at 2007-07-27 23:04
User since
2003-11-20
72 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-11-20
72 Artikel
BenutzerIn
Hallo ich moechte den Inhalt einer Datei mit TK in einer Listbox ausgeben, dabei soll der Inhalt der Datei (selbsttaetig) nach n Sekunden aktualisiert werden. Bin dabei auf Tk::After gestoßen, komme aber nicht mit der Syntax klar.
Kann mir dabei jemand behilflich sein.
Vielleicht weiss auch jemand eine andere Moeglichkeit ?
Anbei ein Auszug aus dem Code
Kann mir dabei jemand behilflich sein.
Vielleicht weiss auch jemand eine andere Moeglichkeit ?
Anbei ein Auszug aus dem 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
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
#!/usr/bin/perl
use Tk;
use Tie::File;
use Tk::after;
my $liste;
my $liste_font;
my $breite=100; ### Anzahl der abgezeigten Zeichen in der Liste
my $the_selectmode = "extended"; ### "single","multiple","extended"
my $enter;
my @array_file;
my $mw = MainWindow->new();
### rahmen fuer Hauptseite
my $frame1 = $mw->Frame(-width=>50, -height=>50, -bg=>"seashell");
my $frame2 = $mw->Frame(-width=>5, -height=>5, -bg=>"grey80");
$liste_font = $mw->fontCreate(-family=>"courier", -size=>7 ); ### zB treffer-Liste
my $liste = $frame1->ScrlListbox(
##-font=>$liste_font,
-setgrid=>1,
-scrollbars=>"se",
#-background=>"wheat3",
-background=>"lemonchiffon3",
-borderwidth=>3,
-highlightthickness=>10,
##-selectmode => "extended", ###"multiple"
##-selectmode => "multiple",
##-selectmode => "single",
## -selectmode =>$the_selectmode,
-height => 30,
## -width => $breite,
-selectforeground=>"blue",
-selectbackground=>"green",
##-setgrid=>1,
##-selectborderwidth=>1,
-relief=>"ridge",
-exportselection => 1)->pack(-side=>"right", -expand=>1, -fill=>"both");
my $exitButton = $frame2->Button ( -text=>"Schliessen" ,-command=>"exit" ,-bg=>"red" ,-activebackground=>"red" ,-activeforeground=>"cyan" )->pack(-anchor=>"w" ,-padx=>10 ,-pady=>15 ,-ipady=>10 ,-fill=>"x");
##################################################################
### Packen der Rahmen auf Hauptseite ############################
##################################################################
$frame1->pack(-side => 'left' ,-expand=>1 ,-fill=>"both");
$frame2->pack(-side => 'right',-expand=>1 );
$frame2->pack(-expand=>1 ,-fill=>"both");
##############################################
### sofort ausgefuehrte Subroutines
##############################################
=pod
while(1) {
#&fill_from_file();
sleep(2);
};
=cut
#&fill_from_file();
&fill_with_tie();
##############################################
### Ende sofort ausgefuehrte Subroutines
##############################################
MainLoop;
######################################################
sub fill_from_file {
my $file = "meinfile.txt";
my $line;
$liste->delete(0,"end");
if ( -s $file ) {
open(DATEI, "<$file") or die $!;
while ($line = <DATEI>) {
chomp $line;
$liste->insert(0,$line);
}
close(DATEI);
} ## if -s $file
} ## fill_from_file #################
############################################################
######################################################
sub fill_with_tie {
my $file = "meinfile.txt";
my $line;
my $elem;
$liste->delete(0,"end");
if ( -e $file ) {
tie @array_file, "Tie::File", $file || die $!;
foreach $elem (@array_file) {
chomp $elem;
$liste->insert(0,$elem);
} ## foreach
untie @array_file;
} else {
print "Kann $file nicht oeffnen $!\n";
} ## if -s $file
} ## fill_with_tie #################
############################################################