char trigConf_mlu_tcl_proc[]=
"#!/usr/bin/wish\n"
"\n"
"\n"
"set show_mlu_programmer 0\n"
"\n"
"\n"
"proc MLUProgrammer {path} {\n"
"\n"
"	global smallfont mediumfont largefont hugefont\n"
"	global mluprogrammerpath\n"
"	\n"
"	set mluprogrammerpath $path\n"
"	\n"
"	# MLU label\n"
"	label $path.lab -text \"MLU Program\" -font $hugefont\n"
"	pack $path.lab -side top -fill x\n"
"\n"
"	frame $path.mlu\n"
"	pack $path.mlu -side top -fill both\n"
"		\n"
"	# Input trigger pattern\n"
"	set w $path.mlu.left\n"
"	frame $w -borderwidth 2 -relief groove\n"
"	pack $w -side left -fill y -ipadx 20\n"
"	label $w.lab -text \"Input\" -font $largefont\n"
"	label $w.addr -text \"(0x4000)\" -textvariable trigger_addr -font $smallfont\n"
"	pack $w.lab $w.addr -side top -fill x\n"
"	for {set i 1} {[expr $i<=12]} {incr i} {\n"
"		checkbutton $w.mlu_in$i -text \"Trig$i\" -variable mlu_in$i -anchor w -command {GetMLUValue}\n"
"		pack $w.mlu_in$i -side top -fill x\n"
"	}\n"
"\n"
"	# Output patterns\n"
"	set w $path.mlu.center\n"
"	frame $w -borderwidth 2 -relief groove\n"
"	pack $w -side left -fill y\n"
"	label $w.lab -text \"Output\" -font $largefont\n"
"	pack $w.lab -side top\n"
"\n"
"	## frame to hold all output checkboxes side by side under the Output label\n"
"	set w2 $w.checkboxes\n"
"	frame $w2\n"
"	pack $w2 -side top -fill both\n"
"\n"
"	### frame to hold event class output bits\n"
"	frame $w2.class -borderwidth 2 -relief ridge\n"
"	label $w2.class.lab -height 2 -text \"Event Class\"\n"
"	pack $w2.class.lab -side top\n"
"	checkbutton $w2.class.mlu_out0 -text \"Level 1 OK\" -variable mlu_out0 -anchor w -command {SetMLUValue}\n"
"	checkbutton $w2.class.mlu_out1 -text \"Class 1 Trigger\" -variable mlu_out1 -anchor w -command {SetMLUValue}\n"
"	checkbutton $w2.class.mlu_out2 -text \"Class 2 Trigger\" -variable mlu_out2 -anchor w -command {SetMLUValue}\n"
"	checkbutton $w2.class.mlu_out3 -text \"Class 3 Trigger\" -variable mlu_out3 -anchor w -command {SetMLUValue}\n"
"	foreach s [list 0 1 2 3] {pack $w2.class.mlu_out$s -side top -fill x}\n"
"\n"
"	### frame to hold level 1 accept output bits\n"
"	frame $w2.l1accept -borderwidth 2 -relief ridge\n"
"	label $w2.l1accept.lab -height 2 -text \"Level 1 Accept\nPattern Output\"\n"
"	pack $w2.l1accept.lab -side top -fill x\n"
"	for {set i 8} {[expr $i<=15]} {incr i} {\n"
"		checkbutton $w2.l1accept.mlu_out$i -text [expr $i-7] -variable mlu_out$i -command {SetMLUValue}\n"
"		pack $w2.l1accept.mlu_out$i -side top -fill x\n"
"	}\n"
"\n"
"	### frame to hold ROC code\n"
"	frame $w2.roc -borderwidth 2 -relief ridge\n"
"	label $w2.roc.lab -height 2 -text \"ROC Code\"\n"
"	label $w2.roc.code -textvariable roc_code -font $smallfont\n"
"	pack $w2.roc.lab $w2.roc.code -side top -fill x\n"
"	for {set i 16} {[expr $i<=21]} {incr i} {\n"
"		checkbutton $w2.roc.mlu_out$i -text [expr $i-15] -variable mlu_out$i -command {SetMLUValue}\n"
"		pack $w2.roc.mlu_out$i -side top -fill x\n"
"	}\n"
"\n"
"	pack $w2.class $w2.l1accept $w2.roc -side left -fill y -ipadx 10 -padx 5\n"
"\n"
"	# Quick Set Buttons\n"
"	set w $path.mlu.right\n"
"	frame $w  -borderwidth 2 -relief groove\n"
"	pack $w -side left -fill y -ipadx 20\n"
"	label $w.lab -text \"Quick Set\" -font $largefont\n"
"	pack $w.lab -side top\n"
"	button $w.any -text \"Any Input\" -command {}\n"
"	pack $w.any -side top\n"
"}\n"
"\n"
"proc ShowHideMLUProgrammer {} {\n"
"	global show_mlu_programmer\n"
"	global mluprogrammerpath\n"
"	\n"
"	if {[expr $show_mlu_programmer==1]} then {\n"
"		pack forget $mluprogrammerpath\n"
"		set show_mlu_programmer 0\n"
"	} else {\n"
"		pack $mluprogrammerpath -side top -fill both\n"
"		set show_mlu_programmer 1\n"
"	}\n"
"}\n"
"\n"
"\n"

;