DeskTop: Left/Right Arrow in list views shouldn't clear selection

Regression from v1.5 - since Left Arrow/Right Arrow keys don't
do change the selection in list views, they shouldn't change
selection at all. But if selection was in another window it would
be cleared.

The fix is simply to move a block of code up, which eliminates
a redundant call as well.

Author: inexorabletash

src/desktop/main.s

@@ -3773,8 +3773,6 @@ END_PARAM_BLOCK
         ENTRY_POINTS_FOR_A left, kDirLeft, right, kDirRight, up, kDirUp, down, kDirDown
         sta     dir
 
-        jsr     CacheFocusedWindowIconList
-
 ;;; --------------------------------------------------
 ;;; If a list view, use index-based logic
 
@@ -3790,6 +3788,8 @@ END_PARAM_BLOCK
 ;;; --------------------------------------------------
 ;;; Identify a starting icon
 
+        jsr     CacheFocusedWindowIconList
+
         lda     selected_icon_count
         jeq     fallback
         cmp     cached_window_icon_count

tests/desktop/keyboard.lua

@@ -814,9 +814,7 @@ test.Variants(
     a2d.InvokeMenuItem(a2d.VIEW_MENU, a2d.VIEW_BY_NAME)
     a2d.WaitForRepaint()
 
-    -- TODO: Fails without this, as selection is on the volume.
-    -- Is this correct or not?
-    a2d.ClearSelection()
+    test.ExpectEqualsIgnoreCase(a2dtest.GetSelectedIconName(), "A2.DESKTOP", "single volume should be selected")
 
     a2dtest.ExpectNothingChanged(function()
         if idx == 1 then
@@ -826,6 +824,8 @@ test.Variants(
         end
         a2d.WaitForRepaint()
     end)
+
+    test.ExpectEqualsIgnoreCase(a2dtest.GetSelectedIconName(), "A2.DESKTOP", "single volume should be selected")
 end)
 
 --[[