Added a couple of extra compile-time options for use in specialied...

Added a couple of extra compile-time options for use in specialied applications; both are switched out in all standard builds.

ForceTwitter: used in combination with Twitter flag, this causes
   antitwittering to be employed irrespective of ModeFlags bit 8,
   and also irrespective of whether a window is auto-redraw or not.

HideIconBar: ensures that the icon bar is behind the backwindow, unless
   it has been brought to the front (by either method). In conjunction with
   a modified Pinboard, this can produce a quick-and-dirty iconbar-less
   machine.

Options/s/!Default

@@ -68,7 +68,9 @@
         Option  SpritePriority,         false                   ; Allow configurable sprite pool priority
         Option  Autoscr,                false                   ; Add Wimp_AutoScroll and dragbox-within-window facilities
         Option  StickyEdges,            false                   ; Allow windows to "stick" when dragged over edge of screen
-	Option  DoubleHeightVDU4,	false			; Wimp_SetMode selects modes with double height VDU 4 output
+	Option  DoubleHeightVDU4,	false                   ; Wimp_SetMode selects modes with double height VDU 4 output
+	Option  ForceTwitter,           false :LAND: Twitter    ; Twitter needs-help windows & ignore interlace ModeFlags bit
+	Option  HideIconBar,            false                   ; icon bar is behind Wimp back window until brought to front
 
         Option  RegisterMessages,       false
         Option  RegisterTools2D,        false

Version

@@ -6,6 +6,6 @@
 
 Version SETA    399
 VString SETS    "3.99"
-Date    SETS    "08 May 1998"
+Date    SETS    "14 May 1998"
 
         END

s/Iconbar

@@ -123,7 +123,11 @@ addtoR1
         LDRVC   R2,[handle,#w_way0]
         SUBVC   R14,R14,R2
         STRVC   R14,iconbarheight       ; used later
+ [ HideIconBar
+        MOV     R2, #-3
+ |
         LDRVC   R2,iconbarhandle        ; open at same height
+ ]
         BLVC    openiconbar
 ;
         Pull    "R2,R3,R7,userblk"

s/Wimp02

@@ -5118,7 +5118,11 @@ openfinished
         STR     R14, [handle, #w_flags]
         ADD     R14, handle, #w_wax0
         LDMIA   R14, {R0-R5}
+ [ HideIconBar
+        MOV     R6, #-3
+ |
         MOV     R6, #-2
+ ]
         Push    "R0-R6" ; build block on stack
         LDR     R14, iconbarhandle
         Push    "R14" ; window handle
@@ -9129,6 +9133,9 @@ checktwitter
 ; Out:  NE => twitter, EQ => don't twitter
 ;
         ENTRY
+ [ ForceTwitter
+        TEQ     PC, #0    ; set NE every time!!
+ |
         LDR     lr, [handle, #w_flags]
         TST     lr, #wf_autoredraw
         LDRNE   lr, modeflags
@@ -9139,6 +9146,7 @@ checktwitter
 	CMP	lr, #-1				; (task handle -1 => menu)
 	; invert the condition (so EQ if handle != -1, NE if handle = -1)
 	TOGPSR	Z_bit, lr
+ ]
  ]
         EXIT
 

s/Wimp03

@@ -1254,7 +1254,11 @@ checkiconbarpop
 	|
 	ORR     R14, R14, #wf_backwindow
 	STR     R14, [handle, #w_flags]
+ [ HideIconBar
+	MOV     R6, #-3
+ |
 	MOV     R6, #-2
+ ]
 	]
 65
 	ADD	R14,handle,#w_wax0

s/Wimp05

@@ -1334,7 +1334,11 @@ defaultkey
         ADDVC   R14,handle,#w_wax0
         LDMVCIA R14,{R0-R3,R4,R5}
         MOVEQ   R6,#-1                  ; EQ => bring window to front
+ [ HideIconBar
+        MOVNE   R6,#-3                  ; NE => send to back
+ |
         MOVNE   R6,#-2                  ; NE => send to back
+ ]
         Push    "R0-R6,R7-R11"
         LDRVC   R14,iconbarhandle       ; relative window handle
         Push    "R14"