home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / epmmac2.zip / TAGSACTN.E < prev    next >
Text File  |  1994-08-05  |  3KB  |  92 lines
  1. const
  2.    WANT_DYNAMIC_PROMPTS = 1
  3.    WANT_TAGS = 1  -- Force definition of menu prompts in ENGLISH.E.
  4. include 'stdconst.e'
  5. include 'english.e'
  6. include 'menuhelp.h'
  7.  
  8.  
  9. ; Here is the <file_name>_ACTIONLIST command that adds the action command
  10. ; to the list.
  11.  
  12. defc tagsactn_actionlist
  13.    universal ActionsList_FileID  -- This is the fileid that gets the line(s)
  14.  
  15.    insertline 'tags_dialog'TAGSDLG_MENUP__MSG'tagsactn', ActionsList_FileID.last+1, ActionsList_FileID
  16.    insertline 'find_cur_proc'FIND_TAG_MENUP__MSG'tagsactn', ActionsList_FileID.last+1, ActionsList_FileID
  17.    insertline 'find_proc'FIND_TAG2_MENUP__MSG'tagsactn', ActionsList_FileID.last+1, ActionsList_FileID
  18.    insertline 'tags_filename'TAGFILE_NAME_MENUP__MSG'tagsactn', ActionsList_FileID.last+1, ActionsList_FileID
  19.    insertline 'make_tags_file'MAKE_TAGS_MENUP__MSG'tagsactn', ActionsList_FileID.last+1, ActionsList_FileID
  20.  
  21. defc tags_dialog
  22.    if arg(1) = 'S' then       -- button Selected
  23.       sayerror 0
  24.       'poptagsdlg'
  25.    elseif arg(1) = 'I' then   -- button Initialized
  26.       display -8
  27.       sayerror substr(TAGSDLG_MENUP__MSG,2)
  28.       display 8
  29.    elseif arg(1) = 'H' then   -- button Help
  30.       'helpmenu' HP_SEARCH_TAGS
  31. ;; elseif arg(1) = 'E' then   -- button End
  32. ;;    sayerror 0
  33.    endif
  34.  
  35. defc find_cur_proc
  36.    if arg(1) = 'S' then       -- button Selected
  37.       sayerror 0
  38.       'findtag'
  39.    elseif arg(1) = 'I' then   -- button Initialized
  40.       display -8
  41.       sayerror substr(FIND_TAG_MENUP__MSG,2)
  42.       display 8
  43.    elseif arg(1) = 'H' then   -- button Help
  44.       'helpmenu' HP_SEARCH_TAGS
  45. ;; elseif arg(1) = 'E' then   -- button End
  46. ;;    sayerror 0
  47.    endif
  48.  
  49. defc find_proc
  50.    if arg(1) = 'S' then       -- button Selected
  51.       sayerror 0
  52.       'findtag *'
  53.    elseif arg(1) = 'I' then   -- button Initialized
  54.       display -8
  55.       sayerror substr(FIND_TAG2_MENUP__MSG,2)
  56.       display 8
  57.    elseif arg(1) = 'H' then   -- button Help
  58.       'helpmenu' HP_SEARCH_TAGS
  59. ;; elseif arg(1) = 'E' then   -- button End
  60. ;;    sayerror 0
  61.    endif
  62.  
  63. defc tags_filename
  64.    if arg(1) = 'S' then       -- button Selected
  65.       sayerror 0
  66.       'tagsfile'
  67.    elseif arg(1) = 'I' then   -- button Initialized
  68.       display -8
  69.       sayerror substr(TAGFILE_NAME_MENUP__MSG,2)
  70.       display 8
  71.    elseif arg(1) = 'H' then   -- button Help
  72.       'helpmenu' HP_SEARCH_TAGS
  73.    elseif arg(1) = 'E' then   -- button End
  74. ;;    sayerror 0
  75.    endif
  76.  
  77. defc make_tags_file
  78.    if arg(1) = 'S' then       -- button Selected
  79.       sayerror 0
  80.       'maketags *'
  81.    elseif arg(1) = 'I' then   -- button Initialized
  82.       display -8
  83.       sayerror substr(MAKE_TAGS_MENUP__MSG,2)
  84.       display 8
  85.    elseif arg(1) = 'H' then   -- button Help
  86.       'helpmenu' HP_SEARCH_TAGS
  87. ;; elseif arg(1) = 'E' then   -- button End
  88. ;;    sayerror 0
  89.    endif
  90.  
  91. EA_comment 'This is a toolbar "actions" file which lets you set buttons for the TAGS-file commands.'
  92.