#include "dialog.h"

/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/
/* */
/* P�l Hedne 1990 */
/* */
/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;*/
#include "dialog.h"
extern MathModus;

/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; */
/* ; */
/* ; */
/* ; */
/* ; */
/* ; */
/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; */
/* (macro _init */
/* ((int help_id) */
/* (string text) */
/* (global help_id) */
/* (= help_id (create_buffer "Help menu" "latex.mnu" 1)) */
/* (sprintf text "Help ID = %d" help_id) */
/* (message text) */
/* ) */
/* ) */
/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; */
/* ; */
/* -1 DIALOG_INIT The dialog manager has just been invoked ; */
/* -2 DIALOG_ENTER_FIELD The cursor has just entered a non-list field ; */
/* -3 DIALOG_ENTER_LIST The cursor has just entered a l ; */
/* -4 DIALOG_ALTER_LIST The current item in a list has just been changed ; */
/* -5 DIALOG_ALTER_MENU The current item in a menu has just been changed ; */
/* -5 DIALOG_MOVE_MENU (Same as DIALOG_ALTER_ME ; */
/* -6 DIALOG_PICK_MENU The user has just selected a menu button with Enter ; */
/* -7 DIALOG_EXIT_FIELD The cursor has just left a non-list field ; */
/* -8 DIALOG_EXIT_LIST The cursor has just left a l ; */
/* -9 DIALOG_TERM The dialog manager is exit ; */
/* -10 DIALOG_ESCAPE The user has just pressed Esc to exit all levels ; */
/* -11 DIALOG_F10 The user has just pressed F10 to save a dialog box ; */
/* -12 DIALOG_GREY_MINUS The user has just pressed the keypad minus key ; */
/* -13 DIALOG_CREATE_MENU A menu buffer has just been made current ; */
/* -14 DIALOG_CREATE_DBOX A dialog box data buffe ; */
/* ; */
/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; */

pro_help (...)
{
int event, line, retval, exe_sw;

string text, macro_name;

global macro_name, exe_sw;

get_parm (0, event);
get_parm (1, line);
get_parm (2, text);

switch (event)
{
case DIALOG_INIT:
{
retval = TRUE;
/* (message "DIALOG INIT") */
}
case DIALOG_ENTER_FIELD:
{
retval = TRUE;
/* (message "DIALOG_ENTER_FIELD") */
}
case DIALOG_ENTER_LIST:
{
retval = TRUE;
/* (message "DIALOG_ENTER_LIST") */
}
case DIALOG_ALTER_LIST:
{
retval = TRUE;
/* (message "DIALOG_ALTER_LIST") */
}
case DIALOG_ALTER_MENU:
{
retval = TRUE;
/* (message "DIALOG_ALTER_MENU") */
}
case DIALOG_MOVE_MENU:
{
retval = TRUE;
/* (message "DIALOG_MOVE_MENU") */
}
case DIALOG_PICK_MENU:
{
retval = TRUE;
/* (message "DIALOG_PICK_MENU") */
macro_name = substr (text, index (text, ";") + 1);
_dialog_esc ();
exe_sw = 1;
}
case DIALOG_EXIT_FIELD:
{
retval = TRUE;
/* (message "DIALOG_EXIT_FIELD") */
}
case DIALOG_EXIT_LIST:
{
retval = TRUE;
/* (message "DIALOG_EXIT_LIST") */
}
case DIALOG_TERM:
{
retval = TRUE;
/* (message "DIALOG_TERM") */
}
case DIALOG_ESCAPE:
{
exe_sw = 0;
retval = TRUE;
/* (message "DIALOG_ESCAPE") */
}
case DIALOG_F10:
{
retval = TRUE;
/* (message "DIALOG_F10") */
}
case DIALOG_GREY_MINUS:
{
retval = TRUE;
/* (message "DIALOG_GREY_MINUS") */
}
case DIALOG_CREATE_MENU:
{
retval = TRUE;
/* (message "DIALOG_CREATE_MENU") */
}
/* default */
default:
{
beep ();
/* (message "Illegal key") */
}
}
returns retval;
}

/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; */
latex_help (...)
{
string file, title, msg, action;

title = "LaTex help";
msg = "Press ESC to continue, ENTER to pick";
file = "latex.mnu";
if (MathModus == 1)
file = "latexmat.mnu";
action = "pro_help";
/* (_process_menu lx by rx ty title msg filename buf_id action fast) */
_process_menu (10, 5, 10, 5, title, msg, file, NULL, action, 1);
/* (_process_menu 10 15 70 5 title msg NULL help_id action 1) */
if (exe_sw == 1)
execute_macro (macro_name);
}
/* ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; */
string gen_help (...)
{
string parameter,file, title, msg, action;
int buf_key,line;

title = "";
msg = "Press ESC to continue, ENTER to pick";
file = "";
action = "pro_help";
get_parm (0, file);
title=file;
exe_sw=0;
if (get_parm (1, buf_key))
_process_menu(10,5,10,5,title,msg,NULL,buf_key,action,1,line,parameter);
else
_process_menu (10,5,10,5,title,msg,file,NULL,action,1,line,parameter);
if (exe_sw == 1)
execute_macro (macro_name);
return(parameter);
}