Bugfix: screen mode is now always correctly set when exiting the desktop.

Detail:
  When the last task closes, the Wimp tries to change to the configured screen
  mode (as determined using OS_ReadSysInfo 1). However, the Wimp was using
  VDU 22,x to set the screen mode, so results were undefined when the default
  screen mode was a pointer to a mode selector. The Wimp now uses OS_ScreenMode
  to change mode (except on RISC OS 3.1 builds where the SWI is not available).
Admin:
  Not tested.

Version 4.51. Tagged as 'Wimp-4_51'

VersionASM

@@ -6,9 +6,9 @@
                         GBLS    Module_MinorVersion
                         GBLS    Module_Date
                         GBLS    Module_FullVersion
-Module_MajorVersion     SETS    "4.50"
-Module_Version          SETA    450
+Module_MajorVersion     SETS    "4.51"
+Module_Version          SETA    451
 Module_MinorVersion     SETS    ""
-Module_Date             SETS    "15 May 2000"
-Module_FullVersion      SETS    "4.50"
+Module_Date             SETS    "06 Jun 2000"
+Module_FullVersion      SETS    "4.51"
                         END

VersionNum

-/* (4.50)
+/* (4.51)
  *
  * This file is automatically maintained by srccommit, do not edit manually.
  *
  */
-#define Module_MajorVersion_CMHG        4.50
+#define Module_MajorVersion_CMHG        4.51
 #define Module_MinorVersion_CMHG        
-#define Module_Date_CMHG                15 May 2000
+#define Module_Date_CMHG                06 Jun 2000
 
-#define Module_MajorVersion             "4.50"
-#define Module_Version                  450
+#define Module_MajorVersion             "4.51"
+#define Module_Version                  451
 #define Module_MinorVersion             ""
-#define Module_Date                     "15 May 2000"
+#define Module_Date                     "06 Jun 2000"
 
-#define Module_FullVersion              "4.50"
+#define Module_FullVersion              "4.51"

s/Wimp02

@@ -2534,8 +2534,14 @@ closelast
         MOV     R0,#1                   ; Read configured mode
         SWI     XOS_ReadSysInfo
         MOVVS   R0,#27
+      [ Medusa
+        MOV     R1,R0
+        MOV     R0,#0
+        SWI     XOS_ScreenMode
+      |
         SWI     XOS_WriteI+22           ; change to configured mode
         SWI     XOS_WriteC
+      ]
 ;
         BL      defaultscreensize
         BL      LoseMessages