MVC::Viewer::ROText

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

MVC/Viewer/ROText.pm
package MVC::Viewer::ROText;

use strict;
use warnings;
use Carp;
use Tk;
use Tk::ROText;
use MVC::Viewer;

our @ISA = qw(Tk::ROText MVC::Viewer);

Construct Tk::Widget 'ROTextViewer';

sub init {
   my ($self, @options) = @_;
   $self->SUPER::init(@options);
}

*Die Klasse MVC::Viewer::ROText ist eine Ableitung sowohl von dem Widget Tk::ROText (repräsentierendes Widget) als auch der Basisklasse für Viewer MVC::Viewer.
 
*Mit Construct Tk::Widget 'ROTextViewer' wird dafür gesorgt, daß ROTextViewer als Konstruktor-Methode für alle Widgets eingetragen wird, die andere aufnehmen können (MainWindow, TopLevel, Frame usw).
 
*Da Tk::ROText innerhalb @ISA zuerst genannt wird, hat der Konstruktor (Methode new) von Tk::Widget Priorität vor dem von MVC::Viewer.
 

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