Miguel, It seems OK now.
Thanks, Eduardo --- Em ter, 2/12/08, Miguel Angel Marchuet <[EMAIL PROTECTED]> escreveu: > De: Miguel Angel Marchuet <[EMAIL PROTECTED]> > Assunto: Re: error on color53.prg > Para: [EMAIL PROTECTED] > Data: Terça-feira, 2 de Dezembro de 2008, 14:00 > Can you try with this setcolor.c > > Eduardo Fernandes escribió: > > Miguel, > > > > ---------- > > proc main > > > > local cVar := space(10) > > > > @ 10,10 get cVar > > read > > ---------- > > > > ps: this error occurs on linux, not windows. > > > > Eduardo > > > > > > --- Em ter, 2/12/08, Miguel Angel Marchuet > <[EMAIL PROTECTED]> escreveu: > > > >> De: Miguel Angel Marchuet > <[EMAIL PROTECTED]> > >> Assunto: Re: [xHarbour-developers] error on > color53.prg > >> Para: [EMAIL PROTECTED] > >> Data: Terça-feira, 2 de Dezembro de 2008, 6:21 > >> Please, can you send me a selfcontained example to > reproduce > >> it. > >> > >> i need to test the solution > >> > >> Best regards, > >> Miguel Angel Marchuet > >> > >> Eduardo Fernandes escribió: > >>> -------------------- Internal Error Handling > >> Information --------------------- > >>> Subsystem Call ....: BASE > >>> System Code .......: 1110 > >>> Default Status ....: .F. > >>> Description .......: Argument error > >>> Operation .........: SUBSTR > >>> Arguments .........: [ 1] = Type: U [ 2] = > Type: N > >> Val: 1 [ 3] = Type: U > >>> Involved File .....: Dos Error Code ....: 0 > >>> > >>> Trace Through: > >>> ---------------- > >>> SUBSTR : 0 in Module: > GETPAIRLEN > >> : 95 in Module: ../../color53.prg > >>> GETCLRPAIR : 62 in Module: > >> ../../color53.prg > >>> GETMSSGLINE:NEW : 94 in Module: > >> ../../mssgline.prg > >>> READMODAL : 102 in Module: > >> ../../getsys.prg > >>> --- > >>> regards, > >>> Eduardo > >>> > >>> > >>> Veja quais são os assuntos do momento > no Yahoo! > >> +Buscados > >>> http://br.maisbuscados.yahoo.com > >>> > >>> > >> > ------------------------------------------------------------------------- > >>> This SF.Net email is sponsored by the Moblin > Your Move > >> Developer's challenge > >>> Build the coolest Linux based applications > with Moblin > >> SDK & win great prizes > >>> Grand prize is a trip for two to an Open > Source event > >> anywhere in the world > >> > http://moblin-contest.org/redirect.php?banner_id=100&url=/ > >>> > _______________________________________________ > >>> xHarbour-developers mailing list > >>> [email protected] > >>> > >> > https://lists.sourceforge.net/lists/listinfo/xharbour-developers > >>> __________ Información de ESET NOD32 > Antivirus, > >> versión de la base de firmas de virus 3654 > (20081201) > >> __________ > >>> ESET NOD32 Antivirus ha comprobado este > mensaje. > >>> http://www.eset.com > >>> > >>> > >>> > >>> > > > > > > Veja quais são os assuntos do momento no Yahoo! > +Buscados > > http://br.maisbuscados.yahoo.com > > > > __________ Información de ESET NOD32 Antivirus, > versión de la base de firmas de virus 3657 (20081202) > __________ > > > > ESET NOD32 Antivirus ha comprobado este mensaje. > > http://www.eset.com > > > > > > > > > > /* > * $Id: setcolor.c,v 1.6 2008/11/26 17:13:16 marchuet Exp $ > */ > > /* > * Harbour Project source code: > * Color functions > * > * Copyright 1999 Paul Tucker <[EMAIL PROTECTED]> > * www - http://www.harbour-project.org > * > * This program is free software; you can redistribute it > and/or modify > * it under the terms of the GNU General Public License as > published by > * the Free Software Foundation; either version 2, or (at > your option) > * any later version. > * > * This program is distributed in the hope that it will be > useful, > * but WITHOUT ANY WARRANTY; without even the implied > warranty of > * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. > See the > * GNU General Public License for more details. > * > * You should have received a copy of the GNU General > Public License > * along with this software; see the file COPYING. If not, > write to > * the Free Software Foundation, Inc., 59 Temple Place, > Suite 330, > * Boston, MA 02111-1307 USA (or visit the web site > http://www.gnu.org/). > * > * As a special exception, the Harbour Project gives > permission for > * additional uses of the text contained in its release of > Harbour. > * > * The exception is that, if you link the Harbour libraries > with other > * files to produce an executable, this does not by itself > cause the > * resulting executable to be covered by the GNU General > Public License. > * Your use of that executable is in no way restricted on > account of > * linking the Harbour library code into it. > * > * This exception does not however invalidate any other > reasons why > * the executable file might be covered by the GNU General > Public License. > * > * This exception applies only to the code released by the > Harbour > * Project under the name Harbour. If you copy code from > other > * Harbour Project or Free Software Foundation releases > into a copy of > * Harbour, as the General Public License permits, the > exception does > * not apply to the code that you add in this way. To > avoid misleading > * anyone as to the status of such modified files, you must > delete > * this exception notice from them. > * > * If you write modifications of your own for Harbour, it > is your choice > * whether to permit this exception to apply to your > modifications. > * If you do not wish that, delete this exception notice. > * > */ > > #include "hbapi.h" > #include "hbapigt.h" > #include "hbset.h" > > char * hb_conSetColor( const char * szColor ) > { > HB_TRACE(HB_TR_DEBUG, ("hb_conSetColor(%s)", > szColor)); > > hb_gtGetColorStr( hb_set.HB_SET_COLOR ); > > if( szColor != ( char * ) NULL ) > hb_gtSetColorStr( szColor ); > > return hb_set.HB_SET_COLOR; > } > > HB_FUNC( SETCOLOR ) > { > hb_retc( hb_conSetColor( hb_parc( 1 ) ) ); > } > > HB_FUNC( COLORSELECT ) > { > if( ISNUM( 1 ) ) > hb_gtColorSelect( ( USHORT ) hb_parni( 1 ) ); > } > > HB_FUNC( SETBLINK ) > { > BOOL bPreviousBlink; > > hb_gtGetBlink( &bPreviousBlink ); > > if( ISLOG( 1 ) ) > hb_gtSetBlink( hb_parl( 1 ) ); > > hb_retl( bPreviousBlink ); > } > > HB_FUNC( HB_COLORTON ) > { > if( ISCHAR( 1 ) ) > hb_retni( hb_gtColorToN( hb_parc( 1 ) ) ); > else > hb_retni( 0 ); > } > > HB_FUNC( HB_NTOCOLOR ) > { > if( ISNUM( 1 ) ) > { > char szColorString[ 10 ]; > int colors[ 1 ]; > > colors[ 0 ] = hb_parni( 1 ); > > hb_gtColorsToString( colors, 1, szColorString, 10 ); > > hb_retc( szColorString ); > } > else > hb_retc( "N/N" ); > } Veja quais são os assuntos do momento no Yahoo! +Buscados http://br.maisbuscados.yahoo.com ------------------------------------------------------------------------- This SF.Net email is sponsored by the Moblin Your Move Developer's challenge Build the coolest Linux based applications with Moblin SDK & win great prizes Grand prize is a trip for two to an Open Source event anywhere in the world http://moblin-contest.org/redirect.php?banner_id=100&url=/ _______________________________________________ xHarbour-developers mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/xharbour-developers
