luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

[GB.FORM.EDITOR]

Browse source 
* BUG: TextEditor: Do not toggle to overwrite mode when inserting a line.


git-svn-id: svn://localhost/gambas/trunk@7173 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Fabien Bodard 2015-07-05 13:52:48 +00:00
parent d4146dfcd0
commit 15b5ed13ef
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
comp/src/gb.form.editor/.src/TextEditor.class
View file

@ -1141,7 +1141,7 @@ Public Sub View_KeyPress()
Dim bCancel As Boolean Dim bCancel As Boolean
Dim aLayout As Integer[] Dim aLayout As Integer[]
Dim I, P As Integer Dim I, P As Integer
Dim bSaveOverwrite As Boolean = $bOverwrite
bCancel = Raise KeyPress bCancel = Raise KeyPress
If bCancel Then Goto STOP_EVENT If bCancel Then Goto STOP_EVENT
@ -1325,7 +1325,8 @@ Public Sub View_KeyPress()
If Not $bPrint Then $bOverwrite = False If Not $bPrint Then $bOverwrite = False
sTab = GetIndentText($Y) sTab = GetIndentText($Y)
Insert("\n" & String.Left(sTab, $X)) Insert("\n" & String.Left(sTab, $X))
If Not $bPrint Then $bOverwrite = True 'If Not $bPrint Then $bOverwrite = True
$bOverwrite = bSaveOverwrite
Case Key.BackSpace Case Key.BackSpace
If Key.Control Then If Key.Control Then