[DEVELOPMENT ENVIRONMENT]

* BUG: Fix insertion of predefined environment variables in the project 
  property dialog.


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

app/src/gambas3/.lang/.pot

@@ -2665,7 +2665,7 @@ msgstr ""
 msgid "Create a shortcut on the desktop"
 msgstr ""
 
-#: FMakeExecutable.class:18 FPropertyProject.class:1109
+#: FMakeExecutable.class:18 FPropertyProject.class:1112
 msgid "Gambas applications"
 msgstr ""
 
@@ -3774,15 +3774,15 @@ msgstr ""
 msgid "You are going to cancel your changes!"
 msgstr ""
 
-#: FPropertyProject.class:1108
+#: FPropertyProject.class:1111
 msgid "Select a Gambas application"
 msgstr ""
 
-#: FPropertyProject.class:1119
+#: FPropertyProject.class:1122
 msgid "<b>&1</b> is already used as a library."
 msgstr ""
 
-#: FPropertyProject.class:1125
+#: FPropertyProject.class:1128
 msgid "<b>&1</b> does not export any class."
 msgstr ""
 

app/src/gambas3/.src/Project/FPropertyProject.class

@@ -1019,12 +1019,15 @@ Public Sub mnuInsertEnv_Click()
         aEnv[1] = aNewEnv[1]
         $aEnv[iInd] = aEnv[0] & "=" & aEnv[1]
         tvwEnv.Refresh
-        Continue
+        sNewEnv = ""
+        Break
       Endif
     Next
   
+    If sNewEnv Then
       $aEnv.Add(sNewEnv)
       Inc tvwEnv.Rows.Count
+    Endif
     
   Next
   

app/src/gambas3/.src/Project/FPropertyProject.form

@@ -55,7 +55,7 @@
       MoveScaled(53,11,29,0)
     }
     { HPanel1 HPanel
-      MoveScaled(1,12,84,47)
+      MoveScaled(1,11,84,47)
       Expand = True
       AutoResize = True
       Spacing = True