Bug in TCBrowse:lEditCol() method (fixed)

[Enrico Maria Giordano]

This is the sample. Valid is never executed:

Code: Select all  Expand view  RUN

#include "Fivewin.ch"
#include "Tcbrowse.ch"


FUNCTION MAIN()

    LOCAL oDlg, oBrw, cVar

    LOCAL bValid := { || MsgInfo(), .T. }

    USE C:\XHARBOUR\TEST

    cVar = FIELD -> first

    DEFINE DIALOG oDlg SIZE 300, 300

    @ 0, 0 BROWSE oBrw;
           ON RIGHT CLICK oBrw:lEditCol( 1, @cVar, , bValid )

    ADD COLUMN TO oBrw;
               DATA TEST -> first;
               HEADER "FIRST"

    @ 6, 0 BUTTON "Close";
           ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL

EMG

[Antonio Linares]

Fixed. Please change this in source\classes\tcbrowse.prg line 863:

@ 10, 0 BUTTON oBtn PROMPT "" ACTION ( oBtn:SetFocus(), oDlg:End(), lOk := .t. ) OF oDlg

Also, to get a better screen position change this in line 868:

ACTIVATE DIALOG oDlg ;
ON INIT ( oDlg:Move( aDim[ 1 ] + 1, aDim[ 2 ] + 1,;

[Enrico Maria Giordano]

Great, thank you!

EMG