error in xBrowse under Wine

[ukservice]

Hello,

Under Ubuntu 11.10 and Wine, I got:


Error description: Error BASE/1004 No exported method: EVAL
Args:
[ 1] = U

Stack Calls
===========
Called from: => (b)EVAL( 0 )
Called from: source\xbrowse.prg => (b)TXBROWSE( 406 )
Called from: source\xbrowse.prg => TXBROWSE:KEYCOUNT( 0 )
Called from: source\xbrowse.prg => TXBROWSE:REFRESH( 1181 )
Called from: source\xbrowse.prg => (b)TXBROWSE( 436 )
Called from: source\xbrowse.prg => TXBROWSE:RESIZE( 0 )
Called from: => TWINDOW:HANDLEEVENT( 0 )
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
Called from: source\xbrowse.prg => TXBROWSE:HANDLEEVENT( 11627 )
Called from: .\source\classes\WINDOW.PRG => _FWH( 3160 )
Called from: => SETSCROLLRANGE( 0 )
Called from: .\source\classes\SCRLLBAR.PRG => (b)TSCROLLBAR( 93 )
Called from: .\source\classes\SCRLLBAR.PRG => TSCROLLBAR:SETRANGE( 0 )
Called from: .\source\classes\SCRLLBAR.PRG => TSCROLLBAR:WINNEW( 203 )
Called from: source\xbrowse.prg => TXBROWSE:INITIATE( 831 )
Called from: => __OBJSENDMSG( 0 )
Called from: .\source\function\HARBOUR.PRG => OSEND( 210 )
Called from: .\source\function\HARBOUR.PRG => ASEND( 178 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 622 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 862 )
Called from: => DIALOGBOX( 0 )
Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 266 )
Called from: H:\test.PRG => test( 1740 )


What does it mean?.

Thanks

[ukservice]

This is a working sample:

Code: Select all  Expand view

#include "FiveWin.Ch"
#include "ord.ch"
#include "xbrowse.ch"

REQUEST DBFCDX


static lAdd

//----------------------------------------------------------------------------//

function Main()

   local oDlg, oBmp, oBrw, oCol, oBrowse
   local cAlias, n



   // Driver CDX----------------------------------------------------------------
   REQUEST DBFCDX, DBFFPT

   RDDSETDEFAULT( "DBFCDX")

   SET( _SET_INSERT, .T. )








   USE CUSTOMER NEW





   DEFINE DIALOG oDlg RESOURCE "INVOICES" ;
      TITLE "Ttest xBrowse in Alias: "+Alias()





   REDEFINE XBROWSE oBrowse ID 210 OF oDlg ;
          ALIAS "CUSTOMER" ;
          FIELDS CUSTOMER->FIRST, CUSTOMER->LAST, CUSTOMER->SALARY ;
          HEADERS "First Name", "Last Name", "Salary" ;
          SIZES  250, 250, 100 ;
          PICTURES nil, nil, c_pictxBrowse()




   oBrowse:nColDividerStyle    := LINESTYLE_BLACK
   oBrowse:lColDividerComplete := .T.
   oBrowse:nHeaderLines        := 1.5
   oBrowse:lRecordSelector     := .F.
   oBrowse:nStretchCol         := STRETCHCOL_LAST
   oBrowse:lAllowColHiding     := .F.


   oBrowse:blDblClick := { || ( oBrowse:Refresh() ) }


  // oBrowse:SwapCols(3,2, .T.)





   REDEFINE BTNBMP oBmp NAME "B_OK" ID 100 OF oDlg  ACTION (oDlg:End())

   ACTIVATE DIALOG oDlg CENTERED

   CLOSE DATA

return (0)

//-----------------------------------------------------------------------------



// ---------------------------------------------------------------------------
FUNCTION c_pictxBrowse()

 LOCAL cRet := "@E 999,999,999,999,999.9999"


RETURN ( cRet   )
// -------------------------------------------------------------------------

 

demo3.rc

Code: Select all  Expand view

INVOICES DIALOG 33, 36, 530, 375
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "Test Dialog FWH"
FONT 8, "MS Sans Serif"
{
 CONTROL "", 210, "TxBrowse", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_TABSTOP, 22, 173, 483, 95
 CONTROL "", 100, "TBtnBmp", 0 | WS_CHILD | WS_VISIBLE | WS_BORDER, 280, 49, 47, 13
}


