Changeset 1078 for trunk/src/mouse_down.m

Timestamp:

Mar 30, 2020, 3:48:19 PM (5 years ago)

Author:

sommeria

Message:

various updates

File:

• trunk/src/mouse_down.m (modified) (1 diff)

trunk/src/mouse_down.m

@@ -390 +390 @@
         IndexObj=IndexObj+1;%start new object
         ObjectData.Coord=[];
-        ObjectNameNew=ObjectData.Name;
-        if isempty(ObjectNameNew)
-            ObjectNameNew=ObjectData.Type;
+        ObjectName=ObjectData.Name;
+        if isempty(ObjectName)
+            ObjectName=ObjectData.Type;
         end
         % add an index to the object name if the proposed name already exists
-        vers=0;% index of the name
+        %vers=0;% index of the name
         ListObject=get(hhuvmat.ListObject,'String');
-        detectname=1;
-        while ~isempty(detectname)
-            detectname=find(strcmp(ObjectNameNew,ListObject),1);%test the existence of the proposed name in the list
-            if detectname% if the object name already exists
-                indstr=regexp(ObjectNameNew,'\D');
-                if indstr(end)<length(ObjectNameNew) %object name ends by a number
-                    vers=str2double(ObjectNameNew(indstr(end)+1:end))+1;
-                    ObjectNameNew=[ObjectNameNew(1:indstr(end)) num2str(vers)];
-                else
-                    vers=vers+1;
-                    ObjectNameNew=[ObjectNameNew(1:indstr(end)) '_' num2str(vers)];
-                end
-            end
-        end
-        ObjectName=ObjectNameNew;
+        ObjectName=rename_indexing(ObjectName,ListObject);% add an index or upgrade it if the object naem already exists
         set(sethandles.Name,'String',ObjectName)% display the default name in set_object
         ListObject=[ListObject;{ObjectName}];