home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / pmcstex.zip / install / pm_hilit / sampactn.e < prev    next >
Text File  |  1997-12-29  |  20KB  |  436 lines
  1. ; 23.6.1996 modified by Petr Mikulík, mikulik@physics.muni.cz
  2. ;   added support for: .f (fortran) file, .log (emTeX .log files) and
  3. ;   .tex, .latex, .sty, .cls, .dtx
  4. ; 29.12.1997: added support by epmkwds.ps for .ps, .eps and .pdx files
  5.  
  6. ; This is a Toolbar Actions file.  You add a line to your ACTIONS.LST:
  7. ;    sampactn
  8. ; to indicate that this should be invoked to build the list of defined
  9. ; actions when the user asks for a list (by selecting Create or Edit
  10. ; from the toolbar pop-up menu and clicking on the drop-down arrow
  11. ; on the Actions page).  EPM loads this .ex file and executes the
  12. ; command SAMPACTN_ACTIONLIST (it appends "_ACTIONLIST" to the name of the
  13. ; .ex file).  This command must be defined by the actions file to add
  14. ; a line to a file for each toolbar-definable action defined in the .ex
  15. ; file.
  16.  
  17. ; The line consists of the command to be executed, a description of the
  18. ; action, and the name of the .ex file, each separated by a delimiter
  19. ; (which is the first character on the line, and can be any character
  20. ; otherwise unused on that line; below, an ASCII 1 is used throughout).
  21. ; The description is used in the action page description field when
  22. ; you edit or create an item of the toolbar. It should explain both what
  23. ; the action does, and which parameters it expects.
  24. ; No space is wasted because the descriptions below
  25. ; are constants which are also used as button selection prompts.
  26.  
  27. ; The action commands (below, "a_messages", etc.) may be called with a
  28. ; parameter of "I" to indicate that the menu has been initialized (the user
  29. ; pressed MB1 down over this toolbar item, or pressed MB1 down over another
  30. ; toolbar item and dragged the mouse over this item, or pressed F10 to go to
  31. ; the action bar and scrolled to this toolbar item), "E" for a menu-end message,
  32. ; "H" for Help (user pressed F1), or "S" to indicate that the toolbar item
  33. ; has been selected.  The parameter might be followed by command parameters
  34. ; if the user entered any in the Parameters field of the Actions page.
  35.  
  36. ; Now, the executable portions of the file.  First, include some files to
  37. ; define constants that will be needed in this file (yours might not need them):
  38.  
  39. const
  40.    WANT_DYNAMIC_PROMPTS = 1  -- Force definition of menu prompts in ENGLISH.E.
  41. include 'stdconst.e'
  42. include 'english.e'
  43. include 'menuhelp.h'
  44.  
  45. ; Next, define some additional text constants (defined as separate constants
  46. ; instead of using the strings where needed in order to allow for easier NLS
  47. ; translation).
  48.  
  49. const
  50. ;  a_Messages_PROMPT = MESSAGES_MENUP__MSG  -- Defined in ENGLISH.E.  Starts with ASCII 1
  51.    a_Add_New__MSG = 'Add New'
  52.    a_Add_New_PROMPT = 'Add a new, .Untitled file to the ring'
  53.    a_Open_empty_PROMPT = \1'Open a new edit window containing .Untitled'
  54.    a_NewWindow_PROMPT = \1'Move current file to new edit window (saving changes, if any)'
  55. ;  a_Settings_PROMPT = CONFIG_MENUP__MSG
  56.    a_Time_PROMPT = \1'Display or type the time'
  57.    a_Time_PROMPT2= '.  Parameter = "?" to display, or "I" to insert into file.'
  58.    a_Date_PROMPT = \1'Display or type the date'
  59.    a_Date_PROMPT2= '.  Parameter = "?" to display, or "USA", "European", "Ordered" or "Normal" to insert into file.'
  60.    a_MonoFont_PROMPT = 'Change to a monospaced font, or back to the default font'
  61. ;  a_Shell_PROMPT = CREATE_SHELL_MENUP__MSG
  62.    a_Shell_PROMPT2 = '.  Optional parameter is command to be written to new shell window.'
  63. ;  a_List_Ring_PROMPT = LIST_FILES_MENUP__MSG
  64.    a_Toggle_Hilight__MSG = 'Keyword highlighting'
  65.    a_Toggle_Hilight_PROMPT = 'Toggle keyword highlighting on or off'
  66.    a_Print__MSG = 'Print'
  67.    a_Match_Brackets_PROMPT = 'Move cursor to matching bracket, #if / #endif, :ol / :eol, /* */, or SGML tag.'
  68.    a_Match_Brackets_PROMPT2 = '(bracket is one of ()[]{}<> )'
  69.    Generic_toolbar_help_title = 'Help for Toolbar selection'
  70.    EXECUTES_COMMAND = 'Executes command:'
  71.    NO_HILIGHT_KNOWN__MSG = "Don't know what keyword highlighting file to use."
  72.    a_Timestamp_PROMPT = \1'Type a timestamp into the file'
  73.  
  74. EA_comment 'This is a toolbar "actions" file which defines a number of simple commands.'
  75.  
  76. ----------------------- End of MRI for translation ---------------------------------
  77.  
  78. ; Here is the <file_name>_ACTIONLIST command that adds the action commands
  79. ; to the list.
  80.  
  81. defc sampactn_actionlist
  82.    universal ActionsList_FileID  -- This is the fileid that gets the line(s)
  83.  
  84.    insertline "a_Messages"MESSAGES_MENUP__MSG"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  85.    insertline "a_Add_New"a_Add_New_PROMPT"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  86.    insertline "a_Add_File"ADD_MENUP__MSG"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  87.    insertline "a_Open_empty"a_Open_empty_PROMPT"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  88.    insertline "a_NewWindow"a_NewWindow_PROMPT"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  89.    insertline "a_Settings"CONFIG_MENUP__MSG"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  90.    insertline "a_Time"a_Time_PROMPT||a_Time_PROMPT2"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  91.    insertline "a_Date"a_Date_PROMPT||a_Date_PROMPT2"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  92.    insertline "a_TimeStamp"a_Timestamp_PROMPT"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  93.    insertline "a_MonoFont"a_MonoFont_PROMPT"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  94.    insertline "a_Shell"CREATE_SHELL_MENUP__MSG || a_Shell_PROMPT2"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  95.    insertline "a_List_Ring"LIST_FILES_MENUP__MSG"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  96.    insertline "a_Compiler_Help"DESCRIBE_COMPILER_MENUP__MSG"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  97.    insertline "a_Compiler_Next"NEXT_COMPILER_MENUP__MSG"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  98.    insertline "a_Compiler_Prev"PREV_COMPILER_MENUP__MSG"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  99.    insertline "a_Proof"PROOF_MENUP__MSG"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  100.    insertline "a_Synonym"SYNONYM_MENUP__MSG"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  101.    insertline "a_Togl_Hilit"a_Toggle_Hilight_PROMPT"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  102.    insertline "a_Print"ENHPRT_FILE_MENUP__MSG"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  103.    insertline "a_Save"SAVE_MENUP__MSG"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  104.    insertline "a_SearchDlg"SEARCH_MENUP__MSG"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  105.    insertline "a_UndoDlg"UNDO_REDO_MENUP__MSG"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  106.    insertline "a_Quit"QUIT_MENUP__MSG"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  107.    insertline "a_match_brackets"a_MATCH_BRACKETS_PROMPT a_MATCH_BRACKETS_PROMPT2"sampactn", ActionsList_FileID.last+1, ActionsList_FileID
  108.  
  109. ; These are the command that will be called for the above actions.  Since all
  110. ; actions defined herein resolve to standard commands, the Help doesn't need
  111. ; to load an additional help file; it can refer to panels in the standard
  112. ; EPM.HLP.
  113.  
  114. defc a_Messages
  115.    a_common_action(arg(1), 'messagebox', MESSAGES_MENUP__MSG, HP_OPTIONS_MESSAGES)
  116.  
  117. defc a_Add_New
  118.    parse arg action_letter parms
  119.    if action_letter = 'I' then       -- button Initialized
  120.       display -8
  121.       sayerror a_Add_New_PROMPT
  122.       display 8
  123.    elseif action_letter = 'S' then   -- button Selected
  124.       sayerror 0                        -- Clear prompt
  125.       'xcom e /n'                       -- execute action
  126.    elseif action_letter = 'H' then   -- button Help
  127. ;;    'helpmenu' ???                     -- No help panel for this; use a messagebox
  128.       call winmessagebox(a_Add_New__MSG, a_Add_New_PROMPT, MB_OK + MB_INFORMATION + MB_MOVEABLE)
  129.    elseif action_letter = 'E' then   -- button End
  130. ;;    sayerror 0                        -- (We don't do anything for this one; get lots of them.)
  131.    endif
  132.  
  133. defc a_Add_File
  134.    a_common_action(arg(1), 'opendlg EDIT', ADD_MENUP__MSG, HP_FILE_EDIT)
  135.  
  136. defc a_Open_empty
  137.    a_common_action(arg(1), 'open', a_Open_empty_PROMPT, HP_FILE_OPEN_NEW)
  138.  
  139. defc a_NewWindow
  140.    a_common_action(arg(1), 'newwindow', a_NewWindow_PROMPT, 1990)
  141.  
  142. defc a_Settings
  143.    a_common_action(arg(1), 'configdlg', CONFIG_MENUP__MSG, HP_OPTIONS_CONFIG)
  144.  
  145. defc a_Time
  146. ;compile if WANT_DBCS_SUPPORT
  147.    universal countryinfo
  148. ;compile endif
  149. ;;  a_common_action(arg(1), 'qt', a_Time_PROMPT, 2250)
  150.    parse arg action_letter parms
  151.    if action_letter = 'I' then       -- button Initialized
  152.       display -8
  153.       sayerror a_Time_PROMPT
  154.       display 8
  155.    elseif action_letter = 'S' then   -- button Selected -  execute action
  156.       sayerror 0                        -- Clear prompt
  157.       if abbrev('?', parms, 0) then
  158.          'qt'
  159.       else
  160. ;compile if WANT_DBCS_SUPPORT  -- We're not including MYCNF.E...
  161.         if countryinfo then    -- Instead, see if countryinfo has been set.
  162.  compile if EPM32
  163.          time_sep = substr(countryinfo,24,1)
  164.  compile else
  165.          time_sep = substr(countryinfo,18,1)
  166.  compile endif
  167.         else
  168.          time_sep = ':'
  169.         endif
  170.          parse value gettime(0) with ':' mm ':' ss . ';' h24 ':'
  171.          keyin h24 || time_sep || mm || time_sep || ss' '
  172. ;compile else
  173. ;         parse value gettime(0) with ':' mmss . ';' h24 ':'
  174. ;         keyin h24':'mmss
  175. ;compile endif
  176.       endif
  177.    elseif action_letter = 'H' then   -- button Help
  178.       'helpmenu 2250'
  179. ;  elseif action_letter = 'E' then   -- button End
  180. ;;    sayerror 0                        -- (We don't do anything for this one; get lots of them.)
  181.    endif
  182.  
  183. defc a_Date
  184. ;  a_common_action(arg(1), 'qd', a_Date_PROMPT, 2240)
  185.    parse arg action_letter parms
  186.    if action_letter = 'I' then       -- button Initialized
  187.       display -8
  188.       sayerror a_Date_PROMPT
  189.       display 8
  190.    elseif action_letter = 'S' then   -- button Selected -  execute action
  191.       sayerror 0                        -- Clear prompt
  192.       if abbrev('?', parms, 0) then
  193.          'qd'
  194.       else
  195.          parse value getdate(0) with WeekDay Month Day ', ' Year';'MonthNum
  196.          parms = upcase(parms)
  197.          if abbrev('USA', parms, 1) then
  198.             keyin monthnum'/'rightstr(day, 2, 0)'/'rightstr(year, 2)' '
  199.          elseif abbrev('EUROPEAN', parms, 1) then
  200.             keyin day'/'rightstr(monthnum, 2, 0)'/'rightstr(year, 2)' '
  201.          elseif abbrev('ORDERED', parms, 1) then
  202.             keyin rightstr(year, 2)'/'rightstr(monthnum, 2, 0)'/'rightstr(day, 2, 0)' '
  203.          else
  204.             keyin day leftstr(month, 3) year' '   -- 7 March 1995
  205.          endif
  206.       endif
  207.    elseif action_letter = 'H' then   -- button Help
  208.       'helpmenu 2240'
  209. ;  elseif action_letter = 'E' then   -- button End
  210. ;;    sayerror 0                        -- (We don't do anything for this one; get lots of them.)
  211.    endif
  212.  
  213. defc a_TimeStamp
  214.    a_common_action(arg(1), 'TimeStamp', a_TimeStamp_PROMPT, 0)
  215.  
  216. defc a_Quit
  217.    a_common_action(arg(1), 'quit', QUIT_MENUP__MSG, HP_FILE_QUIT)
  218.  
  219. defc a_MonoFont
  220.    universal default_font
  221.    parse arg action_letter parms
  222.    if action_letter = 'I' then       -- button Initialized
  223.       display -8
  224.       sayerror a_MonoFont_PROMPT
  225.       display 8
  226.    elseif action_letter = 'S' then   -- button Selected -  execute action
  227.       sayerror 0                        -- Clear prompt
  228.       parse value queryfont(.font) with fontname '.'
  229.       if fontname='System Monospaced' then
  230.          .font = default_font
  231.       else
  232.          'monofont'
  233.       endif
  234.    elseif action_letter = 'H' then   -- button Help
  235.       'helpmenu 1991'
  236.    elseif action_letter = 'E' then   -- button End
  237. ;;    sayerror 0                        -- (We don't do anything for this one; get lots of them.)
  238.    endif
  239.  
  240. defc a_Shell
  241.    parse arg action_letter parms
  242.    if action_letter = 'I' then       -- button Initialized
  243.       display -8
  244.       sayerror substr(CREATE_SHELL_MENUP__MSG, 2)
  245.       display 8
  246.    elseif action_letter = 'S' then   -- button Selected
  247.       if isadefc('shell') then
  248.          sayerror 0                        -- Clear prompt
  249.          'shell' parms                     -- execute action
  250.       else
  251.          sayerror 'EPM was compiled without WANT_EPM_SHELL = 1; SHELL command not available.'
  252.       endif
  253.    elseif action_letter = 'H' then   -- button Help
  254.       'helpmenu' HP_COMMAND_SHELL
  255.    elseif action_letter = 'E' then   -- button End
  256. ;;    sayerror 0                        -- (We don't do anything for this one; get lots of them.)
  257.    endif
  258.  
  259. defc a_List_Ring
  260.    a_common_action(arg(1), 'ring_more', LIST_FILES_MENUP__MSG, HP_OPTIONS_LIST)
  261.  
  262. defc a_Compiler_Help
  263.    parse arg action_letter parms
  264.    if action_letter = 'I' then       -- button Initialized
  265.       display -8
  266.       sayerror substr(DESCRIBE_COMPILER_MENUP__MSG, 2)
  267.       display 8
  268.    elseif action_letter = 'S' then   -- button Selected
  269.       sayerror 0                        -- Clear prompt
  270.       'compiler_help'                   -- execute action
  271.    elseif action_letter = 'H' then   -- button Help
  272. ;;    'helpmenu' ???                     -- No help panel for this; use a messagebox
  273.       call winmessagebox(DESCRIBE_COMPILER_MENU__MSG, DESCRIBE_COMPILER_MENUP__MSG, MB_OK + MB_INFORMATION + MB_MOVEABLE)
  274.    elseif action_letter = 'E' then   -- button End
  275. ;;    sayerror 0                        -- (We don't do anything for this one; get lots of them.)
  276.    endif
  277.  
  278. defc a_Compiler_Next
  279.    parse arg action_letter parms
  280.    if action_letter = 'I' then       -- button Initialized
  281.       display -8
  282.       sayerror substr(NEXT_COMPILER_MENUP__MSG, 2)
  283.       display 8
  284.    elseif action_letter = 'S' then   -- button Selected
  285.       sayerror 0                        -- Clear prompt
  286.       'nextbookmark N 16'               -- execute action
  287.    elseif action_letter = 'H' then   -- button Help
  288. ;;    'helpmenu' ???                     -- No help panel for this; use a messagebox
  289.       call winmessagebox(NEXT_COMPILER_MENU__MSG, NEXT_COMPILER_MENUP__MSG, MB_OK + MB_INFORMATION + MB_MOVEABLE)
  290.    elseif action_letter = 'E' then   -- button End
  291. ;;    sayerror 0                        -- (We don't do anything for this one; get lots of them.)
  292.    endif
  293.  
  294. defc a_Compiler_Prev
  295.    parse arg action_letter parms
  296.    if action_letter = 'I' then       -- button Initialized
  297.       display -8
  298.       sayerror substr(PREV_COMPILER_MENUP__MSG, 2)
  299.       display 8
  300.    elseif action_letter = 'S' then   -- button Selected
  301.       sayerror 0                        -- Clear prompt
  302.       'nextbookmark P 16'               -- execute action
  303.    elseif action_letter = 'H' then   -- button Help
  304. ;;    'helpmenu' ???                     -- No help panel for this; use a messagebox
  305.       call winmessagebox(PREV_COMPILER_MENU__MSG, PREV_COMPILER_MENUP__MSG, MB_OK + MB_INFORMATION + MB_MOVEABLE)
  306.    elseif action_letter = 'E' then   -- button End
  307. ;;    sayerror 0                        -- (We don't do anything for this one; get lots of them.)
  308.    endif
  309.  
  310. defc a_Proof
  311.    a_common_action(arg(1), 'proof', PROOF_MENUP__MSG, HP_OPTIONS_PROOF)
  312.  
  313. defc a_Synonym
  314.    a_common_action(arg(1), 'syn', SYNONYM_MENUP__MSG, HP_OPTIONS_SYN)
  315.  
  316. defc a_togl_hilit
  317.    if arg(1) = 'S' then       -- button Selected
  318.       sayerror 0
  319.       color_file=''
  320.       ext=filetype()
  321.       if wordpos(ext, 'C H SQC CPP HPP CXX HXX') then
  322.          color_file= 'EPMKWDS.C'
  323.       elseif wordpos(ext, 'CMD BAT EXC EXEC XEDIT ERX REX REXX VRX') then
  324.          if .last then
  325.             line = upcase(textline(1))
  326.          else
  327.             line = ''
  328.          endif
  329.          if word(line,1)='EXTPROC' & pos('PERL', line) then
  330.             color_file='EPMKWDS.PL'
  331.          else
  332.             color_file='EPMKWDS.CMD'
  333.          endif
  334.       elseif ext='E' then
  335.          color_file= 'EPMKWDS.E'
  336.       elseif wordpos(ext, 'HTM HTML') then
  337.          color_file= 'EPMKWDS.HTM'
  338.       elseif wordpos(ext, 'F F77 FOR FORTRAN F90') then --//PM
  339.          color_file= 'EPMKWDS.F90'
  340.       elseif ext='IPF' then
  341.          color_file= 'EPMKWDS.IPF'
  342.       elseif wordpos(ext, 'JAVA JAV') then
  343.          color_file= 'EPMKWDS.JAV'
  344.       elseif (upcase(rightstr(.filename,8))='MAKEFILE' | ext='MAK') then
  345.          color_file='EPMKWDS.MAK'
  346.       elseif wordpos(ext, 'PL PRL PERL') then
  347.          color_file='EPMKWDS.PL'
  348.       elseif ext='RC' then
  349.          color_file= 'EPMKWDS.RC'
  350.       elseif ext='RXP' then
  351.          color_file= 'EPMKWDS.RXP'
  352.       elseif ext='LOG' then       -- //PM
  353.          color_file= 'EPMKWDS.LOG' -- //PM
  354.  compile if defined(my_SCRIPT_FILE_TYPE)
  355.       elseif wordpos(ext, 'SCR SCT SCRIPT' my_SCRIPT_FILE_TYPE) then
  356.  compile else
  357.       elseif wordpos(ext, 'SCR SCT SCRIPT') then
  358.  compile endif
  359.          color_file='EPMKWDS.SCR'
  360.  compile if defined(TEX_FILETYPES)
  361.       elseif wordpos(ext, TEX_FILETYPES) then
  362.  compile else
  363.       elseif wordpos(ext, 'TEX LATEX STY CLS DTX') then  -- //PM
  364.  compile endif
  365.          color_file= 'EPMKWDS.TEX'
  366.       elseif wordpos(ext, 'PS EPS PDX') then  -- //PM PostScript files
  367.          color_file='EPMKWDS.PS'
  368.       else
  369.          findfile color_file, 'EPMKWDS.'ext, '', 'D'
  370.          if rc then
  371.             sayerror NO_HILIGHT_KNOWN__MSG
  372.             return
  373.          endif
  374.       endif
  375.       current_toggle = windowmessage(1,  getpminfo(EPMINFO_EDITFRAME),
  376.                                      5505,          -- EPM_EDIT_KW_QUERYPARSE
  377.                                      0,
  378.                                      0)
  379.       'toggle_parse' (not current_toggle) color_file
  380.    elseif arg(1) = 'I' then   -- button Initialized
  381.       display -8
  382.       sayerror a_Toggle_Hilight_PROMPT
  383.       display 8
  384.    elseif arg(1) = 'H' then   -- button Help
  385.       call winmessagebox(a_Toggle_Hilight__MSG, a_Toggle_Hilight_PROMPT, MB_OK + MB_INFORMATION + MB_MOVEABLE)
  386.    elseif arg(1) = 'E' then   -- button End
  387. ;;    sayerror 0
  388.    endif
  389.  
  390. defc a_print
  391.    a_common_action(arg(1), 'printdlg', ENHPRT_FILE_MENUP__MSG, HP_FILE_ENHPRINT)
  392.  
  393. defc a_save
  394.    a_common_action(arg(1), 'save', SAVE_MENUP__MSG, HP_FILE_SAVE)
  395.  
  396. defc a_searchdlg
  397.    a_common_action(arg(1), 'searchdlg', SEARCH_MENUP__MSG, HP_SEARCH_SEARCH)
  398.  
  399. defc a_undodlg
  400.    a_common_action(arg(1), 'undodlg', UNDO_REDO_MENUP__MSG, HP_EDIT_UNDOREDO)
  401.  
  402. defc a_match_brackets
  403.    parse value arg(1) with action_letter parms
  404.    if action_letter = 'I' then       -- button Initialized
  405.       display -8
  406.       sayerror a_Match_Brackets_PROMPT
  407.       display 8
  408.    elseif action_letter = 'S' then   -- button Selected
  409.       sayerror 0
  410.       call passist()
  411.    elseif action_letter = 'H' then   -- button Help
  412.       call winmessagebox(Generic_toolbar_help_title, a_Match_Brackets_PROMPT a_Match_Brackets_PROMPT2, MB_OK + MB_INFORMATION + MB_MOVEABLE)
  413. ;; elseif action_letter = 'E' then   -- button End
  414. ;;    sayerror 0
  415.    endif
  416.  
  417. defproc a_common_action(arg1, command, prompt, panel)
  418.    parse value arg1 with action_letter parms
  419.    if action_letter = 'I' then       -- button Initialized
  420.       display -8
  421.       sayerror substr(prompt, 2)  -- All the prompts in ENGLISH.E start with an ASCII 1.
  422.       display 8
  423.    elseif action_letter = 'S' then   -- button Selected
  424.       sayerror 0
  425.       command parms
  426.    elseif action_letter = 'H' then   -- button Help
  427.       if panel then
  428.          'helpmenu' panel
  429.       else
  430.          call winmessagebox(Generic_toolbar_help_title, substr(prompt, 2)\n\n || EXECUTES_COMMAND\ncommand, MB_OK + MB_INFORMATION + MB_MOVEABLE)
  431.       endif
  432. ;; elseif action_letter = 'E' then   -- button End
  433. ;;    sayerror 0
  434.    endif
  435.  
  436.