+grid .lb
+
+proc login {} {
+ global lb
+ puts [$lb get active]
+ exit
+}
+
+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
+
+set sigSchemeRow 0
+foreach sigScheme {%s} {
+ label .lSignatureScheme$sigSchemeRow -text "Signature scheme: $sigScheme"
+ grid .lSignatureScheme$sigSchemeRow
+ incr sigSchemeRow
+}
+