\ User interface library
\ hs 03.09.97
needs get-mouse-position	lib.arm.mouseactio
needs save-screen-block		lib.arm.screensave 
needs queue:			lib.jobs
needs mouse-server		lib.mouseserve
needs menu:			lib.menu
needs edit-box			lib.inbox

only forth also definitions
\
\	menu: test1	words	p" print all words"
\			order	p" print vocabulary order" ;
\	menu: test2	.nodes  p" print nodes"
\			.tasks	p" print tasks" ;
\	menu: m-menu	test1	p" words tools"
\			test2	p" vocabulary tools" ;
\	menu: top-menu	m-menu	p" more tools"
\			test1	p" onother: print all words"
\			vocs	p" print vocabularies" ;
\	
\	: test	begin	top-menu dup
\		while	execute ??cr
\		repeat drop ;
\	test 