EnableExplicit

Global MyMessage.l = RegisterWindowMessage_("MyOwnMessage")

Procedure WindowCallback(WindowID,message,wParam,lParam)
  Protected result
  Protected *cd.COPYDATASTRUCT
  
  result = #PB_ProcessPureBasicEvents
  Select message
    Case #WM_COPYDATA
      If wParam=1
        *cd = lParam
        AddGadgetItem(1,-1,PeekS(*cd\lpData),0,0)
        ProcedureReturn #True
      EndIf
      
  EndSelect
  ProcedureReturn result
EndProcedure

If OpenWindow(0,0,0,500,250,"ProgrammXYZ",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  EditorGadget(1,10,10,480,230,0)
  
  SetWindowCallback(@WindowCallback())
  
Repeat : Until WaitWindowEvent(10) = #PB_Event_CloseWindow
EndIf