Fixes #109

Fix for #109 and some aliases for stdWindow

changelog.md

@@ -309,4 +309,7 @@ Before `08/07/2021` a change log was not kept. We have retrospectively gone back
 - 2024-07-04 `stdWindow` FIX - Fixedd bug where `stdWindow#Visible` would focus the window it changed visibility of. This has been fixed.
 - 2024-07-04 `stdJSON` FIX - Fixed bug where `stdJSON` wasn't correctly handling strings with `"` in them.
 - 2024-07-08 `stdEnumerator` FEATURE - `stdEnumerator::CreateFromDictionaryEx` added. Translates a dictionary to a Enumerator of dictionaries with key and value properties. Additionally added `stdEnumerator#groupByEx` which utilises the above.
-- 2024-07-08 `stdLambda` FIX - Removed `key` from the dictionary checks in `stdLambda#stdCallByName`. Shouldn't be a breaking change, because `key` isn't a method on type `Dictionary`.
+- 2024-07-08 `stdLambda` FIX - Removed `key` from the dictionary checks in `stdLambda#stdCallByName`. Shouldn't be a breaking change, because `key` isn't a method on type `Dictionary`.
+- 2024-07-14 `stdWindow` FEATURE - Add `PGUP` and `PGDOWN` alias for `SendKeys`
+- 2024-07-22 `stdWindow` FIX - Remove unused variable `minStackSize`.
+- 2024-07-22 `stdAcc` FIX - Remove unused variable `minStackSize`.

src/stdAcc.cls

@@ -1340,7 +1340,7 @@ End Sub
 '@returns - FindNode found at index
 Private Function stackPopV(ByRef stack() As tFindNode, ByRef index As Variant) As tFindNode
     Dim size As Long: size = UBound(stack) + 1
-    If index < size / 3 And index > minStackSize Then
+    If index < size / 3 Then
         ReDim Preserve stack(0 To CLng(size / 2))
     End If
     index = index - 1

src/stdWindow.cls

@@ -2373,7 +2373,7 @@ End Sub
 '@returns - FindNode found at index
 Private Function stackPopV(ByRef stack() As tFindNode, ByRef index As Variant) As tFindNode
     Dim size As Long: size = UBound(stack) + 1
-    If index < size / 3 And index > minStackSize Then
+    If index < size / 3 Then
         ReDim Preserve stack(0 To CLng(size / 2))
     End If
     index = index - 1
@@ -2663,8 +2663,8 @@ Private Function VKeyFromString(ByRef s As String) As EVirtualKey
     Case "ACCEPT": VKeyFromString = EVirtualKey.VK_ACCEPT
     Case "MODECHANGE": VKeyFromString = EVirtualKey.VK_MODECHANGE
     Case "SPACE": VKeyFromString = EVirtualKey.VK_SPACE
-    Case "PRIOR": VKeyFromString = EVirtualKey.VK_PRIOR
-    Case "NEXT": VKeyFromString = EVirtualKey.VK_NEXT
+    Case "PGUP", "PAGEUP", "PRIOR": VKeyFromString = EVirtualKey.VK_PRIOR
+    Case "PGDN", "PAGEDOWN", "NEXT": VKeyFromString = EVirtualKey.VK_NEXT
     Case "END": VKeyFromString = EVirtualKey.VK_END
     Case "HOME": VKeyFromString = EVirtualKey.VK_HOME
     Case "LEFT": VKeyFromString = EVirtualKey.VK_LEFT