home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / FOXPRO / VEDIT060 / VEDIT.HDR < prev    next >
Text File  |  1992-04-01  |  6KB  |  177 lines
  1. ** MEMO_EDIT and TEXT_EDIT guys for the VEDIT_KEY_HANDLER
  2. #DEFINE jl_save_exit       11
  3. #DEFINE jl_save_continue   12
  4. #DEFINE jl_start_mark      13
  5. #DEFINE jl_end_mark        14
  6. #DEFINE jl_toggle_wrap     15
  7. #DEFINE jl_mark_line       16
  8. #DEFINE jl_unmark_all      17
  9. #DEFINE jl_delete_marked   18
  10. #DEFINE jl_save_marked     19
  11. #DEFINE jl_copy_marked     20
  12. #DEFINE jl_move_marked     21
  13. #DEFINE jl_import          22
  14. #DEFINE jl_save_as         32
  15. #DEFINE jl_delete_line     24
  16. #DEFINE jl_delete_to_scrap 25
  17. #DEFINE jl_save_scrap      26
  18. #DEFINE jl_delete_scrap    27
  19. #DEFINE jl_copy_all_scrap  28
  20. #DEFINE jl_copy_top_scrap  29
  21. #DEFINE jl_copy_bottom_scrap 30
  22. #DEFINE jl_copy_all_scrap_delete 31
  23. #DEFINE jl_save_as_new           32
  24. #DEFINE jl_save_rename           33
  25. #DEFINE jl_read_scrap            34
  26. #DEFINE jl_undelete_line         35
  27.  
  28. FUNCTION INT VEdit_Key_Handler prototype
  29.   PARAMETERS VALUE LONG    list_handle,;
  30.                    UINT    list_element,;
  31.                    UINT    list_column,;
  32.                    UINT    mouse_stat,;
  33.              VALUE UINT    mrow,;
  34.              VALUE UINT    mcol,;
  35.                     INT    pick_key,;
  36.                    UINT    top_element,;
  37.              VALUE UINT    last_element,;
  38.                    UINT    ur,;
  39.                    UINT    uc,;
  40.                    UINT    lr,;
  41.                    UINT    lc,;
  42.                    UINT    stat_row,;
  43.                    UINT    stat_col,;
  44.              VALUE LOGICAL display_only,;
  45.                    LOGICAL refresh
  46.  
  47. PROCEDURE VEdit_Change_Byte PROTOTYPE
  48.   PARAMETERS VALUE UINT position,;
  49.              VALUE INT  new_byte,;
  50.                    CHAR full_str
  51.  
  52.  
  53. FUNCTION UINT VEdit_Forward_Space PROTOTYPE
  54.   PARAMETERS CHAR temp_str,;
  55.              UINT current_col
  56.  
  57. FUNCTION UINT VEdit_Backward_Space PROTOTYPE
  58.   PARAMETERS CHAR temp_str,;
  59.              UINT current_col
  60.  
  61.  
  62. FUNCTION UINT VEdit_Last_Space PROTOTYPE
  63.   PARAMETERS VALUE UINT right_margin,;
  64.                    CHAR temp_str
  65.  
  66. PROCEDURE VEdit_Word_Wrap PROTOTYPE
  67.   PARAMETERS VALUE LONG handle,;
  68.              VALUE UINT mini,;
  69.              VALUE LOGICAL blp,;  && stop on first blank
  70.              VALUE UINT right_margin,;
  71.              VALUE UINT hard_margin,;
  72.                    UINT current_element,;
  73.                    UINT current_column
  74.  
  75. #DEFINE edit_error 0
  76. #DEFINE edit_none  1
  77. #DEFINE edit_save_exit     11
  78. #DEFINE edit_save_continue 12
  79. #DEFINE edit_continue      4
  80. #DEFINE edit_save_as_new   32
  81. #DEFINE edit_save_rename   33
  82. #DEFINE edit_save_scrap    26
  83. #DEFINE edit_read_scrap    34
  84.  
  85. FUNCTION UINT VEdit_Internal_Editor PROTOTYPE
  86.   PARAMETERS VALUE LONG    handle,;
  87.              VALUE LONG    scrap,;
  88.              VALUE LONG    undelete,;
  89.              VALUE INT     upper_row,;
  90.              VALUE INT     upper_col,;
  91.              VALUE INT     lower_row,;
  92.              VALUE INT     lower_col,;
  93.                    UINT    top_element,;
  94.                    UINT    initial_element,;
  95.                    UINT    left_col,;
  96.                    UINT    initial_col,;
  97.                    UINT    right_margin,;   && max 132
  98.              VALUE UINT    hard_margin,;
  99.              VALUE BYTE    marked_text_color,;
  100.                    LOGICAL word_wrap,;
  101.              VALUE LOGICAL display_only,;
  102.              VALUE LOGICAL flash,;
  103.              VALUE LOGICAL scroll_bar,;
  104.              VALUE LOGICAL stat_line,;
  105.              VALUE UINT    stat_row,;
  106.              VALUE UINT    stat_col,;
  107.              VALUE LOGICAL is_mouse,;
  108.              VALUE LOGICAL allow_embedded,;
  109.              VALUE UINT    tab_width,;
  110.              VALUE UINT    undelete_lines,;
  111.                    UNTYPED key_handler
  112.  
  113. * return codes
  114. *   0 - no errors, file not changed
  115. *   2 - file doesn't exist ( actually never used, file is just created )
  116. *   3 - error reading file
  117. *   4 - error editting file
  118. *   5 - error allocating memory
  119. *   6 - cannot open file to save
  120.  
  121. FUNCTION UINT VEdit_Text_Editor PROTOTYPE
  122.   PARAMETERS        CHAR filename,;
  123.               VALUE INT upper_row,;
  124.               VALUE INT upper_col,;
  125.               VALUE INT lower_row,;
  126.               VALUE INT lower_col,;
  127.              VALUE UINT start_line,;
  128.              VALUE UINT start_col,;
  129.              VALUE UINT right_margin,;
  130.              VALUE UINT hard_margin,;
  131.              VALUE BYTE m_text_color,;
  132.           VALUE LOGICAL word_wrap,;
  133.           VALUE LOGICAL disp_only,;
  134.           VALUE LOGICAL scroll_bar,;
  135.           VALUE LOGICAL stat_line,;
  136.              VALUE UINT stat_row,;
  137.              VALUE UINT stat_col,;
  138.           VALUE LOGICAL is_mouse,;
  139.           VALUE LOGICAL a_embedded,;
  140.              VALUE UINT tab_width,;
  141.              VALUE UINT undelete_lines,;
  142.                 UNTYPED key_handler
  143.              
  144. *******************************************************************************
  145. * return codes for MEMO editor                                                *
  146. *   0 - no errors                                                             *
  147. *                                                                             *
  148. *   3 - error reading memo                                                    *
  149. *   4 - error editting memo                                                   *
  150. *   5 - error allocating memory                                               *
  151. *   6 - cannot open memo to save                                              *
  152. *******************************************************************************
  153.  
  154. FUNCTION UINT VEdit_Memo_Editor PROTOTYPE
  155.   PARAMETERS  MEMO      memoname,;
  156.               VALUE INT upper_row,;
  157.               VALUE INT upper_col,;
  158.               VALUE INT lower_row,;
  159.               VALUE INT lower_col,;
  160.              VALUE UINT start_line,;
  161.              VALUE UINT start_col,;
  162.              VALUE UINT right_margin,;
  163.              VALUE UINT hard_margin,;
  164.              VALUE BYTE m_text_color,;
  165.           VALUE LOGICAL word_wrap,;
  166.           VALUE LOGICAL disp_only,;
  167.           VALUE LOGICAL scroll_bar,;
  168.           VALUE LOGICAL stat_line,;
  169.              VALUE UINT stat_row,;
  170.              VALUE UINT stat_col,;
  171.           VALUE LOGICAL is_mouse,;
  172.           VALUE LOGICAL a_embedded,;
  173.              VALUE UINT tab_width,;
  174.              VALUE UINT undelete_lines,;
  175.                 UNTYPED key_handler
  176.  
  177.