#pragma rtGlobals=1	// Use modern global access method.
#include  <All IP Procedures> menus=1
#pragma version = 2.1
#include <file name utilities>
#include <String Substitution>
#include <TranslateChars>

Window Panel() : Panel
	PauseUpdate; Silent 1		// building window...
	NewPanel /W=(711,130,1307,981)
	ShowTools/A
	TabControl tab0,pos={11,11},size={494,179},proc=TabProc,tabLabel(0)="1"
	TabControl tab0,tabLabel(1)="2",value= 0
	SetVariable setvar9,pos={261,261},size={100,16},title="[S]/(mM):"
	SetVariable setvar9,limits={0,999.99,0.01},value= _NUM:0
	SetVariable setvar10,pos={261,236},size={215,16},title="Substance:"
	SetVariable setvar10,limits={-inf,inf,0},value= _STR:"Enter Substance"
	CheckBox check4,pos={42,288},size={109,14},proc=CheckProc,title="Additional Options?"
	CheckBox check4,value= 1
	GroupBox group5,pos={254,208},size={230,105},title="Details"
	GroupBox group7,pos={33,208},size={213,105},title="General"
	SetVariable setvar2,pos={42,263},size={195,16},title="Description: "
	SetVariable setvar2,value= _STR:"Enter Description"
	PopupMenu popup0,pos={42,232},size={195,24},bodyWidth=195,proc=popmenuproc
	PopupMenu popup0,mode=3,popvalue="Unknown",value= #"\"Empty;Marker;Unknown\""
EndMacro



// Get going:
Function Start()
	String Command = "Panel()"
	Execute command
End

Function TabProc(tab0,tabnum) : TabControl
String tab0
Variable tabNum

if (tabnum == 0)

print "Lane 1 selected"
// LANE 1: Show
GroupBox group0 disable = 0
GroupBox group7 disable = 0
PopUpMenu popup0 disable = 0
ControlInfo /W=GelQuant popup0
Print V_Value
Print V_Flag
strswitch(S_Value)	
	case "Empty":
	SetVariable setvar2 disable = 1
	CheckBox check4 disable = 1	
	HideRightBox_Lane1()
	break
	case "Marker":
	SetVariable setvar2 disable = 0
	CheckBox check4 disable = 2
	HideRightBox_Lane1()
	break
	case "Standard 1":
	SetVariable setvar2 disable = 0
	CheckBox check4 disable = 2
	HideRightBox_Lane1()	
	break
	case "Standard 2":
	SetVariable setvar2 disable = 0
	CheckBox check4 disable = 2
	HideRightBox_Lane1()
	break
	case "Standard 3":
	SetVariable setvar2 disable = 0
	CheckBox check4 disable = 2
	HideRightBox_Lane1()
	break
	case "Standard 4":
	SetVariable setvar2 disable = 0
	CheckBox check4 disable = 2
	HideRightBox_Lane1()	
	break
	case "Unknown":
	SetVariable setvar2 disable = 0
	CheckBox check4 disable = 0
	ControlInfo /W = GelQuant check4
	If(V_Value == 1)
		ShowRightBox_Lane1()
	else
		HideRightBox_Lane1()
	endif
	
	break
	return -1 // wrong string transferred, abort
endswitch

endif

if (tabnum == 1)
print "Lane 2 selected"
GroupBox group7 disable=1
PopUpMenu popup0 disable =1
CheckBox check4 disable =1
SetVariable setvar2 disable =1
HideRightBox_Lane1()
endif

End


// CheckBox Lane 1
Function CheckProc(ctrlName,checked) : CheckBoxControl
	String ctrlName
	Variable checked
	print checked
	if(checked==1)
		GroupBox group5 disable = 0
		SetVariable setvar10 disable = 0
		SetVariable setvar9 disable = 0
		
		
		SetVariable setvar8 disable = 0
		
		SetVariable setvar7 disable = 0
	else
		GroupBox group5 disable = 1
		SetVariable setvar10 disable = 1
		SetVariable setvar9 disable = 1
		
		
		SetVariable setvar8 disable = 1
		
		SetVariable setvar7 disable = 1
	endif	
End



// PopMenuProc for Lane 1
Function PopMenuProc(ctrlName,popNum,popStr) : PopupMenuControl
	String ctrlName
	Variable popNum
	String popStr
	if((cmpstr(popStr, "Marker")==0) || (cmpstr(popstr,"Standard 1")==0) || (cmpstr(popstr,"Standard 2")==0) || (cmpstr(popstr,"Standard 3")==0) || (cmpstr(popstr,"Standard 4")==0))
	HideRightBox_Lane1()
	CheckBox check4 value = 0
	CheckBox check4 disable = 2
	SetVariable setvar2 disable= 0
	elseif(cmpstr(popStr, "Empty")==0)
	HideRightBox_Lane1()
	CheckBox check4 disable = 1
	SetVariable setvar2 disable= 1
	else
	SetVariable setvar2 disable=0
	CheckBox check4 disable = 0
	endif
End


Function HideRightBox_Lane1()
GroupBox group5 disable = 1
SetVariable setvar10 disable = 1
SetVariable setvar9 disable = 1
SetVariable setvar13 disable = 1

SetVariable setvar8 disable = 1

SetVariable setvar7 disable = 1
End
Function ShowRightBox_Lane1()
GroupBox group5 disable = 0
SetVariable setvar10 disable = 0
SetVariable setvar9 disable = 0
SetVariable setvar13 disable = 0

SetVariable setvar8 disable = 0
SetVariable setvar7 disable = 0
End