DisplayPopupMenu() funzt nicht sobald man das Fenster windows2 schließt und wieder neu erstellt.
Bug ?
getestet unter osx el capitan 10.11
linux, windows alles ok
Code: Alles auswählen
Enumeration FormMenu
#PopupMenu_info
#Menu_info_1
EndEnumeration
Procedure RefreshHandler()
DisplayPopupMenu(#PopupMenu_info, WindowID(EventWindow()))
EndProcedure
Procedure ButtonHandler()
Window_2 = OpenWindow(#PB_Any, 100, 100, 500, 500, "Window_2", #PB_Window_SystemMenu)
Button = ButtonGadget(#PB_Any, 10, 10, 180, 30, "DisplayPopup")
BindGadgetEvent(Button, @RefreshHandler())
EndProcedure
Window_1 = OpenWindow(#PB_Any, 100, 100, 200, 90, "Click test", #PB_Window_SystemMenu)
CreatePopupMenu(#PopupMenu_info)
MenuItem(#Menu_info_1, "TEST")
Button = ButtonGadget(#PB_Any, 10, 10, 180, 30, "OpenWindow")
BindGadgetEvent(Button, @ButtonHandler())
Repeat
Event = WaitWindowEvent()
If Event = #PB_Event_CloseWindow
CloseWindow(EventWindow())
EndIf
Until Event = #PB_Event_CloseWindow And EventWindow() = Window_1