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

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

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

Modified Files:
	Wimp.swi 
Log Message:
Added new Wimp_CommandWindow variants.


Index: Wimp.swi
===================================================================
RCS file: /cvsroot/ro-oslib/OSLib/!OsLib/Source/User/oslib/Wimp.swi,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Wimp.swi	28 Jun 2003 16:13:58 -0000	1.12
--- Wimp.swi	28 Jun 2003 19:53:34 -0000	1.13
***************
*** 2036,2039 ****
--- 2036,2047 ----
     );
  
+ TYPE
+    Wimp_CommandWindowState = .Int;
+ 
+ CONST
+    Wimp_CommandWindowInactive = Wimp_CommandWindowState: 0,
+    Wimp_CommandWindowPending  = Wimp_CommandWindowState: 1,
+    Wimp_CommandWindowOpen     = Wimp_CommandWindowState: 2;
+ 
  SWI Wimp_CommandWindow =
     (  NUMBER 0x400EF "Opens a text window in which normal VDU 4-type text
***************
*** 2042,2045 ****
--- 2050,2090 ----
        EXIT (R0?)
     );
+ 
+ SWI Wimp_CommandWindowActivate =
+    (  NUMBER 0x400EF "Set the command window status to active",
+       ENTRY
+       (  R0 # 1
+       ),
+       EXIT
+       (  R0?
+    )  );
+ 
+ SWI Wimp_CommandWindowCloseWithPrompt =
+    (  NUMBER 0x400EF "Close the command window, prompting first if any ouput
+             had been produced",
+       ENTRY
+       (  R0 # 0
+       ),
+       EXIT
+       (  R0?
+    )  );
+ 
+ SWI Wimp_CommandWindowClose =
+    (  NUMBER 0x400EF "Close the command window without prompting",
+       ENTRY
+       (  R0 # -1
+       ),
+       EXIT
+       (  R0?
+    )  );
+ 
+ SWI Wimp_CommandWindowReadState =
+    (  NUMBER 0x400EF "Read the command window state - RISC O S Select",
+       ENTRY
+       (  R0 # 2
+       ),
+       EXIT
+       (  R0! = Wimp_CommandWindowState: state
+    )  );
  
  SWI Wimp_TextColour =