correccion de un par de bugs

ediv/bin/bum.prg

@@ -9,6 +9,7 @@ begin
     write_int(1,0,0,0,&numprocs);
     loop
         if(key(_space)) cosa(); numprocs++; end
+        if(key(_w)) delete_text(all_text); end
         frame;
     end
 end

ediv/ideQT/ideQT.plg

@@ -6,13 +6,33 @@
 --------------------Configuration: ideQT - Win32 Debug--------------------
 </h3>
 <h3>Command Lines</h3>
-Creating temporary file "C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp\RSP10.tmp" with contents
+Creating temporary file "C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp\RSP95.bat" with contents
+[
+@echo off
+%qtdir%\bin\moc.exe .\nuevo_propiedades.h -o .\moc_nuevo_propiedades.cpp
+]
+Creating command line "C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp\RSP95.bat"
+Creating command line "rc.exe /l 0xc0a /fo"Debug/res.res" /d "_DEBUG" "D:\ediv\ideQT\res.rc"" 
+Moc'ing nuevo_propiedades.h ...
+Creating temporary file "C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp\RSP96.tmp" with contents
 [
 /nologo /MD /W3 /Gm /GX /ZI /Od /I "d:\Qt\include" /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "QT_DLL" /D "QT_THREAD_SUPPORT" /FR"Debug/" /Fp"Debug/ideQT.pch" /YX /Fo"Debug/" /Fd"Debug/" /FD /GZ /c 
-"D:\edivz\ideQT\about.cpp"
+"D:\ediv\ideQT\about.cpp"
+"D:\ediv\ideQT\ideqtwindow.cpp"
+"D:\ediv\ideQT\main.cpp"
+"D:\ediv\ideQT\moc_about.cpp"
+"D:\ediv\ideQT\moc_ideqtwindow.cpp"
+"D:\ediv\ideQT\moc_nuevo_propiedades.cpp"
+"D:\ediv\ideQT\moc_nuevoimpl.cpp"
+"D:\ediv\ideQT\moc_proyecto.cpp"
+"D:\ediv\ideQT\nuevo_propiedades.cpp"
+"D:\ediv\ideQT\nuevoimpl.cpp"
+"D:\ediv\ideQT\proyecto.cpp"
+"D:\ediv\ideQT\kwrite\highlight.cpp"
+"D:\ediv\ideQT\kwrite\kwdoc.cpp"
 ]
-Creating command line "cl.exe @C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp\RSP10.tmp" 
-Creating temporary file "C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp\RSP11.tmp" with contents
+Creating command line "cl.exe @C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp\RSP96.tmp" 
+Creating temporary file "C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp\RSP97.tmp" with contents
 [
 kernel32.lib user32.lib gdi32.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib imm32.lib wsock32.lib d:\Qt\lib\qt-mt230nc.lib d:\Qt\lib\qtmain.lib /nologo /subsystem:windows /incremental:yes /pdb:"Debug/edivide.pdb" /debug /machine:I386 /out:"Debug/edivide.exe" /pdbtype:sept 
 .\Debug\about.obj
@@ -30,12 +50,25 @@ kernel32.lib user32.lib gdi32.lib comdlg32.lib advapi32.lib shell32.lib ole32.li
 .\Debug\kwdoc.obj
 .\Debug\res.res
 ]
-Creating command line "link.exe @C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp\RSP11.tmp"
+Creating command line "link.exe @C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp\RSP97.tmp"
 <h3>Output Window</h3>
+Compiling resources...
 Compiling...
 about.cpp
+ideqtwindow.cpp
+main.cpp
+moc_about.cpp
+moc_ideqtwindow.cpp
+moc_nuevo_propiedades.cpp
+moc_nuevoimpl.cpp
+moc_proyecto.cpp
+nuevo_propiedades.cpp
+nuevoimpl.cpp
+proyecto.cpp
+highlight.cpp
+kwdoc.cpp
 Linking...
-Creating temporary file "C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp\RSP13.tmp" with contents
+Creating temporary file "C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp\RSP99.tmp" with contents
 [
 /nologo /o"Debug/ideQT.bsc" 
 .\Debug\about.sbr
@@ -51,7 +84,7 @@ Creating temporary file "C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp\RSP13.tmp" with cont
 .\Debug\proyecto.sbr
 .\Debug\highlight.sbr
 .\Debug\kwdoc.sbr]
-Creating command line "bscmake.exe @C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp\RSP13.tmp"
+Creating command line "bscmake.exe @C:\DOCUME~1\ADMINI~1\CONFIG~1\Temp\RSP99.tmp"
 Creating browse info file...
 <h3>Output Window</h3>
 

ediv/ideQT/moc_nuevo_propiedades.cpp

@@ -1,7 +1,7 @@
 /****************************************************************************
 ** Nuevo_Propiedades meta object code from reading C++ file 'nuevo_propiedades.h'
 **
-** Created: Sun Jul 14 23:22:00 2002
+** Created: Mon Sep 9 19:11:49 2002
 **      by: The Qt MOC ($Id$)
 **
 ** WARNING! All changes made in this file will be lost!

ediv/src/dlls/text/text.c

@@ -275,12 +275,6 @@ int eDiv_DeleteText(FUNCTION_PARAMS)
 	int i ;
 	i = getparm() ;
 
-
-	if ( i<0 || i>MAX_WRITES || !textos[i].existe ) {
-		fp->Runtime_Error(119);	// id de texto no válido
-		return -1 ;
-	}
-
 	if(i==0) {
 		for(i=1;i<MAX_WRITES;i++) {
 			textos[i].existe=0;
@@ -289,6 +283,11 @@ int eDiv_DeleteText(FUNCTION_PARAMS)
 		return 1;
 	}
 
+	if ( i<1 || i>MAX_WRITES || !textos[i].existe ) {
+		fp->Runtime_Error(119);	// id de texto no válido
+		return -1 ;
+	}
+
 	textos[i].existe = 0 ;
 	//SDL_FreeSurface(textos[i].imagen) ;   // <--- por ke esta comentado??