; ; ------------------------------------------------------------ ; ; SpiderBasic - Requester example file ; ; (c) Fantaisie Software ; ; ------------------------------------------------------------ ; Procedure CloseWindowEvent() Debug "Closing window: " + EventWindow() CloseWindow(EventWindow()) ; Close the specific window EndProcedure OpenWindow(0, 100, 100, 320, 200, "Window 0 - Resizable", #PB_Window_SizeGadget) OpenWindow(1, 500, 100, 320, 200, "Window 1") OpenWindow(2, 100, 400, 320, 200, "Window 2") BindEvent(#PB_Event_CloseWindow, @CloseWindowEvent())