Debugger panel: Add a button to open the temporary directory of the debugged process. Add tooltips to explain the different process data displayed.

[DEVELOPMENT ENVIRONMENT] * NEW: Support for the new 'gb.highlight' component. * NEW: Debugger panel: Add a button to open the temporary directory of the debugged process. * NEW: Debugger panel: Add tooltips to explain the different process data displayed. * NEW: System information dialog: A little redesign. More programs checked. * NEW: Update French translation.
2023-10-19 04:10:30 +02:00 · 2023-10-19 04:10:30 +02:00 · 17f8d757a8
commit 17f8d757a8
parent 5cabfec061
10 changed files with 7706 additions and 7870 deletions
--- a/app/src/gambas3/.lang/fr.po
+++ b/app/src/gambas3/.lang/fr.po
--- a/app/src/gambas3/.project
+++ b/app/src/gambas3/.project
@ -27,8 +27,8 @@ Component=gb.form.stock
 Component=gb.term
 Component=gb.form.terminal
 Component=gb.gui.webview
-Component=gb.markdown
 Component=gb.pcre
+Component=gb.markdown
 Component=gb.signal
 Component=gb.util.web
 Description="Integrated Development Environment for Gambas"
--- a/app/src/gambas3/.src/Component/CDocumentation.class
+++ b/app/src/gambas3/.src/Component/CDocumentation.class
@ -100,6 +100,7 @@ Static Private Sub InitComponentNames()
  $cName["gb.gui.qt.webkit"] = ("QT4/QT5 WebKit switcher component")
  $cName["gb.gui.trayicon"] = ("System tray icon management component")
  $cName["gb.hash"] = ("MD5, SHA1, SHA256 and SHA512 hashing functions")
+  $cName["gb.highlight"] = ("Text highlighting component based on description files")
  $cName["gb.httpd"] = ("Embedded HTTP server")
  $cName["gb.image"] = ("Image management")
  $cName["gb.image.effect"] = ("Image filtering component")
--- a/app/src/gambas3/.src/Debug/Design.module
+++ b/app/src/gambas3/.src/Debug/Design.module
@ -22,6 +22,7 @@ Public Startup As String
 Public ProcessId As Integer
 Public ProcessFiles As Integer
 Public ProcessMemory As Long
+Public ProcessTempDir As String

 Public Enum ACTION_RUN, ACTION_RUN_WITH, ACTION_STEP, ACTION_FORWARD, ACTION_RETURN_FROM, ACTION_RUN_EXTERN

@ -468,6 +469,9 @@ Public Sub Debug_Read(Data As String)
        Case "X"
          FDebugExpr.AddResult(Mid$(sVar, 2), aData[1])
          
+        Case "$"
+          ProcessTempDir = UnQuote(aData[1])
+          
      End Select
      
    Case "!"
@ -1870,6 +1874,8 @@ Private Sub MakeInitialCommands(sCmd As String)
    $sAddBreakpoint = ""
  Endif
  
+  If Not $bRemote Then $aCmdStart.Add("?$\tApplication.TempDir")
+  
  $aCmdStart.Insert(FDebugger.GetWatches())

  'If Project.BreakOnError Then $aCmdStart.Add("o+")
--- a/app/src/gambas3/.src/Debug/FDebugger.class
+++ b/app/src/gambas3/.src/Debug/FDebugger.class
@ -784,7 +784,7 @@ Public Sub UpdateProcessInfo(iProcessId As Integer, iProcessFiles As Integer, iP
      
      picProcessId.Show
      lblProcessId.Show
-      lblProcessId.Text = Subst(("Process &1"), iProcessId)
+      lblProcessId.Text = CStr(iProcessId)
      
    Endif
    
@ -1170,3 +1170,9 @@ Public Sub btnCloseTree_Click()
  FMain.btnCloseTree_Click

 End
+
+Public Sub btnOpenTempDir_Click()
+
+  Try Desktop.Open(Design.ProcessTempDir)
+
+End
--- a/app/src/gambas3/.src/Debug/FDebugger.form
+++ b/app/src/gambas3/.src/Debug/FDebugger.form
@ -16,43 +16,57 @@
        Picture = Picture["icon:/small/view-tree"]
      }
      { Panel1 HBox
-        MoveScaled(7,0,43,4)
+        MoveScaled(5,0,50,4)
        Expand = True
-        { picProcessId PictureBox
+        { btnOpenTempDir ToolButton
          MoveScaled(0,0,4,4)
+          ToolTip = ("Open process temporary directory") & "..."
+          Picture = Picture["icon:/small/directory"]
+        }
+        { Separator1 Separator
+          MoveScaled(5,0,0,4)
+        }
+        { picProcessId PictureBox
+          MoveScaled(7,0,4,4)
+          ToolTip = ("Process identifier")
          Alignment = Align.Center
        }
        { lblProcessId Label
-          MoveScaled(4,0,4,4)
+          MoveScaled(12,0,4,4)
+          ToolTip = ("Process identifier")
          AutoResize = True
        }
        { picProcessMemoryRead PictureBox
-          MoveScaled(9,0,4,4)
+          MoveScaled(18,0,4,4)
          Visible = False
          Picture = Picture.Load("icon:/small/cdrom")
          Alignment = Align.Center
        }
        { lblProcessMemoryRead Label
-          MoveScaled(13,0,4,4)
+          MoveScaled(22,0,4,4)
          Visible = False
          AutoResize = True
        }
        { picProcessMemory PictureBox
-          MoveScaled(19,0,4,4)
+          MoveScaled(28,0,4,4)
+          ToolTip = ("Process memory size")
          Picture = Picture.Load("icon:/small/memory")
          Alignment = Align.Center
        }
        { lblProcessMemory Label
-          MoveScaled(23,0,4,4)
+          MoveScaled(32,0,4,4)
+          ToolTip = ("Process memory size")
          AutoResize = True
        }
        { picProcessFiles PictureBox
-          MoveScaled(29,0,4,4)
+          MoveScaled(38,0,4,4)
+          ToolTip = ("Opened file descriptors count")
          Picture = Picture.Load("icon:/small/open")
          Alignment = Align.Center
        }
        { lblProcessFiles Label
-          MoveScaled(34,0,4,4)
+          MoveScaled(43,0,4,4)
+          ToolTip = ("Opened file descriptors count")
          AutoResize = True
        }
      }
--- a/app/src/gambas3/.src/FMain.form
+++ b/app/src/gambas3/.src/FMain.form
@ -1381,21 +1381,25 @@
          }
          { btnVcChanges ToolButton
            MoveScaled(6,0,4,4)
+            Visible = False
            ToolTip = ("Modifications.") & "..."
            Picture = Picture["icon:/small/modified"]
          }
          { btnVcAddAll ToolButton
            MoveScaled(10,0,4,4)
+            Visible = False
            ToolTip = ("Add everything to repository")
            Picture = Picture["icon:/small/added"]
          }
          { btnVcCommit ToolButton
            MoveScaled(14,0,4,4)
+            Visible = False
            ToolTip = ("Commit") & "..."
            Picture = Picture["icon:/small/upload"]
          }
          { btnVcUpdate ToolButton
            MoveScaled(18,0,4,4)
+            Visible = False
            ToolTip = ("Synchronize repository") & "..."
            Picture = Picture["icon:/small/download"]
          }
