BROWSE() in testtcbr.prg

[Ollie]

In testtcbr.prg in the fwh\samples folder, it calls the function BROWSE()

The MODIFY, DELETE and PRINT buttons work, and I can't see what functions are called.

When I put BROWSE() in my app, none of the buttons do anything.

Why?

[Antonio Linares]

Ollie,

FWH function Browse() source code is located at source\function\browse.prg. There you will see that those actions have to be supplied as codeblocks when calling Browse():

function Browse( cTitle, cListName, bNew, bModify, bDelete, bSearch, bList, aColSizes )

[Ollie]

I know, but in that sample it is simply called as browse().

So my question is - why it is working - without specifying code blocks?

[Antonio Linares]

Ollie,

Because inside function Browse() some codeblocks are defined by default:

Code: Select all  Expand view

   DEFAULT cTitle  := "Browse", cListName := "Fields",;
           bNew    := { || oLbx:RecAdd(), oLbx:Refresh() },;
           bDelete := { || RecDelete( oLbx ) },;
           bModify := { || RecModify( oLbx ) },;
           bList   := { || Report( oLbx ) }