+
−function blk = g_copyfcnCallback(oldSelection,newSelection)
+
−   
+
−   try %#ok<ALIGN> % the try syntax is due to eventual multiple (or no) outports of the parent block
+
−      
+
−%       if numel(newSelection)>1
+
−%          for ii=1:numel(newSelection), blockPosition(ii,1:4) = get_param(newSelection(ii),'Position'); end
+
−%          if ii>1, delete_block(getfullname(newSelection(ii))); end
+
−%          meanPosition = [mean(blockPosition(:,1)) , mean(blockPosition(:,2)) , blockPosition(1,3) , blockPosition(1,4)];
+
−%          set_param(newSelection(1),'Position',meanPosition);
+
−%          newSelection(2:end)=[];
+
−%       end
+
−
+
−      if numel(newSelection)>1
+
−         for ii=2:numel(newSelection)
+
−            delete_block(getfullname(newSelection(ii)))
+
−         end
+
−         newSelection(2:end)=[];
+
−      end
+
−      
+
−      functionName = get_param(find_system(newSelection(1),'LookUnderMasks','all','BlockType','M-S-Function'),'Tag');
+
−      if isempty(functionName), functionName = 'hollow'; end
+
−      
+
−    % To replace the copied block with the hollow one:
+
−      load_system('ltpda_library');
+
−      blk = replace_block(gcs,'Name',get(newSelection,'Name'),'ltpda_library/Commonly Used Blocks/hollow','noprompt');
+
−      blk = get_param(blk{1},'Handle');
+
−      set(blk,'LinkStatus','inactive','MaskDisplay','disp(''hollow'')')
+
−      set(utils.prog.find_in_models(blk,'LookUnderMasks','all','BlockType','M-S-Function','FunctionName','ltpdasim'),'Tag','','Name','hollow');
+
−      set(blk,'Selected','on')
+
−      set(blk,'UserData',[functionName,'-',num2str(oldSelection(1),20)])
+
−      
+
−   % To add the line properly connecting the old block to the new one:
+
−     if numel(oldSelection)>1
+
−         set(blk,'UserData','none - 1')
+
−         g_numberDataInput('',1,numel(oldSelection))
+
−         for ii=1:numel(oldSelection)
+
−            add_line(gcs,[get(oldSelection(ii),'Name'),'/1'],[get(blk,'Name'),'/',num2str(ii)],'autorouting','on')
+
−         end
+
−         
+
−      else
+
−         add_line(gcs,[get(oldSelection,'Name'),'/1'],[get(blk,'Name'),'/1'],'autorouting','on')
+
−      end
+
−
+
−   catch, end;
+
−   
+
−end