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 Unified Diffs Show Whitespace Changes Patch

Changes to gui.fs.

324
325
326
327
328
329
330

331
332
333
334
335
336
337
			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>

		    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







>







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
: 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
    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







|
|
|
|
<







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 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 ! ;

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