Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix responses to entering new IDs |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
f880b8bbe9cbad4901cba8a293255a1d |
| User & Date: | bernd 2019-08-26 14:54:00.555 |
Context
|
2019-08-26
| ||
| 21:21 | Replace NOPE with NO-DO check-in: 5d7f6cacbe user: bernd tags: trunk | |
| 14:54 | Fix responses to entering new IDs check-in: f880b8bbe9 user: bernd tags: trunk | |
|
2019-08-22
| ||
| 11:22 | Bump version number check-in: c7456d90e9 user: bernd tags: trunk, 0.9.1-20190822 | |
Changes
Changes to gui.fs.
| ︙ | ︙ | |||
161 162 163 164 165 166 167 168 169 |
show-nicks clear-edit ;
: pw-done ( max span addr pos -- max span addr pos flag )
case nick-pw
1 of
1 +to nick-pw
over 3 pick >passphrase +key
phrase-first /hflip
phrase-again /flop
| > | | | 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 |
show-nicks clear-edit ;
: pw-done ( max span addr pos -- max span addr pos flag )
case nick-pw
1 of
1 +to nick-pw
over 3 pick >passphrase +key
create-new-id /hflip
phrase-first /hflip
phrase-again /flop
clear-edit invert +lang +resize
endof
2 of
over 3 pick >passphrase lastkey@ str= IF
\ ." Create nick " nick$ $. ." with passphrase (hashed) " lastkey@ 85type cr
gen-keys-dir nick$ $@ 0 .new-key,
right-phrase
ELSE
1 to nick-pw
phrase-first /flop
phrase-again /hflip +lang +resize
1 tries# ! do-shake
THEN
endof
err-fade? IF false EXIT THEN
drop over 3 pick >passphrase +key
read-keys secret-keys# 0= IF
\ ." Wrong passphrase" cr
|
| ︙ | ︙ | |||
315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 | phrase-again /hflip plus-login /flip minus-login /flop nick-edit /flop [ x-baseline ] FLiteral nick-edit >o fdup gap% f* to gap to baseline o> "nick" nick-field engage-edit ELSE phrase-unlock /flop 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 | > > | 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 | phrase-again /hflip plus-login /flip minus-login /flop nick-edit /flop [ x-baseline ] FLiteral nick-edit >o fdup gap% f* to gap to baseline o> "nick" nick-field engage-edit 1 to nick-pw ELSE phrase-unlock /flop 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 0 to nick-pw 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 |
| ︙ | ︙ |