Hallo,

vielen Dank für "tausender"-Punkte. Aber ich habe noch eine Frage.
Ich hab immer Error Outout:
Win32::GUI: the -style option is deprecated! at C:/Perl/site/lib/Win32/GUI.pm line 276, <DATA> line 164.

Linie 276 das ist:
my $handle = Win32::GUI::Create($self, $type, @input);

im Sub:

sub _new {
   # this is always Win32::GUI (class of _new):
   my $xclass = shift;

   # the window type passed by new():
   my $type = shift;

   # this is the real class:
   my $class = shift;

   my %tier;
   my $oself = $tier{-OSELF} = {};
   tie %tier, $class, $oself;
   my $self = bless \%tier, $class;

   # print "OSELF = $oself\n";
   # print " SELF = $self\n";

   my (@input) = @_;
   # print "PM(Win32::GUI::_new) self='$self' type='$type' input='@input'\n";
   my $handle = Win32::GUI::Create($self, $type, @input);

   if($handle) {
       return $self;
   } else {
       return undef;
   }
}

Was ist falsch ?

Mirko