*** cursor.tcl.orig	Wed Dec  5 15:15:00 2001
--- cursor.tcl	Wed Jul 24 12:36:56 2002
***************
*** 584,589 ****
--- 584,611 ----
  		RaxDisp_Cursor:Move $_Cursor(current) dot \
  			$_Cursor(x_dot,$_Cursor(current)) $_Cursor(y_dot,$_Cursor(current))
  	}
+ # add by turutani, Jul 24, 2002
+ 	bind . <Key-Down> {
+ 		incr _Cursor(y_dot,$_Cursor(current))
+ 		RaxDisp_Cursor:Move $_Cursor(current) dot \
+ 			$_Cursor(x_dot,$_Cursor(current)) $_Cursor(y_dot,$_Cursor(current))
+ 	}
+ 	bind . <Key-Up> {
+ 		incr _Cursor(y_dot,$_Cursor(current)) -1
+ 		RaxDisp_Cursor:Move $_Cursor(current) dot \
+ 			$_Cursor(x_dot,$_Cursor(current)) $_Cursor(y_dot,$_Cursor(current))
+ 	}
+ 	bind . <Key-Right> {
+ 		incr _Cursor(x_dot,$_Cursor(current))
+ 		RaxDisp_Cursor:Move $_Cursor(current) dot \
+ 			$_Cursor(x_dot,$_Cursor(current)) $_Cursor(y_dot,$_Cursor(current))
+ 	}
+ 	bind . <Key-Left> {
+ 		incr _Cursor(x_dot,$_Cursor(current)) -1
+ 		RaxDisp_Cursor:Move $_Cursor(current) dot \
+ 			$_Cursor(x_dot,$_Cursor(current)) $_Cursor(y_dot,$_Cursor(current))
+ 	}
+ # end of addition by turutani
  }