problem with PauseforUser

Share icon

My need is to quickly move thru a stack of images, pausing on each until the cursor is moved and the "Log" button has been hit. I have one set of 2 Functions that allows correct use of the cursor and Log button but fails to bring up a new image.
I have another set of Functions that loops thru the images but fails to use the cursor and Log.
I haven't written any code for 3 years and am rusty--so assume I am doing something stupid. Please help

----------
The first set of Functions

FUNCTION BFTrackStack(CtrlName): ButtonControl					//DFB 11.10.12	
String CtrlName	
VariableTrackFlag=1,LogDoneFlag=0																
Variable/G  filecount, StackSize
Variable  filecount=0
String KeyID=""

wave KeyIDList					    //list of the names of the images in the stack
filecount=0
LogDoneFlag=0
keyID=keyIDList[0] + ".tif"
	print "keyID1 = ", KeyID
	duplicate/o $(keyID), w
	NewImage/S=0 w
	showinfo
	 DoWindow/C Log2				//pop-up termination panel
	 Button TSLogItNow2	size={33,20}, pos={5,5}, proc=LogIt, title="Log"

If (LogDoneFlag==1)	 		//have returned from Logit
   Do
   					//If (LogDoneFlag==1)	 		//have returned from Logit
  	keyID=keyIDList[filecount] + ".tif"
	print "keyID2 = ", KeyID
	duplicate/o $(keyID), w              //update the image
	 print "return from Logit, LogDoneFlag, filecount = ", LogdoneFlag, filecount
	LogDoneFlag=0
	filecount=filecount+1 
   while (filecount<=StackSize) 	
endif  	
end
----------------------------------------------
FUNCTION Logit(CtrlName2): ButtonControl			
string CtrlName2
Variable/G  filecount, LogDoneFlag
					//DoUpdate/E=1/w=logit
	make/n=StackSize xloc, yloc
	xloc[filecount]=xcsr(A)
	yloc[filecount]=vcsr(A)
					//DoWindow/K Graph0
					//DoWindow/K Log2
					//print "Logitfilecount4= ", filecount
	LogDoneFlag=1
	filecount=filecount+1
	print "Logitfilecount, LogDoneFlag(logit) = ", filecount, LogDoneFlag
	beep
end
--------------------------------------------------------
Function BFStackLogBC(CtrlName): ButtonControl
String CtrlName
//NewPanel/K=2  as "Log"
DoWindow/C LogCentroidPanel		//pop-up termination panel
movewindow/w=SelectOutlierPanel 300,300,500,360
DrawText 17,30,"Drag Cursor_A to Centroid, then Click on Log"
end
--------------------------------------	
-------------------------------------

The second set


FUNCTION BFTrackStack(CtrlName): ButtonControl					//DFB 11.10.12	
String CtrlName	
Variable TrackFlag=1,LogDoneFlag=0																
Variable/G  filecount, StackSize
Variable  filecount=0
String KeyID=""

wave KeyIDList					    //list of the names of the images in the stack
filecount=0
LogDoneFlag=0

keyID=keyIDList[0] + ".tif"
	print "keyID1 = ", KeyID
	duplicate/o $(keyID), w
	NewImage/S=0 w
	showinfo
	 DoWindow/C Log2				//pop-up termination panel
	 Button TSLogItNow2	size={33,20}, pos={5,5}, proc=LogIt, title="Log"
PauseForUser/C log2	
 Do
  	keyID=keyIDList[filecount] + ".tif"
	print "keyID2 = ", KeyID
	duplicate/o $(keyID), w              //update the image
	print "return from Logit, LogDoneFlag, filecount = ", LogdoneFlag, filecount
		LogDoneFlag=0
	filecount=filecount+1 
   while (filecount<=StackSize) 	
end
--------------------------------------
FUNCTION Logit(CtrlName2): ButtonControl			
string CtrlName2
Variable/G LogDoneFlag
//DoUpdate/E=1/w=logit
	wave xloc
	wave yloc
	xloc[filecount]=xcsr(A)
	yloc[filecount]=vcsr(A)
	//DoWindow/K Graph0
	//DoWindow/K Log2
	//print "Logitfilecount4= ", filecount
	LogDoneFlag=1
	filecount=filecount+1
	print "Logitfilecount, LogDoneFlag(logit) = ", filecount, LogDoneFlag
	beep
end
--------------------------------------------