home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / ME494-6.ZIP / STATSET.SRC < prev    next >
Encoding:
Text File  |  1990-05-29  |  2.4 KB  |  79 lines
  1. $MACRO_FILE STATSET;
  2. {*****************************MULTI-EDIT MACRO FILE****************************
  3.  
  4. Name: STATSET
  5.  
  6. STATSET - Provides an alternate screen setup.
  7. STATMAC - Writes the template for the status line to the screen.
  8.  
  9.                              (C) Copyright 1989 by American Cybernetics, Inc.
  10. ******************************************************************************}
  11.  
  12. $MACRO STATSET;
  13. {*******************************MULTI-EDIT MACRO******************************
  14.  
  15. Name: STATSET
  16.  
  17. Description: This is an alternate screen setup.  Set this up in the
  18.                             Install-Screen setup menu.
  19.  
  20. Parameters:  /S=1 will put the status line on the bottom of the screen.
  21.                          /S=0 will put the status line on the top of the screen.
  22.  
  23.                              (C) Copyright 1989 by American Cybernetics, Inc.
  24. ******************************************************************************}
  25.  
  26.     def_int(jx);
  27.  
  28.     refresh := false;
  29.     status_str := '';
  30.     mode_col := 0;
  31.     insert_col := 0;
  32.     mem_col := 0;
  33.     caps_col := 0;
  34.     record_col := 0;
  35.     time_col := 0;
  36.     line_col := 58;
  37.     col_col := 65;
  38.     if parse_int('/S=',mparm_str) then
  39.         status_row := screen_length;
  40.     else
  41.         status_row := 1;
  42.     end;
  43.     message_row := status_row;
  44.     if menu_bar_row <> 0 THEN
  45.         menu_bar_row := status_row + 1;
  46.     END;
  47.     min_window_row := 1 - (status_row = screen_length) + (menu_bar_row <> 0);
  48.     status_macro('STATMAC');
  49.     message_col := 1;
  50.     message_length := 55;
  51.     working_col := 69;
  52. END_MACRO;
  53.  
  54. $MACRO STATMAC NOSWAP;
  55. {*******************************MULTI-EDIT MACRO******************************
  56.  
  57. Name: STATMAC
  58.  
  59. Description: Writes the template for the status line to the screen.
  60.  
  61.                              (C) Copyright 1989 by American Cybernetics, Inc.
  62. ******************************************************************************}
  63.         set_virtual_display;
  64.         IF mode = 0 THEN
  65.             IF global_int('MENU_LEVEL') <> 0 then
  66.                 write( 'MENU/PROMPT ', 69, status_row, 0, stat2_color );
  67.             elsif (cur_window > 0) then
  68.                 write('L      C                ', 57, status_row, 0, stat1_color);
  69.                 write(str(c_line), 58, status_row, 0, stat2_color);
  70.                 write(str(c_col), 65, status_row, 0, stat2_color);
  71.                 write( truncate_path(file_name), 69, status_row, 0, stat2_color );
  72.             END;
  73.         ELSIF mode = DOS_SHELL THEN
  74.             write('L      C                ', 57, status_row, 0, stat1_color);
  75.             write( ' DOS SHELL  ', 69, status_row, 0, stat2_color );
  76.         end;
  77.         update_virtual_display;
  78.         reset_virtual_display;
  79. end_macro;