- set hist($setNo,form,menu1) [wform menu1]
- set hist($setNo,form,menu2) [wform menu2]
- set hist($setNo,form,menu3) [wform menu3]
-
- set hist($setNo,form,entry1) [wform entry1]
- set hist($setNo,form,entry2) [wform entry2]
- set hist($setNo,form,entry3) [wform entry3]
-
- set hist($setNo,form,logic1) [wform logic1]
- set hist($setNo,form,logic2) [wform logic2]
-
- set host $hist($setNo,host)
- set databases [lindex $targets($host) 1]
-
- set b [wform base]
- if {[wform baseall] != ""} {
- set hist($setNo,database) $databases
- } elseif {$b == ""} {
- set hist($setNo,database) $databases
- } else {
- set hist($setNo,database) $b
- }
- set hist($setNo,maxPresent) [wform hits]
- if {$hist($setNo,maxPresent) == ""} {
- set hist($setNo,maxPresent) 30
- }