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);
  }
}