Double Click & Single Click

[AMpos]

-I have Window A
-It open over it Window B (and get A disabled)
-Window B is waiting for a double click on a iconlist
-When user double click, it closes Window B and enable again Window A
-The problem is that Window A get a SingleClick (when you double click, 3 events are generated, a Left+double+left)

How can I "delete" this last LeftClick event (or all events in the queue, I don't care) before returning to Window A?

[NicTheQuick]

You should consider showing us an example code which demonstrates that unexpected behaviour.

Furthermore, capital letters are understood as screams.

[captain_skank]

Have you got a single event handler loop for all windows.

Without code it's hard to help.

[AMpos]

Ok, I will try to do a code, but... is it possible to clean the event queue, or a loop to wait until it is clear?

Something like

Code: Select all

REPEAT
 event=eventwindow()
UNTIL event=0

[NicTheQuick]

Are you serious? That's no example code that runs out of the box and shows the issue.

[AMpos]

Of course it is not a sample code!!!!!

I am just asking this:

Is there a way to clean the (pb) event queue, or can a loop be created to wait until it is empty?

[BarryG]

is it possible to clean the event queue, or a loop to wait until it is clear?

Yes, like this:

Code: Select all

While WindowEvent() : Wend

[AMpos]

is it possible to clean the event queue, or a loop to wait until it is clear?

Yes, like this:

Code: Select all

While WindowEvent() : Wend

Thank you, will try if it fixes my problem.

[Marc56us]

-I have Window A
-It open over it Window B (and get A disabled)
-Window B is waiting for a double click on a iconlist
-When user double click, it closes Window B and enable again Window A
-The problem is that Window A get a SingleClick (when you double click, 3 events are generated, a Left+double+left)

The system always returns two pieces of information per event: the event itself and the window that generated the event.
When working with a single window, only one piece of information is used, but when working with several windows, both pieces of information must be used.

Either before

Code: Select all

Select EventWindow()
    Case #Win_A
    Case #Win_B

Either in terms of events

Code: Select all

If EventType() = ... And EventWindow() =       

This way the events in one window do not influence the other windows. No need to empty the event queue.

Of course we can mix that up with the events common to all the windows.

[AMpos]

Here you have the Example Code.

Code: Select all

OpenWindow(0,000,000,400,400,"Window A")
ListIconGadget(0,10,10,380,380,"TEST",100)
OpenWindow(1,40,40,320,320,"Window B")
ListIconGadget(1,10,10,300,300,"test 2",100)

DisableWindow(0,1)

Repeat
	event=WaitWindowEvent()
	Select EventGadget()
		Case 1
			Select EventType()	
				Case #PB_EventType_LeftDoubleClick
					Debug "Click Twice at Window B"
					CloseWindow(1)
					DisableWindow(0,0)
					SetActiveWindow(0)
					Break
			EndSelect
			
	EndSelect	
Until event=#PB_Event_CloseWindow

;While WindowEvent() : Wend

Repeat
	event=WaitWindowEvent()
	Select EventGadget()
		Case 0
			Select EventType()	
				Case #PB_EventType_LeftClick
					Debug "Click Once at Window A"
			EndSelect
			
	EndSelect	
Until event=#PB_Event_CloseWindow

If you DoubleClick on Window B, never should be a "Left Click" on Window A.

Code: Select all

While WindowEvent() : Wend

This code does not clear the queue. In fact, with this line disabled, WIndow A receives 2 single Clicks. Enable it, and it receives 1.

[AMpos]

I ahve made another version, checking if the event was in Window A, and it does not work, also:

Code: Select all

OpenWindow(0,000,000,400,400,"Window A")
ListIconGadget(0,10,10,380,380,"TEST",100)
OpenWindow(1,40,40,320,320,"Window B")
ListIconGadget(1,10,10,300,300,"test 2",100)

DisableWindow(0,1)

Repeat
	event=WaitWindowEvent()
	Select EventGadget()
		Case 1
			Select EventType()	
				Case #PB_EventType_LeftDoubleClick
					Debug "Click Twice at Window B"
					CloseWindow(1)
					DisableWindow(0,0)
					SetActiveWindow(0)
					Break
			EndSelect
			
	EndSelect	
Until event=#PB_Event_CloseWindow

Repeat
	event=WaitWindowEvent()
	Select EventGadget()
		Case 0
			If EventType()=#PB_EventType_LeftClick And EventWindow()=0
				Debug "Click Once at Window A"
			EndIf			
	EndSelect	
Until event=#PB_Event_CloseWindow

[BarryG]

[Removed, mistake on my part]

[mk-soft]

Your evaluation of the events is not complete.

Always use only one EventLoop with WaitWindowEvent(). Otherwise you get confused and you wonder why one event does not arrive.

Code: Select all

Procedure Open1()
  If OpenWindow(0,000,000,400,400,"window a", #PB_Window_SystemMenu)
    ListIconGadget(0,10,10,380,380,"test",100)
    ProcedureReturn #True
  Else
    ProcedureReturn #False
  EndIf
EndProcedure

Procedure Open2()
  If OpenWindow(1,40,40,320,320,"window b", #PB_Window_SystemMenu, WindowID(0))
    ListIconGadget(1,10,10,300,300,"test 2",100)
    ProcedureReturn #True
  Else
    ProcedureReturn #False
  EndIf
  
EndProcedure

Procedure MainLoop()
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        Select EventWindow()
          Case 0
            Break ; leave the event loop
            
          Case 1
            DisableWindow(0,0)
            SetActiveWindow(0)
            CloseWindow(1)
            
        EndSelect
        
      Case #PB_Event_Menu
        Select EventMenu()
            ;    
        EndSelect
        
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 0
            Select EventType()   
              Case #PB_EventType_LeftDoubleClick
                Debug "click twice at list a"
                If Open2()
                  DisableWindow(0, 1)
                EndIf
            EndSelect
          Case 1
            Select EventType()   
              Case #PB_EventType_LeftDoubleClick
                Debug "click twice at list b"
            EndSelect
            
        EndSelect   
        
    EndSelect
    
  ForEver
  
EndProcedure

If Open1()
  If Open2()
    DisableWindow(0,1)
  EndIf
  
  MainLoop()
  
EndIf

End

[AMpos]

Your evaluation of the events is not complete.

Always use only one EventLoop with WaitWindowEvent(). Otherwise you get confused and you wonder why one event does not arrive.

Code: Select all

...

It doesnt work. Window B has to be closed after a double click. And Window A only has to respond to Sinlge Left Click.

I tryied to add "close window..." part to the LeftDoubleClick and change the first Left to DoubleLeft and it keeps closing and opening Window B, and detecting also a LeftClick on Window A.

[BarryG]

[Removed, mistake on my part]