Check-in [8aa207a195]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:engage password field when folding nick
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8aa207a195835a0fc244b11e25d890d96cdd98bb
User & Date: bernd 2019-05-28 23:09:12
Context
2019-05-30
13:12
Bump version number check-in: ff3f0507b8 user: bernd tags: trunk, 0.8.9-20190530
2019-05-28
23:09
engage password field when folding nick check-in: 8aa207a195 user: bernd tags: trunk
2019-05-27
16:58
Don't recheck key signatures every time you open your secret keys check-in: 92cd8b5e93 user: bernd tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Changes to gui.fs.

   324    324   			create-new-id /hflip
   325    325   			phrase-first /hflip
   326    326   			phrase-again /hflip
   327    327   			plus-login /flop
   328    328   			minus-login /flip
   329    329   			nick-edit /vflip
   330    330   			0e nick-edit >o to baseline o>
          331  +			pw-field engage
   331    332   		    THEN +resize +lang ;
   332    333   		\normal
   333    334   	    }}z ' id-show-hide false toggle[] dup Value id-toggler
   334    335   	    glue-sright }}glue
   335    336   	    glue*lll }}glue
   336    337   	}}h box[] \skip >bl
   337    338   	\ Advices, context sensitive

Changes to keys.fs.

  1081   1081   : read-key-loop ( -- )
  1082   1082       import#self import-type !  secret-keys# >r
  1083   1083       ?key-sfd read-keys-loop
  1084   1084       secret-keys# r> = IF  migrate-key-loop  THEN
  1085   1085       save-keys-again @ IF  save-seckeys      THEN ;
  1086   1086   : read-pkey-loop ( -- )
  1087   1087       lastkey@ drop defaultkey ! \ at least one default key available
  1088         -    true to no-ed-check?
  1089         -    -1 config:pw-level#
  1090         -    [: import#new import-type !  ?key-pfd read-keys-loop
  1091         -	save-keys-again @ IF  save-keys  THEN ;] !wrapper
  1092         -    false to no-ed-check? ;
         1088  +    true user' no-ed-check? up@ +
         1089  +    [: -1 config:pw-level#
         1090  +	[: import#new import-type !  ?key-pfd read-keys-loop
         1091  +	    save-keys-again @ IF  save-keys  THEN ;] !wrapper ;] !wrapper ;
  1093   1092   
  1094   1093   : read-keys ( -- )
  1095   1094       read-key-loop read-pkey-loop import#new import-type ! ;
  1096   1095   
  1097   1096   : read-pk2key$ ( addr u -- )
  1098   1097       \g read a nested key into sample-key
  1099   1098       sample-key >o c-state off  sim-nick! on