Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!think.com!snorkelwacker.mit.edu!stanford.edu!agate!ziploc!eps
From: eps@toaster.SFSU.EDU (Eric P. Scott)
Newsgroups: comp.sys.next
Subject: Re: Screen dimming and saving
Message-ID: <1670@toaster.SFSU.EDU>
Date: 6 Jun 91 01:15:29 GMT
References: <4005@beguine.UUCP>
Reply-To: eps@cs.SFSU.EDU (Eric P. Scott)
Organization: San Francisco State University
Lines: 38

In article <4005@beguine.UUCP> Gerben.Wierda@bbs.acs.unc.edu
	(Gerben Wierda) writes:
>	There have been some postings on screen dimming, and most of
>them use an ioctl call on /dev/evs0 to set the brightness to 0. But that
>doesn't dim the screen completely, and since my machine will be in a
>kind of server mode and turned on for most of the time I like to get the
>screen COMPLETELY black. Is there a way to do this? Like putting some
>black picture on top?

Sure.  Just create a screen-sized Nonretained window that
autofills to black, and order it to the front of the highest
tier.

For a demonstration, try
  pft -s -f /path/to/a/file/containing/the/following

0 currentwindowbounds Nonretained window
dup frontwindow currentwindowlevel exch setwindowlevel
dup windowdeviceround
setexposurecolor
obscurecursor
Above 0 2 index orderwindow
0 currentmouse
{ buttondown { exit } { yield
    0 currentmouse 2 index eq exch 3 index eq and not
    { 500 { yield buttondown { exit } if } repeat obscurecursor } if
  } ifelse } loop
pop pop
{ buttondown { yield } { exit } ifelse } loop
Out 0 2 index orderwindow
termwindow

[The above is for 2.0/2.1 systems; if you're still running
1.0/1.0a, remove the line with the setwindowlevel.  You might
also need to replace both occurrences of "orderwindow" with
"systemdict /orderwindow get exec"]

					-=EPS=-