OOP: Konstruktorfunktion

[Siechfred]

Meinst de es funktioniert nicht?

Nein, die von dir gepostete Fehlermeldung deutet genau auf den Fehler hin, den ich beschrieben habe. Änderst du das, funktioniert es wie gewünscht. Hier mein reduzierter Testcode:

#!/usr/bin/perl -w  
  
use strict;  
use diagnostics;  
  
my $frm = FormManager->new;  
$frm->CreateMenue();  
  
package FormManager;  
  
use Tk;  
  
sub new {  
  my $obj = shift;  
  my $ref = { MainForm => MainWindow->new(),  
              Menue    => {}  
            };  
  bless $ref, $obj;  
  return $ref;  
}  
  
sub CreateMenue {  
  my $self = shift;  
  $self->{Menue} = $self->{MainForm}->Menu(-type => 'menubar');  
  $self->{MainForm}->configure(-menu => $self->{Menue});  
  $self->{Menue}->cascade(-label => 'Datei', -underline => 0 );  
  $self->{MainForm}->MainLoop;  
}

Das tut zunächst das, was man in diesem Stadium erwarten kann: Es zeigt ein Fensterchen mit 'Datei' an.

Also bei mir geht es, eben ohne Semikolon am ende der Sub.

Sehr seltsam.

Siechfred