2010-03-03 01:51 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

* examples/pe/editorlo.c
  * examples/pe/pe.prg
  * examples/pe/editorhi.prg
  * examples/pe/readme.txt
    + Further cleanups (some types, unused code).
    % Minor optimization.
    * Deleted one completed (old) TOFIX item.

harbour/ChangeLog

@@ -17,6 +17,15 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-03-03 01:51 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+  * examples/pe/editorlo.c
+  * examples/pe/pe.prg
+  * examples/pe/editorhi.prg
+  * examples/pe/readme.txt
+    + Further cleanups (some types, unused code).
+    % Minor optimization.
+    * Deleted one completed (old) TOFIX item.
+
 2010-03-03 01:22 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
   * examples/pe/editorlo.c
   * examples/pe/editorhi.prg

harbour/examples/pe/editorhi.prg

@@ -1,6 +1,6 @@
 /*
  * $Id$
-*/
+ */
 
 #include "inkey.ch"
 #include "setcurs.ch"
@@ -183,17 +183,14 @@ PROCEDURE EditorInsText( oEdit, cText, nLine )
 //02-03-92 07:53pm
 //
 // Retrieves the text from editor
-// nUpper - specifies if text should be changed to uppercase, lowercase
-//    or unchanged
 // nCarret - specifies if soft carriage return (141/10) should be replaced by
 //    hard carriage returns (13/10)
 //
-FUNCTION EditorGetText( oEdit, nUpper, nCarret )
+FUNCTION EditorGetText( oEdit, nCarret )
 
-   DEFAULT nUpper  TO EDIT_SAME
    DEFAULT nCarret TO EDIT_HARD
 
-   RETURN ED_GetText( oEdit[E_EDIT], nUpper, nCarret )
+   RETURN ED_GetText( oEdit[E_EDIT], nCarret )
 
 //---------------------------------------------------------
 //04-03-92 02:35pm
@@ -503,25 +500,6 @@ STATIC FUNCTION EditorSave( oEdit )
 
    RETURN nHandle > 0
 
-//---------------------------------------------------------
-//19-08-93 02:05am
-//
-/*
-STATIC PROCEDURE EditorPrint( oEdit )
-   LOCAL oParm
-
-   IF PrintReady()
-      PrintNewQue()
-      PrintSetHead( AppsOwner(), , "-", PRN_OFF )
-
-      PrintAddJob( oEdit, PRN_EDITOR )
-      PrintJob(PRN_OFF)
-      PrintDelQue()
-   ENDIF
-
-   RETURN
-*/
-
 //---------------------------------------------------------
 *09/29/91 08:40pm
 *

harbour/examples/pe/pe.prg

@@ -15,12 +15,12 @@ PROCEDURE Main( cFile )
    ENDIF
 
    cText := MemoRead( cFile )
-   cText := MemoEditor( cText, 0, 0, MaxRow(), MaxCol(), lEdit )
+   cText := MyMemoEdit( cText, 0, 0, MaxRow(), MaxCol(), lEdit )
    MemoWrit( "output.txt", cText )
 
    RETURN
 
-STATIC FUNCTION MEMOEDITOR( cText, nTop, nLeft, nBottom, nRight, lEdit )
+STATIC FUNCTION MyMemoEdit( cText, nTop, nLeft, nBottom, nRight, lEdit )
    LOCAL oED
 
    /* NOTE: In current design of editor it doesn't reallocate the memory

harbour/examples/pe/readme.txt

@@ -1,6 +1,6 @@
 /*
  * $Id$
-*/
+ */
 Known bugs:
 ----------
 1) It requires files separated with CR/LF pairs
@@ -16,4 +16,3 @@ To fix:
 2) It reformats whole text at startup - again for a very long text it can
   take too much time
 3) Text buffer shold be reallocated dynamically
-4) Remove static table of created editors