app/src/gambas3/.project

@@ -32,6 +32,7 @@ Component=gb.signal
 Description="Integrated Development Environment for Gambas"
 Authors="Benoît Minisini\nFabien Bodard\nCharlie Reinl\nJosé Luis Redrejo\nRobert Rowe\nTobias Boege"
 Arguments=[["-L"],["-t","/home/benoit/gambas/git/master/app/src/gambas3"],["--help"]]
+CurrentArgument=["--help"]
 TabSize=2
 Translate=1
 Language=en

app/src/gambas3/.src/Editor/Code/FCompletion.class

@@ -527,11 +527,11 @@ Private Sub FillWithIdent(sWord As String)
   Dim iLine As Integer
   Dim aKeywords As String[]
   Dim aFind As Integer[]
-  Dim fTimer As Float
   Dim sSearchLine As String
   Dim sSearchWord As String
   Dim aSearchWord As String[]
   Dim aResultWord As String[]
+  'Dim fTimer As Float
 
   ClearRows
 
@@ -589,14 +589,14 @@ Private Sub FillWithIdent(sWord As String)
     Next
   Endif
   
-  If Not $hEditor.IsSameFindStrings(String.Left(sWord, 3)) Then
+  'fTimer = Timer
   
-    fTimer = Timer
+  If Not $hEditor.IsSameFindStrings(String.Left(sWord, 3)) Then
   
     $cFindStrings = New Collection
     aFind = $hEditor.FindStrings(String.Left(sWord, 3))
     
-    fTimer = Timer
+    sSearchWord = LCase(String.RemoveDiacritics(sWord))
     
     For Each iLine In aFind
     
@@ -608,7 +608,6 @@ Private Sub FillWithIdent(sWord As String)
       'Endif
       
       sSearchLine = String.RemoveDiacritics(sLine)
-      sSearchWord = LCase(String.RemoveDiacritics(sWord))
       
       aSearchWord = Split(sSearchLine, $sWordSeparators, "", True)
       aResultWord = Split(sLine, $sWordSeparators, "", True)
@@ -656,6 +655,8 @@ Private Sub FillWithIdent(sWord As String)
     aResult.Add(sCar & " " & MHelp.TYPE_SYMBOL)
     cKey[sCar] = True
   Next
+  
+  'Debug Timer - fTimer
 
   If $bGambas Then
     

app/src/gambas3/.src/Editor/Code/FEditor.class

@@ -254,7 +254,7 @@ End
 
 Private Sub ResetIfModified()
 
-  If Not $bModify Then Return
+  'If Not $bModify Then Return
   If $iScanTimeStamp = Project.TimeStamp Then Return
   
   ResetProcList

app/src/gambas3/.src/Editor/Code/FTextEditor.class

@@ -1339,7 +1339,7 @@ Public Sub IsWordChar(sCar As String) As Boolean
   
   If Len(sCar) = 1 And If Asc(sCar) <= 32 Then Return False
   If IsDigit(sCar) Then Return True
-  If InStr("_", sCar) Then Return True
+  If InStr("_-", sCar) Then Return True
   If IsLetter(String.RemoveDiacritics(sCar)) Then Return True
   'Return InStr("&~\"#'{([|`\\^@)]°=+}€$£%*!§:/;.,?<>¢«»¥·©®¬¿×·÷¡ø", sCar) = 0
   

app/src/gambas3/.src/Exported/TextEditor.class

@@ -15,8 +15,8 @@ Private $hObserver As Observer
 
 Private $bLabelBottom As Boolean
 
-Static Private $sFindPrefix As String
-Static Private $aFind As Integer[]
+Private $sFindPrefix As String
+Private $aFind As Integer[]
 
 Private $iLastLine As Integer
 Private $iLastLineOffset As Integer
@@ -276,7 +276,6 @@ End
 
 Public Sub Editor_GotFocus()
   
-  '$iLastLine = -1
   $aFind = Null
   $sFindPrefix = ""
   
@@ -310,9 +309,9 @@ Public Sub HideMessageLabel()
   
 End
 
-Public Sub IsSameFindStrings(sPrefix As String) As String
+Public Sub IsSameFindStrings((sPrefix) As String) As Boolean
   
-  Return sPrefix = $sFindPrefix
+  'Return sPrefix = $sFindPrefix
   
 End
 
@@ -321,7 +320,7 @@ Public Sub FindStrings(sPrefix As String) As Integer[]
   
   Dim iLine As Integer
   
-  If sPrefix = $sFindPrefix Then Return $aFind
+  'If sPrefix = $sFindPrefix Then Return $aFind
   
   $sFindPrefix = sPrefix
   $aFind = New Integer[]

app/src/gambas3/.src/Project/CProjectList.class

@@ -454,6 +454,8 @@ Public Sub ApplyFilter(sFilter As String)
   Dim hProjectItem As ProjectBox
   Dim bShowEnd As Boolean
 
+  If Len(sFilter) And If Len(sFilter) < 3 Then Return
+
   $hList.Arrangement = Arrange.None
   
   If $bNoFilter Or If Not sFilter Then

app/src/gambas3/.src/Project/FArguments.class

@@ -28,7 +28,7 @@ Public Sub Form_Open()
 
   Project.SetEditorFont(lstArg)
   FillList
-  lstArg.Text = FromArgs(Project.CurrentArgument)
+  lstArg.Index = lstArg.Find(FromArgs(Project.CurrentArgument))
   
 End
 

app/src/gambas3/.src/Project/ProjectBox.class

@@ -182,7 +182,7 @@ Public Sub DrawingArea_Draw()
     If $bSelected Or If $bHighlight Then
       iBg = Color.Gradient(Color.LightBackground, Color.TextBackground)
     Else
-      iBg = Color.Merge(Color.TextForeground, Color.TextBackground, 0.97)
+      iBg = Color.TextBackground 'Color.Merge(Color.TextForeground, Color.TextBackground, 0.97)
     Endif
     Paint.Background = iBg
     Paint.Fill(True)