+ # Protocol ...
+ pack $w.top.protocol -pady 6 -padx 6 -side top -fill x
+
+ label $w.top.protocol.label -text "Protocol"
+ radiobutton $w.top.protocol.z39v2 -text "Z39.50" -anchor w \
+ -command {puts z39v2} -variable protocolRadioType -value z39v2
+ radiobutton $w.top.protocol.sr -text "SR" -anchor w \
+ -command {puts sr} -variable protocolRadioType -value sr
+
+ pack $w.top.protocol.label $w.top.protocol.z39v2 $w.top.protocol.sr \
+ -padx 4 -side top -fill x
+