115,116c115,118
<  $mw->bind($class,'<Left>', ['SetCursor',Ev('deltainsert',-1)]);
<  $mw->bind($class,'<Right>',['SetCursor',Ev('deltainsert',1)]);
---
>  #$mw->bind($class,'<Left>', ['SetCursor',Ev('deltainsert',-1)]);
>  $mw->bind($class,'<Left>', ['LeftNumLock', Ev('A')]);
>  #$mw->bind($class,'<Right>',['SetCursor',Ev('deltainsert',1)]);
>  $mw->bind($class,'<Right>',['RightNumLock', Ev('A')]);
127c129,130
<  $mw->bind($class,'<Delete>','Delete');
---
>  #$mw->bind($class,'<Delete>','Delete');
>  $mw->bind($class,'<Delete>', ['DeleteNumLock', Ev('A')]);
152c155
<  $mw->bind($class,'<KP_Enter>' ,'NoOp');
---
>  $mw->bind($class,'<KP_Enter>' , 'DoReturn');
194a198,233
> sub LeftNumLock
> {
>   my ($widget, $alpha) = @_;
>   if ($alpha) {
>     $widget->Insert($alpha);
>   } else {
>     $widget->SetCursor($widget->deltainsert(-1));
>   }
> }
> 
> sub RightNumLock
> {
>   my ($widget, $alpha) = @_;
>   if ($alpha) {
>     $widget->Insert($alpha);
>   } else {
>     $widget->SetCursor($widget->deltainsert(1));
>   }
> }
> 
> sub DeleteNumLock
> {
>   my ($widget, $alpha) = @_;
>   if ($alpha eq '.') {
>     $widget->Insert($alpha);
>   } else {
>     $widget->Delete;
>   }
> }
> 
> sub DoReturn
> {
>   my ($widget) = @_;
>   $widget->eventGenerate('<Return>');
> }
>