Code: Select all
Procedure Open_Window_0()
  If OpenWindow(#Window_0, 216, 10, 600, 300,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "New window")
    If CreateGadgetList(WindowID(#Window_0))
      ButtonGadget(#Button_0, 120, 110, 60, 20, "OK")
      ;HideWindow(#Window_0,0)
      ProcedureReturn WindowID()
    EndIf
  EndIf
EndProcedureOr maybe there is a site so that we can read about it.
Alan

