home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a087 / 5.ddi / HELPTREE.MP_ / HELPTREE.bin
Encoding:
Text File  |  1994-02-02  |  17.2 KB  |  383 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 11/30/92            HELPTREE.MPR              13:35:45  
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Wayne Lampel                                            
  8. *       *                                                         
  9. *       * Copyright (c) 1992 MIcrosoft Corporation                
  10. *       * One Microsoft Way                                       
  11. *       * Redmond, WA  Zip                                        
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENMENU.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. *       *********************************************************
  20. *       *                                                         
  21. *       *                        Setup Code                       
  22. *       *                                                         
  23. *       *********************************************************
  24. *
  25.  
  26. if not empty(set('help',1))
  27.     if upper(substr(set('help',1),rat('.',set('help',1)),4)) = '.DBF'
  28.         for i = 1 to cntpad('_msysmenu')
  29.             if prmpad('_msysmenu',getpad('_msysmenu',i)) = 'Helptree'
  30.                 RELEASE PAD (getpad('_msysmenu',i)) OF _msysmenu
  31.                 EXIT
  32.             endif
  33.         endfor
  34.         set path to (sys(2004))
  35.     else
  36.         wait window '.DBF style help is required for the helptree application' nowait
  37.         return
  38.     endif
  39. else
  40.     wait window 'There is no help file available' nowait
  41.     return
  42. endif
  43.  
  44. *       *********************************************************
  45. *       *                                                         
  46. *       *                      Menu Definition                    
  47. *       *                                                         
  48. *       *********************************************************
  49. *
  50.  
  51. SET SYSMENU AUTOMATIC
  52.  
  53. DEFINE PAD _qb70t52cw OF _MSYSMENU PROMPT "\<Helptree" COLOR SCHEME 3 ;
  54.     KEY ALT+H, "ALT+H"
  55. ON PAD _qb70t52cw OF _MSYSMENU ACTIVATE POPUP helptree
  56.  
  57. DEFINE POPUP helptree MARGIN RELATIVE SHADOW COLOR SCHEME 4
  58. DEFINE BAR 1 OF helptree PROMPT "\<All Topics"
  59. DEFINE BAR 2 OF helptree PROMPT "\<Interface"
  60. DEFINE BAR 3 OF helptree PROMPT "\<General"
  61. DEFINE BAR 4 OF helptree PROMPT "C\<ommands & Functions"
  62. DEFINE BAR 5 OF helptree PROMPT "\<Commands"
  63. DEFINE BAR 6 OF helptree PROMPT "\<Functions"
  64. DEFINE BAR 7 OF helptree PROMPT "S\<ystem Memory Variables"
  65. DEFINE BAR 8 OF helptree PROMPT "\<Search..."
  66. ON SELECTION BAR 1 OF helptree Do hfilter in helptree.mpr
  67. ON BAR 2 OF helptree ACTIVATE POPUP interface
  68. ON BAR 3 OF helptree ACTIVATE POPUP general
  69. ON BAR 4 OF helptree ACTIVATE POPUP commandsfu
  70. ON BAR 5 OF helptree ACTIVATE POPUP commands
  71. ON BAR 6 OF helptree ACTIVATE POPUP functions
  72. ON BAR 7 OF helptree ACTIVATE POPUP systemmemo
  73. ON SELECTION BAR 8 OF helptree DO hfilter WITH 'Search'  in helptree.mpr
  74.  
  75. DEFINE POPUP interface MARGIN RELATIVE SHADOW COLOR SCHEME 4
  76. DEFINE BAR 1 OF interface PROMPT "\<All Interface Topics"
  77. DEFINE BAR 2 OF interface PROMPT "\<Dialogs"
  78. DEFINE BAR 3 OF interface PROMPT "\<General"
  79. DEFINE BAR 4 OF interface PROMPT "\<Menus"
  80. DEFINE BAR 5 OF interface PROMPT "\<System Windows"
  81. ON SELECTION BAR 1 OF interface DO hfilter WITH 'Interface' in helptree.mpr
  82. ON SELECTION BAR 2 OF interface DO hfilter WITH 'Interface',' di ' in helptree.mpr
  83. ON SELECTION BAR 3 OF interface DO hfilter WITH 'Interface',' ge ' in helptree.mpr
  84. ON SELECTION BAR 4 OF interface DO hfilter WITH 'Interface',' me ' in helptree.mpr
  85. ON SELECTION BAR 5 OF interface DO hfilter WITH 'Interface',' wi ' in helptree.mpr
  86.  
  87. DEFINE POPUP general MARGIN RELATIVE SHADOW COLOR SCHEME 4 ;
  88.     MARK "C"
  89. DEFINE BAR 1 OF general PROMPT "\<All General Topics"
  90. DEFINE BAR 2 OF general PROMPT "\<What's New"
  91. DEFINE BAR 3 OF general PROMPT "\<Compatibility"
  92. DEFINE BAR 4 OF general PROMPT "C\<onfiguration"
  93. DEFINE BAR 5 OF general PROMPT "\<Error Messages"
  94. ON SELECTION BAR 1 OF general DO hfilter WITH 'General' in helptree.mpr
  95. ON SELECTION BAR 2 OF general DO hfilter WITH 'General',' wn ' in helptree.mpr
  96. ON SELECTION BAR 3 OF general DO hfilter WITH 'General',' cm ' in helptree.mpr
  97. ON SELECTION BAR 4 OF general DO hfilter WITH 'General',' cf ' in helptree.mpr
  98. ON SELECTION BAR 5 OF general DO hfilter WITH 'General',' em ' in helptree.mpr
  99.  
  100. DEFINE POPUP commandsfu MARGIN RELATIVE SHADOW COLOR SCHEME 4
  101. DEFINE BAR 1 OF commandsfu PROMPT "New Commands and Functions"
  102. DEFINE BAR 2 OF commandsfu PROMPT "Enhanced Commands and Functions"
  103. DEFINE BAR 3 OF commandsfu PROMPT "\<All Commands and Functions"
  104. DEFINE BAR 4 OF commandsfu PROMPT "\<Database"
  105. DEFINE BAR 5 OF commandsfu PROMPT "\<Environment"
  106. DEFINE BAR 6 OF commandsfu PROMPT "E\<rrors and Debugging"
  107. DEFINE BAR 7 OF commandsfu PROMPT "E\<vent Handlers"
  108. DEFINE BAR 8 OF commandsfu PROMPT "\<File Management"
  109. DEFINE BAR 9 OF commandsfu PROMPT "Inde\<x "
  110. DEFINE BAR 10 OF commandsfu PROMPT "\<Interface"
  111. DEFINE BAR 11 OF commandsfu PROMPT "\<Keyboard and Mouse"
  112. DEFINE BAR 12 OF commandsfu PROMPT "\<Memory Variables and Arrays"
  113. DEFINE BAR 13 OF commandsfu PROMPT "Menus and \<Popups"
  114. DEFINE BAR 14 OF commandsfu PROMPT "Multi-\<User"
  115. DEFINE BAR 15 OF commandsfu PROMPT "\<Printing"
  116. DEFINE BAR 16 OF commandsfu PROMPT "Pro\<gram Execution"
  117. DEFINE BAR 17 OF commandsfu PROMPT "S\<QL"
  118. DEFINE BAR 18 OF commandsfu PROMPT "\<Structured Programming"
  119. DEFINE BAR 19 OF commandsfu PROMPT "\<Text Merge"
  120. DEFINE BAR 20 OF commandsfu PROMPT "\<Window "
  121. ON SELECTION BAR 1 OF commandsfu DO hfilter WITH ' nx ' in helptree.mpr
  122. ON SELECTION BAR 2 OF commandsfu DO hfilter WITH ' ex ' in helptree.mpr
  123. ON SELECTION BAR 3 OF commandsfu DO hfilter WITH 'Command','Function',.T. in helptree.mpr
  124. ON SELECTION BAR 4 OF commandsfu DO hfilter WITH ' db ' in helptree.mpr
  125. ON SELECTION BAR 5 OF commandsfu DO hfilter WITH ' en ' in helptree.mpr
  126. ON SELECTION BAR 6 OF commandsfu DO hfilter WITH ' er ' in helptree.mpr
  127. ON SELECTION BAR 7 OF commandsfu DO hfilter WITH ' eh ' in helptree.mpr
  128. ON SELECTION BAR 8 OF commandsfu DO hfilter WITH ' fm ' in helptree.mpr
  129. ON SELECTION BAR 9 OF commandsfu DO hfilter WITH ' ix ' in helptree.mpr
  130. ON SELECTION BAR 10 OF commandsfu DO hfilter WITH ' in ' in helptree.mpr
  131. ON SELECTION BAR 11 OF commandsfu DO hfilter WITH ' km ' in helptree.mpr
  132. ON SELECTION BAR 12 OF commandsfu DO hfilter WITH ' mv ' in helptree.mpr
  133. ON SELECTION BAR 13 OF commandsfu DO hfilter WITH ' mp ' in helptree.mpr
  134. ON SELECTION BAR 14 OF commandsfu DO hfilter WITH ' mu ' in helptree.mpr
  135. ON SELECTION BAR 15 OF commandsfu DO hfilter WITH ' pr ' in helptree.mpr
  136. ON SELECTION BAR 16 OF commandsfu DO hfilter WITH ' pe ' in helptree.mpr
  137. ON SELECTION BAR 17 OF commandsfu DO hfilter WITH ' sq ' in helptree.mpr
  138. ON SELECTION BAR 18 OF commandsfu DO hfilter WITH ' sp ' in helptree.mpr
  139. ON SELECTION BAR 19 OF commandsfu DO hfilter WITH ' tm ' in helptree.mpr
  140. ON SELECTION BAR 20 OF commandsfu DO hfilter WITH ' wi ' in helptree.mpr
  141.  
  142. DEFINE POPUP commands MARGIN RELATIVE SHADOW COLOR SCHEME 4
  143. DEFINE BAR 1 OF commands PROMPT "\<All Commands"
  144. DEFINE BAR 2 OF commands PROMPT "\<Database"
  145. DEFINE BAR 3 OF commands PROMPT "\<Environment"
  146. DEFINE BAR 4 OF commands PROMPT "E\<rrors and Debugging"
  147. DEFINE BAR 5 OF commands PROMPT "E\<vent Handlers"
  148. DEFINE BAR 6 OF commands PROMPT "\<File Management"
  149. DEFINE BAR 7 OF commands PROMPT "Inde\<x"
  150. DEFINE BAR 8 OF commands PROMPT "\<Interface"
  151. DEFINE BAR 9 OF commands PROMPT "\<Keyboard and Mouse"
  152. DEFINE BAR 10 OF commands PROMPT "\<Memory Variables and Arrays"
  153. DEFINE BAR 11 OF commands PROMPT "Me\<nus and Popups"
  154. DEFINE BAR 12 OF commands PROMPT "M\<ulti-User"
  155. DEFINE BAR 13 OF commands PROMPT "\<Printing"
  156. DEFINE BAR 14 OF commands PROMPT "Pr\<ogram Execution"
  157. DEFINE BAR 15 OF commands PROMPT "S\<QL"
  158. DEFINE BAR 16 OF commands PROMPT "\<Structured Programming"
  159. DEFINE BAR 17 OF commands PROMPT "\<Text Merge"
  160. DEFINE BAR 18 OF commands PROMPT "\<Window "
  161. ON SELECTION BAR 1 OF commands DO hfilter WITH 'Command' in helptree.mpr
  162. ON SELECTION BAR 2 OF commands DO hfilter WITH 'Command',' db ' in helptree.mpr
  163. ON SELECTION BAR 3 OF commands DO hfilter WITH 'Command',' en ' in helptree.mpr
  164. ON SELECTION BAR 4 OF commands DO hfilter WITH 'Command',' er ' in helptree.mpr
  165. ON SELECTION BAR 5 OF commands DO hfilter WITH 'Command',' eh ' in helptree.mpr
  166. ON SELECTION BAR 6 OF commands DO hfilter WITH 'Command', ' fm ' in helptree.mpr
  167. ON SELECTION BAR 7 OF commands DO hfilter WITH 'Command', ' ix ' in helptree.mpr
  168. ON SELECTION BAR 8 OF commands DO hfilter WITH 'Command',' in ' in helptree.mpr
  169. ON SELECTION BAR 9 OF commands DO hfilter WITH 'Command',' km ' in helptree.mpr
  170. ON SELECTION BAR 10 OF commands DO hfilter WITH 'Command',' mv ' in helptree.mpr
  171. ON SELECTION BAR 11 OF commands DO hfilter WITH 'Command',' mp ' in helptree.mpr
  172. ON SELECTION BAR 12 OF commands DO hfilter WITH 'Command',' mu ' in helptree.mpr
  173. ON SELECTION BAR 13 OF commands DO hfilter WITH 'Command',' pr ' in helptree.mpr
  174. ON SELECTION BAR 14 OF commands DO hfilter WITH 'Command',' pe ' in helptree.mpr
  175. ON SELECTION BAR 15 OF commands DO hfilter WITH 'Command',' sq ' in helptree.mpr
  176. ON SELECTION BAR 16 OF commands DO hfilter WITH 'Command',' sp ' in helptree.mpr
  177. ON SELECTION BAR 17 OF commands DO hfilter WITH 'Command',' tm ' in helptree.mpr
  178. ON SELECTION BAR 18 OF commands DO hfilter WITH 'Command',' wi ' in helptree.mpr
  179.  
  180. DEFINE POPUP functions MARGIN RELATIVE SHADOW COLOR SCHEME 4
  181. DEFINE BAR 1 OF functions PROMPT "\<All Functions"
  182. DEFINE BAR 2 OF functions PROMPT "\<Character"
  183. DEFINE BAR 3 OF functions PROMPT "\<Data Conversion"
  184. DEFINE BAR 4 OF functions PROMPT "Data\<base"
  185. DEFINE BAR 5 OF functions PROMPT "Date and \<Time"
  186. DEFINE BAR 6 OF functions PROMPT "\<Environment"
  187. DEFINE BAR 7 OF functions PROMPT "\<File Management"
  188. DEFINE BAR 8 OF functions PROMPT "Inde\<x"
  189. DEFINE BAR 9 OF functions PROMPT "\<Interface"
  190. DEFINE BAR 10 OF functions PROMPT "\<Keyboard and Mouse"
  191. DEFINE BAR 11 OF functions PROMPT "\<Logical"
  192. DEFINE BAR 12 OF functions PROMPT "L\<ow-Level File I/O"
  193. DEFINE BAR 13 OF functions PROMPT "\<Memory Variables and Arrays"
  194. DEFINE BAR 14 OF functions PROMPT "Menus and \<Popups"
  195. DEFINE BAR 15 OF functions PROMPT "Multi-\<User"
  196. DEFINE BAR 16 OF functions PROMPT "\<Numeric"
  197. DEFINE BAR 17 OF functions PROMPT "\<Windows"
  198. ON SELECTION BAR 1 OF functions DO hfilter WITH 'Function' in helptree.mpr
  199. ON SELECTION BAR 2 OF functions DO hfilter WITH 'Function', ' ch ' in helptree.mpr
  200. ON SELECTION BAR 3 OF functions DO hfilter WITH 'Function',' dc ' in helptree.mpr
  201. ON SELECTION BAR 4 OF functions DO hfilter WITH 'Function',' db ' in helptree.mpr
  202. ON SELECTION BAR 5 OF functions DO hfilter WITH 'Function',' dt ' in helptree.mpr
  203. ON SELECTION BAR 6 OF functions DO hfilter WITH 'Function',' en ' in helptree.mpr
  204. ON SELECTION BAR 7 OF functions DO hfilter WITH 'Function',' fm ' in helptree.mpr
  205. ON SELECTION BAR 8 OF functions DO hfilter WITH 'Function',' ix ' in helptree.mpr
  206. ON SELECTION BAR 9 OF functions DO hfilter WITH 'Function',' in ' in helptree.mpr
  207. ON SELECTION BAR 10 OF functions DO hfilter WITH 'Function',' km ' in helptree.mpr
  208. ON SELECTION BAR 11 OF functions DO hfilter WITH 'Function',' lo ' in helptree.mpr
  209. ON SELECTION BAR 12 OF functions DO hfilter WITH 'Function',' ll ' in helptree.mpr
  210. ON SELECTION BAR 13 OF functions DO hfilter WITH 'Function',' mv ' in helptree.mpr
  211. ON SELECTION BAR 14 OF functions DO hfilter WITH 'Function',' mp ' in helptree.mpr
  212. ON SELECTION BAR 15 OF functions DO hfilter WITH 'Function',' mu ' in helptree.mpr
  213. ON SELECTION BAR 16 OF functions DO hfilter WITH 'Function',' nu ' in helptree.mpr
  214. ON SELECTION BAR 17 OF functions DO hfilter WITH 'Function',' wi ' in helptree.mpr
  215.  
  216. DEFINE POPUP systemmemo MARGIN RELATIVE SHADOW COLOR SCHEME 4
  217. DEFINE BAR 1 OF systemmemo PROMPT "\<All System Memory Variables"
  218. DEFINE BAR 2 OF systemmemo PROMPT "\<Desk Accessories"
  219. DEFINE BAR 3 OF systemmemo PROMPT "\<Printing"
  220. DEFINE BAR 4 OF systemmemo PROMPT "\<Text Merge"
  221. DEFINE BAR 5 OF systemmemo PROMPT "\<Menu Names"
  222. ON SELECTION BAR 1 OF systemmemo DO hfilter WITH 'Sysmemvar' in helptree.mpr
  223. ON SELECTION BAR 2 OF systemmemo DO hfilter WITH 'Sysmemvar',' da ' in helptree.mpr
  224. ON SELECTION BAR 3 OF systemmemo DO hfilter WITH 'Sysmemvar',' pr ' in helptree.mpr
  225. ON SELECTION BAR 4 OF systemmemo DO hfilter WITH 'Sysmemvar',' tm ' in helptree.mpr
  226. ON SELECTION BAR 5 OF systemmemo DO hfilter WITH 'Sysmemvar',' sn ' in helptree.mpr
  227.  
  228.  
  229. *       *********************************************************
  230. *       *                                                         
  231. *       *                 Cleanup Code & Procedures               
  232. *       *                                                         
  233. *       *********************************************************
  234. *
  235.  
  236. PROCEDURE hfilter
  237. PARAMETERS class1,class2,either
  238. PUBLIC filter1,filter2
  239. IF SET('TALK') = 'ON'
  240.    SET TALK OFF
  241.    STORE 'ON' TO talkset
  242. ELSE
  243.    STORE 'OFF' TO talkset
  244. ENDIF (SET('TALK') = 'ON')
  245. STORE class1 TO filter1
  246. STORE class2 TO filter2
  247. DO CASE
  248. CASE PARAMETERS() = 1 and filter1 = 'Search'
  249.    DO searchhelp
  250.    IF okcancel = 2
  251.       RETURN TO MASTER
  252.    ENDIF (okcancel = 2)
  253. CASE either
  254.    SET HELPFILTER AUTOMATIC TO UPPER(filter1)$UPPER(class) ;
  255.       or UPPER(filter2)$UPPER(class)
  256. CASE PARAMETERS() = 2
  257.    SET HELPFILTER AUTOMATIC TO UPPER(filter1)$UPPER(class) ;
  258.       and UPPER(filter2)$UPPER(class)
  259. CASE PARAMETERS() = 1
  260.    SET HELPFILTER AUTOMATIC TO UPPER(filter1)$UPPER(class)
  261. CASE PARAMETERS() = 0
  262.    SET HELPFILTER TO
  263. ENDCASE
  264. SET TALK &talkset
  265. HELP NOWAIT
  266.  
  267. *!*********************************************************************
  268. *!
  269. *!      Procedure: SEARCHHELP
  270. *!
  271. *!      Called by: HFILTER.PRG
  272. *!
  273. *!*********************************************************************
  274. PROCEDURE searchhelp
  275. PUBLIC search1,search2,search3,okcancel
  276. STORE SPACE(50) TO search1,search2,search3
  277. STORE 1 TO okcancel,anyall,topordet
  278. STORE .F. TO matchwords
  279. STORE .T. TO ignorecase
  280. DEFINE WINDOW searchdlog;
  281.    FROM 3,15;
  282.    TO 21,64;
  283.    FLOAT;
  284.    NOGROW;
  285.    NOCLOSE;
  286.    NOZOOM;
  287.    SHADOW;
  288.    DOUBLE;
  289.    COLOR SCHEME 5
  290. ACTIVATE WINDOW searchdlog
  291.  
  292. @ 1,2 SAY "Tag only those topics that contain"
  293. @ 1,38 GET anyall;
  294.    PICTURE "@*RVN Any;All";
  295.    SIZE 1,7,0
  296. @ 4,2 SAY "of the following strings in the "
  297. @ 4,35 GET topordet;
  298.    PICTURE "@*RVN Topic;Details";
  299.    SIZE 1,11,0
  300. @ 7,5 GET search1;
  301.    SIZE 1,37;
  302.    PICTURE '@K'
  303. @ 9,5 GET search2;
  304.    SIZE 1,37;
  305.    PICTURE '@K'
  306. @ 11,5 GET search3;
  307.    SIZE 1,37;
  308.    PICTURE '@K'
  309. @ 14,5 GET ignorecase;
  310.    PICTURE "@*C Ignore Case";
  311.    SIZE 1,15
  312. @ 13,31 GET okcancel;
  313.    PICTURE "@*V \!OK; \?Cancel";
  314.    SIZE 1,10,1
  315. READ CYCLE DEACTIVate noway()
  316. RELEASE WINDOW searchdlog
  317. STORE SET('EXACT') TO exactoffon
  318. DO CASE
  319. CASE EMPTY(search1) and EMPTY(search2) and EMPTY(search3)
  320.    STORE 2 TO okcancel
  321.    RETURN
  322. CASE EMPTY(search1) and EMPTY(search2)
  323.    STORE search3 TO search1,search2
  324. CASE EMPTY(search2) and EMPTY(search3)
  325.    STORE search1 TO search2,search3
  326. CASE EMPTY(search1) and EMPTY(search3)
  327.    STORE search2 TO search1,search3
  328. CASE EMPTY(search1)
  329.    STORE search2 TO search1
  330. CASE EMPTY(search2)
  331.    STORE search1 TO search2
  332. CASE EMPTY(search3)
  333.    STORE search1 TO search3
  334. ENDCASE
  335.  
  336. DO CASE
  337. CASE topordet = 2 and ignorecase and anyall = 1
  338.    SET HELPFILTER AUTOMATIC TO;
  339.       ALLTRIM(UPPER(search1))$UPPER(details) or;
  340.       ALLTRIM(UPPER(search2))$UPPER(details) or;
  341.       ALLTRIM(UPPER(search3))$UPPER(details)
  342. CASE topordet = 2 and ignorecase and anyall = 2
  343.    SET HELPFILTER AUTOMATIC TO;
  344.       ALLTRIM(UPPER(search1))$UPPER(details) and;
  345.       ALLTRIM(UPPER(search2))$UPPER(details) and;
  346.       ALLTRIM(UPPER(search3))$UPPER(details)
  347. CASE topordet = 2 and !ignorecase and anyall = 1
  348.    SET HELPFILTER AUTOMATIC TO;
  349.       ALLTRIM(search1)$details or;
  350.       ALLTRIM(search2)$details or;
  351.       ALLTRIM(search3)$details
  352. CASE topordet = 2 and !ignorecase and anyall = 2
  353.    SET HELPFILTER AUTOMATIC TO;
  354.       ALLTRIM(search1)$details and;
  355.       ALLTRIM(search2)$details and;
  356.       ALLTRIM(search3)$details
  357. CASE topordet = 1 and ignorecase and anyall = 1
  358.    SET HELPFILTER AUTOMATIC TO;
  359.       ALLTRIM(UPPER(search1))$UPPER(TOPIC) or;
  360.       ALLTRIM(UPPER(search2))$UPPER(TOPIC) or;
  361.       ALLTRIM(UPPER(search3))$UPPER(TOPIC)
  362. CASE topordet = 1 and ignorecase and anyall = 2
  363.    SET HELPFILTER AUTOMATIC TO;
  364.       ALLTRIM(UPPER(search1))$UPPER(TOPIC) and;
  365.       ALLTRIM(UPPER(search2))$UPPER(TOPIC) and;
  366.       ALLTRIM(UPPER(search3))$UPPER(TOPIC)
  367. CASE topordet = 1 and !ignorecase and anyall = 1
  368.    SET HELPFILTER AUTOMATIC TO;
  369.       ALLTRIM(search1)$TOPIC or;
  370.       ALLTRIM(search2)$TOPIC or;
  371.       ALLTRIM(search3)$TOPIC
  372. CASE topordet = 1 and !ignorecase and anyall = 2
  373.    SET HELPFILTER AUTOMATIC TO;
  374.       ALLTRIM(search1)$TOPIC and;
  375.       ALLTRIM(search2)$TOPIC and;
  376.       ALLTRIM(search3)$TOPIC
  377. ENDCASE
  378.  
  379. proc noway
  380. ? chr(7)
  381. return .f.
  382.  
  383. *: EOF: HFILTER.PRG