* MyTrnsfm.prg
* Example of subclassing the Transformer.
* To run the subclassed Transformer, execute:
*      DO Transfrm WITH "MyTrnsfm.prg,MyTransformer","MyTrnsfm.prg,MyTransformFiles"
*


DEFINE CLASS MyTransformer AS Transformer


	Caption="My Transformer"


ENDDEFINE



DEFINE CLASS MyTransformFiles AS TransformFiles


	cGetFileExt='pjx|scx|vcx|mnx|frx'


	FUNCTION Do(tlAddFontRules)
	=MESSAGEBOX("  The transformation process has been subclassed.",48, ;
			this.parent.Caption)
	RETURN oTransformFiles::Do(tlAddFontRules)
	ENDFUNC


	PROTECTED FUNCTION ProcessMenuRules
	ACTIVATE SCREEN
	? "Menu: "+DBF()
	GO BOTTOM
	ENDFUNC


	PROTECTED FUNCTION ProcessReportRules
	ACTIVATE SCREEN
	? "Report: "+DBF()
	GO BOTTOM
	ENDFUNC


ENDDEFINE