Hotkey for authorization forms

[tofuproxy.git] / tlsauth.go

diff --git a/tlsauth.go b/tlsauth.go
index b980e08122f17f12ea97c43bb81a13e255756bea..bf87b2c499602d261584227d4c41d671f6b7d213 100644 (file)
--- a/tlsauth.go
+++ b/tlsauth.go
@@ -64,14 +64,19 @@ set lb [listbox .lb]
 .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