From 057f65fe1b9314d838004fdd7899afb97829b403 Mon Sep 17 00:00:00 2001
From: gambas <g4mba5@gmail.com>
Date: Thu, 3 Feb 2022 22:05:20 +0100
Subject: [PATCH] Translated tips of the day are back.

[DEVELOPMENT ENVIRONMENT]
* BUG: Translated tips of the day are back.
---
 app/src/gambas3/.project                   | 2 +-
 app/src/gambas3/.src/Debug/Design.module   | 2 +-
 app/src/gambas3/.src/Debug/FDebugInfo.form | 2 +-
 app/src/gambas3/.src/Help/FTips.class      | 2 +-
 4 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/app/src/gambas3/.project b/app/src/gambas3/.project
index 14321f815..bb0c78683 100644
--- a/app/src/gambas3/.project
+++ b/app/src/gambas3/.project
@@ -34,7 +34,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_NO_JIT=1\nGB_GUI=gb.qt5\n GTK_DEBUG=interactive"
+Environment=" GB_NO_JIT=1\nGB_GUI=gb.qt5\n GTK_DEBUG=interactive\nLANGUAGE=it_IT.UTF-8\nLANG=it_IT.UTF-8\nLC_ALL=it_IT.UTF-8"
 TabSize=2
 Translate=1
 Language=en
diff --git a/app/src/gambas3/.src/Debug/Design.module b/app/src/gambas3/.src/Debug/Design.module
index 9d6cccbba..62c8b23d8 100644
--- a/app/src/gambas3/.src/Debug/Design.module
+++ b/app/src/gambas3/.src/Debug/Design.module
@@ -1000,7 +1000,7 @@ Private Sub Start(sCmd As String)
   Dim hCopyProcess As Process
   Dim sFifo As String
   Dim sRemoteDebuggerHelper As String
-  Dim iCurrentArg As Variant
+  Dim iCurrentArg As Integer
 
   If Project.Running Then Return
   
diff --git a/app/src/gambas3/.src/Debug/FDebugInfo.form b/app/src/gambas3/.src/Debug/FDebugInfo.form
index 7f14e7c67..2bcde8087 100644
--- a/app/src/gambas3/.src/Debug/FDebugInfo.form
+++ b/app/src/gambas3/.src/Debug/FDebugInfo.form
@@ -66,7 +66,7 @@
               AutoResize = True
               { picProcessMemory PictureBox
                 MoveScaled(0,0,4,4)
-                Picture = Picture.Load("icon:/small/cpu")
+                Picture = Picture.Load("icon:/small/statistics")
                 Alignment = Align.Center
               }
               { lblProcessMemory Label
diff --git a/app/src/gambas3/.src/Help/FTips.class b/app/src/gambas3/.src/Help/FTips.class
index 45174f407..136380bb3 100644
--- a/app/src/gambas3/.src/Help/FTips.class
+++ b/app/src/gambas3/.src/Help/FTips.class
@@ -66,7 +66,7 @@ Private Function GetNextTip(Optional bPrev As Boolean) As String
     iPos = InStr(sLang, "_")
     If iPos Then
       sLang = Left$(sLang, iPos - 1)
-      sFile = "tips/tips." & sLang
+      sFile = "tips/tips." & sLang & ".txt"
     Endif
   Endif
   If Not Exist(sFile) Then