user.ps

% FILE:	user.ps by Arthur van Hoff, (c)1989 Turing Institute
% GoodNeWS startup file.
%
% If you like GoodNeWS and if you want to load it when NeWS is started,
% then you should put a copy of this file in your home directory.
% It will load GoodNeWS when NeWS is started and it will replace the
% rootmenu with the GoodNeWS rootmenu.
%
%	REMEMBER:
%		1) Don't forget to set the environment variable GNHOME
%		   to the GoodNeWS home directory!
%		2) Remember to add ${GNHOME}/bin to your PATH variable
%		3) Don't panic!
%

%
% load the GoodNeWS files
%

systemdict /confirm known not {

10 dict begin
(GNHOME) getenv (/init.ps) append run
end

/TerminalsMenu [
	(Terminal)		MenuActive {(mterm) forkunix}
	(Console)		MenuActive {(mconsole) forkunix}
] /new GNMenu send def

/ToolsMenu [
	(Drawing tool)		MenuActive {(newsdraw) forkunix}
%	(HyperNeWS)		MenuActive {(hypernews) forkunix}
	MenuLine
ColorDisplay? {
	(Color pallet)		MenuActive {(color.pallet) forkunix}
	(Color triangle)	MenuActive {(color.triangle) forkunix}
} if
	(Gray pallet)		MenuActive {(bw.pallet) forkunix}
	MenuLine
	(Performace monitor)	MenuActive {(newsmon) forkunix}
] /new GNMenu send def

/DemosMenu [
	(Pete's movie)		MenuActive {(movie.pete) forkunix}
	(Cheryl's picture)	MenuActive {(show.cheryl) forkunix}
	MenuLine
	(Chess position editor) MenuActive {(chessedit) forkunix}
	MenuLine
	(Scrabble)		MenuActive {(scrabble -s) forkunix}
] /new GNMenu send def

/ManualsMenu [
	(GoodNeWS1.2 manual)	MenuActive {(goodnews.man) forkunix}
%	(HyperNeWS1.2 manual)	MenuActive {(hypernews.man) forkunix}
] /new GNMenu send def

/HouseKeepingMenu [
	(Show ClipBoard)	MenuActive {ShowClipBoard}
	(Cleanup)		MenuActive {cleanup PaintRoot {/paint self send} AllWin}
	(Flush images)		MenuActive {FlushImages}
] /new GNMenu send def

/RootMenu [
	(Terminals)		MenuActive TerminalsMenu
	(Tools)			MenuActive ToolsMenu
	(Demos)			MenuActive DemosMenu
	(Manuals)		MenuActive ManualsMenu
	(NeWS ) version append	MenuActive rootmenu ConvertMenu
	MenuLine
	(House keeping) 	MenuActive HouseKeepingMenu
	MenuLine
	(Exit GoodNeWS)		MenuActive {ExitNews}
] /new GNMenu send def

%
% replace the rooteventmgr
%
systemdict begin
/go! {
	GoodNeWS begin
	/rooteventmgr [
		MenuButton {
			{newprocessgroup /Show RootMenu send} fork pop
		} DownTransition framebuffer eventmgrinterest
		/Damaged {
			newprocessgroup damagepath clipcanvas PaintRoot
			newpath clipcanvas
		} null framebuffer eventmgrinterest
	] forkeventmgr def
	end
} def
end

newprocessgroup (mconsole) forkunix
} if