' bei dieser Verwendung von Menues geht sowas:

	Global Menus:Tgadget[199] , LastMenuNr%

	Const MENU_FILE%=1 , MENU_START%=2 , MENU_OPTI%=3 
	Const MENU_RECENT%=4 , MENU_OPEN%=10 
	Const MENU_SUB_%=31 ' freihalten bis 131!

'start mit 5 leeren:
	Menus[MENU_FILE] = CreateMenu("{{File}}   ",0,WindowMenu(Window))
		Menus[MENU_OPEN] = CreateMenu ("{{Open}}                   " , MENU_OPEN , Menus[MENU_FILE],0,0)
		Menus[MENU_RECENT] = CreateMenu( "{{Languages}}..." , 0 , Menus[MENU_FILE] ,0,0)
		
		For Local i%=0 To 4
			Menus[MENU_SUB+ i] = CreateMenu( "{{free}}" , MENU_SUB+i , Menus[MENU_RECENT]  ,0,0 )
		Next
		LastMenuNr=5
	UpdateWindowMenu window
	.....
		
			
'weiteres dazunehmen:
Menus[MENU_SUB+LastMenuNr] = CreateMenu( "{{free}}" , MENU_SUB+LastMenuNr , Menus[MENU_RECENT]  ,0,0 )
LastMenuNr = LastMenuNr+1
UpdateWindowMenu window
......


' so könnte man abfragen:
Function MenuAction(Event%)
	Select Event
		Case MENU_OPEN
			AllLoadingActions
		Case MENU_CLOSE
			StartAls 4
	End Select
	
	For Local i%=0 To 99
		If Event = MENU_SUB+i
			Print "Language MENU " + i + "angeklickt" 
		EndIf
	Next	
	.....		

MENU_SUB=1000
	For Local i%=0 To 99
		If Event = MENU_SUB+i
			Print "Language MENU " + i + "angeklickt" 
		EndIf
	Next	

Type TLanguage
     Field LangName:String
     Field LangFile:String
     Field LangID:Int
End Type

'Language Type
Type TLanguage
     Field LangName:String
     Field LangFile:String
     Field LangID:Int
End Type

Global LangList:TList = CreateList()
'Sprachenmenü erstellen
	Global LangMenu:TGadget = CreateMenu("Sprache", 0, xtramenu)
		Local LangDir = ReadDir("lng\")
		Local CurrID:Int = 1000
		Repeat
			Local NewLang:TLanguage
			NewLang = New TLanguage
			
			Local Datei:String = NextFile$(LangDir)
			If Datei = ""
				Exit
			EndIf
			If FileType("lng\" + Datei) = 1
				NewLang.LangName = StripAll(Datei)
				NewLang.LangFile = Datei
				NewLang.LangID = CurrID
				ListAddLast(LangList, NewLang)
				CurrID = CurrID + 1
			EndIf
		Forever
		CloseDir LangDir
			
	For L:TLanguage = EachIn(LangList)
		CreateMenu L.LangName, L.LangID, xtramenu
	Next
'Hauptschleife
Repeat
        WaitEvent()
        Select EventID()
                        Case EVENT_WINDOWCLOSE
                                  Exit
                        Case EVENT_MENUACTION 'EDIT: Zeile hinzugefügt! :D 
                	          LangMenuID = 1000
			          For Local i:Int = 0 To 99
				        If Event = LangMenuID + i
					        For L2:TLanguage = EachIn LangList
						        If LangMenuID + 1 = L2.LangID
							        Local selLang:TStream = WriteFile("packager.cfg")
								         WriteLine selLang, L2.LangFile
							        CloseFile selLang
				         	         EndIf
					        Next
				         EndIf
			          Next
         End Select
Forever
End