NSAutoreleaseNoPool(): Object 0x12a670 of class NSEvent autoreleased with no pool in place - just leaking
Code: Select all
Global Window, Button
Enumeration #PB_Event_FirstCustomValue
#PB_Event_MyEvent
EndEnumeration
Procedure Function(x)
For x = 0 To 10
PostEvent(#PB_Event_MyEvent, Window, 1, #PB_EventType_Change, x)
Delay (50)
Next
EndProcedure
Window = OpenWindow(#PB_Any, x, y, 400, 140, "Click Me", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
Button = ButtonGadget(#PB_Any, 155, 60, 90, 25, "Function")
Repeat
event = WaitWindowEvent()
Select event
Case #PB_Event_CloseWindow
Exit = #True
Case #PB_Event_Menu
Select EventMenu()
EndSelect
Case #PB_Event_Gadget
Select EventGadget()
Case Button
CreateThread(@Function(), 0)
EndSelect
Case #PB_Event_MyEvent
Select EventGadget()
Case 1
Debug "Event " +EventData()
EndSelect
EndSelect
Until Exit = #True
End