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

If you use the PROPERTY ... USE syntax, you have to use the SHIFT key with the ENTER key to automatically insert property handlers.

Browse source 
[DEVELOPMENT ENVIRONMENT]
* NEW: If you use the PROPERTY ... USE syntax, you have to use the SHIFT key with the ENTER key to automatically insert property handlers.
This commit is contained in:
gambas 2019-12-23 11:37:36 +01:00
parent ccac0d27b4
commit 5c69af0777
1 changed files with 19 additions and 12 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -548,7 +548,7 @@ Public Sub mnuClose_Click()
End
Private Sub InsertProperty()
Private Sub InsertProperty(bShift As Boolean)
Dim iPos As Integer
Dim bStatic As Boolean
@ -558,28 +558,31 @@ Private Sub InsertProperty()
Dim sType As String
Dim iLine As Integer
Dim iCol As Integer
Dim aSymbols As String[]
If Highlight.Symbols[0] = "STATIC" Then
aSymbols = Highlight.Symbols
If aSymbols[0] = "STATIC" Then
bStatic = True
iPos = 2
Else
iPos = 1
Endif
If Highlight.Symbols[iPos] = "READ" Then
If aSymbols[iPos] = "READ" Then
bRead = True
Inc iPos
Endif
ANOTHER_SYMBOL:
sName = Highlight.Symbols[iPos]
sName = aSymbols[iPos]
If sName = "{" Then
Inc iPos
If Highlight.Types[iPos] <> Highlight.Symbol Then Return
sName = Highlight.Symbols[iPos]
sName = aSymbols[iPos]
Inc iPos
If Highlight.Symbols[iPos] <> "}" Then Return
If aSymbols[iPos] <> "}" Then Return
Else
If Highlight.Types[iPos] <> Highlight.Symbol Then Return
Endif
@ -587,23 +590,27 @@ ANOTHER_SYMBOL:
Inc iPos
If Highlight.Symbols[iPos] = "," Then
If aSymbols[iPos] = "," Then
Inc iPos
Goto ANOTHER_SYMBOL
Endif
sName = sName2
If Highlight.Symbols[iPos] <> "AS" Then Return
If aSymbols[iPos] <> "AS" Then Return
Inc iPos
sType = Highlight.Symbols[iPos]
sType = aSymbols[iPos]
If Highlight.Types[iPos] <> Highlight.DataType Then Return
Inc iPos
If Highlight.Symbols.Max >= iPos Then
If Highlight.Symbols[iPos] = "[" Then
If aSymbols.Max >= iPos Then
If aSymbols[iPos] = "[" Then
sType &= "[]"
Endif
Endif
If aSymbols[aSymbols.Max - 1] = "USE" Then
If Not bShift Then Return
Endif
iLine = $hEditor.Line
iCol = $hEditor.Column
@ -903,7 +910,7 @@ Public Sub Editors_KeyPress()
If aSymbol.Count >= 4 Then
If aSymbol[0] = "PROPERTY" Or If aSymbol[0] = "STATIC" And aSymbol[1] = "PROPERTY" Then
InsertProperty
InsertProperty(Key.Shift)
'$hEditor.Insert("\n")
'Stop Event
Return