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

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

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

Modified Files:
	Wimp.swi 
Log Message:
Added extended versions of Wimp_PlotIcon.


Index: Wimp.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/User/oslib/Wimp.swi,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Wimp.swi	15 Dec 2002 14:23:44 -0000	1.11
--- Wimp.swi	28 Jun 2003 16:13:58 -0000	1.12
***************
*** 1846,1849 ****
--- 1846,1856 ----
     );
  
+ TYPE
+    Wimp_PlotIconFlags = .Bits;
+ 
+ CONST
+    Wimp_PlotIconWithSpriteArea = Wimp_PlotIcon: 0x1,
+    Wimp_PlotIconUnderPointer   = Wimp_PlotIcon: 0x2;
+ 
  SWI Wimp_PlotIcon =
     (  NUMBER 0x400E2 "Plots an icon in a window during a window redraw or
***************
*** 1852,1855 ****
--- 1859,1894 ----
        EXIT (R0?)
     );
+ 
+ SWI Wimp_PlotIconWithWindow =
+    (  NUMBER 0x400E2 "Plots an icon taking the context from a window if
+             used outside an update loop - RISC O S 4+",
+       ENTRY
+       (  R1 -> Wimp_Icon: icon,
+          R2 # 'TASK',
+          R3 = .Int: x_origin,
+          R4 = .Int: y_origin,
+          R5 = Wimp_PlotIconFlags: flags,
+          R6 = Wimp_W: window
+       ),
+       EXIT
+       (  R0?
+    )  );
+ 
+ SWI Wimp_PlotIconWithSpriteArea =
+    (  NUMBER 0x400E2 "Plots an icon taking the context from a window if
+             used outside an update loop - RISC O S 4+",
+       ENTRY
+       (  R1 -> Wimp_Icon: icon,
+          R2 # 'TASK',
+          R3 = .Int: x_origin,
+          R4 = .Int: y_origin,
+          R5 # Wimp_PlotIconWithSpriteArea,
+          R5 | Wimp_PlotIconFlags: flags,
+          R6 = Wimp_Colour: background_colour,
+          R7 -> OSSpriteOp_Area: sprite_area
+       ),
+       EXIT
+       (  R0?
+    )  );
  
  SWI Wimp_SetMode =