Couple of extra pointer types for autoscroll in the Hotlist

2695ac3d · Andrew Hodgkinson · 6864b4e4 · 2695ac3d · 2695ac3d
Commit 2695ac3d authored 27 years ago by Andrew Hodgkinson
Show whitespace changes
Inline Side-by-side

Showing with 105 additions and 77 deletions

c/Mouse c/Mouse +95 -69

h/Mouse h/Mouse +10 -8

No files found.
--- a/c/Mouse
+++ b/c/Mouse
@@ -291,6 +291,32 @@ void mouse_set_pointer_shape(int shape)
                                      0,
                                      0);
    break;
+
+    case Mouse_Shape_ToScroll:  _swix(OS_SpriteOp,
+                                      _INR(0,7),
+
+                                      292,
+                                      sprite_block,
+                                      "ptr_ud",
+                                      2,
+                                      fixed.ptrmapactvx,
+                                      fixed.ptrmapactvy,
+                                      0,
+                                      0);
+    break;
+
+    case Mouse_Shape_Scrolling: _swix(OS_SpriteOp,
+                                      _INR(0,7),
+
+                                      292,
+                                      sprite_block,
+                                      "ptr_udlr",
+                                      2,
+                                      fixed.ptrmapactvx,
+                                      fixed.ptrmapactvy,
+                                      0,
+                                      0);
+    break;
  }
 }


--- a/h/Mouse
+++ b/h/Mouse
@@ -33,6 +33,8 @@
 #define Mouse_Shape_LR        5
 #define Mouse_Shape_UDLR      6
 #define Mouse_Shape_NoResize  7
+#define Mouse_Shape_ToScroll  8
+#define Mouse_Shape_Scrolling 9

 /* Function prototypes */