OpenWindow(0, 0, 0, 300, 200, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(1, 200, 10, 80, 25, "OK")

Procedure okno2()
  OpenWindow(2, 0, 0, 90, 100, "", #PB_Window_Tool|#PB_Window_WindowCentered, WindowID(0))
  ButtonGadget(2, 5, 10, 80, 25, "OK 2")
EndProcedure

Procedure editor()
  EditorGadget(3, 5, 5, 180, 180) ; [ОШИБКА] Отсутствует текущий список гаджетов (GadgetList)
EndProcedure

Repeat
  Select WaitWindowEvent()
    Case  #PB_Event_CloseWindow
      End
    Case #PB_Event_Gadget
      Select EventGadget()
        Case 1
          DisableWindow(0, 1)
          DisableGadget(1, 1)
          okno2()
        Case 2
          CloseWindow(2)
          DisableWindow(0, 0)
          UseGadgetList(WindowID(0))
          editor()
      EndSelect
  EndSelect
ForEver