my $container = X->new();  #conti erzeugen

$container->GFXButton_add(PARAMENTer);

#--sub-- des contis, gibt
$GFXButton = X::GFXButton;

sub GFXButton_add
{return $GFXButton->new(@_);}  



#--new-methode von GFXButton ---



#Erzeugen
sub new {

    my ($class,@params) = @_;
    my $self = {};
    bless($self,$class);
    #for(qw(ID APP X Y IMG IMGHV)){$self->{$_} = shift(@params);}

    $self->{CONTAINER} = shift(@params);        #Container
    $self->{ID} = shift(@params);              &n
bsp; #ID oder Name
    $self->{APP} = shift(@params);            


......
......
......
push( @{$self->{CONTAINER}->{BUTTS} }   ,  $self);


    return($self);
}