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 |
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
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
...
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
|
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
clear-edit invert +lang
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
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
................................................................................
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
|
>
|
|
>
>
|
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
...
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
|
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
................................................................................
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
|