|
texts.pl |
#!/usr/local/bin/perl -w use strict; use Tk; use MVC::Model::Text; use MVC::Viewer::ROText; my $main = new MainWindow; my $model = new MVC::Model::Text "some\nlines\nof\ntext\n"; foreach (1..3) { my $viewer = $main->Scrolled('ROTextViewer', '-model' => $model, '-width' => 20, '-height' => 5); $viewer->pack; } my $line = ""; my $entry = $main->Entry('-textvariable' => \$line)->pack; $entry->bind('<Return>', sub { $model->append($line . "\n"); $line = ""; }); MainLoop; |
Natürlich kann die MVC-Strukturierung auch in Perl/Tk
übernommen werden, wenn einmal die Grundmechanismen dafür
geschaffen worden sind.
|
Copyright © 1996, 1998, 1999, 2000 Andreas Borchert, in HTML konvertiert am 07.02.2000 |