I think I see.... Edit: Didn't work. Here's the code.
Local LoopFunctionsPanel:TGadget = CreatePanel(0, 0, ClientWidth(WindowTabber), ClientHeight(WindowTabber), WindowTabber, PANEL_ACTIVE)
Local LoopFunctionsLabel:TGadget = CreateLabel("Loop Functions", 0, 0, ClientWidth(WindowTabber), 20, LoopFunctionsPanel, LABEL_CENTER)
Local LoopFunctionsList:TGadget = CreateListBox(10, 30, ClientWidth(WindowTabber) - 20, ClientHeight(WindowTabber) - 70, LoopFunctionsPanel)
Local LoopFunctionsOkButton:TGadget = CreateButton("Ok", 10, ClientHeight(WindowTabber) - 30, ClientWidth(WindowTabber) - 20, 20, LoopFunctionsPanel)
Local ManualLoopFunctionListPanel:TGadget = CreatePanel(0, 0, ClientWidth(WindowTabber), ClientHeight(WindowTabber), WindowTabber, PANEL_ACTIVE)
Local ManualCreateMenu:TGadget = CreateMenu("Create", 2, WindowTabber)
CreateMenu("New", 1200, ManualCreateMenu)
and here's where I test for it.
If EventSource() = ManualLoopFunctionListPanel Or EventSource() = LoopFunctionsPanel
If EventData() = 2 Then
PopupWindowMenu MainWindow, ManualCreateMenu
EndIf
EndIf
|