FWH 18.03 Dialog Problem (SOLVED)

[fraxzi]

Hi All,

Using FWH 18.03, when you open and close dialog (from resource) several times, the entire FWH app crashed.

to simplify/replicate:

Code: Select all  Expand view

FUNCTION uPopup_RecordSet()
 local oDlg,;
       oBarBottom

 local xRet

   DEFINE DIALOG oDlg RESOURCE 'DLG_TEST' TRUEPIXEL;
          STYLE nOr( WS_POPUP, WS_THICKFRAME );
          TITLE ''

          oDlg:lHelpIcon := .F.

          REDEFINE BUTTONBAR oBarBottom;
                   ID 1001 OF oDlg 2010

          DEFINE BUTTON OF oBarBottom RESOURCE 'exitdoor16' CENTER TRANSPARENT;
                 ACTION ( xRet := NIL, oDlg:End() );
                 TOOLTIP {'Cancel Selection', 'CLOSE'}  

   ACTIVATE DIALOG oDlg;
            ON INIT ( oDlg:oBottom := oBarBottom )

return( xRet )
 

RC:

Code: Select all  Expand view

DLG_TEST DIALOGEX 0,0,284,123
FONT 9,"Verdana",0,0,0
STYLE NOT WS_VISIBLE|WS_POPUP|WS_THICKFRAME
BEGIN
  CONTROL "",1001,"ToolbarWindow32",WS_CHILDWINDOW|WS_VISIBLE|TBSTYLE_FLAT|TBSTYLE_WRAPABLE|TBSTYLE_TOOLTIPS|CCS_NORESIZE|CCS_BOTTOM,2,106,42,14
END
 

there's NO ISSUE with FWH16.06..

I think this is a bug in FWH18.03??

[Antonio Linares]

Dear Frances,

Do you get a *.log file ?

[fraxzi]

Dear Frances,

Do you get a *.log file ?

No *.Log file generated. It just stop working and I need to end-task it.

[fraxzi]

Hi Mr. Antonio,

It worked well with FHW 18.02!!

There's a problem with 18.03

[fraxzi]

Hi Mr. Antonio,

any news on the issue?

[cnavarro]

Frances, I tested your sample and your RC several times ( 60 - 70 open and close ) and run all OK
Please explain better if you environment is different than my example

Code: Select all  Expand view

#include "fivewin.ch"


Function Main()

   local oWnd

   DEFINE WINDOW oWnd TITLE "Test Dialog RCs"

   @ 10, 10 BUTTON "Press" OF oWnd SIZE 100, 40 PIXEL ACTION uPopup_RecordSet()


   ACTIVATE WINDOW oWnd

Return nil

FUNCTION uPopup_RecordSet()
 local oDlg,;
       oBarBottom

 local xRet

   DEFINE DIALOG oDlg RESOURCE 'DLG_TEST' TRUEPIXEL;
          STYLE nOr( WS_POPUP, WS_THICKFRAME );
          TITLE ''

          oDlg:lHelpIcon := .F.

          REDEFINE BUTTONBAR oBarBottom;
                   ID 1001 OF oDlg 2010

          DEFINE BUTTON OF oBarBottom RESOURCE 'database' CENTER TRANSPARENT;
                 ACTION ( xRet := NIL, oDlg:End() );
                 TOOLTIP {'Cancel Selection', 'CLOSE'}  

          DEFINE BUTTON OF oBarBottom RESOURCE 'debug' CENTER TRANSPARENT;
                 ACTION ( xRet := NIL, oDlg:End() );
                 TOOLTIP {'Cancel Selection', 'CLOSE'}  

          DEFINE BUTTON OF oBarBottom RESOURCE 'debug16' CENTER TRANSPARENT;
                 ACTION ( xRet := NIL, oDlg:End() );
                 TOOLTIP {'Cancel Selection', 'CLOSE'}  

          DEFINE BUTTON OF oBarBottom RESOURCE 'deldbf16' CENTER TRANSPARENT;
                 ACTION ( xRet := NIL, oDlg:End() );
                 TOOLTIP {'Cancel Selection', 'CLOSE'}  

   ACTIVATE DIALOG oDlg ON INIT ( oDlg:oBottom := oBarBottom )

return( xRet )
 

 

[fraxzi]

Hi Mr. Cristobal,

Using BCC73, Latest xHB on Win 8.1 pro.
I test it again, and still freezes with no log to trace.

I am using xMate with MariaDB lib (libmariadb.lib) included as this is integral part.

Thanks.

[nageswaragunupudi]

I too tried several times and did not get any problem.
I tested with xHarbour and Harbour with bcc73 and msvc.
But I did not test with commercial xHB.

[fraxzi]

Dear All,

I upgraded my PellesC 5.x to 8.x (which compiles my .RC)..
So far the problem disappear.

Gracias!

[fraxzi]

Dear All,

I upgraded my PellesC 5.x to 8.x (which compiles my .RC)..
So far the problem disappear.

Gracias!

So sorry. I was compiling with 18.02 profile with xMate...

Problem persisted with FWH 18.03...

[fraxzi]

I too tried several times and did not get any problem.
I tested with xHarbour and Harbour with bcc73 and msvc.
But I did not test with commercial xHB.

I though the upgrade to PellesC v8 will resolved. But to no avail.

I am using:

BCC73
PellesC v8
xHB1.21.10229
FWH18.03 with MariaDB Lib

Surprisingly, there's no issue with FWH 18.02..

This is the where the function was called:

Code: Select all  Expand view

...
REDEFINE GET oGet VAR cVar;
               ID 1003 OF oDlg UPDATE;
               PICTURE '@!';
               BITMAP 'finddoc16';
               ACTION ( uPopup_RecordSet() )

...
 

[nageswaragunupudi]

Can you try your first sample with xHarbour or Harbour? This is to know if the problem is with only xHB (commerical) or general. That helps us to locate the problem.

[fraxzi]

Can you try your first sample with xHarbour or Harbour? This is to know if the problem is with only xHB (commerical) or general. That helps us to locate the problem.

Hi Mr. Rao,

I downloaded xHB 1.2.3.1031 for BCC73 and recompile all with no problem.

The problem is exactly the same with xHB 1.2.1.10229....

[nageswaragunupudi]

I built your 1st sample with xHarbour and executed the function 22 times. There is no crash. Should we execute more times?

[Enrico Maria Giordano]

Frances, can you reproduce the problem with this sample?

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL i

    FOR i = 1 TO 100
        uPopup_RecordSet()
    NEXT

    ? "OK"

    RETURN NIL


FUNCTION uPopup_RecordSet()
 local oDlg,;
       oBarBottom

 local xRet

   DEFINE DIALOG oDlg RESOURCE 'DLG_TEST' TRUEPIXEL;
          STYLE nOr( WS_POPUP, WS_THICKFRAME );
          TITLE ''

          oDlg:lHelpIcon := .F.

          REDEFINE BUTTONBAR oBarBottom;
                   ID 1001 OF oDlg 2010

          DEFINE BUTTON OF oBarBottom CENTER TRANSPARENT;
                 ACTION ( xRet := NIL, oDlg:End() );
                 TOOLTIP {'Cancel Selection', 'CLOSE'}  

   oDlg:bStart = { || SysRefresh(), oDlg:End() }

   ACTIVATE DIALOG oDlg;
            ON INIT ( oDlg:oBottom := oBarBottom )

return( xRet )

EMG