MENU "#System:&File"
	"#System:&New"	"N"	"StdCmds.New"	""
	"#System:&Open..."	"O"	"StdCmds.OpenDialog"	""
	"#System:&Open Stationery..."	"*O"	"StdCmds.OpenCopyOfDialog"	""
	"#System:&Save"	"S"	"StdCmds.SaveDialog"	"StdCmds.SaveGuard"
	"#System:&Save As..."	"*S"	"StdCmds.SaveAsDialog"	"StdCmds.WindowGuard"
	"#System:&Save Copy As..."	""	"StdCmds.SaveCopyAsDialog"	"StdCmds.WindowGuard"
	"#System:&Close"	"W"	"StdCmds.CloseTopDialog"	"StdCmds.WindowGuard"
	SEPARATOR
	"#System:&Page Setup..."	""	"StdDialog.OpenPageSetup"	"StdCmds.WindowGuard"
	"#System:&Print..."	"P"	"StdCmds.Print"	"StdCmds.PrintGuard"
	SEPARATOR
	"#System:&Exit"	""	"StdCmds.Exit"	""
END

MENU "#System:&Edit"
	"#System:&Undo"	"Z"	"StdCmds.Undo"	"StdCmds.UndoGuard"
	"#System:&Redo"	"Y"	"StdCmds.Redo"	"StdCmds.RedoGuard"
	SEPARATOR
	"#System:&Cut"	"X"	"StdCmds.Cut"	"StdCmds.CutGuard"
	"#System:&Copy"	"C"	"StdCmds.Copy"	"StdCmds.CopyGuard"
	"#System:&Paste"	"V"	"StdCmds.Paste"	"StdCmds.PasteGuard"
	"#System:&Del"	""	"StdCmds.Clear"	"StdCmds.CutGuard"
	"#System:&Copy Properties"	"*C"	"StdCmds.CopyProp"	"StdCmds.SelectionGuard"
	"#System:&Paste Properties"	"*V"	"StdCmds.PasteProp"	"StdCmds.SelectionGuard"
	SEPARATOR
	"#System:&Paste Object"	""	"StdCmds.PasteObject"	"StdCmds.PasteObjectGuard"
	"#System:&Paste Special..."	""	"OleClient.PasteSpecial"	"StdCmds.PasteObjectGuard"
	"#System:&Paste to Window"	""	"StdCmds.PasteToWindow"	"StdCmds.PasteToWindowGuard"
	SEPARATOR
	"#System:&Insert Object..."	""	"OleClient.InsertObject"	"StdCmds.PasteViewGuard"
	"#System:&Object Properties..."	""	"StdCmds.ShowProp"	"StdCmds.ShowPropGuard"
	"#System:&Object"	""	"StdCmds.ObjectMenu"	"StdCmds.ObjectMenuGuard"
	SEPARATOR
	"#System:&Select Document"	" "	"StdCmds.SelectDocument"	"StdCmds.WindowGuard"
	"#System:&Select All"	"A"	"StdCmds.SelectAll"	"StdCmds.SelectAllGuard"
	"#System:&Select Next Object"	"F6"	"StdCmds.SelectNextView"	"StdCmds.ContainerGuard"
	SEPARATOR
	"#System:&Preferences..."	""	"StdDialog.OpenPrefDialog"	""
END

MENU "#System:&Attributes"
	"#System:&Regular"	""	"StdCmds.Plain"	"StdCmds.PlainGuard"
	SEPARATOR
	"#System:&Bold"	"B"	"StdCmds.Bold"	"StdCmds.BoldGuard"
	"#System:&Italic"	"I"	"StdCmds.Italic"	"StdCmds.ItalicGuard"
	"#System:&Underline"	"U"	"StdCmds.Underline"	"StdCmds.UnderlineGuard"
	SEPARATOR
	"#System:&8 Point"	""	"StdCmds.Size(8)"	"StdCmds.SizeGuard(8)"
	"#System:&9 Point"	""	"StdCmds.Size(9)"	"StdCmds.SizeGuard(9)"
	"#System:&10 Point"	""	"StdCmds.Size(10)"	"StdCmds.SizeGuard(10)"
	"#System:&12 Point"	""	"StdCmds.Size(12)"	"StdCmds.SizeGuard(12)"
	"#System:&16 Point"	""	"StdCmds.Size(16)"	"StdCmds.SizeGuard(16)"
	"#System:&20 Point"	""	"StdCmds.Size(20)"	"StdCmds.SizeGuard(20)"
	"#System:&24 Point"	""	"StdCmds.Size(24)"	"StdCmds.SizeGuard(24)"
	"#System:&Size..."	""	"StdCmds.InitSizeDialog; StdCmds.OpenToolDialog('Std/Rsrc/Cmds', '#System:Size')"
				"StdCmds.SizeGuard(-1)"
	SEPARATOR
	"#System:&Default Color"	""	"StdCmds.Color(1000000H)"	"StdCmds.ColorGuard(1000000H)"
	"#System:&Black"	""	"StdCmds.Color(0000000H)"	"StdCmds.ColorGuard(0000000H)"
	"#System:&Red"	""	"StdCmds.Color(00000FFH)"	"StdCmds.ColorGuard(00000FFH)"
	"#System:&Green"	""	"StdCmds.Color(000AF00H)"	"StdCmds.ColorGuard(000AF00H)"
	"#System:&Blue"	""	"StdCmds.Color(0FF0000H)"	"StdCmds.ColorGuard(0FF0000H)"
	"#System:&Color..."	""	"StdDialog.ColorDialog"	"StdCmds.ColorGuard(-1)"
	SEPARATOR
	"#System:&Default Font"	""	"StdCmds.DefaultFont"	"StdCmds.DefaultFontGuard"
	"#System:&Font..."	""	"StdDialog.FontDialog"	"StdCmds.TypefaceGuard"
	"#System:&Typeface..."	""	"StdDialog.TypefaceDialog"	"StdCmds.TypefaceGuard"
END

INCLUDE "Dev"

INCLUDE "Text"

INCLUDE "Form"

INCLUDE "Sql"

INCLUDE "Obx"

INCLUDE "*"

MENU "#System:&Help"
	"#System:&Contents"	"F1"	"StdCmds.OpenAuxDialog('Docu/Help', '#System:Help Contents')"	""
	"#System:&Examples"	""	"StdCmds.OpenBrowser('Obx/Docu/Sys-Map', '#System:Examples')"	""
	"#System:&Language Report"	""	"StdCmds.OpenBrowser('Docu/CP-Lang', '#System:Component Pascal Language Report')"	""
	SEPARATOR
	"#System:&About BlackBox"	""	"StdCmds.OpenToolDialog('System/Rsrc/About', '#System:About BlackBox')"	""
END


MENU "*" 
	"#System:&Cut"	""	"StdCmds.Cut"	"StdCmds.CutGuard"
	"#System:&Copy"	""	"StdCmds.Copy"	"StdCmds.CopyGuard"
	"#System:&Paste"	""	"StdCmds.Paste"	"StdCmds.PasteGuard"
	"#System:&Delete"	""	"StdCmds.Clear"	"StdCmds.CutGuard"
	SEPARATOR
	"#System:&Properties..."	""	"StdCmds.ShowProp"	"StdCmds.ShowPropGuard"
	"#System:&Object"	""	"StdCmds.ObjectMenu"	"StdCmds.ObjectMenuGuard"
END
