.lb insert end ""
grid .lb
-proc submit {} {
+proc login {} {
global lb
puts [$lb get active]
exit
}
-button .submit -text "Use" -command submit
-grid .submit
+button .login -text "Use" -command login
+grid .login
+
+bind . <KeyPress> {switch -exact %%K {
+ q {exit 0} ; # reject once
+ l login
+}}
label .lTLSVersion -text "TLS version: %s"
grid .lTLSVersion