Page 1 of 1
error in xBrowse under Wine
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Sat Jan 14, 2012 11:06 am
by 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
Re: error in xBrowse under Wine
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Sat Jan 14, 2012 11:51 am
by 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.
Re: error in xBrowse under Wine
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Mon Jan 16, 2012 8:56 am
by ukservice
Up.
Re: error in xBrowse under Wine
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Mon Jan 16, 2012 8:02 pm
by 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 ) )
Re: error in xBrowse under Wine
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Mon Jan 16, 2012 8:06 pm
by ukservice
Mr. Rao,
Thank you so much.
Sure:
CUSTOMER
1
U
Re: error in xBrowse under Wine
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Mon Jan 16, 2012 8:16 pm
by 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
Re: error in xBrowse under Wine
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Mon Jan 16, 2012 8:37 pm
by 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.
Re: error in xBrowse under Wine
![Post Post](./styles/prosilver/imageset/icon_post_target.gif)
Posted:
Wed Feb 08, 2012 10:08 pm
by 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.