PRB: Object Browser Generates Incorrect Interface Code (324201)

RESOLUTION

1. Use WinZip, Windows Compressed Folders (in Microsoft Windows XP), or another archive reader that can read .zip files to extract the OBrowser directory from the Xsource.zip file.
2. Right-click the OBrowser directory in Windows Explorer, click Properties, and then click to clear the Read-only check box. You can also use the attrib command to do this from a command prompt.
3. Start Visual FoxPro, and then use the cd command to change the directory to the expanded OBrowser directory.
4. Run the following command from the Visual FoxPro 7.0 Command window:

   modify command patchobrowser

5. Paste the following code into the program window that appears:

   *-----------------------------------
   * PatchOBrowser.prg
   * ABSTRACT: Updates the Visual FoxPro Object Browser application to
   *           resolve problem that is outlined in Microsoft Knowledge Base *           article Q324201.
   *-----------------------------------
   #DEFINE CR CHR(13) + CHR(10)
   
   CD JUSTPATH(SYS(16))
   *~ Verify the correct location. If not, exit.
   IF !FILE("OBJECTBROWSER.PJX")
       MESSAGEBOX("The update .prg does not appear to be in the correct DIR." + CR + ;
       "See the Microsoft Knowledge Base article Q324201 for details." + CR + CR + ;
       "Exiting.",0,"MSKB Q324201")
       RETURN .F.
   ENDIF
   
   CLOSE DATABASES ALL
   RELEASE ALL
   CLEAR ALL
   
   WAIT WINDOW "Q324201 is patching the Object Browser. Please wait..." NOWAIT NOCLEAR
   
   LOCAL lcNewCode AS STRING, ;
   	lcOriginalLoop1 AS STRING, ;
   	lcOriginalLoop1 AS STRING, ;
   	lcNewLoop1 AS STRING, ;
   	lcNewLoop2 AS STRING
   
   lcNewCode = ""
   
   *~~ First loop that needs replacing in objectbrowser::createinterfacecode
   lcOriginalLoop1 = ;
   	'FOR i = 1 TO loTli.CoClasses.Count' + CR + ;
   	'	IF loTli.CoClasses(m.i).DefaultInterface.Name = ALLTRIM(lcIntName)' + CR + ;
   	'		lcProgID = loTli.Name + "." + loTli.CoClasses(m.i).Name' + CR + ;
   	'	ENDIF' + CR + ;
   	'ENDFOR'
   
   *~~ Second loop that needs replacing in objectbrowser::createinterfacecode
   lcOriginalLoop2 = ;
   	'lnIntCount = loTli.Interfaces.Count' + CR + ;
   	'FOR i = 1 TO lnIntCount ' + CR + ;
   	'	IF UPPER(loTli.Interfaces(m.i).Name) = UPPER(loNode.Text)' + CR + ;
   	'		lnIntRef = m.i' + CR + ;
   	'		EXIT' + CR + ;
   	'	ENDIF' + CR + ;
   	'ENDFOR'
   
   *~~ Update First loop
   TEXT TO lcNewLoop1 NOSHOW TEXTMERGE
   *~~~ CODE INSERTED BY Microsoft Knowledge Base Article Q324201
   LOCAL lcExact
   lcExact = Set("Exact")
   Set Exact On
   *~~~~~~~
   <<lcOriginalLoop1>>
   *~~~ CODE INSERTED BY Microsoft Knowledge Base Article Q324201
   Set Exact &lcExact
   *~~~~~~~
   ENDTEXT
   
   *~~ Update Second loop
   TEXT TO lcNewLoop2 NOSHOW TEXTMERGE
   *~~~ CODE INSERTED BY MSKB Article Q324201
   LOCAL lcExact
   lcExact = Set("Exact")
   Set Exact On
   *~~~~~~~
   <<lcOriginalLoop2>>
   *~~~ CODE INSERTED BY Microsoft Knowledge Base Article Q324201
   Set Exact &lcExact
   *~~~~~~~
   ENDTEXT
   
   *~ Open the ObjectBrowser class library as a table.
   USE objectbrowser.VCX IN 0 ALIAS "LIB"
   SELECT LIB
   GO TOP
   *~ See if this program previously patched the .vcx file.
   *~ If so, exit.
   IF "PATCHED BY Q324201" $ UPPER(LIB.USER)
   	WAIT CLEAR
   	MESSAGEBOX("It appears OBJECTBROWSER.VCX has already been patched." + CR + ;
   		"Expand a fresh copy of the Object Browser source before you try to patch it again." + CR + ;
   		"See Microsoft Knowledge Base article Q324201 for details." + CR + CR + "Exiting.",0,"Microsoft Knowledge Base Q324201")
   	RELEASE ALL
   	CLOSE DATABASES ALL
   	RETURN .F.
   ENDIF
   
   *~ Locate the correct record. The shipped version of this library had some deleted 
   *~ records that were not cleaned out, therefore, the DELETED() clause in the LOCATE command.
   LOCATE FOR ("objectbrowser" $ objname AND "createinterfacecode" $ methods) AND !DELETED()
   
   *~ Update the code, and then write the update back to the table.
   lcNewCode = STRTRAN(LIB.methods, lcOriginalLoop1, lcNewLoop1)
   lcNewCode = STRTRAN(lcNewCode, lcOriginalLoop2, lcNewLoop2)
   REPLACE LIB.methods WITH lcNewCode
   
   *~ Update the USER field of the first record to indicate that the the .vcx file has been patched.
   *~ Read this at the start of THIS program to make sure that it is not patched
   *~ more than one time.
   GO TOP IN LIB
   REPLACE LIB.USER WITH LIB.USER + ;
   	CR + CR + "PATCHED BY Q324201 - " + TRANSFORM(DATETIME())
   USE IN LIB
   
   *~ Recompile the ClassLib to make sure that the changes take effect.
   COMPILE CLASSLIB objectbrowser.VCX
   
   
   *~ Rebuild ObjectBrowser.app
   *~
   *~ A file that is named Vssver.scc is included in the project, but the
   *~ physical file does not exist. This is a Microsoft Visual SourceSafe file
   *~ and is not part of the Object Browser code. Manipulating the PJX as a table
   *~ here removes the reference to prevent an error when the project opens and
   *~ cannot find this file. The Home Directory project property is also updated.
   USE objectbrowser.PJX IN 0 ALIAS "OBPJX"
   SELECT OBPJX
   GO TOP
   REPLACE OBPJX.HOMEDIR WITH ADDBS(JUSTPATH(SYS(16))) + CHR(13)
   LOCATE FOR "vssver.scc" $ OBPJX.name
   IF !RECCOUNT("OBPJX") = RECNO("OBPJX")
   	DELETE
   ENDIF	
   USE IN OBPJX
   MODIFY PROJECT OBJECTBROWSER NOWAIT
   
   *~ Rename the old (original) ObjectBrowser.app file, replace this file, and then cleanup.
   RENAME HOME() + "OBJECTBROWSER.APP" TO HOME() +"OBJECTBROWSER.APP.ORIGIONAL"
   _VFP.ACTIVEPROJECT.BUILD(HOME() + "OBJECTBROWSER.APP",2,.T.,.T.)
   CLOSE ALL
   WAIT CLEAR
   MESSAGEBOX("Object Browser Updated!",0,"Microsoft Knowledge Base Q324201")
   					

6. Save the program, and then run the program:
   
   NOTE: This program must be located in the OBrowser root directory to run correctly.