Added flags word to Message_IconizeAt, as per Pinboard FS.

UrsulaLog

@@ -24,3 +24,11 @@ Version: 3.93 Wed 11-Jun-97         Richard Leggett
      R1+24 task handle for task which owns the window
      R1+28 x co-ordinate to iconize at
      R1+32 y co-ordinate to iconize at
+
+---------------------------------------------------------------------------
+
+Version: 3.97 Mon 08-Dec-97         Richard Leggett
+
+* Added a flags word to Message_IconizeAt. If bit 0 is set, this indicates
+  window was iconised with a Shift+Click on the close icon.
+  
\ No newline at end of file

s/Wimp03

@@ -2988,6 +2988,7 @@ openwindow
       [ IconiseButton
 wicon_iconise
 	Push	"r0-r4"
+	MOV     r1, #0                  ; NOT a shift+click on close icon
 	B	%FT20
       ]
 
@@ -3019,6 +3020,12 @@ wicon_quit
         ; Send a Message_IconizeAt (RML)
         Push    "r0-r4"
         SUB     sp, sp, #48
+
+        CMP     r1, #&FF                 ; If a Shift+Click on close
+        MOVEQ   r0, #1                   ; then bit 0 of flags is set
+        MOVNE   r0, #0
+        STR     r0, [sp, #36]
+
         MOV     r1, sp
         SWI     Wimp_GetPointerInfo
 
@@ -3027,7 +3034,7 @@ wicon_quit
         LDR     r0, [r1, #4]
         SUB     r0, r0, #(32+17)
         STR     r0, [r1, #32]            ; y co-ord
-        MOV     r0, #36
+        MOV     r0, #40
         STR     r0, [r1]                 ; size
         MOV     r0, #0
         STR     r0, [r1, #12]            ; your ref