Set wait cursor on DB Connect (Issue #4)

JoshDavid · JoshDavid · commit c784bc39a681 · 2021-06-28T22:30:11.000-04:00
diff --git a/APLSource/GUI/ExpandDatabase.aplf b/APLSource/GUI/ExpandDatabase.aplf
@@ -5,6 +5,7 @@
      t c←⍵
      s←c t ##.DB.Connect ⍺
      s≡¯1:''
+     oldCursor←t SetCursor'Wait'
      schemas tables←↓⍉##.DB.GetTables ⍺
      dMat←schemas{(1 2⍴⍺,1)(⍵,(⍤¯1)2)}⌸tables
      items←t.Items
@@ -13,4 +14,5 @@
      cItems←⊃,/{⍵[;1]}¨,dMat
      cDepths←∊{⍵[;2]}¨,dMat
      t.(Items Depth)←cItems cDepths{(start↑⍵),⍺,(start↓⍵)}¨items depths
+     t SetCursor oldCursor
  }
diff --git a/APLSource/GUI/MakeTreeView.aplf b/APLSource/GUI/MakeTreeView.aplf
@@ -3,7 +3,8 @@
  ⍝ ⍺ ←→ config settings
      f←⍵.##
      connections←f ListDatabases ⍺
-     tree←⍎'tree'⍵.⎕WC'TreeView'('Size' 100 100)('Posn' 0 0)('Attach' 'Top' 'Left' 'Bottom' 'Right')
+     tree←⍎'tree'⍵.⎕WC'TreeView'('Attach' 'Top' 'Left' 'Bottom' 'Right')
+     _←Fullsize tree
      depths←(≢connections)⍴0
      tree.Items←connections
      tree.Depth←depths
diff --git a/APLSource/GUI/SetCursor.aplf b/APLSource/GUI/SetCursor.aplf
@@ -0,0 +1,10 @@
+ SetCursor←{
+⍝ ⍺ ←→ GUI object
+⍝ ⍵ ←→ new State number, or 'Wait'
+⍝ ← ←→ old cursor
+     ⎕IO←0
+     b←'wait'≡##.Utils.Lowercase ⍵
+     w←1 ⍝ Defined in GUI docs
+     s←b⊃⍵ w
+     ⍺.⎕WS'CursorObj's
+ }
diff --git a/APLSource/Utils/Lowercase.aplf b/APLSource/Utils/Lowercase.aplf
@@ -0,0 +1,3 @@
+ Lowercase←{
+     (819⌶)⍵
+ }

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,3 @@`
	`1`	`+ Lowercase←{`
	`2`	`+ (819⌶)⍵`
	`3`	`+ }`