Path: utzoo!attcan!uunet!lll-winken!ames!pasteur!ucbvax!SPAM.ISTC.SRI.COM!ktk
From: ktk@SPAM.ISTC.SRI.COM (Katy Kislitzin)
Newsgroups: comp.windows.news
Subject: Re: Inverse video
Message-ID: <8902231946.AA01919@aai6>
Date: 23 Feb 89 20:16:41 GMT
Sender: daemon@ucbvax.BERKELEY.EDU
Organization: The Internet
Lines: 57


> My eyes fatigue extra-fast when looking at black-on-white windows in
> NeWS.  Is there an equivalent to 'suntools -i' in NeWS that will bring
> up inverse video windows?

> Thanks,

> Jim Rudolf

> ----------------------------------------------------------------------------
> Internet: rudolf@oce.orst.edu                 "All opinions herein are mine" 
> UUCP: {tektronix,hp-pcd}!orstcs!oce.orst.edu!rudolf
> ----------------------------------------------------------------------------

i stole these lines from hugh daniel's colortool program (see the SUG
tape) and put them in my user.ps:

systemdict /Item known not { (NeWS/liteitem.ps) run } if
systemdict begin
 %	Turn the screen to White on Black for many things
/thetextiswhite {
	/textcolor		1 1 1 	rgbcolor store
	/backgroundcolor 	0 0 0	rgbcolor store
	/bordercolor		1 1 1	rgbcolor store
	{
		/MenuTextColor		1 1 1 rgbcolor store
		/MenuFillColor		0 0 0 rgbcolor store
		/MenuBorderColor	1 1 1 rgbcolor store
	} LiteMenu send
	{
		/ShadowColor		.5 .5 .5 rgbcolor def
	} LitePullRightMenu send
	{
		/ItemTextColor		1 1 1 rgbcolor store
		/ItemFillColor		0 0 0 rgbcolor store
		/ItemBorderColor	1 1 1 rgbcolor store
	} Item send
	{
		/FrameTextColor		1 1 1 rgbcolor store
		/FrameFillColor		0 0 0 rgbcolor store
		/FrameBorderColor	1 1 1 rgbcolor store
		/KeyFocusColor		1 1 1 rgbcolor store
		/ClientFillColor	0 0 0 rgbcolor store
		/IconTextColor		1 1 1 rgbcolor store
		/IconFillColor		0 0 0 rgbcolor store
		/IconBorderColor	1 1 1 rgbcolor store
	} LiteWindow send
} def	
end
thetextiswhite


this puts all my windows in reverse video.  with colortool, you can
also experiment with variuos shades of grey, etc.  unfortunately, this
makes for illegible text :-)

--kt