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.032 |
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 |
$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!
| > > > > > | 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 |
$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!
|
| ︙ | ︙ | |||
275 276 277 278 279 280 281 |
{{
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[]
| | | 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 |
{{
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
|
| ︙ | ︙ |