Bug in TCBrowse:lEditCol() method (fixed)

[Enrico Maria Giordano]

This is the sample. Valid is never executed:

Code: Select all | Expand

#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