[DEVELOPMENT ENVIRONMENT]

* BUG: Remove the pretty code indentation on function Begin/End. I need to find a way to
       close indentations on functions without ending.


git-svn-id: svn://localhost/gambas/trunk@7951 867c0c6c-44f3-4631-809d-bfa615b0a4ec
This commit is contained in:
Fabien Bodard 2016-11-01 08:00:29 +00:00
parent 143effc7f8
commit cbd2f25cbe

View file

@ -292,14 +292,14 @@ Private Sub IndentLine(sLine As String) As String
Else If sSym = "SELECT" Then
$iLastSelect = $iLine
iNextLevel = $iLevel + 2
Else If sFuncSym = "end" Then 'Fabien : Add End function detecetion
Dec $iLevel
iNextLevel = $iLevel
If bLastWrap Then Inc $iLevel
Else If sFuncSym = "begin" Then 'Fabien : Add Begin function detection
iNextLevel = $iLevel
Inc iNextLevel
If bLastWrap Then Inc $iLevel
' Else If sFuncSym = "end" Then 'Fabien : Add End function detecetion
' Dec $iLevel
' iNextLevel = $iLevel
' If bLastWrap Then Inc $iLevel
' Else If sFuncSym = "begin" Then 'Fabien : Add Begin function detection
' iNextLevel = $iLevel
' Inc iNextLevel
' If bLastWrap Then Inc $iLevel
Else
If $cClose.Exist(sSym) Then Dec $iLevel
iNextLevel = $iLevel