home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / ME22-OS2.ZIP / MACROS.ZIP / HELPME.M < prev    next >
Text File  |  1987-12-22  |  796b  |  47 lines
  1. #include menu
  2.  
  3. #define PGUP    201
  4. #define PGDN    209
  5. #define ALT_H   163
  6. #define ESC     27
  7.  
  8. init()
  9. {
  10.   assign_key("helpme", ALT_H);
  11. }
  12.  
  13. helpme()
  14. {
  15.   do_menu("help");
  16. }
  17.  
  18. show_file(fname)
  19.   string fname;
  20. {
  21.   int  filecolor;
  22.  
  23.   filecolor = 0x3E;
  24.  
  25.   old_buf = currbuf();
  26.   new_buf = setcurrbuf(create_buffer(fname));
  27.  
  28.   win_id = create_window(3, 30, 10, 70, filecolor);
  29.   attach_window(win_id, new_buf);
  30.   DrawBox(1, 29, 10, 71, filecolor);
  31.   display(10, 38, 65, filecolor, " Press PGUP, PGDN or ESC ");
  32.  
  33.   while ((c = get_tty_char()) != ESC)
  34.     if (c == PGUP)
  35.       prevscreen();
  36.     else if (c == PGDN)
  37.       nextscreen();
  38.     else if (c == DOWN)
  39.       down();
  40.     else if (c == UP)
  41.       up();
  42.  
  43.   delete_buffer(new_buf);
  44.   show_buffer(old_buf);
  45. }
  46.  
  47.