Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Clear password edit shadow |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 9b811f5258ed7fc4829ea537d60157f0 |
| User & Date: | bernd 2019-01-07 12:59:22 |
Context
|
2019-01-10
| ||
| 15:03 | Bump version number check-in: fa7047042e user: bernd tags: trunk, 0.8.5-20190110 | |
|
2019-01-07
| ||
| 12:59 | Clear password edit shadow check-in: 9b811f5258 user: bernd tags: trunk | |
|
2019-01-06
| ||
| 22:04 | Add passphrase entropy estimation check-in: 7e6316bb4a user: bernd tags: trunk | |
Changes
Changes to gui.fs.
213
214
215
216
217
218
219
220
221
222
223
224
225
226
...
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
|
$FFFFFFFF text-color, FValue show-sign-color#
$550000FF $005500FF fade-color, FValue pw-bg-col#
$88FF00FF color, FValue dark-blue#
$00FF0020 color, FValue chbs-col#
$000020FF color, FValue login-bg-col#
[THEN]
glue new Constant glue*lll±
glue*lll± >o 1Mglue fnip 1000e fswap hglue-c glue! 0glue fnip 1filll fswap dglue-c glue! 1glue vglue-c glue! o>
glue new Constant glue*shrink
glue*shrink >o 0e 1filll 0e hglue-c glue! 1glue dglue-c glue! 1glue vglue-c glue! o>
{{ login-bg-col# pres-frame dark-blue# ' dark-blue >body f!
................................................................................
{{
pw-text-col# to x-color
"" }}pw dup to pw-field
25%b >o config:passmode# @ to pw-mode o o>
glue*lll }}glue
}}h
pw-field ' pw-done edit[]
>o act >o [: edit-w .text$ passphrase-entropy 1e fmin pw-bg-col# f+ pw-back >o to w-color o> ;] is edit-filter o> o o>
{{
\large \sans whitish "👁" }}text
\normal \bold show-sign-color# to x-color "＼" }}text dup value show-pw-sign /center blackish
}}z \regular
: pw-show/hide ( flag -- )
dup IF ['] transparent >body f@
ELSE show-sign-color# THEN
|
>
>
>
>
>
|
|
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
...
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
|
$FFFFFFFF text-color, FValue show-sign-color#
$550000FF $005500FF fade-color, FValue pw-bg-col#
$88FF00FF color, FValue dark-blue#
$00FF0020 color, FValue chbs-col#
$000020FF color, FValue login-bg-col#
[THEN]
: entropy-colorize ( -- )
prev-text$ erase addr prev-text$ $free
edit-w .text$ passphrase-entropy 1e fmin pw-bg-col# f+
pw-back >o to w-color o> ;
glue new Constant glue*lll±
glue*lll± >o 1Mglue fnip 1000e fswap hglue-c glue! 0glue fnip 1filll fswap dglue-c glue! 1glue vglue-c glue! o>
glue new Constant glue*shrink
glue*shrink >o 0e 1filll 0e hglue-c glue! 1glue dglue-c glue! 1glue vglue-c glue! o>
{{ login-bg-col# pres-frame dark-blue# ' dark-blue >body f!
................................................................................
{{
pw-text-col# to x-color
"" }}pw dup to pw-field
25%b >o config:passmode# @ to pw-mode o o>
glue*lll }}glue
}}h
pw-field ' pw-done edit[]
>o act >o ' entropy-colorize is edit-filter o> o o>
{{
\large \sans whitish "👁" }}text
\normal \bold show-sign-color# to x-color "＼" }}text dup value show-pw-sign /center blackish
}}z \regular
: pw-show/hide ( flag -- )
dup IF ['] transparent >body f@
ELSE show-sign-color# THEN
|