Perl/Tk Klasse

[Alex]

Hallo,

kann mir jemand auf den Code mal schauen. Warum Funktioniert das nicht?

  
package FormManager;  
  
use strict;  
use Tk;  
  
sub new  
{  
 my $obj = @_;  
  
 my $ref = {  
  MainForm => MainWindow->new(),  
  Menue    => {}  
 };  
  
 bless($ref, $obj);  
  
 return($ref);  
}  
  
sub CreateMenue  
{  
 my ($self) = @_;  
  
 $self->{Menue} = $self->{MainForm}->Menu(-type => 'menubar');  
  
 $self->{MainForm}->configure(-menu => $self->{Menue});  
 $self->{Menue}->cascade(-label => 'Datei', -underline => 0, );  
}  

=====================

  
#!/usr/bin/perl  
  
use Tk;  
use PM::FormManager;  
  
my $frm = new FormManager;  
$frm->CreateMenue();  

=====================

die Methode CreateMenue funktioert nicht (Can't locate object method "CreateMenue" via package "1" at test.pl line 7)

Ist mir noch zu helfen?

Danke im Voraus
Alex