[ro-oslib-commits] OSLib/!OsLib/Source/User/oslib Wimp.swi,1.13,1.14 WimpReadSysInfo.swi,1.3,1.4

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

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

Modified Files:
	Wimp.swi WimpReadSysInfo.swi 
Log Message:
Added support for text selection in icons from Select 3. Change 20030921-2.


Index: Wimp.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/User/oslib/Wimp.swi,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Wimp.swi	28 Jun 2003 19:53:34 -0000	1.13
--- Wimp.swi	21 Sep 2003 12:14:10 -0000	1.14
***************
*** 312,316 ****
     Wimp_DragAsmFixedIndefinite  = Wimp_DragType: 10,
     Wimp_DragAsmRubberIndefinite = Wimp_DragType: 11,
!    Wimp_DragSystemScrollBoth    = Wimp_DragType: 12;
  
  //Function key codes
--- 312,317 ----
     Wimp_DragAsmFixedIndefinite  = Wimp_DragType: 10,
     Wimp_DragAsmRubberIndefinite = Wimp_DragType: 11,
!    Wimp_DragSystemScrollBoth    = Wimp_DragType: 12,
!    Wimp_DragStartTextSelection  = Wimp_DragType: 13 "RISC O S 4.36+";
  
  //Function key codes
***************
*** 718,721 ****
--- 719,730 ----
     );
  
+ TYPE Wimp_TextSelection =
+    .Struct
+    (  Wimp_W: w,
+       Wimp_I: i,
+       .Int: start_index,
+       .Int: end_index
+    );
+ 
  TYPE Wimp_MenuEntry =
     .Struct
***************
*** 1690,1693 ****
--- 1699,1724 ----
     )  );
  
+ SWI WimpSetCaretPositionExtended_Caret =
+    (  NUMBER 0x400D2,
+       ENTRY
+       (  R0 # 'TASK',
+          R1 -> Wimp_Caret: caret,
+          R2 # 0 "Sets the caret position - RISC O S 4.36+"
+       ),
+       EXIT
+       (  R0?
+    )  );
+ 
+ SWI WimpSetCaretPositionExtended_Selection =
+    (  NUMBER 0x400D2,
+       ENTRY
+       (  R0 # 'TASK',
+          R1 -> Wimp_TextSelection: selection,
+          R2 # 2 "Sets the text selection position - RISC O S 4.36+"
+       ),
+       EXIT
+       (  R0?
+    )  );
+ 
  SWI Wimp_GetCaretPosition =
     (  NUMBER 0x400D3 "Returns details of the caret's state",
***************
*** 1695,1698 ****
--- 1726,1751 ----
        EXIT (R0?)
     );
+ 
+ SWI WimpGetCaretPositionExtended_Caret =
+    (  NUMBER 0x400D3,
+       ENTRY
+       (  R0 # 'TASK',
+          R1 = .Ref Wimp_Caret: caret,
+          R2 # 0 "Returns details of the caret's state - RISC O S 4.36+"
+       ),
+       EXIT
+       (  R0?
+    )  );
+ 
+ SWI WimpGetCaretPositionExtended_Selection =
+    (  NUMBER 0x400D3,
+       ENTRY
+       (  R0 # 'TASK',
+          R1 = .Ref Wimp_TextSelection: selection,
+          R2 # 2 "Returns details of the text selection - RISC O S 4.36+"
+       ),
+       EXIT
+       (  R0?
+    )  );
  
  SWI Wimp_CreateMenu =

Index: WimpReadSysInfo.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/User/oslib/WimpReadSysInfo.swi,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** WimpReadSysInfo.swi	29 Jun 2003 09:25:35 -0000	1.3
--- WimpReadSysInfo.swi	21 Sep 2003 12:14:10 -0000	1.4
***************
*** 113,115 ****
--- 113,125 ----
        (  R0 = Wimp_Colour: bg,
           R1 = Wimp_Colour: fg
+    )  ),
+ 
+    WimpReadSysInfo_TextSelectionColours =
+    (  NUMBER 0x400F2,
+       ENTRY
+       (  R0 # 21 "Reads the text selection colours - RISC O S 4.36+"
+       ),
+       EXIT
+       (  R0 = Wimp_Colour: bg,
+          R1 = Wimp_Colour: fg
     )  )