From: Sergey Matveev <stargrave@stargrave.org>
Date: Wed, 15 Sep 2021 11:43:32 +0000 (+0300)
Subject: Hotkey for authorization forms
X-Git-Tag: v0.1.0~63
X-Git-Url: http://www.git.stargrave.org/?p=tofuproxy.git;a=commitdiff_plain;h=02e016e2d1f1f136fdd92eab62e47e12853d7492

Hotkey for authorization forms
---

diff --git a/httpauth.go b/httpauth.go
index 548209e..79b51ec 100644
--- 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
diff --git a/tlsauth.go b/tlsauth.go
index b980e08..bf87b2c 100644
--- 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