******* Hacker's Guide by Tamar Granor ************************************ lnBarHlp = cntbar('_MSM_SYSTM') + 1 define bar lnBarHlp of _msm_systm prompt "\-" lnBarHlp=lnBarHlp+1 define bar lnBarHlp of _msm_systm prompt "Hackers Guide" key Alt+F1 lcTemp = 'DO ' + tcUtilityPath + 'FoxToolsHelp\HackFox WITH "' + tcUtilityPath + ; 'FoxToolsHelp\"' on selection bar lnBarHlp of _msm_systm &lcTemp *on key label ALT+F1 &lcTemp lnBarHlp=lnBarHlp+1 define bar lnBarHlp of _msm_systm prompt "\-" lnBarHlp=lnBarHlp+1 *********** George Tasker FoxTools Help **************** define bar lnBarHlp of _msm_systm prompt "FoxTools Help" key Ctrl+F1 lcTemp = 'DO ' + tcUtilityPath + 'FoxToolsHelp\ToolHelp WITH "' + tcUtilityPath + ; 'FoxToolsHelp\"' on selection bar lnBarHlp of _msm_systm &lcTemp
* PROGRAM: HackFox.prg * AUTHOR: Nadya Nosonovsky 12/15/2000 11:23:08 AM * DATE: * PURPOSE: Activates Hacker Guide help lparameter tcUtilityPath, tcTopic if vartype(tcUtilityPath)<>'C' tcUtilityPath='d:\Utilities\FoxToolsHelp\' endif if empty(tcTopic) tcTopic=_cliptext endif local lchelp lchelp = set('HELP', 1) set help to tcUtilityPath+'HackFox.CHM' help &tcTopic set help to (lchelp) return