h05120

s 00106/00000/00000

d D 1.1 91/03/08 04:49:07 hopkins 1 0

c date and time created 91/03/08 04:49:07 by hopkins

e

u

U

f e 0

t

T

I 1
%
% The hypernews system instance (root of the container hierarchy).
% The final dictionary is left on the stack when this file is loaded.
growabledict begin
(hn/sys/HN.PS) run
(hn/sun/DI.PS) run {def} forall
(hn/sun/OL.PS) run {def} forall

%
% fix the currentdict so that it looks like a container
%

/drawable /find_class class_mgr send
nullstring nullstring /new 4 -1 roll send
/new exch send {def} forall
/name /@system def

%
% Make sure that obsolecence is handled properly.
%

/obsolete nullproc def

/HandleObsoleteTarget {	% thing --
	(cleaning up...) DEBUG
	pop 
	[] /destroy self Send
} def

currentdict currentdict /addclient ObsoleteService send

%
% create the scoped menus
%

/@windowmenu [
	(Window)	0
	(Close)		2	/close
	(Full Size) 	1	null
	(Properties) 	1	null
	(Back) 		0	/tobottom
	(Refresh) 	0	/paint
	(Quit) 		1	null
] /menu newobject dup
/addslave currentdict send 
exch /setmenu 2 index send store
/@iconmenu [
	(Window)	0
	(Open)		2	/open
	(Full Size) 	1	null
	(Properties) 	1	null
	(Back) 		0	/tobottom
	(Refresh) 	0	/paint
	(Quit) 		1	null
] /menu newobject dup /addslave currentdict send exch /setmenu 2 index send store
/@editmenu [
	(HyperNeWS)	0
	(Goto)		0	[
		null			0
		(Next)			2	/goto_previous_layout
		(Previous)		0	/goto_previous_layout
		(First)			0	/goto_first_layout
		(Last)			0	/goto_last_layout
	]
	(Context)	0	[
		null			0
		(Parent)		0	/ctx_to_parent
		(Selected)		2	/ctx_to_selected
		(Current Layout)	0	/ctx_to_current_layout
		(Window Layout)		0	/ctx_to_window_layout
	]
	(Edit) 		0	[
		null			0
		(NeW Layout)		0	/new_layout
	]
	(Browse)			0	/stop_edit_mode
	(Save to ~/test.window)	0 	/test_save
] /menu newobject dup /addslave currentdict send exch /setmenu 2 index send store
/@scrollhmenu [
	null			0
	(Here to Left)		0	/HereToTop
	(Left to Here)		0	/TopToHere
	(Previous)		0	/Previous
] /menu newobject dup /addslave currentdict send exch /setmenu 2 index send store
/@scrollvmenu [
	null			0
	(Here to Top)		0	/HereToTop
	(Top to Here)		0	/TopToHere
	(Previous)		0	/Previous
] /menu newobject dup /addslave currentdict send exch /setmenu 2 index send store
%
% Here are some sentinel functions
%

/namestr (HyperNeWS) def

/deliver_parent {	% ... message -- ...
	logging {{log_message} stopped pop} if pop
} def

/invalidate {} def
/validate {} def

/onmenu nullproc def

currentdict end

E 1