- irmenu .top.options.m.syntax
- .top.options.m.syntax add radiobutton -label None -value None -variable recordSyntax
- .top.options.m.syntax add separator
- .top.options.m.syntax add radiobutton -label USMARC \
- -value USMARC -variable recordSyntax
- .top.options.m.syntax add radiobutton -label UNIMARC \
- -value UNIMARC -variable recordSyntax
- .top.options.m.syntax add radiobutton -label UKMARC \
- -value UKMARC -variable recordSyntax
- .top.options.m.syntax add radiobutton -label DANMARC \
- -value DANMARC -variable recordSyntax
- .top.options.m.syntax add radiobutton -label FINMARC \
- -value FINMARC -variable recordSyntax
- .top.options.m.syntax add radiobutton -label NORMARC \
- -value NORMARC -variable recordSyntax
- .top.options.m.syntax add radiobutton -label PICAMARC -value PICAMARC -variable recordSyntax
- .top.options.m.syntax add separator
- .top.options.m.syntax add radiobutton -label SUTRS -value SUTRS -variable recordSyntax
- .top.options.m.syntax add separator
- .top.options.m.syntax add radiobutton -label GRS1 -value GRS1 -variable recordSyntax
+ global syntaxList
+ set w .top.options.m.syntax
+ irmenu $w
+ foreach syntax $syntaxList {
+ if {$syntax == "sep"} {
+ $w add separator
+ } else {
+ $w add radiobutton -label $syntax -value $syntax -variable recordSyntax
+ }
+ }