[DEVELOPMENT ENVIRONMENT]

* BUG: Fix the automatic completion behaviour with the backspace key.


git-svn-id: svn://localhost/gambas/trunk@1277 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Benoît Minisini 2008-03-31 22:29:17 +00:00
parent 145de0854b
commit f19000deb9

View File

@ -109,7 +109,7 @@ Public Sub Open(sMode As String, Optional sClass As String, Optional bStatic As
iX = hEditor.X + hEditor.CursorX - iLeft * hEditor.Font.Width("X")
If sMode = "<" Then 'Key.Code = Key.Backspace THEN
iX = iX - hEditor.Font.Width(String.Mid$(hEditor.Lines[hEditor.Line], hEditor.Column, 1))
iX = iX - hEditor.Font.Width(String.Mid$(hEditor.Lines[hEditor.Line].Text, hEditor.Column, 1))
Else
iX = iX + hEditor.Font.Width(Key.Text)
Endif