Vererbung einer Klasse: Objekt in Tk um Methoden erweitern (Graphische Oberflächen)

[thread]5350[/thread]

Vererbung einer Klasse: Objekt in Tk um Methoden erweitern

Leser: 2

#Kein Kommentar

2007-07-09 17:12

User since
2007-06-09
575 Artikel
HausmeisterIn
[default_avatar]

hi,

ich habe eine frage, ich will ein objekt in Tk::RotCanvas
mit Methoden erweitern, wie krieg ich das hin?

muss ich mir eine eigene klasse schreiben und die Methoden
des Tk::RotCanvas erben?

Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind

Sucher

2007-07-09 19:01

User since
2007-03-26
47 Artikel
BenutzerIn
[default_avatar]

Hallo,

Tk::RotCanvas ist eine ganz normale Perl-Klasse.
D.H. du kannst

Code: (dl )

sub Tk::RotCanvas::meine_methode{
my $self = shift;
#tu was
}

schreiben.

Grüße

#Kein Kommentar

2007-07-11 16:57

User since
2007-06-09
575 Artikel
HausmeisterIn
[default_avatar]

danke, deine antwort hat mir weitergeholfen\n\n

Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht alle auf unserer Seite sind

Strat

2007-07-12 01:35

User since
2003-08-04
5246 Artikel
ModeratorIn

ich glaube, der "offizielle" Weg geht darueber, ein abgeleitetes widget zu bauen, z.B.

Code: (dl )

package Tk::MyRotCanvas;
use warnings;
use strict;
use Tk::Derived;
use Tk::RotCanvas;

use vars qw( @ISA );
@ISA = qw( Tk::Derived Tk::RotCanvas );

Construct Tk::Widget 'MyRotCanvas'
sub ClassInit {
  my( $class, $parent ) = @_;
  $class->SUPER::ClassInit( parent );
}

sub Populate {
    my( $self, $args ) = @_;

    $self->SUPER::Populate( $args );
} 

# weitere methoden

1;

aber das Mixin von Sucher funzt auch, und ist einfacher zu coden

Siehe Tk::Derived, Tk::ConfigSpecs

perl -le "s::*erlco'unaty.'.dk':e,y;*kn:ai;penmic;;print"
http://www.fabiani.net/

View all threads created 2007-07-09 17:12.