Pseudo "STOP" button control

// This snippet demonstrates an example to stop an executing procedure from a
//     pseudo-"STOP" button in a control panel
// To begin, first execute the Panel0() recreation macro from the command line.

function Monitor()
	variable i=0, vLoop = 1
	Do
		ModifyControl  button1  disable = 0 // show the "STOP" button
		ControlUpdate /W=Panel0  button1
// your loop step goes here;  this test is a simple count display and increment				
		ValDisplay valdisp0 value=_NUM:i
		ControlUpdate /W=Panel0 valdisp0
		i+=1
		Sleep/S 0.25
// end of your loop step		
		GetMouse /W=Panel0  // test for mouse press in pseudo-"STOP" button area
		if( (V_flag==1)&(V_left>125)&(V_left<175)&(V_top>110)&(V_top<130) )
			VLoop = 0  // condition to quit the Do-While loop
			ModifyControl  button1  disable = 1 // hide the "STOP" button
		endif
	While(vLoop)
end
//-----------------------------------------------------------------------------
Function ButtonProcStart(ctrlName) : ButtonControl
	String ctrlName	
	Monitor()
End
//-----------------------------------------------------------------------------
Window Panel0() : Panel
	PauseUpdate; Silent 1		// building window...
	NewPanel /W=(708,73,1008,273)
	ValDisplay valdisp0,pos={95,71},size={100,14},title=" count"
	ValDisplay valdisp0,limits={0,0,0},barmisc={0,1000},value= _NUM:0
	Button button0,pos={125,28},size={50,20},proc=ButtonProcStart,title="START"
	Button button1,pos={125,110},size={50,20},title="STOP", disable = 1
EndMacro