DragAnObject 'really use user mode flag' patch

[David Thomas]

Hi,

DragAnObject has gained in RISC OS 5 a flag which specifies whether to 
/really/ use user mode when calling a user-specified callback function.

See:
http://www.riscosopen.org/wiki/documentation/pages/DragAnObject+Flags

OSLib was lacking a constant for this flag. Here's a patch which adds 
two new constants:

- DragAnObject_FunctionUser    - provides an opposite of FunctionSVC
- DragAnObject_FunctionUseUser - the new 'I really mean it' flag

--8<--
Index: Source/Toolbox/oslib/DragAnObject.swi
===================================================================
--- Source/Toolbox/oslib/DragAnObject.swi       (revision 394)
+++ Source/Toolbox/oslib/DragAnObject.swi       (working copy)
@@ -22,7 +22,9 @@

     DragAnObject_SWIFunction     = DragAnObject_Flags: 
0b00000000000000000,
     DragAnObject_CallFunction    = DragAnObject_Flags: 
0b10000000000000000,
-   DragAnObject_FunctionSVC     = DragAnObject_Flags: 0b100000000000000000;
+   DragAnObject_FunctionUser    = DragAnObject_Flags: 0b000000000000000000,
+   DragAnObject_FunctionSVC     = DragAnObject_Flags: 0b100000000000000000,
+   DragAnObject_FunctionUseUser = 
DragAnObject_Flags:0b1000000000000000000 "Really use user mode - RISC OS 5";

  SWI DragAnObject_Start =
     (  NUMBER 0x49C40 "Takes a copy of an object and starts a Wimp drag",
--8<--

Regards,
Dave

-- 
David Thomas  dave at davespace.co.uk  http://www.davespace.co.uk/