The following example is a command script that creates a docked help pane in the Real Estate Sales Manager sample application.
local boolean result;
local string path;
local integer tag;
path = Path_GetForApp(2);
tag = Command_GetTag(command CMD_HelpPane of form 'Main Menu');
{Check the status of the command}
if Command_GetBooleanProperty(tag, COMMAND_PROP_CHECKED) = false then
{Create the help pane and show the default topic}
result = HelpPane_Create();
result = HelpPane_Show(true);
result = HelpPane_DisplayTopic(path + "RESM.chm", "RESMTOC.htm");
{Mark the Help Pane menu item}
Command_SetBooleanProperty(tag, COMMAND_PROP_CHECKED, true);
else
{Destroy the help pane}
result = HelpPane_Destroy();
{Unmark the Help Pane menu item}
Command_SetBooleanProperty(tag, COMMAND_PROP_CHECKED, false);
end if;