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

Don't crash when opening a Gambas source file as an external file.

Browse source 
[DEVELOPMENT ENVIRONMENT]
* BUG: Don't crash when opening a Gambas source file as an external file.
This commit is contained in:
gambas 2018-05-16 19:07:50 +02:00
parent e9bc65686c
commit 8200600168
2 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
app/src/gambas3/.src/Debug/Design.module
View file

@ -1371,6 +1371,8 @@ Public Sub InitEditorWithBreakpoints(hEditor As FEditor)
Dim I As Integer Dim I As Integer
Dim sPrefix As String Dim sPrefix As String
If Project.IsFake() Then Return
sPrefix = hEditor.Name & "." sPrefix = hEditor.Name & "."
While I < $aBreakpoint.Count While I < $aBreakpoint.Count
sBreakpoint = $aBreakpoint[I] sBreakpoint = $aBreakpoint[I]

3
app/src/gambas3/.src/Editor/Code/FEditor.class
View file

@ -1041,6 +1041,7 @@ Public Function CanSetBreakpoint(iLine As Integer) As Boolean
Dim sLine As String Dim sLine As String
Dim iPos As Integer Dim iPos As Integer
If Project.IsFake() Then Return
If iLine < 0 Or If iLine >= $hEditor.Count Then Return If iLine < 0 Or If iLine >= $hEditor.Count Then Return
'$hEditor[iLine].Refresh '$hEditor[iLine].Refresh
@ -1082,6 +1083,7 @@ Public Sub CheckBreakpoints()
Dim iLine As Integer Dim iLine As Integer
If Project.IsFake() Then Return
For Each iLine In $hEditor.Breakpoints For Each iLine In $hEditor.Breakpoints
If Not CanSetBreakpoint(iLine) Then SetBreakpoint(iLine, False, False) If Not CanSetBreakpoint(iLine) Then SetBreakpoint(iLine, False, False)
Next Next
@ -3350,6 +3352,7 @@ End
Public Sub mnuBreakpoint_Click() Public Sub mnuBreakpoint_Click()
If Not CanSetBreakpoint($hEditor.Line) Then Return
Design.SetBreakpoint(Me.Name & "." & CStr($hEditor.Line), Not HasBreakpoint($hEditor.Line)) Design.SetBreakpoint(Me.Name & "." & CStr($hEditor.Line), Not HasBreakpoint($hEditor.Line))
End End