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.042
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
Side-by-Side Diff Ignore Whitespace Patch
Changes to gui.fs.
324
325
326
327
328
329
330

331
332
333
334
335
336
337
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338







+







			create-new-id /hflip
			phrase-first /hflip
			phrase-again /hflip
			plus-login /flop
			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
	    glue-sright }}glue
	    glue*lll }}glue
	}}h box[] \skip >bl
	\ Advices, context sensitive
Changes to keys.fs.
1081
1082
1083
1084
1085
1086
1087
1088
1089
1090
1091




1092
1093
1094
1095
1096
1097
1098
1099
1081
1082
1083
1084
1085
1086
1087




1088
1089
1090
1091

1092
1093
1094
1095
1096
1097
1098







-
-
-
-
+
+
+
+
-







: read-key-loop ( -- )
    import#self import-type !  secret-keys# >r
    ?key-sfd read-keys-loop
    secret-keys# r> = IF  migrate-key-loop  THEN
    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
    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 ;
    false to no-ed-check? ;

: read-keys ( -- )
    read-key-loop read-pkey-loop import#new import-type ! ;

: read-pk2key$ ( addr u -- )
    \g read a nested key into sample-key
    sample-key >o c-state off  sim-nick! on