[DEVELOPMENT ENVIRONMENT]

* BUG: When converting a Gambas 2 project, correctly replace Arrangement.
  LeftRight by Arrangement.Row and Arrangement.TopBottom by 
  Arrangement.Column.


git-svn-id: svn://localhost/gambas/trunk@6532 867c0c6c-44f3-4631-809d-bfa615b0a4ec

app/src/gambas3/.src/Project/Conversion/MConvert.module

@@ -152,6 +152,12 @@ Private Sub ConvertForm(sPath As String)
         Endif
       Else If sProp = "Spacing" Then
         sFullLine = "Spacing = True"
+      Else If sProp = "Arrangement" Then
+        If sValue = "LeftRight" Then
+          sFullLine = "Arrangement = Arrange.Row"
+        Else If sValue = "TopBottom" Then
+          sFullLine = "Arrangement = Arrange.Column"
+        Endif
       Else If sClass = "WebBrowser" Then
         If ["Java", "JavaScript", "Path", "Plugins", "Zoom"].Exist(sProp) Then Continue
       Else If sClass = "ValueBox" Then

app/src/gambas3/.src/Project/FCreateFile.class

@@ -118,12 +118,7 @@ End
 
 Public Sub Form_Open()
 
-  Dim hCtrl As Control
   Dim hModule As CModule
-  'Dim aFilter As String[]
-  Dim hPanel As Container
-  Dim hPictureBox As PictureBox
-  Dim sType As String
 
   $bDoNotSetName = False