#Menu

 Title "Projekt"
  ITEM "Neu"                 ((NewText)(Open))        "O"
  ITEM "Öffnen ..."          (Open)  "L"
  EMPTY
  ITEM "Speichern"           (Save)                     "S"
  ITEM "Speichern als ..."   (Save "")                  "A"
   EMPTY
   ITEM "Drucken"             (Print "prt:")
   ITEM "Druckformat..."      (PageForm)
   EMPTY
   ITEM "Einstellungen..."    			(GlobalForm)         "?"
   ITEM "Einstellungen laden ..."   	(OpenSettings)
   ITEM "Einstellungen speichern" 	   (SaveSettings "S:Edward.CONF")
   EMPTY
   ITEM "Information"         (InfoForm)
	ITEM "Projekt speichern"	  (SaveSession)              "\""
   ITEM "Projekt & Ende"      (Exit)                     "!"
   ITEM "Ende"                (Quit)                     "Q"

/* Definitionen um von Edward aus Maxon CPlus+ zu steuern. */

#ifdef COMPILER

TITLE "Compiler"
  ITEM "Übersetzen"               (sendappcomm "compile") "M"
  ITEM "Ausführen"                (SendAppComm "run")     "P"
	ITEM "Abbrechen"                (SendAppComm "break")
  ITEM "Compile Datei"            (SendAppComm "compfile")
  EMPTY
  ITEM "Exe-Datei"                (SendAppComm "exefile")
  ITEM "Objektdatei"              (SendAppComm "objectfile")
	ITEM "Debugger"                 (SendAppComm "debug")   "D"
  EMPTY
  ITEM "Information"              (SendAppComm "info")

TITLE "Make"
  ITEM "Neues Makefile           "  (SendAppComm "newmk")
  ITEM "Makefile laden           "  (SendAppComm "loadmk")
  EMPTY 
  ITEM "Text in Editor laden     "  (SendAppComm "opentext")
  ITEM "Text dazuladen           "  ((newtext) (SendAppComm "opentext"))
  EMPTY
  ITEM "Text aus Editor aufnehmen"  (SendAppComm "addedittx")
  ITEM "Text aus Datei aufnehmen "  (SendAppComm "addfiletx")
  ITEM "Objektdatei aufnehmen    "  (SendAppComm "addobj")
  ITEM "Text und Objekt aufnehmen"  (SendAppComm "addtxobj")
  EMPTY
  ITEM "Text entfernen           "  (SendAppComm "remtx")
  ITEM "Objektdatei entfernen    "  (SendAppComm "remobj")
  EMPTY
  ITEM "Compileranweisungen      "  (SendAppComm "mkinstr")
  ITEM "Abhängigkeiten           "  (SendAppComm "mkdep")
  ITEM "Objekt markieren         "  (SendAppComm "touch")
  EMPTY
  ITEM "Make verlassen           "  (SendAppComm "leavemk")

TITLE "Optionen"
  ITEM "System"                     (SendAppComm "opsys")
  ITEM "Compiler"                   (SendAppComm "opcomp")
  ITEM "Linker"                     (SendAppComm "oplink")
	ITEM "Optionen sichern"           (SendAppComm "saveconf")
  EMPTY
  ITEM "Verzeichnis"                (SendAppComm "chdir")
#endif


TITLE "Fenster"
   ITEM "Neu"                 (NewWin)                   "W"
   ITEM "Nächstes"            (SuccWin)                  "*"
   ITEM "Vorheriges"          (PredWin)                  "/"
   ITEM "Schließen"           (FreeWin)
   EMPTY
   ITEM "horizontal teilen"   (SplitHorWin)
   ITEM "vertikal teilen"     (SplitVerWin)
   ITEM "volle Größe"         (FullSizeWin)              "Z"
   ITEM "Ikonifizieren"       (Iconify)                  "I"   

TITLE "Text"
   ITEM "Neu"                 (NewText)				        	 "N"
   ITEM "Entfernen"           (FreeText)                 "K"
   ITEM "Nächster"            (SuccText)                 ">"
   ITEM "Vorheriger"          (PredText)                 "<"
   ITEM "Löschen"             (New)
   EMPTY
   ITEM "Einstellungen ..."   (EditForm)
   EMPTY
   ITEM "Text  1"             (SeltextN 0)               "1"
   ITEM "Text  2"             (SelTextN 1)               "2"
   ITEM "Text  3"             (SelTextN 2)               "3"
   ITEM "Text  4"             (SelTextN 3)               "4"
   ITEM "Text  5"             (SelTextN 4)               "5"
   ITEM "Text  6"             (SelTextN 5)               "6"

