Merge branch '4PointCutting' of https://files.eleton-audio.de/gitea/Ludwig/Reaper-Scripts into 4PointCutting

4PointCutting/4Pcut_execute.lua

@@ -176,12 +176,21 @@ select_dst_track_only()
 reaper.Main_OnCommand(40058, 0) -- paste item 
 --reaper.Main_OnCommand( reaper.NamedCommandLookup('_SWS_AWPASTE'), 0 ) -- SWS Paste
 -- Crossfade (only with SWS extensions, "fill gaps")
-reaper.Main_OnCommand( 40290, 0 ) -- set time selection to selected items 
+if sws_present then
-reaper.Main_OnCommand( 40320, 0 ) -- nudge left edge of time selection left
+    -- select track with selected items
-reaper.Main_OnCommand( 40323, 0 ) -- nudge right edge of time selection right
+    local selected_items_count = reaper.CountSelectedMediaItems(0)
-reaper.Main_OnCommand( 40718, 0 ) -- select items on selected tracks and in time selection
+    for i = 0, selected_items_count - 1  do
-reaper.Main_OnCommand( reaper.NamedCommandLookup('_SWS_AWFILLGAPSQUICKXFADE'), 0 )  --  fill gaps between selected items and crossfade
+        local item = reaper.GetSelectedMediaItem(0, i)
--- Move dstin marker according to edit mode
+        local track = reaper.GetMediaItem_Track(item)
+        reaper.SetTrackSelected(track, true)   
+    end
+    reaper.Main_OnCommand( 40290, 0 ) -- set time selection to selected items 
+    reaper.Main_OnCommand( 40320, 0 ) -- nudge left edge of time selection left
+    reaper.Main_OnCommand( 40323, 0 ) -- nudge right edge of time selection right
+    reaper.Main_OnCommand( 40718, 0 ) -- select items on selected tracks and in time selection
+    reaper.Main_OnCommand( reaper.NamedCommandLookup('_SWS_AWFILLGAPSQUICKXFADE'), 0 )  --  fill gaps between selected items and crossfade
+end
+    -- Move dstin marker according to edit mode
 if edit_mode == 1 then 
     reaper.SetProjectMarker(mark_dstin_id, false, mark_dstin_pos + (mark_srcout_pos - mark_srcin_pos), 0, 'DST-IN_4Pcut')
 elseif edit_mode == 2 then