Debugger: String variables are now edited in an external dialog box if they are too long (more than 128 bytes).

[DEVELOPMENT ENVIRONMENT]
* NEW: Update French translation.
* NEW: Debugger: String variables are now edited in an external dialog box if they are too long (more than 128 bytes).

app/src/gambas3/.project

@@ -33,7 +33,7 @@ Component=gb.util.web
 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"]]
-Environment="GB_GUI=gb.qt5\n GTK_DEBUG=interactive"
+Environment=" GB_NO_JIT=1\nGB_GUI=gb.qt5\n GTK_DEBUG=interactive"
 TabSize=2
 Translate=1
 Language=en

app/src/gambas3/.src/Debug/FDebugInfo.class

@@ -1291,9 +1291,16 @@ Public Sub cvwVariable_Activate()
       Design.Command("#X" & sExpr & "\t" & sExpr)
     Else
       If .Key Begins "@" Then Return
-      .Editable = True
-      .Rename(1)
-      .Editable = False
+      
+      If sVal Begins Chr$(34) And If Len(sVal) > 128 Then
+        If Not FText.Run(UnQuote(sVal), Subst(("Modify '&1' value"), sExpr)) Then
+          Design.Command("=V" & .Key & "\t" & sExpr & " = " & Quote(FText.Value))
+        Endif
+      Else
+        .Editable = True
+        .Rename(1)
+        .Editable = False
+      Endif
     Endif
     
   End With

app/src/gambas3/.src/Editor/Form/FProperty.class

@@ -964,7 +964,7 @@ Public Sub txtProperty_Click()
 
     Case "s"
       SaveProperty
-      If FText.Run($sOldVal, $sLast) Then Goto _EXIT
+      If FText.Run($sOldVal, Subst(("Edit '&1' property"), $sLast)) Then Goto _EXIT
       $hEditor.Text = FText.Value
 
     Case "String[]"
@@ -1052,7 +1052,7 @@ Public Sub txtProperty_Click()
         If FFieldChooser.Run(sConnection, sTable, True, $sOldVal) Then Goto _EXIT
         $hEditor.Text = FFieldChooser.Value
       Else
-        If FText.Run($sOldVal, $sLast) Then Goto _EXIT
+        If FText.Run($sOldVal, Subst(("Edit '&1' property"), $sLast)) Then Goto _EXIT
         $hEditor.Text = FText.Value
       Endif
 

app/src/gambas3/.src/Editor/Form/FText.class

@@ -2,20 +2,19 @@
 
 Static Public Value As String
 
-
-Static Public Function Run(sText As String, sProperty As String) As Boolean
+Static Public Function Run(sText As String, sTitle As String) As Boolean
 
   Dim hForm As Form
 
   Value = sText
   hForm = New FText
-  hForm.Title = Subst(("Edit '&1' property"), sProperty)
+  'hForm.Title = Subst(("Edit '&1' property"), sProperty)
+  hForm.Title = sTitle
 
   Return Not hForm.ShowModal()
 
 End
 
-
 Public Sub Form_Open()
 
   txtText.Text = Value
@@ -27,7 +26,6 @@ Public Sub Form_Open()
   
 End
 
-
 Public Sub btnCancel_Click()
 
   Me.Close

app/src/gambas3/.src/Project.module

@@ -2645,7 +2645,7 @@ Public Function Compile(Optional bAll As Boolean, Optional bNoDebug As Boolean,
       sError &= RTrim(File.Load(Project.Dir &/ ".lang" &/ sFile)) & "\n\n"
     Next
     sError = Trim(sError)
-    If sError Then FCommandError.Run(("The translation tools return the following errors:"), sError, ("Translation errors"))
+    If sError Then FCommandError.Run(("The translation tools returned the following errors:"), sError, ("Translation errors"))
     
   Endif