home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / PROGRAM / FOXPRO / VEDIT060 / NEWEDIT.PRG < prev    next >
Text File  |  1992-03-23  |  2KB  |  75 lines
  1. *******************************************************************************
  2. *                                                                             *
  3. *                   TEST program to run VEDIT_TEXT_EDITOR()                   *
  4. *                                                                             *
  5. *                        (c) 1992  -  Jayson R. Minard                        *
  6. *                                                                             *
  7. *******************************************************************************
  8.  
  9. #INCLUDE SYSTEM.HDR
  10. #INCLUDE IO.HDR
  11. #INCLUDE vlist.hdr
  12. #INCLUDE vmouse.hdr
  13. #INCLUDE vedit.hdr
  14. #INCLUDE COLORS.HDR
  15. #INCLUDE STRING.HDR
  16.  
  17. VARDEF EXTERN
  18.   BYTE  __color_std, __color_enhcd
  19. ENDDEF
  20.  
  21.  
  22. PROCEDURE FORCE_MAIN
  23.   PARAMETERS CONST CHAR( 128 ) f
  24.  
  25.   VARDEF
  26.     LOGICAL is_mouse
  27.     UINT    ret_val
  28.     CHAR    filename
  29.   ENDDEF
  30.  
  31.   SET SCOREBOARD OFF
  32.   set_insert_key( .T. )
  33.  
  34.   IF Vmouse_Init() = 0
  35.     is_mouse = .F.
  36.   ELSE
  37.     is_mouse = .T.
  38.     Vmouse_Reset()
  39.   ENDIF
  40.  
  41.   filename = TRIM( f )
  42.  
  43.   CLEAR
  44.   @10, 2 SAY "Enter filename to edit: " GET filename PICTURE "@K@S40"
  45.   READ
  46.   filename = TRIM( filename )
  47.  
  48.   IF LASTKEY() = 27 .OR. LEN( filename ) = 0
  49.     QUIT
  50.   ENDIF
  51.  
  52.   __color_enhcd = &blue_white
  53.   __color_std   = &black_light_grey
  54.   __color_enhcd = &black_white
  55.   FILL( 0, 0, 21, 79, &double_box, " ", &blue_white, __color_std, 0 )
  56.   __color_bar   = &blue_light_grey
  57.   __color_tab   = &blue_white
  58.  
  59.   ret_val = VEdit_Text_Editor( filename, 1, 1, 20, 78, 1, 1, 80, 85,;
  60.                                &blue_yellow, .T., .F., is_mouse,;
  61.                                .T., 21, 2,;
  62.                                is_mouse, .F., 3, 5, VEdit_Key_Handler )
  63.  
  64.   CLEAR
  65.   @10, 0
  66.   ?
  67.   ? "return code = ", ret_val
  68.  
  69.   IF is_mouse
  70.     Vmouse_Reset()
  71.     Vmouse_Cursor( .F. )
  72.   ENDIF
  73.  
  74. ENDPRO
  75.