Hintertürchen für UseMenu() - Geht das bei euch auch?

[STARGÅTE]

Tachchen,

da es leider kein UseMenu() gibt, sodass man nachträglich Items in ein Menu hinzufügen kann, ohne das ganze Menu neu zu erstellen, habe ich folgendes Hintertürchen entdeckt:

Code: Alles auswählen

Import "Menu.lib"
	PB_Menu_Globals
EndImport

Procedure UseMenu(Menu)
	PokeI(PB_Menu_Globals+4, MenuID(Menu))
EndProcedure


OpenWindow(1, 100, 100, 300, 200, "Window 1", #PB_Window_MinimizeGadget)
	CreateMenu(1, WindowID(1))
		MenuItem(1, "Item in Menu 1")
	
OpenWindow(2, 500, 100, 300, 200, "Window 2", #PB_Window_MinimizeGadget)
	CreateMenu(2, WindowID(2))
		MenuItem(2, "Item in Menu 2")

UseMenu(1)
	MenuItem(3, "New Item in Menu 1")
	
UseMenu(2)
	MenuItem(4, "New Item in Menu 2")

SetActiveWindow(1)

Repeat
	Select WaitWindowEvent()
		Case #PB_Event_CloseWindow
			End
	EndSelect
ForEver

Funktioniert das bei euch auch?

BTW: ich hoffe einfach mal das PB_Menu_Globals+4 auch wirklich die aktuelle MenuID enthält ^^

[Christian+]

Funktioniert bei mir auch und mit +SizeOf(Integer) statt +4 läuft es auch unter PB x64.

Code: Alles auswählen

Procedure UseMenu(Menu)
   PokeI(PB_Menu_Globals + SizeOf(Integer),  MenuID(Menu))
EndProcedure

[shadow]

Schöner Workaround

Leider wohl kaum kompatibel mit zukünftigen Versionen von PB. Also bleibt nur abzuwarten, ob das Entwickler-Team selbst nicht eine elegantere Lösung in Zukunft anbieten wird...

[STARGÅTE]

Deswegen ist es ja auch kein Trick ^^

Ich hoffe ja das die Menu-Lib auch die Sachen von File übernimmt, also dann man bei jedem Befehl die Menu-Nummer mit angibt.

Naja, ich selbst erstelle trotzdem weiterhin das Menü einfach neu, wenn sich was ändert.