Masked input

maskinput

Red [ 
	filename:	%maskinput.red
	date:		"4-Nov-2016"
	Needs:		'View
]

star-replace: func [
	num
	/local stars
][
	stars: copy ""
	loop num [append stars "*"]
	stars
]

hide-it: func [
	f [object!]
	e [event!]
][
	case [
		e/key = 'delete []
		8 = to integer! e/key [
			print "BS key caught by field face!" 
			'stop
		]
		1 = 1 [;prin "keystroke caught: >" print e/key print "<"
			;print e/key xor 0
			f/extra: append f/extra e/key
			f/text: star-replace length? f/extra
			print rejoin ["f/extra=" f/extra " f/data=" f/data]
		]
	]
]

view [
	f1: field "" extra "" 
		on-key [
			hide-it face event
		]
		on-key-up [
;			print "key-up now"
			face/text: star-replace length? face/extra
		]
	button "Quit" [unview]
]