[ro-oslib-commits] OSLib/!OsLib/Source/User/oslib WimpExtend.swi,1.1,1.2 WimpReadSysInfo.swi,1.1,1.2

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

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

Modified Files:
	WimpExtend.swi WimpReadSysInfo.swi 
Log Message:
Added Wimp_Extend 13 and Wimp_ReadSysInfo 19 to provide access to
the priority sprite pool.


Index: WimpExtend.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/User/oslib/WimpExtend.swi,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** WimpExtend.swi	9 Mar 2002 11:14:35 -0000	1.1
--- WimpExtend.swi	28 Jun 2003 22:52:44 -0000	1.2
***************
*** 2,6 ****
  AUTHOR "Richard Sargeant, sar...@ar..., 04-Mar-1999";
  
! NEEDS OS, Wimp;
  
  TYPE
--- 2,6 ----
  AUTHOR "Richard Sargeant, sar...@ar..., 04-Mar-1999";
  
! NEEDS OS, OSSpriteOp, Wimp;
  
  TYPE
***************
*** 71,74 ****
                      of furniture - RISC O S 4+",
             R1 = .Ref WimpExtend_FurnitureSizes: sizes
!      )  )
        
--- 71,85 ----
                      of furniture - RISC O S 4+",
             R1 = .Ref WimpExtend_FurnitureSizes: sizes
!      )  ),
        
+ WimpExtend_GetSpriteAddress =
+     (  NUMBER 0x400FB,
+        ENTRY
+        (  R0 # 13 "Lookup a sprite using the same algorithm as the
+                    Window Manager - RISC O S Select",
+           R2 -> .Char: sprite_name
+        ),
+        EXIT
+        (  R1 -> OSSpriteOp_Area: area,
+           R2 -> OSSpriteOp_Header: sprite
+     )  )

Index: WimpReadSysInfo.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/User/oslib/WimpReadSysInfo.swi,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** WimpReadSysInfo.swi	9 Mar 2002 11:14:40 -0000	1.1
--- WimpReadSysInfo.swi	28 Jun 2003 22:52:44 -0000	1.2
***************
*** 90,92 ****
--- 90,104 ----
           delay, measured in centiseconds (RISC O S 4+)"),
        EXIT (R0! = .Int: delay)
+    ),
+ 
+    WimpReadSysInfo_SpritePoolsExtended =
+    (  NUMBER 0x400F2,
+       ENTRY
+       (  R0 # 19 "Reads the WIMP sprite pools' control block
+                   pointers - RISC O S Select"),
+       EXIT
+       (  R0 -> OSSpriteOp_Area: priority,
+          R1 -> OSSpriteOp_Area: high_priority,
+          R2 -> OSSpriteOp_Area: low_priority
+       )
     )