view release on metacpan or  search on metacpan

tkdb.pm  view on Meta::CPAN

} # end of code motion eval

#
# Subroutine called when we enter DB::DB()
# In other words when the target script 'stops'
# in the Debugger
#
sub EnterActions {
  my($self) = @_ ;

  # $self->{'main_window'}->Unbusy() ;
}

#
# Subroutine called when we return from DB::DB()
# When the target script resumes.  
#
sub LeaveActions {
  my($self) = @_ ;

  # $self->{'main_window'}->Busy() ;