MVC-Klassen in Perl

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite]

texts.pl
#!/usr/local/bin/perl
use strict;
use warnings;
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.
 

[Vorheriges Kapitel] [Vorherige Seite] [Inhaltsverzeichnis] [Nächste Seite]
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003