-----Messaggio Originale-----
Da: "Przemyslaw Czerpak" <[email protected]>
A: "Harbour Project Main Developer List." <[email protected]>
Data invio: venerdì 20 febbraio 2009 12.22
Oggetto: Re: [Harbour] TGet: setting cursor position to ::nMaxLen + 1
f.e.:
__clsAddMsg( getNew():hClass, "MYMSG", @myMethod(), HB_OO_MSG_METHOD,, ;
HB_OO_CLSTP_EXPORTED )
Running this sample:
#include "Hbclass.ch"
FUNCTION MAIN()
LOCAL GetList := {}
LOCAL cVar := SPACE( 35 )
#ifndef __XHARBOUR__
__CLSADDMSG( getNew():hClass, "EMAG_SETPOS", @EMAG_SETPOS(),
HB_OO_MSG_METHOD, , HB_OO_CLSTP_EXPORTED )
#endif
@ 1, 1 GET cVar
READ
RETURN NIL
STATIC FUNCTION EMAG_SETPOS( nPos )
LOCAL Self := QSELF()
::nPos = nPos
RETURN nPos
I get a red alert saying:
Error BASE/1004 Message not found: GET:HCLASS
Where am I wrong?
EMG
--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
