view release on metacpan or  search on metacpan

tkdb.pm  view on Meta::CPAN

  my ($offset_x, $offset_y) = ($x + 4, $y + 4) ;
  my $self = $DB::window ;
  my $txt2 = $self->{'text'} ;
  my $data ;

  $self->{'balloon_coord'} = "$offset_x,$offset_y" ;

  $x -= $txt->rootx;
  $y -= $txt->rooty;
  #
  # Post an event that will cause us to put up a popup
  #

  if ($txt2->_tagRangesSel) { # check to see if 'sel' tag exists (return undef value)
    $data = $txt2->get("sel.first", "sel.last") ; # get the text selection
  }
  else {
    $data = $DB::window->retrieve_text_expr($x, $y);
  }

  if( !$data ) {