FIX: CommandTargetExec Ignores Return Value (221700)

MORE INFORMATION

Steps to Reproduce Behavior

1. Create a new Project, (aDoc.pjx).
2. Create a new ADoc class (aDocTest in aDocClass.vcx) in aDoc.pjx.
3. Select FoxPro.h in the Class:Include File dialog box, and create the following procedures:

   PROCEDURE CommandTargetExec
   	LPARAMETERS nCommandID, nExecOption, eArgIn, eArgOut
   
   	*!* The DO CASE is overkill in this sample, but it 
   	*!* allows for handling different nCommandIDs.
   	DO CASE
   		CASE nCommandID = CMDID_PROPERTIES
   			RETURN CMD_NOTSUPPORTED
   	ENDCASE
   ENDPROC
   
   
   PROCEDURE Run
   	LPARAMETERS cHyperLinkTarget
   
   	DO FORM frmHiThere
   
   	READ EVENTS
   ENDPROC
   					

4. Create a new Form (frmHiThere.scx) and drop a label on it. Set the properties as below and add the QueryUnload procedure:

   DEFINE CLASS frmhithere AS form
   
   	DoCreate = .T.
   	Caption = "Hi there!"
   	Name = "frmHiThere"
   
   	ADD OBJECT lblhithere AS label WITH ;
   		Caption = "Hi, neighbor, have a 'Gansett!", ;
   		Height = 17, ;
   		Left = 96, ;
   		Top = 96, ;
   		Width = 162, ;
   		Name = "lblHiThere"
   
   	PROCEDURE QueryUnload
   		*!* QueryUnload fires when the Close (x) button in 
   		*!* the upper right corner is clicked.
   
   		CLEAR EVENTS
   	ENDPROC
   ENDDEFINE
   					

5. Build aDoc.pjx as an application (.APP).
6. Open Internet Explorer. Go to the File:Open menu item, and choose aDoc.app. Once it opens in the browser, choose File:Properties.

If the application was built with Visual FoxPro 6.0 Build 8167, nothing happens because the ActiveDoc is improperly returning the "I handled it" value (CMD_OK). When the application is built with Visual FoxPro 6.0 in Visual Studio 6.0 Service Pack 3, the About Visual FoxPro 6.0 Run-time dialog box appears.

The FoxPro.h file is found in the Visual FoxPro home directory (=HOME(1)).

The return values for CommandTargetExec are defined improperly.

The lines reading:

*-- CommandTargetExec Return Values
#DEFINE CMD_NOTSUPPORTED             2  && Command is not supported by the Active Document
#DEFINE CMD_DISABLED                 3  && Command is disabled for the Active Document
#DEFINE CMD_NOHELP                   4  && No help is available for the command from the Active Document
#DEFINE CMD_CANCELED                 5  && The user canceled the execution of the command
				

should be:

*-- CommandTargetExec Return Values
#DEFINE CMD_NOTSUPPORTED             1  && Command is not supported by the Active Document
#DEFINE CMD_DISABLED                 2  && Command is disabled for the Active Document
#DEFINE CMD_NOHELP                   3  && No help is available for the command from the Active Document
#DEFINE CMD_CANCELED                 4  && The user canceled the execution of the command