view release on metacpan or  search on metacpan

tcltkdb.pm  view on Meta::CPAN

  $self->set_file($saveCurFile, $self->{current_line}) ;

  $self->{'event'} = 'update' ;

  if ( $main_win_geometry && $self->{'main_window'} ) { 
    # restore the height and width of the window
    $self->{main_window}->geometry( $main_win_geometry ) ;
  }
} # end of retstoreState

sub updateEvalWindow {
  my ($self, @result) = @_ ;
  my ($leng, $str) = (0,'');

  for (@result) {
    if( $self->{hexdump_evals} ) {
      # eventually put hex dumper code in here
      $self->{eval_results}->insert('end', hexDump($_)) ;
    } else {
      my $d = Data::Dumper->new([$_]);
      $d->Indent(2);

tcltkdb.pm  view on Meta::CPAN

$DB::window->{current_file} = "" ;

#
# Here's the clue...
# eval only seems to eval the context of
# the executing script while in the DB
# package.  When we had updateExprs in the Devel::tcltkdb
# package eval would turn up an undef result.
#

sub updateExprs {
  my ($package) = @_ ;
  #
  # Update expressions
  # 
  $DB::window->deleteAllExprs();

  foreach my $expr (@{$DB::window->{'expr_list'}}) {
    next if length $expr == 0 ;

    my @result = &DB::dbeval($package, $expr->{'expr'}) ;