|
logviewer.pl |
my $main = new MainWindow; $main->configure('-title' => $logfile); my $logwin = $main->Scrolled('ROText' => '-borderwidth' => 3, '-relief' => 'groove', '-scrollbars' => 'e', '-height' => '20', '-width' => 80, ); $logwin->fileevent($log, 'readable', sub { update_log($logwin, $log) }); |
Widgets für Textfenster sind Text und ROText,
wobei letzteres von dem Modul Tk::ROText exportiert wird.
Text unterstützt frei editierbare Texte, während
ROText alle Editieroperationen unterbindet.
| |
Neben den Ereignissen in Bezug auf die Benutzeroberfläche
ist es auch möglich, auf Ereignisse bei IO-Verbindungen
und auf zeitliche Ereignisse zu reagieren.
(All dies läßt sich in einem select- oder poll-Systemaufruf
regeln).
| |
Die Methode fileevent ruft die beim dritten Parameter
angegebene Prozedur für jedes beim zweiten Parameter
spezifizierte Ereignis für die beim ersten Parameter
angegebene IO-Verbindung auf. Dies wird solange wiederholt,
bis dies explizit rückgängig gemacht wird (z.B. bei dem
dritten Parameter undef angeben).
|
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |