Creación de clases nuevas desde código DEFINE CLASS

[Juan Carlos M]

Saludos compañeros

Disculpen la duda, debe ser algo muy básico para ustedes pero, estoy dando mantenimiento a un Sistema en VFP 6 y solo utilizo las clases que ya existen, 

pero necesito funcionalidades nuevas y encontré esta clase para "detectar inactividad"

https://comunidadvfp.blogspot.com/2016/03/detectar-inactividad.html

pero no se donde copiar el código para crear la clase, intente en la ventana de comandos y manda :

Pude generar un "cascarón de clase" en el entorno gráfico del IDE, pero no me permite o no se donde agregar las propiedades ni los metodos de la nueva clase que vienen en el enlace, podrían apoyarme ?.

Desde ya MIL GRACIAS.

[Victor Espina]

Las definiciones de clase via DEFINE CLASS deben ir dentro de un archivo PRG.  Las propiedades se definen simplemente incluyendo una linea dentro del bloque DEIFNE CLASS - ENDDEFINE (preferiblemente al inicio):

propiedad = valor

y los metodos/eventos se declaran tambien dentro del mismo bloque pero con PROCEDURE:

PROCEDURE mimetodo

   ...

ENDPROC

Tambien puedes crear clases visualmente con el comando CREATE CLASS, el cual si se ejecuta en la ventana de comandos.

Victor Espina

[Juan Carlos M]

Saludoa a todos y gracias de antemano

Generé el archivo .PRG  y al llamar a la clase desde mi programa de  INICIO.PRG   

con el código mencionado en el artículo:

CLEAR 

PUBLIC tmrCheck 

tmrCheck = NEWOBJECT("DetectActivity") 

RETURN

pareciera que no reconoce la clase.  ¿ Que estare haciendo mal o que paso estoy omitiendo ?

[Victor Espina]

Debes cargar el PRG con SET PROCEDURE o, en su defecto, indicar el PRG en NEWOBJECT:

tmrCheck = NEWOBJECT("DetectActivity","detecactivity.prg")

Dicho esto, por favor no lo tomes a mal, pero creo que esta siendo irresponsable al tomar el mantenimiento de un sistema cuando CLARAMENTE no dominas ni los temas mas basicos del desarrollo con VFP.   Mi opinion.

Victor Espina