Auswahl einer Datei

runplex.pl

sub select_file { my $file = $left_lb->get('anchor'); $textwin->delete('1.0', 'end'); return unless defined $file; $fname = $file; my $fh = new IO::File $file; unless (defined($fh)) { msg("unable to open $file"); return; } while (<$fh>) { $textwin->insert('end', $_); } $fh->close; $edited_file = $file; }

Mit get('anchor') erhalten wir (den Beginn) der aktuellen Selektion.

Nachdem mit delete('1.0', 'end') das gesamte Textfenster gelöscht worden ist, wird es mit dem Inhalt der ausgewählten Datei frisch gefüllt.

Die Variable $edited_file bestimmt die Überschrift des Editierfensters.

	Mit `get('anchor')` erhalten wir (den Beginn) der aktuellen Selektion.
	Nachdem mit `delete('1.0', 'end')` das gesamte Textfenster gelöscht worden ist, wird es mit dem Inhalt der ausgewählten Datei frisch gefüllt.
	Die Variable `$edited_file` bestimmt die Überschrift des Editierfensters.