ScrollAreaGadget und CreateThread() unverträglichkeit?

[redboy]

bei mir verträgt sich das ScrollAreaGadget mit CreateThread() nicht.

Code: Alles auswählen

Global x


Procedure Open_Window_0()
  If OpenWindow(0, 216, 0, 600, 400,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar | #PB_Window_ScreenCentered , "New window ( 0 )")
    If CreateGadgetList(WindowID())
      ButtonGadget(1, 10, 360, 80, 30, "Mit Thread")
      ButtonGadget(2, 510, 360, 80, 30, "Ohne Thread")
      
      ScrollAreaGadget(0, 10, 10, 580, 340, 1160, 680, 20,#PB_ScrollArea_Single)
      CloseGadgetList()
    EndIf
  EndIf
EndProcedure


Procedure test()
   
   OpenGadgetList(0)
      x = x + 1
      TextGadget(3,10,10,300,20,"Mit Thread "+Str(x))
      CheckBoxGadget(4,10,30,300,20,"Mit Thread "+Str(x))
   CloseGadgetList()
   
EndProcedure


Open_Window_0()
x = 0


Repeat
  
  Event = WaitWindowEvent()
  GadgetID = EventGadgetID()
  
  If Event = #PB_EventGadget
    
    If GadgetID = 1
       CreateThread(@test(),0)
       
    ElseIf GadgetID = 2
       test()
      
    EndIf
  EndIf
  
Until Event = #PB_Event_CloseWindow
End