Translation dialog: Do not use sorted ComboBoxes for choosing languages.

[DEVELOPMENT ENVIRONMENT]
* BUG: Translation dialog: Do not use sorted ComboBoxes for choosing languages, as Qt and GTK+ do not sort the same way, and it breaks the behaviour of the dialog when using GTK+3.

app/src/gambas3/.project

@@ -31,7 +31,7 @@ Component=gb.signal
 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_GUI=gb.gtk3\n GTK_DEBUG=interactive"
 TabSize=2
 Translate=1
 Language=en

app/src/gambas3/.src/Translation/FTranslate.class

@@ -134,6 +134,8 @@ Public Sub Form_Open()
 
   Dim sLang As String
   Dim sPath As String
+  Dim sName As String
+  Dim aName As String[]
 
   Inc Application.Busy
 
@@ -149,13 +151,17 @@ Public Sub Form_Open()
   cmbLangSource.Add(("(Default)"))
   
   'For Each sLang In Language.GetAll()
+  aName = New String[]
   For Each sLang In Project.GetTranslations()
-    'If Project.HasTranslation(sLang) Then
-      cvwLang.Add(sLang, Language.ToName(sLang))
-      cmbLang.Add(Language.ToName(sLang))
-      cmbLangSource.Add(Language.ToName(sLang))
-    'Endif
+    sName = Language.ToName(sLang)
+    aName.Add(sName)
+    cvwLang.Add(sLang, sName)
   Next
+  
+  aName.Sort(gb.Natural)
+  cmbLang.List = aName
+  aName.Add(("(Default)"), 0)
+  cmbLangSource.List = aName
 
   sPath = Settings["/FTranslate/ImportPath"]
   If Not sPath Then sPath = System.User.Home

app/src/gambas3/.src/Translation/FTranslate.form

@@ -82,7 +82,6 @@
           MoveScaled(6,0,21,4)
           Expand = True
           ReadOnly = True
-          Sorted = True
         }
         { PictureBox2 PictureBox
           MoveScaled(28,0,4,4)
@@ -94,7 +93,6 @@
           Font = Font["Bold"]
           Expand = True
           ReadOnly = True
-          Sorted = True
         }
         { btnNew ToolButton mnuNew
           Name = "btnNew"