#-------------------------------------------------------------------
#take care of args which don't belong to the SUPER, see Tk::Derived
my $font = delete $args->{-font};
if( defined $font ) { $self->{'font'} = $font }
#-----------------------------------------------------------------