/main {
	% --
	/olbasewindow /newmember hn send
	dup /framelabel (Text Editor) put dup
	/resizable true put 50 50 350 350 /reshape
	5 index send
	/@topwin /rename 2 index send
	pop /group /newmember 2 index
	/@current_layout get send
	10 null 10 10 /setposition 5 index send
	/left2right /setplacement 2 index send
	dup /minheight 30 put /olnotice newobject
	exch 50 50 300 120 /reshape 6 index send
	/olmenubutton /newmember 2 index send
	exch //nullstring (\n\t\t/MenuAction {\n\t\t\tpop exch pop\n\t\t\tdup 0 eq \n\t\t\t{\n\t\t\t\tw 2 div h 2 div /mapxy file_popup send\n \t\t\t}\n\t\t\t{ 4 eq {[] /clearvalue /@text Send} if } ifelse\n\n\t\t} def\n\t)
	/setscript 4 index send
	pop 2 index /addslave 3 index send
	1 index /file_popup 4 index put (File)
	/setlabel 3 index send
	[null 0 (Load File...) 2 null (Save Current File)
	1 null (Store as New File...) 1 null (Include File...)
	1 null (Empty Document) 0 null] /setmenu
	3 index send
	/map 3 -1 roll send
	/group /newmember 4 -1 roll
	/@current_layout get send
	10 10 10 10 /setposition 5 index send
	/Centered /setjustification 2 index send
	/@text_group /rename 2 index send
	pop /label /newmember 2 index send
	(File Name) /setlabel 2 index send
	dup /fixedwidth true put 10 null 10 10
	/setposition 5 index send
	/map exch send
	/oltextfield /newmember 2 index send
	(hn/README) /setvalue 2 index send
	10 40 250 20 /reshape 5 index send
	/@textfield /rename 2 index send
	pop /map exch send
	/group /newmember 2 index send
	10 10 250 20 /reshape 5 index send
	/left2right /setplacement 2 index send
	/@topgroup /rename 2 index send
	pop /olbutton /newmember 2 index send
	//nullstring (/Action {[] /unmap @window Send} def)
	/setscript 3 index send
	pop (Cancel) /setlabel 2 index send
	true /setdefaultchoice 2 index send
	dup /minwidth /preferredwidth 3 index send
	put dup /fixedwidth true put /map exch send
	/olbutton /newmember 2 index send
	//nullstring (/Action {\n\t\t[] /unmap @window Send\n\t\t[/@window /@current_layout /@text_group /@textfield] find_object\n\t\t/value get\n\t\t[ exch ]\n\t\t /setfile [/@topwin /@current_layout /@text] Send\n\t\t} def)
	/setscript 3 index send
	pop (Load File) /setlabel 2 index send
	dup /minwidth /preferredwidth 3 index send
	put dup /fixedwidth true put /map exch send
	/map exch send
	/map exch send
	/olnotice newobject exch 50 50 300 120
	/reshape 6 index send
	/olmenubutton /newmember 2 index send
	exch //nullstring (\n\t\t/MenuAction {\n\t\t3 1 roll pop pop\n\t\t{\n\t\t\(Select Line at Number...\)\n\t\t\t{w 2 div h 2 div /mapxy line_popup send}\n\t\t\(Wrap at Word\)\n\t\t\t{[/word] /set_line_wrap /@text Send }\n\t\t\(Wrap at Character\)\n\t\t\t{[/char] /set_line_wrap /@text Send }\n\t\t\(Clip Lines\)\n\t\t\t{[/none] /set_line_wrap /@text Send} \n\t\t} case\n\n\t\t} def\n\t)
	/setscript 4 index send
	pop 2 index /addslave 3 index send
	1 index /line_popup 4 index put (View)
	/setlabel 3 index send
	[null 0 (Select Line at Number...) 2 null (What Line Number?)
	1 null (Show Caret at Top) 1 null (Change Line Wrap)
	0 [null 0 (Wrap at Word) 0 null (Wrap at Character)
	0 null (Clip Lines) 0 null]] /setmenu 3 index
	send
	/map 3 -1 roll send
	/group /newmember 4 -1 roll
	/@current_layout get send
	10 10 10 10 /setposition 5 index send
	/Centered /setjustification 2 index send
	/@line_group /rename 2 index send
	pop /label /newmember 2 index send
	(Line Number) /setlabel 2 index send
	dup /fixedwidth true put 10 null 10 10
	/setposition 5 index send
	/map exch send
	/oltextfield /newmember 2 index send
	(5) /setvalue 2 index send
	10 40 250 20 /reshape 5 index send
	/@line_no /rename 2 index send
	pop /map exch send
	/group /newmember 2 index send
	10 10 250 20 /reshape 5 index send
	/left2right /setplacement 2 index send
	/@topgroup /rename 2 index send
	pop /olbutton /newmember 2 index send
	//nullstring (/Action {[] /unmap @window Send} def)
	/setscript 3 index send
	pop (Cancel) /setlabel 2 index send
	true /setdefaultchoice 2 index send
	dup /minwidth /preferredwidth 3 index send
	put dup /fixedwidth true put /map exch send
	/olbutton /newmember 2 index send
	//nullstring (/Action {\n\t\t[] /unmap @window Send\n\t\t[/@window /@current_layout /@line_group /@line_no] find_object\n\t\t/value get\n\t\t[ exch cvi]\n\t\t /select_line_at [/@topwin /@current_layout /@text] Send\n\t\t} def)
	/setscript 3 index send
	pop (Select Line) /setlabel 2 index send
	dup /minwidth /preferredwidth 3 index send
	put dup /fixedwidth true put /map exch send
	/map exch send
	/map exch send
	/olmenubutton /newmember 2 index send
	exch //nullstring (\n\t\t/MenuAction {\n\t\t3 1 roll pop pop\n\t\t{\n\t\t\(Copy\)\n\t\t\t{[] /copy_selection /@text Send }\n\t\t\(Paste\)\n\t\t\t{[] /paste_selection /@text Send }\n\t\t\(Cut\)\n\t\t\t{[] /cut_selection /@text Send }\n\t\t} case\n\n\t\t} def\n\t)
	/setscript 4 index send
	pop (Edit) /setlabel 3 index send
	[null 64 (Again) 3 null (Undo) 0 [null 0 (Undo Last Edit)
	1 null (Undo All Edits) 1 null] (Copy) 0 null (Paste)
	0 null (Cut) 0 null] /setmenu 3 index send
	/map 3 -1 roll send
	/olmenubutton /newmember 2 index send
	exch (Find) /setlabel 3 index send
	[null 0 (Find and Replace...) 2 null (Find Selection)
	0 [null 0 (Forward) 1 null (Backward) 1 null] (Find Marked Text...)
	2 null (Replace |>Field<|) 0 [null 0 (Expand) 1
	null (Next) 1 null (Previous) 1 null]] /setmenu
	3 index send
	/map 3 -1 roll send
	/olbutton /newmember 2 index send
	//nullstring (/Action {systemdict /hn undef} def)
	/setscript 3 index send
	pop (Quit) /setlabel 2 index send
	/map exch send
	/map exch send
	/edittext /newmember 2 index
	/@current_layout get send
	10 5 50 50 /reshape 5 index send
	10 5 10 40 /setposition 5 index send
	//nullstring /set_value 2 index send
	/@text /rename 2 index send
	pop /Courier 12 /set_font 3 index send
	/map exch send
	/map exch send
} def