control 2 windows in the same program

[RJP Computing]

How do you control 2 windows in the same program starting with the visual designer event loop. I have a problem where if I close a popup window it closes the whole loop.

Thanks

[Tranquil]

never took a closer look on the generated Source of VD yet but you can use WindowEventID to determine which window fired the event and only close the window on which the event occured.

Possible some changes on the eventloop of VD may be needed.

Mike

[RJP Computing]

Here is a quick example of the event loop. I did use that command but I don't know how to catch the 'x' close event and just close that window.

Code: Select all

Repeat
  
  Event = WaitWindowEvent() 
  
  If EventWindowID() = #Window_Main
  
    If Event = #PB_EventMenu
      
      ;Debug "WindowID: " + Str(EventWindowID())
      
      MenuID = EventMenuID()
      
      If MenuID = #MENU_NEW
        Debug "GadgetID: #MENU_NEW"
        
      ElseIf MenuID = #MENU_EXIT
        Debug "GadgetID: #MENU_EXIT"
        ;CloseWindow(#Window_Main)
        Event = #PB_EventCloseWindow
      ElseIf MenuID = #MENU_ABOUT
        Debug "GadgetID: #MENU_ABOUT"
        OpenWindow(#Window_About, 0, 0, 250, 350,  #PB_Window_SystemMenu , "About RJPad Lite v0.01", WindowID(#Window_Main))

      EndIf
      
    EndIf
    
    If Event = #PB_EventGadget
      
      ;Debug "WindowID: " + Str(EventWindowID())
      
      GadgetID = EventGadgetID()
      
      If GadgetID = #Gadget_Editor
        ;Debug "GadgetID: #Gadget_Editor"
        
      EndIf
      
    EndIf
    
  EndIf
  
  
  
Until Event = #PB_EventCloseWindow

End

Thanks

[Fangbeast]

Code: Select all

#MainWindow    = 1
#Window1         = 2
#Window2         = 3
#Window3         = 4
#Window4         = 5
#Window5         = 6
#Window6         = 7
#Window_About = 8

Repeat 
  
  EventID = WaitWindowEvent() 
  
    If EventID = #PB_Event_CloseWindow
      Select EventWindowID()
        Case #Window1 : CloseWindow(#Window1)
        Case #Window2 : CloseWindow(#Window2)
        Case #Window3 : CloseWindow(#Window3)
        Case #Window4 : CloseWindow(#Window4)
        Case #Window5 : CloseWindow(#Window5)
        Case #Window6 : CloseWindow(#Window6)
        Case #Window6 : CloseWindow(#Window7)
        Case #Window_About : CloseWindow(#Window_About)
      EndSelect
    EndIf
    
    If EventID = #PB_EventMenu 
      MenuID = EventMenuID() 
      Select MenuID
        Case #MENU_NEW   : Debug "GadgetID: #MENU_NEW" 
        Case #MENU_EXIT  : Debug "GadgetID: #MENU_EXIT" 
        Case #MENU_ABOUT : Debug "GadgetID: #MENU_ABOUT" 
        OpenWindow(#Window_About, 0, 0, 250, 350,  #PB_Window_SystemMenu , "About RJPad Lite v0.01", WindowID(#Window_Main)) 
      EndSelect
    EndIf 
      
    If EventID = #PB_EventGadget 
      GadgetID = EventGadgetID() 
        Select GadgetID
          Case #Gadget_Editor : ; Debug "GadgetID: #Gadget_Editor" 
        EndSelect
    EndIf 
      
Until EventID = #PB_EventCloseWindow And EventWindowID() = #MainWindow

[RJP Computing]

Thanks Fangbeast,
That is exactly what I needed. Sometimes the obvious eludes me.

Thanks

[Fangbeast]

You should see how many times I got myself into trouble with this one myself till I figured out what I was doing. :)