TITLE "Block"
   ITEM "Markieren"           (Mark)                     "B"
   ITEM "Ausschneiden"        (Cut)                      "X"
   ITEM "Kopieren"            (Copy)                     "C"
   ITEM "Einfügen"            (Paste)                    "V"
   EMPTY
   ITEM "vertikal markieren"  (mv)
   ITEM "vertikal einfügen"   (pv)
   EMPTY
   ITEM "Block einlesen ..."  (OpenClip)
   ITEM "Block speichern ..." (SaveClip)                 "$"
   ITEM "Block drucken"       (SaveClip "prt:")

TITLE "Suchen"
   ITEM "Suchen ..."          (FindForm)                 "F"
   ITEM "Weitersuchen"        (Again)                    "G"
   ITEM "Ersetzen ..."        (FindRepForm)              "R"
   EMPTY
   ITEM "Strukturkontrolle"   (GoMatchStruct)
   ITEM "Gehe zu Fehler"      (GoParsedError)
   ITEM "Gehe zu Zeile ..."   (GotoForm)                 "J"
   ITEM "Gehe zum Anfang"     (Top)                      "T"
   ITEM "Gehe zum Ende"       (Bot)                      "E"

TITLE "Falte"
   ITEM "Erzeuge Falte"             (Fold)               "+"
   ITEM "Zeige Falte"               (ShowFold)           "#"
   ITEM "Entferne Falte"            (RemFold)            "-"
   EMPTY
   ITEM "Zeige alle Falten"         (SetFoldsOff)        "("
   ITEM "Schließe alle Falten"      (SetFoldsOn)         ")"

TITLE "Macro"
   ITEM "Aufnehmen"                 (RecStart)
   ITEM "Anhalten"                  (RecStop)
   ITEM "Abspielen"                 (RecPlay)
   EMPTY
   ITEM "Speichern als ..."         (SaveRecScript)
   ITEM "Öffnen und abspielen"      (PlayRecScript)
   EMPTY
   ITEM "AREXX-Befehl ..."          (rx)

TITLE "Extras"
   ITEM "Undo"                      (UnDo)               "ö"
   ITEM "Redo"                      (ReDo)               "ä"
   EMPTY
   ITEM "Formatiere Absatz"         (WrapPara)
   ITEM "Formatiere Text"           (WrapText)
   EMPTY
   ITEM "TABs in Leerzeichen"       (RemTab)
   ITEM "Großbuchstaben"            (BlockHigher)
   ITEM "Kleinbuchstaben"           (BlockLower)
   EMPTY
   ITEM "Überschreiben"             (so1)                "."
   ITEM "Einfügen"                  (so0)                ":"
   EMPTY
   ITEM "DEF-Datei laden ..."       (OpenDefs)



#Keys_None
 Up        (MoveUp 1)
 Down      (MoveDown 1)
 Left      (MoveLeft 1)
 Right     (MoveRight 1)

 F1             (Mark)
 F2             ()
 F3             (Fold)
 F4             (ShowFold)
 F5             (RemFold)
 F6             (Cut)
 F7             (Copy)
 F8             (Paste)
 F9             (sendappcomm "compile")
 F10            (SendAppComm "run")

 ESC            (EnterCmd)
 DELETE         (Delete)
 BACKSPACE      (BackSpace)
 RETURN         (Return)
 ENTER          (IndentReturn)
#Keys_Shift
   Up        (BigStepUp)
   Down      (BigStepDown)
   Left      (MoveLeft -1)
   Right     (MoveRight -1)

   F1             (Top)
   F2             (Bot)
#Keys_Ctrl
   CRSR_UP        (GoPredFold)
   CRSR_DOWN      (GoSuccFold)
   CRSR_LEFT      (BlockSL)
   CRSR_RIGHT     (BlockSR)

   DELETE         (KillLine)
   "B"            (KillLine)
   "u"            (UndoLine)
   "g"            (RepeatCmd)
   "o"            (ModifyOldCmd)
   "q"            (q)

	 "ö"		(InsertChars "{" )
	 "ä"		(InsertChars "}" )

