Check-in [9b811f5258]
Not logged in

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: 9b811f5258ed7fc4829ea537d60157f09034d44a
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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