Hotkey for authorization forms

[tofuproxy.git] / httpauth.go

diff --git a/httpauth.go b/httpauth.go
index 548209eff57d93021643b32efda0eadc6b47c35d..79b51ecc32ca8642a118ee18932964eb2d310d36 100644 (file)
--- a/httpauth.go
+++ b/httpauth.go
@@ -75,15 +75,20 @@ set passinit "%s"
 set p [entry .pass -show "*" -textvariable passinit]
 grid .lpass .pass
 
-proc submit {} {
+proc login {} {
     global u p
     puts [$u get]
     puts [$p get]
     exit
 }
 
-button .submit -text "Submit" -command submit
-grid .submit
+button .login -text "Login" -command login
+grid .login
+
+bind . <KeyPress> {switch -exact %%K {
+    q {exit 0} ; # reject once
+    l login
+}}
 `, realm, userInit, passInit))
        cmd := exec.Command(CmdWish)
        cmd.Stdin = &b