elsif($class eq 'GEN'){
    $self->handler(text => sub{$text = shift;},"dtext");