From e1c51ed9aa350205e48b063b400d284e229a565f Mon Sep 17 00:00:00 2001
From: Walter Negro <anegro@overnet.com.ar>
Date: Fri, 21 Jun 2002 18:47:12 +0000
Subject: [PATCH]   * source/rtl/teditor.prg     ! Fix call to SET() without
 setting values.       METHOD InsertState()

---
 harbour/source/rtl/teditor.prg | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/harbour/source/rtl/teditor.prg b/harbour/source/rtl/teditor.prg
index 9dd7a29e11..0e0e5f0bd1 100644
--- a/harbour/source/rtl/teditor.prg
+++ b/harbour/source/rtl/teditor.prg
@@ -808,8 +808,10 @@ return lMoveKey
 // Changes lInsert value and insertion / overstrike mode of editor
 METHOD InsertState(lInsState) CLASS HBEditor
 
-   ::lInsert := lInsState
-   SET(_SET_INSERT, lInsState)
+   IF ISLOGICAL( lInsState )
+      ::lInsert := lInsState
+      SET(_SET_INSERT, lInsState)
+   ENDIF
 
 return Self