From xemacs-m  Fri Feb 28 18:53:14 1997
Received: from venus.Sun.COM (venus.Sun.COM [192.9.25.5])
	by xemacs.org (8.8.5/8.8.5) with SMTP id SAA15324
	for <xemacs-beta@xemacs.org>; Fri, 28 Feb 1997 18:53:14 -0600 (CST)
Received: from infodock.com (wave.infodock.com [206.13.40.192]) by venus.Sun.COM (SMI-8.6/mail.byaddr) with ESMTP id QAA25221 for <xemacs-beta@xemacs.org>; Fri, 28 Feb 1997 16:52:43 -0800
Received: (from weiner@localhost) by infodock.com (8.7.4/8.7.3) id QAA03783; Fri, 28 Feb 1997 16:52:31 -0800
Date: Fri, 28 Feb 1997 16:52:31 -0800
From: Bob Weiner <weiner@infodock.com>
Message-Id: <199703010052.QAA03783@infodock.com>
To: xemacs-beta@xemacs.org
In-reply-to: <QQceme11583.199702252306@crystal.WonderWorks.COM> (message from Kyle Jones on Tue, 25 Feb 1997 18:06:43 -0500 (EST))
Subject: Re: Can't determine how to read passwords, winging it. 

>>>>> "KJ" == Kyle Jones <kyle_jones@wonderworks.com> writes:
   KJ> Heyyyy, now that would be reasonable.  Clearly redisplay already
   KJ> knows how to invert the display, given the tremendous flash that
   KJ> C-g gives if you use a visible bell.  Try this code, gang:

   KJ> (let ((visible-bell t)
   KJ>       (passwd-invert-frame-when-keyboard-grabbed nil)
   KJ>       (id nil))
   KJ>   (unwind-protect
   KJ>       (progn
   KJ> 	(setq id (add-timeout 0.3 'ding nil 0.3))
   KJ> 	(read-passwd "Password: "))
   KJ>     (and id (disable-timeout id))))

   KJ> Annoying as hell, and it works on ttys, too.

I believe this is the sort of software Timothy Leary was working
for the decade before he died.  Amazing that it never made
it to store shelves.

Bob
"I blink enough already."

