Wait cursor changes

JoshDavid · Jun 29, 2021 · 9e12c5a · 9e12c5a
1 parent c784bc3
commit 9e12c5a
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/APLSource/GUI/ExpandDatabase.aplf b/APLSource/GUI/ExpandDatabase.aplf
@@ -3,9 +3,10 @@
 ⍝ ⍵ ←→ (tree obj)(config obj)
 ⍝ ⍺ ←→ item, which is the connection name
      t c←⍵
-     s←c t ##.DB.Connect ⍺
-     s≡¯1:''
      oldCursor←t SetCursor'Wait'
+     s←c t ##.DB.Connect ⍺
+     ResetCursor←{t SetCursor oldCursor}
+     s≡¯1:ResetCursor''
      schemas tables←↓⍉##.DB.GetTables ⍺
      dMat←schemas{(1 2⍴⍺,1)(⍵,(⍤¯1)2)}⌸tables
      items←t.Items
@@ -14,5 +15,5 @@
      cItems←⊃,/{⍵[;1]}¨,dMat
      cDepths←∊{⍵[;2]}¨,dMat
      t.(Items Depth)←cItems cDepths{(start↑⍵),⍺,(start↓⍵)}¨items depths
-     t SetCursor oldCursor
+     ResetCursor''
  }