--- a/app/src/gambas3/.src/VersionControl/FBranchList.form
+++ b/app/src/gambas3/.src/VersionControl/FBranchList.form
@ -7,6 +7,8 @@
  Arrangement = Arrange.Vertical
  { txtFilter ButtonBox
    MoveScaled(2,1,34,3)
+    Foreground = Color.LightForeground
+    Placeholder = ("Enter a filter")
    Border = False
    Button = False
    ClearButton = True
--- a/app/src/gambas3/.src/Welcome/FSystemInfo.class
+++ b/app/src/gambas3/.src/Welcome/FSystemInfo.class
@ -151,9 +151,10 @@ Static Public Sub GetInfo() As String[]
  aText.Add("[Programs]")
  sForTrans = ("Programs")
  
-  For Each sProg In ["git", "gcc", "clang", "pngquant", "translate-shell"].Sort()
+  For Each sProg In ["git", "gcc", "clang", "tcc", "msgmerge", "pngquant", "translate-shell", "rpmbuild", "dpkg", "appimage-builder", "appimage-builder-x86_64", "appimage-builder-x86_64.AppImage"].Sort()
+    If Project.CheckProgram(sProg) Then Continue
    Try Exec [sProg, "--version"] To sTemp
-    If Error Or If Not sTemp Then Continue
+    If Error Then Continue
    If sTemp Then sTemp = Split(sTemp, "\n", "", True)[0]
    aText.Add(sProg & "=" & sTemp)
  Next
@ -232,22 +233,24 @@ Public Sub Form_Open()
  
  Inc Application.Busy
  
+  txtInfo.Padding = Desktop.Scale
+  txtInfo.BorderRadius = txtInfo.H
+  
  aText = GetInfo()
  
  Project.SetEditorFont(gvwInfo)
  
-  gvwInfo.Rows.Count = aText.Count + 1
+  gvwInfo.Rows.Count = aText.Count
  gvwInfo.Columns.Count = 3
  
-  With gvwInfo[0, 0]
-    .Text = ("Please copy these informations in all your bug reports.")
-    .ColumnSpan = 3
-    .Font = Font["Italic,-1"]
-    '.Foreground = Color.Foreground
-  End With
-  gvwInfo.Rows[0].Height = Desktop.Scale * 6
+  ' With gvwInfo[0, 0]
+  '   .Text = ("Please copy these informations in all your bug reports.")
+  '   .ColumnSpan = 3
+  '   .Font = Font["Italic,-1"]
+  '   '.Foreground = Color.Foreground
+  ' End With
+  ' gvwInfo.Rows[0].Height = Desktop.Scale * 6
  
-  I = 1
  For Each sText In aText
    If Left(sText) = "[" Then
      With gvwInfo[I, 0]
--- a/app/src/gambas3/.src/Welcome/FSystemInfo.form
+++ b/app/src/gambas3/.src/Welcome/FSystemInfo.form
@ -6,18 +6,34 @@
  Text = ("System information")
  Icon = Picture["icon:/large/system"]
  Arrangement = Arrange.Vertical
-  Spacing = True
-  Margin = True
+  { Panel2 Panel
+    MoveScaled(6,5,63,6)
+    Arrangement = Arrange.Fill
+    Margin = True
+    { txtInfo TextLabel
+      MoveScaled(2,1,56,4)
+      Font = Font["Italic,Bold"]
+      Background = Color.SelectedBackground
+      Foreground = Color.SelectedForeground
+      Text = ("Please copy these informations in all your bug reports.")
+      Alignment = Align.Center
+    }
+  }
  { gvwInfo GridView
-    MoveScaled(5,5,49,22)
+    MoveScaled(10,27,49,22)
    Font = Font["-2"]
    Expand = True
+    Border = False
    Grid = False
    ScrollBar = Scroll.Vertical
  }
+  { Separator1 Separator
+    MoveScaled(31,58,33,0)
+  }
  { HBox1 HBox
-    MoveScaled(1,62,66,4)
+    MoveScaled(1,62,66,6)
    Spacing = True
+    Margin = True
    { Panel1 Panel
      MoveScaled(19,1,7,4)
      Expand = True