B_OK BITMAP
{
 '42 4D 6E 02 00 00 00 00 00 00 76 00 00 00 28 00'
 '00 00 46 00 00 00 0E 00 00 00 01 00 04 00 00 00'
 '00 00 F8 01 00 00 00 00 00 00 00 00 00 00 00 00'
 '00 00 00 00 00 00 00 00 00 00 00 00 80 00 00 80'
 '00 00 00 80 80 00 80 00 00 00 80 00 80 00 80 80'
 '00 00 80 80 80 00 C0 C0 C0 00 00 00 FF 00 00 FF'
 '00 00 00 FF FF 00 FF 00 00 00 FF 00 FF 00 FF FF'
 '00 00 FF FF FF 00 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 00 88 88 84 F8 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 00 88 88'
 '44 4F 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 00 88 84 44 4F 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 00 88 44 4F 44 F8 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 00 84 44 F8 84 4F 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 00 44 4F'
 '88 88 4F 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 00 84 F8 88 88 84 F8 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 00 88 88 88 88 88 4F 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 00 88 88 88 88 88 84'
 'F8 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 00 88 88'
 '88 88 88 88 4F 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 00 88 88 88 88 88 88 84 F8 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 00 88 88 88 88 88 88 88 4F 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 00 88 88 88 88 88 88'
 '88 84 88 88 88 88 88 88 88 88 88 88 88 88 88 88'
 '88 88 88 88 88 88 88 88 88 88 88 88 88 00'
}

 

full error.log

Code: Select all  Expand view

  Compiler version: Harbour 3.1.0dev (Rev. 17114)
   FiveWin  Version: FWH 11.10
   Windows version: 5.1, Build 2600 Service Pack 3

   Time from start: 0 hours 0 mins 0 secs
   Error occurred at: 01/14/12, 03:48:46
   Error description: Error BASE/1004  No exported method: EVAL
   Args:
     [   1] = U  

Stack Calls
===========
   Called from:  => (b)EVAL( 0 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE( 407 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:KEYCOUNT( 0 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:REFRESH( 1181 )
   Called from: .\source\classes\XBROWSE.PRG => (b)TXBROWSE( 437 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:RESIZE( 0 )
   Called from:  => TWINDOW:HANDLEEVENT( 0 )
   Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1699 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:HANDLEEVENT( 11628 )
   Called from: .\source\classes\WINDOW.PRG => _FWH( 3160 )
   Called from:  => SETSCROLLRANGE( 0 )
   Called from: .\source\classes\SCRLLBAR.PRG => (b)TSCROLLBAR( 93 )
   Called from: .\source\classes\SCRLLBAR.PRG => TSCROLLBAR:SETRANGE( 0 )
   Called from: .\source\classes\SCRLLBAR.PRG => TSCROLLBAR:WINNEW( 203 )
   Called from: .\source\classes\XBROWSE.PRG => TXBROWSE:INITIATE( 831 )
   Called from:  => __OBJSENDMSG( 0 )
   Called from: .\source\function\HARBOUR.PRG => OSEND( 210 )
   Called from: .\source\function\HARBOUR.PRG => ASEND( 178 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:INITIATE( 622 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:HANDLEEVENT( 862 )
   Called from:  => DIALOGBOX( 0 )
   Called from: .\source\classes\DIALOG.PRG => TDIALOG:ACTIVATE( 266 )
   Called from: demo3.prg => MAIN( 77 )

 

Thanks.

[ukservice]

Up.

[nageswaragunupudi]

Can you please insert these lines before ACTIVATE DIALOG and let us know the results?

Code: Select all  Expand view

MsgInfo( oBrowse:cAlias )
MsgInfo( Select( oBrowse:cAlias ) )
MsgInfo( ValType( oBrowse:bKeyCount ) )
 

[ukservice]

Mr. Rao,

Thank you so much.

Sure:

CUSTOMER
1
U

[nageswaragunupudi]

Thanks.
It is intriguing why ValType( oBrw:bKeyCount ) is NIL.

I request more patience please. Is the same exe working on windows PC ?

Can you please just try this simplest test?

Code: Select all  Expand view

#include "fivewin.ch"
#include "ord.ch"
#include "xbrowse.ch"

REQUEST DBFCDX

function main()

   RDDSETDEFAULT( "DBFCDX" )
   XBROWSER "CUSTOMER.DBF"

return nil
 

[ukservice]

Mr. Rao,

Thanks again for your valuable help.

There is no rush. The important point is that you are working on it.

Thanks again.


My sample works perfect in Windows but not under Wine.


Your last code works perfect in Windows and Wine.

[ukservice]

Mr. Rao,

Is there any advance?.

I found out that under Linux and Wine if I add oBrowse:SetRdd() it works.

Do you know why?.

Thanks.