home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FMW.LZH / FPWMENU.MPR < prev    next >
Encoding:
Text File  |  1993-02-03  |  27.4 KB  |  755 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 02/02/93             FPWMENU.MPR              19:16:32  
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Bruce Braunstein                                        
  8. *       *                                                         
  9. *       * Copyright (c) 1993 Tetra Press                          
  10. *       * 1015 Gayley #288                                        
  11. *       * Los Angeles, CA  90024                                  
  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. * =fm_locat()
  27. =FM_SETUP()
  28.  
  29. *       *********************************************************
  30. *       *                                                         
  31. *       *                      Menu Definition                    
  32. *       *                                                         
  33. *       *********************************************************
  34. *
  35.  
  36. SET SYSMENU TO
  37.  
  38. SET SYSMENU AUTOMATIC
  39.  
  40. DEFINE PAD _msm_file OF _MSYSMENU PROMPT "\<File" COLOR SCHEME 3 ;
  41.     KEY ALT+F, "" ;
  42.     MESSAGE "Create, open, save, print files or quit FoxPro"
  43. DEFINE PAD _msm_edit OF _MSYSMENU PROMPT "\<Edit" COLOR SCHEME 3 ;
  44.     KEY ALT+E, "" ;
  45.     MESSAGE "Edit text or manipulate OLE objects"
  46. DEFINE PAD _qd015bc3a OF _MSYSMENU PROMPT "Fox\<Masters" COLOR SCHEME 3 ;
  47.     KEY ALT+M, "ALT+M"
  48. DEFINE PAD _msm_data OF _MSYSMENU PROMPT "\<Database" COLOR SCHEME 3 ;
  49.     KEY ALT+D, "" ;
  50.     MESSAGE "Perform operations on tables, print reports and labels"
  51. DEFINE PAD _msm_recrd OF _MSYSMENU PROMPT "\<Record" COLOR SCHEME 3 ;
  52.     KEY ALT+R, "" ;
  53.     MESSAGE "Perform operations on records in active table"
  54. DEFINE PAD _msm_prog OF _MSYSMENU PROMPT "\<Program" COLOR SCHEME 3 ;
  55.     KEY ALT+P, "" ;
  56.     MESSAGE "Debug, run, compile, generate and document programs"
  57. DEFINE PAD _msm_windo OF _MSYSMENU PROMPT "\<Window" COLOR SCHEME 3 ;
  58.     KEY ALT+W, "" ;
  59.     MESSAGE "Manipulate windows, display Command and View windows"
  60. DEFINE PAD _msm_systm OF _MSYSMENU PROMPT "\<Help" COLOR SCHEME 3 ;
  61.     KEY ALT+H, "" ;
  62.     MESSAGE "Access information for learning and using FoxPro"
  63. ON PAD _msm_file OF _MSYSMENU ACTIVATE POPUP _mfile
  64. ON PAD _msm_edit OF _MSYSMENU ACTIVATE POPUP _medit
  65. ON PAD _qd015bc3a OF _MSYSMENU ACTIVATE POPUP foxmasters
  66. ON PAD _msm_data OF _MSYSMENU ACTIVATE POPUP _mdata
  67. ON PAD _msm_recrd OF _MSYSMENU ACTIVATE POPUP _mrecord
  68. ON PAD _msm_prog OF _MSYSMENU ACTIVATE POPUP _mprog
  69. ON PAD _msm_windo OF _MSYSMENU ACTIVATE POPUP _mwindow
  70. ON PAD _msm_systm OF _MSYSMENU ACTIVATE POPUP _msystem
  71.  
  72. DEFINE POPUP _mfile MARGIN RELATIVE SHADOW COLOR SCHEME 4
  73. DEFINE BAR _mfi_new OF _mfile PROMPT "\<New..." ;
  74.     MESSAGE "Create a new file"
  75. DEFINE BAR _mfi_open OF _mfile PROMPT "\<Open..." ;
  76.     MESSAGE "Open an existing file"
  77. DEFINE BAR _mfi_close OF _mfile PROMPT "\<Close" ;
  78.     MESSAGE "Close the frontmost file"
  79. DEFINE BAR _mfi_clall OF _mfile PROMPT "Close All" ;
  80.     MESSAGE "Close all files"
  81. DEFINE BAR _mfi_sp100 OF _mfile PROMPT "\-"
  82. DEFINE BAR _mfi_save OF _mfile PROMPT "\<Save" ;
  83.     MESSAGE "Save the current file"
  84. DEFINE BAR _mfi_savas OF _mfile PROMPT "Sa\<ve As..." ;
  85.     MESSAGE "Save the current file with a new name"
  86. DEFINE BAR _mfi_revrt OF _mfile PROMPT "\<Revert" ;
  87.     MESSAGE "Revert to last saved version of file"
  88. DEFINE BAR _mfi_sp200 OF _mfile PROMPT "\-"
  89. DEFINE BAR _mfi_setup OF _mfile PROMPT "Pr\<int Setup..." ;
  90.     MESSAGE "Specify printer and print options"
  91. DEFINE BAR _mfi_print OF _mfile PROMPT "\<Print..." ;
  92.     MESSAGE "Print text file, contents of the Command window or clipboard"
  93. DEFINE BAR _mfi_sp300 OF _mfile PROMPT "\-"
  94. DEFINE BAR _mfi_quit OF _mfile PROMPT "E\<xit" ;
  95.     MESSAGE "Exit FoxPro"
  96.  
  97. DEFINE POPUP _medit MARGIN RELATIVE SHADOW COLOR SCHEME 4
  98. DEFINE BAR _med_undo OF _medit PROMPT "\<Undo" ;
  99.     KEY CTRL+Z, "Ctrl+Z" ;
  100.     MESSAGE "Reverse the most recent edit action"
  101. DEFINE BAR _med_redo OF _medit PROMPT "\<Redo" ;
  102.     KEY CTRL+R, "Ctrl+R" ;
  103.     MESSAGE "Repeat the action previously reversed with Undo"
  104. DEFINE BAR _med_sp100 OF _medit PROMPT "\-"
  105. DEFINE BAR _med_cut OF _medit PROMPT "Cu\<t" ;
  106.     KEY CTRL+X, "Ctrl+X" ;
  107.     MESSAGE "Remove selection and put it on the clipboard"
  108. DEFINE BAR _med_copy OF _medit PROMPT "\<Copy" ;
  109.     KEY CTRL+C, "Ctrl+C" ;
  110.     MESSAGE "Copy selection and put it on the clipboard"
  111. DEFINE BAR _med_paste OF _medit PROMPT "\<Paste" ;
  112.     KEY CTRL+V, "Ctrl+V" ;
  113.     MESSAGE "Paste contents of the clipboard at the insertion point"
  114. DEFINE BAR _med_pstlk OF _medit PROMPT "Paste \<Special..." ;
  115.     MESSAGE "Establish link to copied data"
  116. DEFINE BAR _med_clear OF _medit PROMPT "Clear" ;
  117.     MESSAGE "Erase selection"
  118. DEFINE BAR _med_sp200 OF _medit PROMPT "\-"
  119. DEFINE BAR _med_insob OF _medit PROMPT "\<Insert Object..." ;
  120.     MESSAGE "Embed an object into a general field"
  121. DEFINE BAR _med_obj OF _medit PROMPT "\<Object..." ;
  122.     MESSAGE "Activate OLE object"
  123. DEFINE BAR _med_link OF _medit PROMPT "Change Lin\<k..." ;
  124.     MESSAGE "View or update object link"
  125. DEFINE BAR _med_cvtst OF _medit PROMPT "Con\<vert To Static" ;
  126.     MESSAGE "Turn linked or embedded object into static picture"
  127. DEFINE BAR _med_sp300 OF _medit PROMPT "\-"
  128. DEFINE BAR _med_slcta OF _medit PROMPT "Select \<All" ;
  129.     KEY CTRL+A, "Ctrl+A" ;
  130.     MESSAGE "Select all lines of text or objects in current window"
  131. DEFINE BAR _med_sp400 OF _medit PROMPT "\-"
  132. DEFINE BAR _med_goto OF _medit PROMPT "Goto \<Line..." ;
  133.     MESSAGE "Move cursor to designated line number"
  134. DEFINE BAR _med_find OF _medit PROMPT "\<Find..." ;
  135.     KEY CTRL+F, "Ctrl+F" ;
  136.     MESSAGE "Search for text"
  137. DEFINE BAR _med_finda OF _medit PROMPT "Find A\<gain" ;
  138.     KEY CTRL+G, "Ctrl+G" ;
  139.     MESSAGE "Repeat the last text search"
  140. DEFINE BAR _med_repl OF _medit PROMPT "R\<eplace And Find Again" ;
  141.     KEY CTRL+E, "Ctrl+E" ;
  142.     MESSAGE "Replace text and continue search"
  143. DEFINE BAR _med_repla OF _medit PROMPT "Replace All" ;
  144.     MESSAGE "Replace all occurrences of the specified text"
  145. DEFINE BAR _med_sp500 OF _medit PROMPT "\-"
  146. DEFINE BAR _med_pref OF _medit PROMPT "Prefere\<nces..." ;
  147.     MESSAGE "Establish edit settings"
  148.  
  149. DEFINE POPUP foxmasters MARGIN RELATIVE SHADOW COLOR SCHEME 4
  150. DEFINE BAR 1 OF foxmasters PROMPT "\<Table of Contents"
  151. DEFINE BAR 2 OF foxmasters PROMPT "\<Editorial"
  152. DEFINE BAR 3 OF foxmasters PROMPT "E\<ntertainment"
  153. DEFINE BAR 4 OF foxmasters PROMPT "About Fox\<Masters"
  154. DEFINE BAR 5 OF foxmasters PROMPT "FM \<Setup"
  155. DEFINE BAR 6 OF foxmasters PROMPT "\<Unload"
  156. ON SELECTION BAR 1 OF foxmasters ;
  157.     DO _qd015bdcv ;
  158.     IN LOCFILE("E:\WINFM\FPWMENU" ,"MPX;MPR|FXP;PRG" ,"Where is FPWMENU?")
  159. ON SELECTION BAR 2 OF foxmasters ;
  160.     DO _qd015bdf1 ;
  161.     IN LOCFILE("E:\WINFM\FPWMENU" ,"MPX;MPR|FXP;PRG" ,"Where is FPWMENU?")
  162. ON BAR 3 OF foxmasters ACTIVATE POPUP entertainm
  163. ON BAR 4 OF foxmasters ACTIVATE POPUP aboutfoxma
  164. ON BAR 5 OF foxmasters ACTIVATE POPUP fmsetup
  165. ON BAR 6 OF foxmasters ACTIVATE POPUP unload
  166.  
  167. DEFINE POPUP entertainm MARGIN RELATIVE SHADOW COLOR SCHEME 4
  168. DEFINE BAR 1 OF entertainm PROMPT "POPTRIS"
  169. ON SELECTION BAR 1 OF entertainm ;
  170.     DO _qd015bdlw ;
  171.     IN LOCFILE("E:\WINFM\FPWMENU" ,"MPX;MPR|FXP;PRG" ,"Where is FPWMENU?")
  172.  
  173. DEFINE POPUP aboutfoxma MARGIN RELATIVE SHADOW COLOR SCHEME 4
  174. DEFINE BAR 1 OF aboutfoxma PROMPT "Subscription Information"
  175. DEFINE BAR 2 OF aboutfoxma PROMPT "Writer's Guidelines"
  176. DEFINE BAR 3 OF aboutfoxma PROMPT "Masthead Information"
  177. ON SELECTION BAR 1 OF aboutfoxma ;
  178.     DO _qd015bdsn ;
  179.     IN LOCFILE("E:\WINFM\FPWMENU" ,"MPX;MPR|FXP;PRG" ,"Where is FPWMENU?")
  180. ON SELECTION BAR 2 OF aboutfoxma ;
  181.     DO _qd015bdul ;
  182.     IN LOCFILE("E:\WINFM\FPWMENU" ,"MPX;MPR|FXP;PRG" ,"Where is FPWMENU?")
  183. ON SELECTION BAR 3 OF aboutfoxma ;
  184.     DO _qd015bdwm ;
  185.     IN LOCFILE("E:\WINFM\FPWMENU" ,"MPX;MPR|FXP;PRG" ,"Where is FPWMENU?")
  186.  
  187. DEFINE POPUP fmsetup MARGIN RELATIVE SHADOW COLOR SCHEME 4
  188. DEFINE BAR 1 OF fmsetup PROMPT "\<Select Issue Date"
  189. DEFINE BAR 2 OF fmsetup PROMPT "\<Auto Menu Activation"
  190. ON SELECTION BAR 1 OF fmsetup ;
  191.     DO _qd015be2s ;
  192.     IN LOCFILE("E:\WINFM\FPWMENU" ,"MPX;MPR|FXP;PRG" ,"Where is FPWMENU?")
  193. ON SELECTION BAR 2 OF fmsetup ;
  194.     DO _qd015be4p ;
  195.     IN LOCFILE("E:\WINFM\FPWMENU" ,"MPX;MPR|FXP;PRG" ,"Where is FPWMENU?")
  196.  
  197. DEFINE POPUP unload MARGIN RELATIVE SHADOW COLOR SCHEME 4
  198. DEFINE BAR 1 OF unload PROMPT "\<Unload FM From Memory"
  199. DEFINE BAR 2 OF unload PROMPT "\<Delete FM Articles"
  200. ON SELECTION BAR 1 OF unload ;
  201.     DO _qd015beav ;
  202.     IN LOCFILE("E:\WINFM\FPWMENU" ,"MPX;MPR|FXP;PRG" ,"Where is FPWMENU?")
  203. ON SELECTION BAR 2 OF unload do remove
  204.  
  205. DEFINE POPUP _mdata MARGIN RELATIVE SHADOW COLOR SCHEME 4
  206. DEFINE BAR _mda_setup OF _mdata PROMPT "Set\<up..." ;
  207.     MESSAGE "Establish settings for table in the current work area"
  208. DEFINE BAR _mda_brow OF _mdata PROMPT "\<Browse" ;
  209.     MESSAGE "Examine and/or edit active table"
  210. DEFINE BAR _mda_sp100 OF _mdata PROMPT "\-"
  211. DEFINE BAR _mda_appnd OF _mdata PROMPT "\<Append From..." ;
  212.     MESSAGE "Add records from another table"
  213. DEFINE BAR _mda_copy OF _mdata PROMPT "\<Copy To..." ;
  214.     MESSAGE "Copy contents of a table to a new file"
  215. DEFINE BAR _mda_sort OF _mdata PROMPT "\<Sort..." ;
  216.     MESSAGE "Sort a table"
  217. DEFINE BAR _mda_total OF _mdata PROMPT "\<Total..." ;
  218.     MESSAGE "Compute totals for numeric fields"
  219. DEFINE BAR _mda_sp200 OF _mdata PROMPT "\-"
  220. DEFINE BAR _mda_avg OF _mdata PROMPT "A\<verage..." ;
  221.     MESSAGE "Compute the average for numeric fields"
  222. DEFINE BAR _mda_count OF _mdata PROMPT "C\<ount..." ;
  223.     MESSAGE "Count the number of table records"
  224. DEFINE BAR _mda_sum OF _mdata PROMPT "Su\<m..." ;
  225.     MESSAGE "Calculate the sum of numeric fields"
  226. DEFINE BAR _mda_calc OF _mdata PROMPT "Calculat\<e..." ;
  227.     MESSAGE "Perform statistical operations"
  228. DEFINE BAR _mda_reprt OF _mdata PROMPT "\<Report..." ;
  229.     MESSAGE "Display and print reports"
  230. DEFINE BAR _mda_label OF _mdata PROMPT "\<Label..." ;
  231.     MESSAGE "Display and print labels"
  232. DEFINE BAR _mda_sp300 OF _mdata PROMPT "\-"
  233. DEFINE BAR _mda_pack OF _mdata PROMPT "\<Pack" ;
  234.     MESSAGE "Permanently remove records marked for deletion"
  235. DEFINE BAR _mda_rindx OF _mdata PROMPT "Reinde\<x" ;
  236.     MESSAGE "Rebuild active index files"
  237.  
  238. DEFINE POPUP _mrecord MARGIN RELATIVE SHADOW COLOR SCHEME 4
  239. DEFINE BAR _mrc_appnd OF _mrecord PROMPT "\<Append" ;
  240.     MESSAGE "Add a new record"
  241. DEFINE BAR _mrc_chnge OF _mrecord PROMPT "Chang\<e" ;
  242.     MESSAGE "Edit table records"
  243. DEFINE BAR _mrc_sp100 OF _mrecord PROMPT "\-"
  244. DEFINE BAR _mrc_goto OF _mrecord PROMPT "\<Goto..." ;
  245.     MESSAGE "Go to a specific record"
  246. DEFINE BAR _mrc_locat OF _mrecord PROMPT "\<Locate..." ;
  247.     MESSAGE "Look for the record that matches a specified condition"
  248. DEFINE BAR _mrc_cont OF _mrecord PROMPT "\<Continue" ;
  249.     KEY CTRL+K, "Ctrl+K" ;
  250.     MESSAGE "Continue to locate records"
  251. DEFINE BAR _mrc_seek OF _mrecord PROMPT "\<Seek..." ;
  252.     MESSAGE "Search an indexed table"
  253. DEFINE BAR _mrc_sp200 OF _mrecord PROMPT "\-"
  254. DEFINE BAR _mrc_repl OF _mrecord PROMPT "Re\<place..." ;
  255.     MESSAGE "Update field information in a table"
  256. DEFINE BAR _mrc_delet OF _mrecord PROMPT "\<Delete..." ;
  257.     MESSAGE "Mark records for deletion"
  258. DEFINE BAR _mrc_recal OF _mrecord PROMPT "\<Recall..." ;
  259.     MESSAGE "Unmark records that are marked for deletion"
  260.  
  261. DEFINE POPUP _mprog MARGIN RELATIVE SHADOW COLOR SCHEME 4
  262. DEFINE BAR _mpr_do OF _mprog PROMPT "\<Do..." ;
  263.     KEY CTRL+D, "Ctrl+D" ;
  264.     MESSAGE "Run a program"
  265. DEFINE BAR _mpr_cancl OF _mprog PROMPT "\<Cancel" ;
  266.     MESSAGE "Stop running a program"
  267. DEFINE BAR _mpr_resum OF _mprog PROMPT "\<Resume" ;
  268.     KEY CTRL+M, "Ctrl+M" ;
  269.     MESSAGE "Resume suspended program"
  270. DEFINE BAR _mpr_sp100 OF _mprog PROMPT "\-"
  271. DEFINE BAR _mwi_debug OF _mprog PROMPT "De\<bug" ;
  272.     MESSAGE "Display Debug window"
  273. DEFINE BAR _mwi_trace OF _mprog PROMPT "\<Trace" ;
  274.     MESSAGE "Display Trace window"
  275. DEFINE BAR _mpr_sp200 OF _mprog PROMPT "\-"
  276. DEFINE BAR _mpr_compl OF _mprog PROMPT "Co\<mpile..." ;
  277.     MESSAGE "Compile specified program"
  278. DEFINE BAR _mpr_gener OF _mprog PROMPT "Ge\<nerate..." ;
  279.     MESSAGE "Generate code for screens or menus"
  280. DEFINE BAR _mst_macro OF _mprog PROMPT "M\<acros..." ;
  281.     MESSAGE "Define custom keyboard shortcuts"
  282. DEFINE BAR _mpr_sp300 OF _mprog PROMPT "\-"
  283. DEFINE BAR _mpr_beaut OF _mprog PROMPT "Beauti\<fy..." ;
  284.     MESSAGE "Beautify a program"
  285. DEFINE BAR _mpr_docum OF _mprog PROMPT "Fo\<xDoc" ;
  286.     MESSAGE "Document programs"
  287.  
  288. DEFINE POPUP _mwindow MARGIN RELATIVE SHADOW COLOR SCHEME 4
  289. DEFINE BAR _mwi_hide OF _mwindow PROMPT "\<Hide" ;
  290.     MESSAGE "Remove active window from sight"
  291. DEFINE BAR _mwi_hidea OF _mwindow PROMPT "Hide All" ;
  292.     MESSAGE "Remove all windows from sight"
  293. DEFINE BAR _mwi_showa OF _mwindow PROMPT "Sh\<ow All" ;
  294.     MESSAGE "Show all hidden windows"
  295. DEFINE BAR _mwi_clear OF _mwindow PROMPT "Clea\<r" ;
  296.     MESSAGE "Clear current output window"
  297. DEFINE BAR _mwi_rotat OF _mwindow PROMPT "\<Cycle" ;
  298.     KEY CTRL+F1, "Ctrl+F1" ;
  299.     MESSAGE "Rearrange open windows to bring successive ones forward"
  300. DEFINE BAR _mwi_sp100 OF _mwindow PROMPT "\-"
  301. DEFINE BAR _mwi_cmd OF _mwindow PROMPT "Co\<mmand" ;
  302.     KEY CTRL+F2, "Ctrl+F2" ;
  303.     MESSAGE "Display Command window"
  304. DEFINE BAR _mwi_view OF _mwindow PROMPT "\<View" ;
  305.     MESSAGE "Display the View window"
  306.  
  307. DEFINE POPUP _msystem MARGIN RELATIVE SHADOW COLOR SCHEME 4
  308. DEFINE BAR _mst_help OF _msystem PROMPT "\<Contents" ;
  309.     KEY F1, "" ;
  310.     MESSAGE "Display help contents"
  311. DEFINE BAR _mst_hpsch OF _msystem PROMPT "\<Search for Help on..." ;
  312.     MESSAGE "Search for help topic by typing or selecting a keyword"
  313. DEFINE BAR _mst_hphow OF _msystem PROMPT "\<How to Use Help" ;
  314.     MESSAGE "Display instructions for using help"
  315. DEFINE BAR _mst_sp100 OF _msystem PROMPT "\-"
  316. DEFINE BAR _mst_about OF _msystem PROMPT "\<About FoxPro..." ;
  317.     MESSAGE "Display information about FoxPro and the system configuration"
  318. DEFINE BAR _mst_sp200 OF _msystem PROMPT "\-"
  319. DEFINE BAR _mst_calcu OF _msystem PROMPT "Ca\<lculator" ;
  320.     MESSAGE "Perform calculations"
  321. DEFINE BAR _mst_diary OF _msystem PROMPT "Calendar/D\<iary" ;
  322.     MESSAGE "Check dates and keep track of appointments"
  323. DEFINE BAR _mst_filer OF _msystem PROMPT "\<Filer" ;
  324.     MESSAGE "Manage files and directories"
  325. DEFINE BAR _mst_puzzl OF _msystem PROMPT "Pu\<zzle" ;
  326.     MESSAGE "Solve a puzzle"
  327.  
  328.  
  329. *       *********************************************************
  330. *       *                                                         
  331. *       *                 Cleanup Code & Procedures               
  332. *       *                                                         
  333. *       *********************************************************
  334. *
  335.  
  336. IF m.talkstat =  "ON"
  337.    set talk on
  338. ENDIF
  339.  
  340.  
  341.  
  342. *       *********************************************************
  343. *       *                                                         
  344. *       * _QD015BDCV  ON SELECTION BAR 1 OF POPUP foxmasters      
  345. *       *                                                         
  346. *       * Procedure Origin:                                       
  347. *       *                                                         
  348. *       * From Menu:  FPWMENU.MPR,            Record:   45        
  349. *       * Called By:  ON SELECTION BAR 1 OF POPUP foxmasters      
  350. *       * Prompt:     Table of Contents                           
  351. *       * Snippet:    1                                           
  352. *       *                                                         
  353. *       *********************************************************
  354. *
  355. PROCEDURE _qd015bdcv
  356. PRIVATE fm_homedir, m.all, artloc
  357.  
  358.  FM_HOMEDIR = fm_locat()
  359.  
  360. IF RIGHT(TRIM(fm_homedir),1) <>"\"
  361.  fm_homedir = TRIM(fm_homedir) +"\"
  362. endif
  363.  
  364.  =sb_selec(fm_homedir,"FM_SETUP")
  365.  m.issue = fm_setup.issuedate
  366.  IF NOT "ALL" $ m.issue
  367.    m.all = .t.
  368.  ELSE
  369.    m.all = .f.
  370.  ENDIF
  371.  select 0
  372.  artloc = rtslash(fm_homedir)
  373.  ARTLOC =     artloc +"ARTICLES.DBF"
  374.  if file(artloc)
  375.     =sb_selec(fm_homedir,"ARTICLES")
  376.     if not all
  377.       set order to tag titles
  378.     else
  379.     set order to tag ftitles
  380.    endif
  381.  
  382.   *  go top
  383.  
  384.   do art.prg
  385.  
  386.  ELSE
  387.  WAIT WIND "The file ARTICLES.DBF is not found"
  388.  
  389.  ENDIF
  390.  RETURN
  391.  
  392.  
  393.  
  394. *       *********************************************************
  395. *       *                                                         
  396. *       * _QD015BDF1  ON SELECTION BAR 2 OF POPUP foxmasters      
  397. *       *                                                         
  398. *       * Procedure Origin:                                       
  399. *       *                                                         
  400. *       * From Menu:  FPWMENU.MPR,            Record:   46        
  401. *       * Called By:  ON SELECTION BAR 2 OF POPUP foxmasters      
  402. *       * Prompt:     Editorial                                   
  403. *       * Snippet:    2                                           
  404. *       *                                                         
  405. *       *********************************************************
  406. *
  407. PROCEDURE _qd015bdf1
  408. PRIVATE fm_homedir
  409. SET TALK OFF
  410.  
  411. FM_HOMEDIR = fm_locat()
  412. IF RIGHT(TRIM(fm_homedir),1) <>"\"
  413.  fm_homedir = TRIM(fm_homedir) +"\"
  414. endif
  415. editname = FM_homedir +"EDITORIA.TXT"
  416. IF FILE(editname)
  417.  
  418.  
  419.  
  420.   IF NOT WEXIST("EDITORIA")
  421.     DEFINE WINDOW EDITORIA ;
  422.         FROM INT((SROW()-17)/2),INT((SCOL()-61)/2) ;
  423.         TO INT((SROW()-17)/2)+12,INT((SCOL()-61)/2)+58 ;
  424.         FLOAT ;
  425.         CLOSE ;
  426.         GROW ;
  427.         SHADOW ;
  428.         MINIMIZE ;
  429.         SYSTEM ;
  430.         ZOOM ;
  431.         COLOR SCHEME 8;
  432.         TITLE "EDITORIAL VOL 2 NUM 0"
  433. ENDIF
  434.  
  435. MODI FILE &editname NOEDIT wind EDITORIA SAVE
  436. USE
  437. RELEASE WIND EDITORIA
  438.  
  439.  
  440. ELSE
  441.  
  442. WAIT WIND "EDITORIAL NOT AVAILABLE"
  443.  
  444. ENDIF FILE EDITORIA.txt
  445.  
  446.  
  447. *       *********************************************************
  448. *       *                                                         
  449. *       * _QD015BDLW  ON SELECTION BAR 1 OF POPUP entertainm      
  450. *       *                                                         
  451. *       * Procedure Origin:                                       
  452. *       *                                                         
  453. *       * From Menu:  FPWMENU.MPR,            Record:   49        
  454. *       * Called By:  ON SELECTION BAR 1 OF POPUP entertainm      
  455. *       * Prompt:     POPTRIS                                     
  456. *       * Snippet:    3                                           
  457. *       *                                                         
  458. *       *********************************************************
  459. *
  460. PROCEDURE _qd015bdlw
  461. IF SET("TALK") = "ON"
  462.     SET TALK OFF
  463.     m.talkstat = "ON"
  464. ELSE
  465.     m.talkstat = "OFF"
  466. ENDIF
  467.  
  468. PRIVATE fm_homedir
  469.  
  470.  FM_HOMEDIR = fm_locat()
  471. IF RIGHT(TRIM(fm_homedir),1) <>"\"
  472.  fm_homedir = TRIM(fm_homedir) +"\"
  473. endif
  474. DO POPTRIS
  475.  
  476.  
  477. *       *********************************************************
  478. *       *                                                         
  479. *       * _QD015BDSN  ON SELECTION BAR 1 OF POPUP aboutfoxma      
  480. *       *                                                         
  481. *       * Procedure Origin:                                       
  482. *       *                                                         
  483. *       * From Menu:  FPWMENU.MPR,            Record:   52        
  484. *       * Called By:  ON SELECTION BAR 1 OF POPUP aboutfoxma      
  485. *       * Prompt:     Subscription Information                    
  486. *       * Snippet:    4                                           
  487. *       *                                                         
  488. *       *********************************************************
  489. *
  490. PROCEDURE _qd015bdsn
  491. PRIVATE fm_homedir
  492. SET TALK OFF
  493.  
  494. FM_HOMEDIR = fm_locat()
  495. IF RIGHT(TRIM(fm_homedir),1) <>"\"
  496.  fm_homedir = TRIM(fm_homedir) +"\"
  497. endif
  498. editname = FM_homedir +"SUBSCRIPT.TXT"
  499. IF FILE(editname)
  500.  
  501.  
  502.  
  503.   IF NOT WEXIST("SUBSCRIPT")
  504.     DEFINE WINDOW SUBSCRIPT ;
  505.         FROM INT((SROW()-17)/2),INT((SCOL()-61)/2) ;
  506.         TO INT((SROW()-17)/2)+12,INT((SCOL()-61)/2)+58 ;
  507.         FLOAT ;
  508.         CLOSE ;
  509.         GROW ;
  510.         SHADOW ;
  511.         MINIMIZE ;
  512.         SYSTEM ;
  513.         ZOOM ;
  514.         COLOR SCHEME 8;
  515.         TITLE "SUBSCRIPTION INFORMATION"
  516. ENDIF
  517.  
  518. MODI FILE &editname NOEDIT wind subscript SAVE
  519. USE
  520. RELEASE WIND SUBSCRIPT
  521.  
  522.  
  523. ELSE
  524.  
  525. WAIT WIND "SUBSCRIPTION INFORMATION NOT AVAILABLE"
  526.  
  527. ENDIF FILE subscript.txt
  528.  
  529.  
  530. *       *********************************************************
  531. *       *                                                         
  532. *       * _QD015BDUL  ON SELECTION BAR 2 OF POPUP aboutfoxma      
  533. *       *                                                         
  534. *       * Procedure Origin:                                       
  535. *       *                                                         
  536. *       * From Menu:  FPWMENU.MPR,            Record:   53        
  537. *       * Called By:  ON SELECTION BAR 2 OF POPUP aboutfoxma      
  538. *       * Prompt:     Writer's Guidelines                         
  539. *       * Snippet:    5                                           
  540. *       *                                                         
  541. *       *********************************************************
  542. *
  543. PROCEDURE _qd015bdul
  544. SET TALK OFF
  545. PRIVATE fm_homedir
  546.  
  547.  FM_HOMEDIR = fm_locat()
  548.  
  549. IF RIGHT(TRIM(fm_homedir),1) <>"\"
  550.  fm_homedir = TRIM(fm_homedir) +"\"
  551. endif
  552.  
  553. editname = fm_homedir +"guide.txt"
  554. IF FILE(editname)
  555.  
  556.   IF NOT WEXIST("GUIDELINE")
  557.     DEFINE WINDOW GUIDELINE ;
  558.         FROM INT((SROW()-14)/2),INT((SCOL()-60)/2) ;
  559.         TO INT((SROW()-14)/2)+12,INT((SCOL()-60)/2)+58 ;
  560.         FLOAT ;
  561.         CLOSE ;
  562.         GROW ;
  563.         SHADOW ;
  564.         MINIMIZE ;
  565.         SYSTEM ;
  566.         ZOOM ;
  567.         COLOR SCHEME 8;
  568.         TITLE "Writers Guidelines"
  569. ENDIF
  570.  
  571.  
  572. MODI file &editname  NOEDIT  wind GUIDELINE  SAVE
  573. USE
  574. RELEASE WIND GUIDELINE
  575.  
  576.  
  577. ELSE
  578.  
  579. WAIT WIND "WRITERS GUIDELINES NOT AVAILABLE"
  580.  
  581. ENDIF  &&FILE guide.txt
  582.  
  583.  
  584. *       *********************************************************
  585. *       *                                                         
  586. *       * _QD015BDWM  ON SELECTION BAR 3 OF POPUP aboutfoxma      
  587. *       *                                                         
  588. *       * Procedure Origin:                                       
  589. *       *                                                         
  590. *       * From Menu:  FPWMENU.MPR,            Record:   54        
  591. *       * Called By:  ON SELECTION BAR 3 OF POPUP aboutfoxma      
  592. *       * Prompt:     Masthead Information                        
  593. *       * Snippet:    6                                           
  594. *       *                                                         
  595. *       *********************************************************
  596. *
  597. PROCEDURE _qd015bdwm
  598. SET TALK OFF
  599. PRIVATE fm_homedir
  600.  
  601.  FM_HOMEDIR = fm_locat()
  602.  
  603. IF RIGHT(TRIM(fm_homedir),1) <>"\"
  604.  fm_homedir = TRIM(fm_homedir) +"\"
  605. endif
  606.  
  607. editname = fm_homedir +"INFO.TXT"
  608. IF FILE(editname)
  609.  
  610.  
  611.  
  612.   IF NOT WEXIST("INFO")
  613.     DEFINE WINDOW INFO ;
  614.         FROM INT((SROW()-17)/2),INT((SCOL()-61)/2) ;
  615.         TO INT((SROW()-17)/2)+12,INT((SCOL()-61)/2)+58 ;
  616.         FLOAT ;
  617.         CLOSE ;
  618.         GROW ;
  619.         SHADOW ;
  620.         MINIMIZE ;
  621.         SYSTEM ;
  622.         ZOOM ;
  623.         COLOR SCHEME 8;
  624.         TITLE "MASTHEAD INFORMATION"
  625. ENDIF
  626.  
  627. MODI FILE &editname NOEDIT wind INFO SAVE
  628. USE
  629. RELEASE WIND INFO
  630.  
  631.  
  632. ELSE
  633.  
  634. WAIT WIND "MASTHEAD INFORMATION NOT AVAILABLE"
  635.  
  636. ENDIF FILE INFO.txt
  637.  
  638.  
  639. *       *********************************************************
  640. *       *                                                         
  641. *       * _QD015BE2S  ON SELECTION BAR 1 OF POPUP fmsetup         
  642. *       *                                                         
  643. *       * Procedure Origin:                                       
  644. *       *                                                         
  645. *       * From Menu:  FPWMENU.MPR,            Record:   57        
  646. *       * Called By:  ON SELECTION BAR 1 OF POPUP fmsetup         
  647. *       * Prompt:     Select Issue Date                           
  648. *       * Snippet:    7                                           
  649. *       *                                                         
  650. *       *********************************************************
  651. *
  652. PROCEDURE _qd015be2s
  653. =fm_locat()
  654. do setup.prg
  655.  
  656.  
  657. *       *********************************************************
  658. *       *                                                         
  659. *       * _QD015BE4P  ON SELECTION BAR 2 OF POPUP fmsetup         
  660. *       *                                                         
  661. *       * Procedure Origin:                                       
  662. *       *                                                         
  663. *       * From Menu:  FPWMENU.MPR,            Record:   58        
  664. *       * Called By:  ON SELECTION BAR 2 OF POPUP fmsetup         
  665. *       * Prompt:     Auto Menu Activation                        
  666. *       * Snippet:    8                                           
  667. *       *                                                         
  668. *       *********************************************************
  669. *
  670. PROCEDURE _qd015be4p
  671. lresult = sb_getyn("Automatically Activate FoxMasters Menu?")
  672. =fm_locat()
  673. =sb_selec(fm_base,"fm_setup")
  674. if lresult
  675.  replace fm_setup.popup with .t.
  676. else
  677.  replace fm_setup.popup with .f.
  678. endif
  679.  
  680.  
  681. *       *********************************************************
  682. *       *                                                         
  683. *       * _QD015BEAV  ON SELECTION BAR 1 OF POPUP unload          
  684. *       *                                                         
  685. *       * Procedure Origin:                                       
  686. *       *                                                         
  687. *       * From Menu:  FPWMENU.MPR,            Record:   61        
  688. *       * Called By:  ON SELECTION BAR 1 OF POPUP unload          
  689. *       * Prompt:     Unload FM From Memory                       
  690. *       * Snippet:    9                                           
  691. *       *                                                         
  692. *       *********************************************************
  693. *
  694. PROCEDURE _qd015beav
  695. SET TALK OFF
  696. =fm_locat()
  697. if sb_getyn("DO YOU WISH TO UNLOAD FoxMasters?")
  698. __first = .T.
  699.  
  700. *foxdir = SYS(2004)
  701. *oldpath = SET("PATH")
  702. *fmdir = foxdir+"FM;"
  703.  
  704.  CLEAR
  705.  SET SYSMENU TO DEFAULT
  706.  = SYS(2017)  && restore original signon screen
  707.  
  708.  
  709. ENDIF
  710. RETURN
  711. FUNCTION FM_SETUP
  712. clear all
  713. public __first, foxdir, fmdir, oldpath, homeresourse, m.talkstat, ;
  714.        issuedate, homedir, fm_base
  715. private editname
  716.  
  717.       ON KEY LABEL ALT-F2 DO D:\FOX2\SPY_CAM with "SWAP", "ALT-F2", ;
  718.                "HELP", SYS(12), SYS(23), SYS(24), SYS(1001),  ;
  719.                SYS(1016), PROGRAM(), LINENO(), ALIAS(), RECNO(), ;
  720.                ORDER()
  721.  
  722.  
  723.  
  724.  
  725. *ON ERROR DO errorhandler WITH MESSAGE(),LINENO()
  726. IF SET("TALK") = "ON"
  727.     SET TALK OFF
  728.     m.talkstat = "ON"
  729. ELSE
  730.     m.talkstat = "OFF"
  731. ENDIF
  732. set echo off
  733.  
  734. __first = .T.
  735. * get dbf locator file
  736. * SEE IF LOCATOR FILE EXISTS AND GET IT
  737. homedir = fm_locat()
  738.  
  739. * below incorporated in fm_locat()
  740. * IF IT DOESN'T LOOK BELOW FOX
  741. *if empty(homedir)
  742.  
  743. *  homedir = sys(2004)
  744. *  homedir = homedir+"FM"
  745.  
  746. *endif
  747. * SEE IF  HOMEDIR IS IN THE FOXPRO PATH STATEMENT
  748.  
  749. *=pathchec(homedir)
  750. if fm_setup.popup
  751. * activate the menu of foxmasters
  752.   KEYBOARD "{ALT+M}"
  753. endif
  754. RETURN
  755.