5a773e089a
* contrib/hbmisc/Makefile
+ contrib/hbmisc/hbeditc.c
+ contrib/hbmisc/hbedit.prg
+ contrib/hbmisc/tests/sample.txt
+ contrib/hbmisc/tests/testedit.prg
- examples/pe/sample.txt
- examples/pe/editorlo.c
- examples/pe/pe.prg
- examples/pe/pe.hbp
- examples/pe/editorhi.prg
* Editor implementation moved to hbmisc lib.
37 lines
793 B
Plaintext
37 lines
793 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
PROCEDURE Main( cFile )
|
|
LOCAL cText
|
|
LOCAL lEdit := .T.
|
|
|
|
IF cFile == NIL
|
|
cFile := "sample.txt"
|
|
lEdit := .F.
|
|
ENDIF
|
|
|
|
cText := MemoRead( cFile )
|
|
cText := MyMemoEdit( cText, 0, 0, MaxRow(), MaxCol(), lEdit )
|
|
MemoWrit( "output.txt", cText )
|
|
|
|
RETURN
|
|
|
|
STATIC FUNCTION MyMemoEdit( cText, nTop, nLeft, nBottom, nRight, lEdit )
|
|
LOCAL oED
|
|
|
|
/* NOTE: In current design of editor it doesn't reallocate the memory
|
|
buffer used to hold the text
|
|
*/
|
|
oED := EditorNew( nTop, nLeft, nBottom, nRight, 254, , , , Len( cText ) * 2, 168 )
|
|
IF oED != NIL
|
|
EditorSetText( oED, cText )
|
|
EditorEdit( oED, lEdit, .T. )
|
|
cText := EditorGetText( oED )
|
|
EditorKill( oED )
|
|
ELSE
|
|
? "Editor not created"
|
|
ENDIF
|
|
|
|
RETURN cText
|