2 Fixes

- 2024-06-30 `stdJSON` FIX - Fixed bug where `stdJSON` wasn't correctly handling numbers.
- 2024-07-01 `stdAcc` FIX - Fixed bug where numerous states weren't being correctly identified.

.github/workflows/graphs/vba_docs_gen.yml

@@ -71,4 +71,4 @@ nodes:
     settings:
       folded: false
 registries: []
-description: ""
+description: ''

.vscode/settings.json

@@ -1,3 +1,6 @@
 {
-  "files.eol": "\r\n"
+  "files.eol": "\r\n",
+  "[markdown]": {
+    "editor.formatOnSave": false
+  }
 }

changelog.md

@@ -303,3 +303,5 @@ Before `08/07/2021` a change log was not kept. We have retrospectively gone back
 - 2024-06-22 `stdAcc` FIX - Changed `stdCOM` in error messages to `stdAcc`.
 - 2024-06-22 `stdCallback` BREAKING - Removed `CreateEvaluator` as it is no longer needed.
 - 2024-06-27 `stdJSON` FIX - Fixed bug where unquoted keys weren't being parsed correctly.
+- 2024-06-30 `stdJSON` FIX - Fixed bug where `stdJSON` wasn't correctly handling numbers.
+- 2024-07-01 `stdAcc` FIX - Fixed bug where numerous states weren't being correctly identified.

src/stdAcc.cls

@@ -186,24 +186,24 @@ Public Enum EAccRoles
     ROLE_PAGETABLIST = &H3C&
 End Enum
 Public Enum EAccStates
-    STATE_NORMAL = &H0
-    STATE_UNAVAILABLE = &H1
-    STATE_SELECTED = &H2
-    STATE_FOCUSED = &H4
-    STATE_PRESSED = &H8
-    STATE_CHECKED = &H10
-    STATE_MIXED = &H20
-    STATE_INDETERMINATE = &H99
-    STATE_READONLY = &H40
-    STATE_HOTTRACKED = &H80
-    STATE_DEFAULT = &H100
-    STATE_EXPANDED = &H200
-    STATE_COLLAPSED = &H400
-    STATE_BUSY = &H800
-    STATE_FLOATING = &H1000
-    STATE_MARQUEED = &H2000
-    STATE_ANIMATED = &H4000
-    STATE_INVISIBLE = &H8000
+    STATE_NORMAL = &H0&
+    STATE_UNAVAILABLE = &H1&
+    STATE_SELECTED = &H2&
+    STATE_FOCUSED = &H4&
+    STATE_PRESSED = &H8&
+    STATE_CHECKED = &H10&
+    STATE_MIXED = &H20&
+    STATE_INDETERMINATE = &H99&
+    STATE_READONLY = &H40&
+    STATE_HOTTRACKED = &H80&
+    STATE_DEFAULT = &H100&
+    STATE_EXPANDED = &H200&
+    STATE_COLLAPSED = &H400&
+    STATE_BUSY = &H800&
+    STATE_FLOATING = &H1000&
+    STATE_MARQUEED = &H2000&
+    STATE_ANIMATED = &H4000&
+    STATE_INVISIBLE = &H8000&
     STATE_OFFSCREEN = &H10000
     STATE_SIZEABLE = &H20000
     STATE_MOVEABLE = &H40000

src/stdJSON.cls

@@ -660,7 +660,7 @@ Private Sub parseValue(ByRef value as Variant, ByRef sJSON as string, ByRef inde
     case "n"
       Call parserConsume("null", sJSON, index, 4)
       value = null
-    case "1", "2", "3", "4", "5", "6", "7", "8", "9", "-"
+    case "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", "-"
       value = parseNumber(sJSON, index)
   end select
 End Sub