sub bindRdOnly{
$mw->bind($class,'<Control-KeyPress>','NoOp');
....
.....
}