/* Folgende Definition aktiviert Mode1. Die Tastatur wird dann
nach der weiter unten folgenden Belegung interpretiert */
   "x"            (SetMode1)

   "w"            (MoveUp 1)
   "a"            (MoveLeft 1)
   "s"            (MoveRight 1)
   "y"            (MoveDown 1)

	"1"		(SeltextN 0)
	"2"		(SeltextN 1)
	"3"		(SeltextN 2)
	"4"		(SeltextN 3)
	"5"		(SeltextN 4)
	"6"		(SeltextN 5)
	"7"		(SeltextN 6)
	"8"		(SeltextN 7)
	"9"		(SeltextN 8)
	"0"		(SeltextN 9)

	NP "1"	(SeltextN 0)
	NP "2"	(SeltextN 1)
	NP "3"	(SeltextN 2)
	NP "4"	(SeltextN 3)
	NP "5"	(SeltextN 4)
	NP "6"	(SeltextN 5)
	NP "7"	(SeltextN 6)
	NP "8"	(SeltextN 7)
	NP "9"	(SeltextN 8)
	NP "0"	(SeltextN 9)

	RETURN	(IndentReturn)

)
(ALT
   CRSR_UP        (MoveUp 4)
   CRSR_DOWN      (MoveDown 4)
   CRSR_LEFT      (MovePredWd)
   CRSR_RIGHT     (MoveSuccWd)

   F1             (SetBookMark 1)
   F2             (SetBookMark 2)
   F3             (SetBookMark 3)
   F4             (SetBookMark 4)
   F5             (SetBookMark 5)
   F6             (SetBookMark 6)
   F7             (SetBookMark 7)
   F8             (SetBookMark 8)
   F9             (SetBookMark 9)
   F10            (SetBookMark 10)
   
   NP "7"         (Top)
   NP "1"         (Bot)
   NP "8"         (MoveUp 1)
   NP "4"         (MoveLeft 1)
   NP "6"         (MoveRight 1)
   NP "2"         (MoveDown 1)
   NP_PGUP        (BigStepUp)
   NP_PGDN        (BigStepDown)

	RETURN	(IndentReturn)
)
/* Mahlzeit - Die neue ASCII-Belegungsmöglichkeit
*/
(ASCII
	")"		(	(InsertChars ")")
					(MoveLeft 1)
					(GMS)
					(Cursor)
					(Delay 15)
					(GMS)
					(MoveRight 1)
				)
	""		(Return)
)
(LEFT_COMMAND
   F1             (GoBookMark 1)
   F2             (GoBookMark 2)
   F3             (GoBookMark 3)
   F4             (GoBookMark 4)
   F5             (GoBookMark 5)
   F6             (GoBookMark 6)
   F7             (GoBookMark 7)
   F8             (GoBookMark 8)
   F9             (GoBookMark 9)
   F10            (GoBookMark 10)

   NP "8"         (ScreenUp 1)
   NP "2"         (ScreenDown 1)
)
(SHIFT ALT
   RETURN         (ToggleKey)
   CRSR_UP        (GoPredKey)
   CRSR_DOWN      (GoSuccKey)
)
(LEFT_COMMAND
	"f"		(Find (GetActWord) )
)
(SHIFT CTRL
)

/* Dies sind Beispiele,um zu verdeutlichen, wie Leistungsstark die Scriptsprache ist! */

(ALT CTRL
   DELETE         (InsertChars "Auf dem PC wär dies das Ende" )
)
(MODE1 CTRL
      "c"         (InsertChars   "EMACS Quit" )
      "s"         (InsertChars   "EMACS Save" )
      "t"         (InsertChars   "(do 5 (InsertChars \"D\" (do 3 (InsertChars \"X\" ))))" )
)
( MODE1 LEFT_COMMAND ALT CTRL SHIFT
   NP "9"         (InsertChars "MegaKomplex1" )
)
( LEFT_COMMAND ALT CTRL SHIFT
   NP "9"         (InsertChars "MegaKomplex2" )
)
(  ALT CTRL SHIFT
   NP "9"         (InsertChars "MegaKomplex3" )
)

/* The Magic HotKey Definition. */

HOTKEY
   LEFT_COMMAND   "`"

/* Mahlzeit */
