Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
    use warnings;
    ...
         });
    
    MainLoop;
    
  2. or download this
    sub bindRdOnly{
    $mw->bind($class,'<Control-KeyPress>','NoOp');
    ....
    .....
    }
    
  3. or download this
    package Tk::MyText;
    require Tk::Text;
    ...
      $w->SUPER::InsertKeypress($char);
      }
    }