Xbrowser keeps in a continious loop

[Marc Venken]

I use xbrowser for debugging.

When I use this :

oKassa = TGet object

@ dialog->top ,dialog->left GET oKassa VAR hKassa["SALDO"] SIZE hDialog["BREEDTE"],hDialog["HOOGTE"] PIXEL RIGHT FONT oFontGet COLORS CLR_GET,CLR_GETBACK OF oTarget UPDATE

xbrowser(oKassa)

I see all object items and can scroll. But when it comes on

21 bDelete : it will ask to Delete the control. You can say Yes or No but it will stay in a continious loop until you kill the program.

Can someone try this and see if it is a general thing ?

[Marc Venken]

Would someone please see if you use Xbrowser with a Tget object get the same effect ?

xbrowser(oGet) is only needed to test

I don't think that I can do anything wrong in order to get that error.

[Antonio Linares]

Dear Marc,

Do you mean a code like this one ?

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

   local oDlg, cTest := Space( 10 ) 

   DEFINE DIALOG oDlg TITLE "Test"

   @ 2, 2 GET cTest OF oDlg

   ACTIVATE DIALOG oDlg CENTERED ;
      ON CLICK XBrowser( oDlg )

return nil

[Marc Venken]

Antonio,

If you run this, you will see that Xbrowser (when you scroll down and past bDelete or come on bdelete, Xbrowsers will keep asking to delete in a endless loop. You can not scroll from top to bottom in xBrowser

At least here is thus, also with this sample.

I have to CTRL+ALT+DELETE to kill the process.

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

   local oDlg, cTest := Space( 10 )

   DEFINE DIALOG oDlg TITLE "Test"

   @ 2, 2 GET oGet Var cTest OF oDlg

   ACTIVATE DIALOG oDlg CENTERED ;
      ON CLICK XBrowser( oGet )

return nil

[Antonio Linares]

Dear Marc,

Please test my EXE and let me know if you get the same behavior with it, thanks

https://wormhole.app/E71xE#pgFwYZunhwqwvP4Oq23D9A

[Marc Venken]

No error, but you have a tDialog and I a tGet object showing

[Antonio Linares]

Do you mean like this ?

Code: Select all | Expand

#include "FiveWin.ch"

function Main()

   local oDlg, oGet, cTest := Space( 10 ) 

   DEFINE DIALOG oDlg TITLE "Test"

   @ 2, 2 GET oGet VAR cTest OF oDlg

   ACTIVATE DIALOG oDlg CENTERED ;
      ON CLICK XBrowser( oGet )

return nil   

[karinha]

marc, answer: NO, NO, NO,NO and DISCARD.

Regards, saludos.

[Marc Venken]

Yes,

This is version 23.07

I just scroll the xbrowser from top down until bdelete. I don't press delete, just arrow down.
Yes/NO will stay and can't quit.

[Marc Venken]

marc, answer: NO, NO, NO,NO and DISCARD.

Regards, saludos.

What do you mean ?

I do have a issue with this ....

[Antonio Linares]

Here with latest FWH it seems to work fine. It exits properly

[Marc Venken]

OK, I also have latest version. Will upgrade it.