engage password field when folding nick

parent 7453751e
......@@ -328,6 +328,7 @@ glue*shrink >o 0e 1filll 0e hglue-c glue! 1glue dglue-c glue! 1glue vglue-c glue
minus-login /flip
nick-edit /vflip
0e nick-edit >o to baseline o>
pw-field engage
THEN +resize +lang ;
\normal
}}z ' id-show-hide false toggle[] dup Value id-toggler
......
......@@ -1085,11 +1085,10 @@ false value ?yes
save-keys-again @ IF save-seckeys THEN ;
: read-pkey-loop ( -- )
lastkey@ drop defaultkey ! \ at least one default key available
true to no-ed-check?
-1 config:pw-level#
[: import#new import-type ! ?key-pfd read-keys-loop
save-keys-again @ IF save-keys THEN ;] !wrapper
false to no-ed-check? ;
true user' no-ed-check? up@ +
[: -1 config:pw-level#
[: import#new import-type ! ?key-pfd read-keys-loop
save-keys-again @ IF save-keys THEN ;] !wrapper ;] !wrapper ;
: read-keys ( -- )
read-key-loop read-pkey-loop import#new import-type ! ;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment