PureBasic Forums - English

collectordave wrote:

Code: Select all

Repeat
  
  Event = WaitWindowEvent()
  
  Select Event
         
    Case #PB_Event_Gadget
      
      Select EventWindow() ;Select window. Just search form here
     
        Case frmMain
        
          Event_Handler(event)
        
        Case frmSearch
        
          SearchFrm::Ok = 0
          SearchFrm::Event_Handler(event)

          ;After Searchform events
          If SearchFrm::Ok = 1 ;User pressed the OK button
        
            CurrentRow.i = 1
            Criteria = SearchFrm::SearchString
            GetTotalRecords(Criteria)
            CheckRecords()
            If TotalRows > 0
              Displayrecord(CurrentRow)
            Else
              SetGadgetText(str_Record,"")
            EndIf
          EndIf
      
      EndSelect
 
  EndSelect
     
ForEver 

All would be fine? Of course I would have to copy this over and over again for each event I wish a window to respond to! The lines

Repeat
  
  Event = WaitWindowEvent()
  
  Select EventWindow() ;Select window. Just search form here
 
    Case frmMain
    
      Select Event 
        Case #PB_Event_Gadget
          Event_Handler(event)
      EndSelect
    
    Case frmSearch
      
      Select Event 
        Case #PB_Event_Gadget
          SearchFrm::Ok = 0
          SearchFrm::Event_Handler(event)
    
          ;After Searchform events
          If SearchFrm::Ok = 1 ;User pressed the OK button
        
            CurrentRow.i = 1
            Criteria = SearchFrm::SearchString
            GetTotalRecords(Criteria)
            CheckRecords()
            If TotalRows > 0
              Displayrecord(CurrentRow)
            Else
              SetGadgetText(str_Record,"")
            EndIf
          EndIf
      
      EndSelect
  EndSelect
     
ForEver

TI-994A wrote:...would you recommend such an approach as efficient? Or even necessary?

collectordave wrote:

Code: Select all

Procedure IsValidPBEvent(event)
  Select event
    Case  #PB_Event_Menu            ,
          #PB_Event_Gadget          ,
          #PB_Event_SysTray         ,
          #PB_Event_Timer           ,
          #PB_Event_CloseWindow     ,
          #PB_Event_Repaint         ,
          #PB_Event_SizeWindow      ,
          #PB_Event_MoveWindow      ,
          #PB_Event_MinimizeWindow  ,
          #PB_Event_MaximizeWindow  ,
          #PB_Event_RestoreWindow   ,
          #PB_Event_ActivateWindow  ,
          #PB_Event_DeactivateWindow,
          #PB_Event_WindowDrop      ,
          #PB_Event_GadgetDrop      ,
          #PB_Event_RightClick      ,
          #PB_Event_LeftClick       ,
          #PB_Event_LeftDoubleClick
      ProcedureReturn #True
    Default
      ProcedureReturn #False
  EndSelect ;event
EndProcedure

No, it's not needed. You have to respond to specific events, so even if EventWindow() isn't -1 for an OS event (which can be the case as PB sometimes maps PB event constant values with real OS event value for historical reasons) and you don't have it in your Select/Case, it won't be processed. So in both way, you can't have any issues.

collectordave wrote:Sorry but I do accept it... This procedure simply checks that a valid PB event has occurred and is used before routing the event to the correct window using EventWindow().

Fred wrote:Well your posted code is wrong, as you don't check for any specific events, but you don't seem to accept it, so I will stop trying to help here.

collectordave wrote:This discussion shows that it is needed.

http://www.purebasic.fr/english/viewtop ... 13&t=63778
The issue is that EventWindow() returns [...]

The main issue in all the "event and eventwindow" discussions started here by you is, that you refuse to learn some simple basic rules how things are working in PureBasic. This has to be stated clearly, so that other newbies who'll read these threads won't get the wrong impression that PureBasic has got a problem in this regard.

collectordave wrote:At no point have I even suggested that PB has a problem in this regard.

EventWindow() can either return a valid window or -1, no any random value.

Procedure Close()
  Debug "Close() "+EventWindow()
  PostEvent( #PB_Event_CloseWindow ) ; 0 why? there must be -1
EndProcedure

OpenWindow(10, 600, 200, 100, 205, "Event_0", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)

BindEvent(#PB_Event_CloseWindow, @Close(), 10)
Repeat
  If EventWindow() = 0
    Debug "0 why? there must be -1 "+EventWindow() ; 
  EndIf
  
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Debug "Event_CloseWindow "+EventWindow()
      
  EndSelect
ForEver

OpenWindow(10, 600, 200, 100, 205, "Event_0", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
Debug EventWindow() ;  0
Debug EventWindow() ;  0

WindowEvent()
Debug EventWindow() ; -1
Debug EventWindow() ; -1

After a WindowEvent() or WaitWindowEvent() function, use this function to determine on which window the event has occurred.