Select Code to Download

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