Stock: Fix support for KDE desktop.

[GB.FORM]
* BUG: Stock: Fix support for KDE desktop.

comp/src/gb.form/.project

@@ -1,6 +1,6 @@
 # Gambas Project File 3.0
 Title=More controls for graphical components
-Startup=FTestFileChooser
+Startup=FTestDateChooser
 Icon=.hidden/icon.png
 Version=3.18.90
 VersionFile=1

comp/src/gb.form/.src/Stock.class

@@ -69,7 +69,13 @@ Static Private Sub SearchDesktop()
   Dim sDesktop As String
 
   If Application.Theme Then Return
-  sDesktop = Desktop.Type
+  If Desktop.Is("KDE4") Then
+    sDesktop = "KDE4"
+  Else If Desktop.Is("KDE5") Then 
+    sDesktop = "KDE5"
+  Else
+    sDesktop = Desktop.Type
+  Endif
   If $bDebug Then Error "gb.form: desktop is " & sDesktop
   Application.Theme = LCase(sDesktop)
 
@@ -328,9 +334,7 @@ Static Private Sub SearchTheme(sDesktop As String)
 
     Case Else
 
-      If sDesktop <> "gambas" Then
-        GetAllThemePath("gnome", $aRoots, Application.Theme)
-      Endif
+      GetAllThemePath("gnome", $aRoots, Application.Theme)
 
   End Select
 

comp/src/gb.form/.src/TabPanel/TabPanel.class

@@ -68,15 +68,6 @@ Private $bShowTabBar As Boolean = True
 Public Sub _new()
 
   $hTabBar = New DrawingArea(Me) As "TabBar"
-  '$hTabBar.Arrangement = Arrange.Fill
-  
-  ' $hLeftArrow = New DrawingArea($hTabBar) As "Arrow"
-  ' $hLeftArrow.Ignore = True
-  ' $hLeftArrow.Hide
-  ' 
-  ' $hRightArrow = New DrawingArea($hTabBar) As "Arrow"
-  ' $hRightArrow.Ignore = True
-  ' $hRightArrow.Hide
 
   $hTabBarContainer = New DrawingArea($hTabBar) As "TabBarContainer"
   $hTabBarContainer.Name = Me.Name & "_TabBarContainer"