Help for this page

Select Code to Download


  1. or download this
      $text->tag('bind','your-tag','<Button-1>'=>sub {
        my $var = $text->get($text->tagPrevrange('your-tag','current'));
        # and here do something with $var
      });