[[ Bug 21484 ]] Allow scroll wheel to work in PI text fields (#2050)

* [[ Bug 21484 ]] Allow scroll wheel to work in PI text fields

Include a `rawKeyDown` handler in the `revinspectoreditorbehavior` to
intercept pgup/pgdn/scroll wheel messages when inside a text field.  If
the field is not at either limit, then the messages will scroll the text
field.  If at a limit, then the messages will bubble up to the parent card.

Add `openField` handler to select the text of fields.  For the custom
properties behavior, when a key is selected in the tree view widget, then
the corresponding key text will also be selected.

(cherry picked from commit ab86207)

* [[ Bug 21484 ]] Allow scroll wheel to work in PI text fields

Remove automatic select changes to split to another PR.

(cherry picked from commit 06d04ed)

Author: livecodeali

Toolset/palettes/inspector/behaviors/revinspectoreditorbehavior.livecodescript

@@ -301,4 +301,41 @@ end editorExpandVertical
 
 getProp editorExpandVertical
    return sExpandVertical
-end editorExpandVertical
+end editorExpandVertical
+
+on rawKeyDown pKeyNum
+   -- allow scroll wheel, pgup, & pgdn to scroll the text field
+   -- bubble up to the parent if at either limit
+   if the target contains "field" then
+      local tScrollPosition, tScrollAmount, tScrollMax
+      put the vScroll of the target into tScrollPosition
+      put 0 into tScrollAmount
+      switch pKeyNum
+         case "65365"
+            put 45 into tScrollAmount
+            -- fall through
+         case "65309"
+            if tScrollPosition is 0 then pass rawKeyDown
+            add 5 to tScrollAmount
+            put max(0, tScrollPosition - tScrollAmount) into tScrollPosition
+            break
+         case "65366"
+            put 45 into tScrollAmount
+            -- fall through
+         case "65308"
+            add 5 to tScrollAmount
+            put the formattedHeight of the target - \
+                  the height of the target into tScrollMax
+            if tScrollPosition is tScrollMax then pass rawKeyDown
+            put min(tScrollMax, tScrollPosition + tScrollAmount) \
+                  into tScrollPosition
+            break
+         default
+            pass rawKeyDown
+      end switch
+      set the vScroll of the target to tScrollPosition
+   else
+      pass rawKeyDown
+   end if
+end rawKeyDown
+

notes/bugfix-21484.md

@@ -0,0 +1 @@
+# Allow scroll wheel to work in PI text fields