home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
FOXPRO
/
VEDIT060
/
SOURCE
/
NEWEDIT.PRG
< prev
next >
Wrap
Text File
|
1992-03-23
|
2KB
|
75 lines
*******************************************************************************
* *
* TEST program to run VEDIT_TEXT_EDITOR() *
* *
* (c) 1992 - Jayson R. Minard *
* *
*******************************************************************************
#INCLUDE SYSTEM.HDR
#INCLUDE IO.HDR
#INCLUDE vlist.hdr
#INCLUDE vmouse.hdr
#INCLUDE vedit.hdr
#INCLUDE COLORS.HDR
#INCLUDE STRING.HDR
VARDEF EXTERN
BYTE __color_std, __color_enhcd
ENDDEF
PROCEDURE FORCE_MAIN
PARAMETERS CONST CHAR( 128 ) f
VARDEF
LOGICAL is_mouse
UINT ret_val
CHAR filename
ENDDEF
SET SCOREBOARD OFF
set_insert_key( .T. )
IF Vmouse_Init() = 0
is_mouse = .F.
ELSE
is_mouse = .T.
Vmouse_Reset()
ENDIF
filename = TRIM( f )
CLEAR
@10, 2 SAY "Enter filename to edit: " GET filename PICTURE "@K@S40"
READ
filename = TRIM( filename )
IF LASTKEY() = 27 .OR. LEN( filename ) = 0
QUIT
ENDIF
__color_enhcd = &blue_white
__color_std = &black_light_grey
__color_enhcd = &black_white
FILL( 0, 0, 21, 79, &double_box, " ", &blue_white, __color_std, 0 )
__color_bar = &blue_light_grey
__color_tab = &blue_white
ret_val = VEdit_Text_Editor( filename, 1, 1, 20, 78, 1, 1, 80, 85,;
&blue_yellow, .T., .F., is_mouse,;
.T., 21, 2,;
is_mouse, .F., 3, 5, VEdit_Key_Handler )
CLEAR
@10, 0
?
? "return code = ", ret_val
IF is_mouse
Vmouse_Reset()
Vmouse_Cursor( .F. )
ENDIF
ENDPRO