[ro-oslib-commits] OSLib/!OsLib/Source/User/oslib Wimp.swi,1.6,1.7

[<th...@us...>]

Update of /cvsroot/ro-oslib/OSLib/!OsLib/Source/User/oslib
In directory sc8-pr-cvs1:/tmp/cvs-serv32269/Source/User/oslib

Modified Files:
	Wimp.swi 
Log Message:
Added interface to wheel mouse support in RISC OS Select.


Index: Wimp.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/User/oslib/Wimp.swi,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Wimp.swi	22 Sep 2002 15:59:53 -0000	1.6
--- Wimp.swi	20 Nov 2002 19:07:50 -0000	1.7
***************
*** 199,203 ****
  // TV V6.21
     Wimp_WindowUseTitleValidationString  = Wimp_ExtraWindowFlags: 0b1
!                "RISC O S 4+";
  
  //Icon flags bits
--- 199,205 ----
  // TV V6.21
     Wimp_WindowUseTitleValidationString  = Wimp_ExtraWindowFlags: 0b1
!                "RISC O S 4+",
!    Wimp_WindowUseExtendedScrollRequest = Wimp_ExtraWindowFlags: 0b10
!                "RISC O S 4.32+";
  
  //Icon flags bits
***************
*** 457,460 ****
--- 459,486 ----
     Wimp_ColourTransparent   = Wimp_Colour: -1;
  
+ TYPE Wimp_ScrollDirection = .Int;
+ CONST
+    Wimp_ScrollDoubleExtendedLeft  = Wimp_ScrollDirection: -8 "RISC O S 4.32+",
+    Wimp_ScrollDoubleExtendedDown  = Wimp_ScrollDirection: -8 "RISC O S 4.32+",
+    Wimp_ScrollSingleExtendedLeft  = Wimp_ScrollDirection: -4 "RISC O S 4.32+",
+    Wimp_ScrollSingleExtendedDown  = Wimp_ScrollDirection: -4 "RISC O S 4.32+",
+    Wimp_ScrollAutoLeft            = Wimp_ScrollDirection: -3 "RISC O S 4+",
+    Wimp_ScrollAutoDown            = Wimp_ScrollDirection: -3 "RISC O S 4+",
+    Wimp_ScrollPageLeft            = Wimp_ScrollDirection: -2,
+    Wimp_ScrollPageDown            = Wimp_ScrollDirection: -2,
+    Wimp_ScrollColumnLeft          = Wimp_ScrollDirection: -1,
+    Wimp_ScrollLineDown            = Wimp_ScrollDirection: -1,
+    Wimp_ScrollNone                = Wimp_ScrollDirection: 0,
+    Wimp_ScrollLineUp              = Wimp_ScrollDirection: 1,
+    Wimp_ScrollColumnRight         = Wimp_ScrollDirection: 1,
+    Wimp_ScrollPageUp              = Wimp_ScrollDirection: 2,
+    Wimp_ScrollPageRight           = Wimp_ScrollDirection: 2,
+    Wimp_ScrollAutoUp              = Wimp_ScrollDirection: 3 "RISC O S 4+",
+    Wimp_ScrollAutoRight           = Wimp_ScrollDirection: 3 "RISC O S 4+",
+    Wimp_ScrollSingleExtendedUp    = Wimp_ScrollDirection: 4 "RISC O S 4.32+",
+    Wimp_ScrollSingleExtendedRight = Wimp_ScrollDirection: 4 "RISC O S 4.32+",
+    Wimp_ScrollDoubleExtendedUp    = Wimp_ScrollDirection: 8 "RISC O S 4.32+",
+    Wimp_ScrollDoubleExtendedRight = Wimp_ScrollDirection: 8 "RISC O S 4.32+";
+ 
  TYPE Wimp_IconData =
     .Union
***************
*** 642,647 ****
        .Int: yscroll,
        Wimp_W: next,
!       .Int: xmin,
!       .Int: ymin
     );
  
--- 668,674 ----
        .Int: yscroll,
        Wimp_W: next,
!       Wimp_ScrollDirection: xmin,
!       Wimp_ScrollDirection: ymin,
!       Wimp_i: i "RISC O S 4.32+"
     );