Trace Toggler

menu "Macros"
	"Trace Toggler",CreateTogglerPanel()
end

function CreateTogglerPanel()
	string trl=tracenamelist("",";",1) //list of all traces on graph
	string vtrl=tracenamelist("",";",1+4) //list of visible traces on graph
	string item,itemname
	variable items=itemsinlist(trl),i
	string ttlabel="Trace Toggler for "+WinName(0,1)
	string ttwinname="tt"+WinName(0,1)
	
	DoWindow/K $ttwinname
	NewPanel/W=(0,0,220,20*(items+2)+40)/N=$ttwinname/K=1 as "Toggle Traces"
	TitleBox tb1,pos={110,20},size={0,0},anchor=MC,title=ttlabel
	ModifyPanel/W=$ttwinname noEdit=1, fixedSize=0
	
	String topGraph=WinName(0,1)
	if(strlen(topGraph))
		AutoPositionWindow/M=0/R=$topGraph $ttwinname
	endif

	//Create a checkbox for each trace, checked if visible and unchecked if already hidden
	for(i=0;i<items;i+=1)
		item=stringfromlist(i,trl)
		print item
		itemname=replacestring("'",item,"") //remove ugly single quotes for label
		if (stringmatch(vtrl,"*"+item+"*"))
			CheckBox $("box"+num2str(i)) pos={20,40+i*20},value=1,proc=ToggleTrace,userdata=item,title=itemname
		else
			CheckBox $("box"+num2str(i)) pos={20,40+i*20},value=0,proc=ToggleTrace,userdata=item,title=itemname
		endif
	endfor
	Button closeme pos={50,40+i*20},size={130,20},proc=endTraceToggler,title="Close and reset",userdata=ttwinname
	Button closeme2 pos={50,60+i*20},size={130,20},proc=endTraceToggler2,title="Close without reset",userdata=ttwinname
end	

Function ToggleTrace(cba) : CheckBoxControl
	STRUCT WMCheckboxAction &cba
	string tracename=cba.userdata
	
	switch( cba.eventCode )
		case 2: // mouse up
			Variable checked = cba.checked
			If (checked==1)
				ModifyGraph hideTrace($tracename)=0
			Else
				ModifyGraph hideTrace($tracename)=2
			endif
			break
		case -1: // control being killed
			break
	endswitch

	return 0
End

Function endTraceToggler(cba): ButtonControl
	struct WMButtonAction &cba
	string ttwinname=cba.userdata
	
	if (cba.eventcode==2)
		DoWindow/K $ttwinname
		ModifyGraph hideTrace=0 
	endif
End

Function endTraceToggler2(cba): ButtonControl
	struct WMButtonAction &cba
	string ttwinname=cba.userdata
	if (cba.eventcode==2)
		DoWindow/K $ttwinname
	endif
End