Merge pull request #1989 from bwmilby/bwm-bugfix-21484

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

Author: Monte Goulding

Toolset/palettes/inspector/behaviors/revinspectoreditorbehavior.livecodescript

@@ -303,6 +303,42 @@ getProp editorExpandVertical
    return sExpandVertical
 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
+
 after openField
    select the text of the target
 end openField

notes/bugfix-21484.md

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