A problem with xBrowse and arrays

[Enrico Maria Giordano]

Can you tell me why this sample selects the workarea 0 after closing the window?

Code: Select all  Expand view

#include "fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd, oBrw, oCol

    LOCAL aCell := { {} , {} ,{} ,{} ,{} ,{} ,{} }

    SELECT 0

    USE CUSTOMER

    AADD( aCell[ 1 ] , "One"   )
    AADD( aCell[ 1 ] , "Two"   )
    AADD( aCell[ 1 ] , "Three" )

    DEFINE WINDOW oWnd

    @ 100, 100 XBROWSE oBrw OF oWnd DATASOURCE aCell CELL LINES

    oCol = oBrw:AddCol()
    oCol:bEditValue   = { || aCell[ 1 , oBrw:nArrayAt  ] }

    oBrw:CreateFromCode()

    oWnd:oClient = oBrw

    ? "Before:", ALIAS(), SELECT()

    ACTIVATE WINDOW oWnd

    ? "After:", ALIAS(), SELECT()

    RETURN NIL

EMG