home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / data / dbas / 003 / menu.sc < prev    next >
Encoding:
Text File  |  1993-04-27  |  3.0 KB  |  49 lines
  1. ;**************************************************************************
  2. ;                   Dynamic Menu System                                   *
  3. ;                           by                                            *
  4. ;                   Andrew Cunningham                                     *
  5. ;                Manchester Business School                               *
  6. ;                                                                         *
  7. ;             Menu display routines developed by:-                        *
  8. ;             Harry Goldman, DataBase Designs Inc.                        *
  9. ;                                                                         *
  10. ;             Paradox script files:-                                      *
  11. ;     SY_MENU.SC    Dynamic menu routines by A.C.                         *
  12. ;     AU_UTILS.SC   Routines from GOLDUTIL2.SC by H.G., modified by A.C.  *
  13. ;     SY_MAKE.SC    Script to create library file                         *
  14. ;     MENU.SC       This file                                             *
  15. ;                                                                         *
  16. ;                                                                         *
  17. version.a="Version 1.3, Apr '93"
  18. ;**************************************************************************
  19. ;    Created March 1993.                                                  *
  20. ;    Last mod: 21 apr 1993  - all files  V1.2.1                           *
  21. ;    1. Corrected invalid directory error 22/4/93                          *
  22. ;    2. Corrected error due to system tables being read only 23/4/93
  23. ;    3. Added directory change on sub-menu call using script field to define
  24. ;       Corrected exit script to play on return from sub-menu.
  25. ;**************************************************************************
  26. menu_title="Timetable Generator" ; Title to appear on menu screen
  27. sys_path="c:\\timtbl\\"            ; Path to this software
  28. ;**************************************************************************
  29. ;                                                                         *
  30. ;        Check that initial menu table present - if not create it         *
  31. ;        in the current directory and then start the menu system.         *
  32. ;                                                                         *
  33. ;**************************************************************************
  34. TKLibName=sys_path+"sys_lib"
  35. readlib TKLibName menuheader.u,Menu.u,Menuctl.u,Message.u,checkprinter.l,
  36.                   checktbl.l,create_menu,Initheader.u,GetTblNames.u
  37. Initheader.u()
  38. canvas on
  39. if not istable("sys_menu") or not istable("sys_medt") then
  40.  readlib TKLibName Init_menu
  41.  Init_menu()        ; create inital menu table (sys_menu)
  42.  release procs Init_menu
  43. endif
  44. readlib TKLibName warnmsg,promptmsg,prompt_box,sho_form,sel_tilde,sho_menu,
  45. setmenu,sho_help,update_tbl_lst
  46. sho_menu()          ; display initial menu
  47. release procs all
  48. ;release vars all
  49.