*** cursor.tcl.orig	Wed Dec  5 15:15:00 2001
--- cursor.tcl	Tue Jul 23 20:27:40 2002
***************
*** 162,167 ****
--- 162,170 ----
  	$m add command -label "Rotate"        -command RaxDisp_Cursor:Rotate:Popup
  	$m add command -label "Peak position" -command "RaxDisp_Bind:Clear;RaxDisp_Bind:Set peak"
      $m add command -label "Reset" -command RaxDisp_Cursor:Reset
+ # add by turutani Jul. 23, 2002
+ 	$m add command -label "WalkCursor"        -command RaxDisp_Cursor:WalkCursor:Popup
+ # end of addition
  
  	pack $w.m$i -padx 10
  }
***************
*** 691,693 ****
--- 694,730 ----
  	}
  }
  
+ # add by turutani Jul. 23, 2002
+ proc RaxDisp_Cursor:WalkCursor:Popup {} {
+ 
+ 	global  _Cursor Canvas
+ 	set w .walk
+ 	if {[winfo exists $w] == 1} {
+ 		raise $w
+ 		return
+ 	}
+ 	set f [RaxDlg_Dialog:CreateFrame $w {{Dismiss "destroy .walk"}}]
+ 	set i $_Cursor(current)
+ 	set _Cursor(x_dot,0) [lindex [RaxImg_pxl2disp $_Cursor(x,0) $_Cursor(y,0)] 0]
+ 	set _Cursor(y_dot,0) [lindex [RaxImg_pxl2disp $_Cursor(x,0) $_Cursor(y,0)] 1]
+ 	set _Cursor(x_dot,1) [lindex [RaxImg_pxl2disp $_Cursor(x,1) $_Cursor(y,1)] 0]
+ 	set _Cursor(y_dot,1) [lindex [RaxImg_pxl2disp $_Cursor(x,1) $_Cursor(y,1)] 1]
+ 	set _Cursor(x_dot,2) [lindex [RaxImg_pxl2disp $_Cursor(x,2) $_Cursor(y,2)] 0]
+ 	set _Cursor(y_dot,2) [lindex [RaxImg_pxl2disp $_Cursor(x,2) $_Cursor(y,2)] 1]
+ 
+ 	label $f.l -text [format "Walk Cursor %d" $i]
+ 	pack $f.l -padx 10 -pady 10
+ 	tixControl $f.vert  -label "Verical : " -min -1000 -max 1000
+ 	$f.vert config -step -1 -formatstyle "%5d" -variable _Cursor(y_dot,$_Cursor(current)) \
+ 	  -command "RaxDisp_Cursor:RewriteCursor $_Cursor(current)"
+ 	tixControl $f.horiz  -label "Horizontal : " -min -1000 -max 1000
+ 	$f.horiz config -step 1 -formatstyle "%5d" -variable _Cursor(x_dot,$_Cursor(current)) \
+ 	  -command "RaxDisp_Cursor:RewriteCursor $_Cursor(current)"
+ 	pack $f.vert $f.horiz -padx 10 -pady 5 -anchor nw
+ }
+ 
+ proc RaxDisp_Cursor:RewriteCursor {id val} {
+ 
+ 	global  _Cursor Canvas
+ 	RaxDisp_Cursor:Move $id dot $_Cursor(x_dot,$id) $_Cursor(y_dot,$id)
+ }