From 493b1fbdc5a650cc7e682892d399e950308091b4 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Tue, 8 Aug 2017 05:57:55 +0200
Subject: [PATCH] fixup for #178, only array items don't need a name

---
 src/ce_dubprojeditor.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/ce_dubprojeditor.pas b/src/ce_dubprojeditor.pas
index c40b5389..3df369c0 100644
--- a/src/ce_dubprojeditor.pas
+++ b/src/ce_dubprojeditor.pas
@@ -221,8 +221,8 @@ begin
       1: tpe := TJSONtype.jtObject;
       else tpe := TJSONtype.jtString;
     end;
-    if (tpe in [jtObject, jtString]) and (fEdName.Text = '') then
-      dlgOkError('This property requires a name')
+    if fEdName.Enabled and (fEdName.Text = '') then
+      dlgOkError('New properties require a name')
     else
     begin
       fEvent(fEdName.Text, tpe);