### get the list of manufacturers from the .txt file
set manufacturers {}
set fid [open manufacturers.txt]
while {[gets $fid line] != -1} {
   lappend manufacturers $line
)
close $fid

### set up the menu
frame .disc
menu .disc.manu_menu -tearoff 0
foreach man $manufacturers {
   .disc.manu_menu add command -label "$man" -command {set disc_manufacturer $man}
}
pack [label .disc.manu_label -text "Manufacturer" -relief raised] -side left
bind .disc.manu_label <1> {tk_popup .disc.manu_menu %X %Y}

### here's the actual factual entry box
entry .disc.manu_entry -width 30 -textvariable disc_manufacturer
pack .disc.manu_entry -side left

##</code><code>##

Capitol
Columbia
Edison
RCA Victor
Victrola