sub update_button
{
  my $self = shift;
  my $buttonobj = $self->{tkobjects}->{submitbutton};
  $buttonobj->#do something with the button
}