Opened by Rambo at 2006-01-27 13:45
User since
2003-08-14
803 Artikel
BenutzerIn
2003-08-14
803 Artikel
BenutzerIn
für die welche es verfolgen,
habe das problem mit IO::Socket gelöst funktioniert viel besser
als Telnet.
hab hier leider noch ein kleines TK problem mit der eingabe
ich möchte das was ich im text feld eingebe auch übermittel.
bsp.
falls jemad eine idee hat wäre das super.
fürti rambo
habe das problem mit IO::Socket gelöst funktioniert viel besser
als Telnet.
hab hier leider noch ein kleines TK problem mit der eingabe
ich möchte das was ich im text feld eingebe auch übermittel.
bsp.
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
my $scroll = $mw->Scrolled("Text",
-font => '{Arial} 10 {bold}',
-scrollbars => 'e') ->pack;
$scroll->place(-width => 675,
-height => 570,
-x => 5,
-y => 45);
MainLoop();
&call_term;
sub call_term
{
my $str = "";
do {{
#$str = <STDIN>;
#chomp $str;
print $str;
#$str = $scroll->get("1.0", "end", "$str");
$str = $scroll->insert('end', "$str");
$str = $scroll->get("end", "$str");
}} while $str;
}falls jemad eine idee hat wäre das super.
fürti rambo