* source/rtl/teditor.prg

! Fix call to SET() without setting values. METHOD InsertState()
2002-06-21 18:47:12 +00:00
parent a68152920f
commit e1c51ed9aa
1 changed files with 4 additions and 2 deletions
--- 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