Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
What do you think of 'Beautify'?
Message
From
01/05/2010 16:35:47
 
 
To
01/05/2010 13:38:59
Hilmar Zonneveld
Independent Consultant
Cochabamba, Bolivia
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP2
Miscellaneous
Thread ID:
01462534
Message ID:
01462672
Views:
54
Thanks

>>Can you post the code (from VFP6) that Beautify mangles -- both before and after? .... still curious here.
>
>The following is a small part of the startup file, vfxmain.prg, used in the Visual Extend framework. This was designed for Visual FoxPro 6.
>
>
>* BEFORE BEAUTIFY:
>IF VARTYPE(goprogram) = "O"
>	RELEASE gcoldtalk, gcolddir, gcoldpath, gcoldclasslib, gcoldescape, gcoldresource
>
>	#ifdef _debug_mode
>	IF VERSION(2)=2
>		goprogram.debugmode(.T.)
>	ENDIF
>	#ENDIF
>
>	IF VARTYPE(_VFP)=="O"
>		_VFP.VISIBLE = .T.
>	ENDIF
>endif
>
>
>* AFTER BEAUTIFY (with Tabs) (using Visual FoxPro 6, SP5)
>IF VARTYPE(goprogram) = "O"
>	RELEASE gcoldtalk, gcolddir, gcoldpath, gcoldclasslib, gcoldescape, gcoldresource
>
>	#ifdef _debug_mode
>	IF VERSION(2)=2
>		goprogram.debugmode(.T.)
>	ENDIF
>#ENDIF
>
>IF VARTYPE(_VFP)=="O"
>	_VFP.VISIBLE = .T.
>ENDIF
>endif
>
>
>* VFP 9 ACTUALLY IMPROVES IT:
>IF VARTYPE(goprogram) = "O"
>	RELEASE gcoldtalk, gcolddir, gcoldpath, gcoldclasslib, gcoldescape, gcoldresource
>
>	#ifdef _debug_mode
>		IF VERSION(2)=2
>			goprogram.debugmode(.T.)
>		ENDIF
>	#ENDIF
>
>	IF VARTYPE(_VFP)=="O"
>		_VFP.VISIBLE = .T.
>	ENDIF
>endif
>
>
>I hadn't tested this with VFP 9 previously. Of course, the actual file is much larger; so (in Visual FoxPro 6) I had to search a while to find the "offensive" lines.
Jim Nelson
Newbury Park, CA
Previous
Reply
Map
View

Click here to load this message in the networking platform