// AIEditMenuTables.bcpl  --  Tables for setting up menu windows.


external EditMenuInit


let EditMenuInit() = valof
	[
	// set up menu table
	let menu=table
		[
		17
		0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
		0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
		]
	menu!1=table [ 0;#140001;15;33;74;46;#40004 ]
	menu!2=table [ 0;#140001;79;33;138;46;#140004 ]
	menu!3=table [ 0;#140001;141;33;200;46;#140004 ]
	menu!4=table [ 0;#140001;203;33;262;46;#140004 ]
	menu!5=table [ 0;#140001;265;33;324;46;#140004 ]
	menu!6=table [ 0;#140001;327;33;386;46;#140004 ]
	menu!7=table [ 0;#140001;389;33;448;46;#140004 ]
	menu!8=table [ 0;#140001;451;33;510;46;#140004 ]
	menu!9=table [ 0;#140001;513;33;572;46;#140004 ]
	menu!10=table [ 0;#140001;463;17;522;30;#100000 ]
	menu!11=table [ 0;#140001;15;17;74;30;#100000 ]
	menu!12=table [ 0;#140001;79;17;138;30;#100000 ]
	menu!13=table [ 0;#140001;143;17;202;30;#100000 ]
	menu!14=table [ 0;#140001;207;17;266;30;#100000 ]
	menu!15=table [ 0;#140001;335;17;394;30;#100000 ]
	menu!16=table [ 0;#140001;399;17;458;30;#100000 ]
	menu!17=table [ 0;#140001;271;17;330;30;#140002 ]

	// set up stringlist table
	let stringlist=table
		[
		17
		0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
		0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
		]
	stringlist!1=" "
	stringlist!10="Quit"
	stringlist!11="I Buffer"
	stringlist!12="O Buffer"
	stringlist!13="IMP Nop"
	stringlist!14="IMP Echo"
	stringlist!15="PRU Echo"
	stringlist!16="Print"
	stringlist!17="PRU Top"

	// set up menuDCB table
	let menuDCB=table
		[
		0
		0;#0;0;8
		0;#42;0;8
		0;#46;0;8
		0;#0;0;380
		]
	test (menuDCB&1) eq 1 ifso menuDCB=menuDCB+1
		ifnot for n=0 to 15 do menuDCB!n=menuDCB!(n+1)
	for n=0 to 2 do menuDCB!(4*n)=menuDCB+4*(n+1)

	// now finish up
	let temp=table [ 0;0;0 ]
	temp!0=menu
	temp!1=stringlist
	temp!2=menuDCB
	resultis temp
	]