view release on metacpan or  search on metacpan

tkdb.pm  view on Meta::CPAN

2218
2219
2220
2221
2222
2223
2224
2225
2226
2227
2228
2229
2230
2231
2232
2233
2234
2235
2236
2237
2238
  $self->set_file($saveCurFile, $self->{current_line}) ;
 
  if ( $main_win_geometry && $self->{'main_window'} ) { 
    # restore the height and width of the window
    $self->{main_window}->geometry( $main_win_geometry ) ;
  }
  $self->{int}->SetVar('event','update');
 
} # 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);

tkdb.pm  view on Meta::CPAN

2600
2601
2602
2603
2604
2605
2606
2607
2608
2609
2610
2611
2612
2613
2614
2615
2616
2617
2618
2619
2620
our $VERSION = '2.0';
 
#
# 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::tkdb
# 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'}) ;