[comp.windows.news] Inverse video

rudolf@neptune.uucp (Jim Rudolf) (02/23/89)

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
----------------------------------------------------------------------------

ktk@SPAM.ISTC.SRI.COM (Katy Kislitzin) (02/24/89)

> 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

arg@trzdor1.ico.olivetti.com (arg) (02/25/89)

Use `user.ps' files