Help browser: Always display buzy cursor when opening it.

[DEVELOPMENT ENVIRONMENT]
* BUG: Help browser: Always display buzy cursor when opening it.
* BUG: Software farm: Use small icons in buttons.

app/src/gambas3/.project

@@ -31,7 +31,7 @@ Component=gb.signal
 Component=gb.util
 Description="Integrated Development Environment for Gambas"
 Authors="Benoît Minisini\nFabien Bodard\nCharlie Reinl\nJosé Luis Redrejo\nRobert Rowe\nTobias Boege"
-Arguments=[["-t","~/gambas/git/master/app/src/gambas3"]]
+Arguments=[["-t","/home/benoit/gambas/git/master/app/src/gambas3"]]
 CurrentArgument=0
 Environment="GB_GUI=gb.qt5"
 TabSize=2

app/src/gambas3/.src/FMain.class

@@ -2924,10 +2924,6 @@ End
 
 Public Sub mnuViewExplorer_Click()
 
-  If Not Class.IsLoaded("FHelpBrowser") Then
-    Inc Application.Busy
-    FHelpBrowser.Load
-    Dec Application.Busy
-  Endif
+  MHelp.LoadHelpBrowser
 
 End

app/src/gambas3/.src/Help/MHelp.module

@@ -476,6 +476,17 @@ Public Sub InitWebViewWith(hWebView As WebView, iType As Integer, sSymbol As Str
   
 End
 
+Public Sub LoadHelpBrowser()
+  
+  If Not Class.IsLoaded("FHelpBrowser") Then
+    Inc Application.Busy
+    FHelpBrowser.Load
+    Dec Application.Busy
+  Endif
+  
+End
+
+
 '' # Description
 '' 
 '' Initialize the help browser with the help on a specific symbol, and show it automatically.
@@ -502,6 +513,7 @@ End
 
 Public Sub ShowHelpBrowserWith(iType As Integer, sSymbol As String, Optional sClass As String, Optional sMore As String)
   
+  LoadHelpBrowser
   FHelpBrowser.Show
   InitWebViewWith(Null, iType, sSymbol, sClass, sMore)
   
@@ -987,4 +999,4 @@ Public Sub LoadCustom(sPage As String) As String
 
   
 
-End
+End

app/src/gambas3/.src/Project/Farm/CSoftware.class

@@ -469,7 +469,7 @@ INSTALL_SOURCE:
   
 Catch
   
-  sErr = Error.Text
+  sErr = Error.Text & "\n\n" & Error.Backtrace.Join(" ")
   
 LEAVE_INSTALL:
   

app/src/gambas3/.src/Project/Farm/FSoftwareFarm.class

@@ -359,17 +359,17 @@ Private Sub UpdateSoftware()
   
     If .CanUpgrade() Then
       btnInstall.Text = ("Upgrade")
-      btnInstall.Picture = Picture["icon:/medium/up"]
+      btnInstall.Picture = Picture["icon:/small/up"]
       btnDownload.Hide
       btnInstall.Show
     Else If .IsReallyInstalled() Then
       btnInstall.Text = ("Uninstall")
-      btnInstall.Picture = Picture["icon:/medium/undo"]
+      btnInstall.Picture = Picture["icon:/small/undo"]
       btnDownload.Hide
       btnInstall.Show
     Else If Not .IsInstalled() Then
       btnInstall.Text = ("Install")
-      btnInstall.Picture = Picture["icon:/medium/add"]
+      btnInstall.Picture = Picture["icon:/small/add"]
       btnDownload.Show
       btnInstall.Show
     Else

app/src/gambas3/.src/Project/Farm/FSoftwareFarm.form

@@ -283,7 +283,7 @@
         Mouse = Mouse.Pointing
         AutoResize = True
         Text = ("Download")
-        Picture = Picture["icon:/medium/download"]
+        Picture = Picture["icon:/small/download"]
       }
       { btnVote Button
         MoveScaled(38,0,15,4)
@@ -291,7 +291,7 @@
         Mouse = Mouse.Pointing
         AutoResize = True
         Text = ("Vote")
-        Picture = Picture["icon:/medium/bookmark"]
+        Picture = Picture["icon:/small/bookmark"]
       }
       { Panel10 Panel
         MoveScaled(53,0,2,4)
@@ -302,7 +302,7 @@
         Mouse = Mouse.Pointing
         AutoResize = True
         Text = ("Remove")
-        Picture = Picture["icon:/medium/remove"]
+        Picture = Picture["icon:/small/remove"]
       }
     }
     Index = 0