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