Fixed occasional lock-ups when error boxes displayed.

Added ALIGN directive before watchdog callback label.
Added option to select double-height VDU 4 modes.
Added German resources.
Added necessary options for parallel-port debugging via the PDebugM module.

Options/s/!Debug

@@ -18,8 +18,9 @@
 ; To debug the Wimp, set debug to true, then turn on the debugXXX options of your choice.
 ;========================================================================================
 ;
-	Option	hostvdu,   true                ; destination for debug output
+	Option	hostvdu,   false                ; destination for debug output
 	Option	debug_flush, true              ; flushing if going to file
+	Option	pdebug_module, true	       ; use PDebug module
 
 	Option	DebugMemory, false
 
@@ -64,7 +65,7 @@
 	OptionD	ub,        false               ; User definable scroll bars
 	OptionD	val,       false               ; New validation string commands (K)
 	OptionD	check,     false               ; Check for inconsistent window stacks and flags
-	OptionD	err,       false               ; Wimp_ReportError and errors in general
+	OptionD	err,       true                ; Wimp_ReportError and errors in general
 	OptionD	autoopen,  false               ; For opening of wimp's own windows
 	OptionD	rma,       false
 	OptionD	perth,     false               ; For Perth power managerment

Options/s/!Default

@@ -58,6 +58,7 @@
         Option  KernelLocksFreePool,    false                   ; use OS_Memory 10 to lock Free Pool for Wimp_ClaimFreeMemory
         Option  StretchErrorButtons,    true                    ; Stretch buttons in error box to fit text
         Option  AutoHourglass,          false                   ; Hourglass automatically on between Wimp_Polls
+	Option  DoubleHeightVDU4,	false			; Wimp_SetMode selects modes with double height VDU 4 output
 
         Option  RegisterMessages,       false
         Option  RegisterTools2D,        false

Resources/Germany/Messages

+Error:Fehler
+NoError:%0
+Watchdog:Stopp,Abbrechen,Nächste Aufgabe
+Modifiers:^ ‹ ^‹ ‹^
+KeyNames:Esc ESC F1 F2 F3 F4 F5 F6 F7 F8 F9 F10 F11 F12 Druck DRUCK Untbr UNTBR Pause PAUSE Tab TAB Eingabe EINGABE Einfg EINFG Pos1 POS1 Bildauf BILDAUF Entf ENTF Copy COPY Ende ENDE Bildab BILDAB Enter ENTER Auf AUF Ab AB Links LINKS Rechts RECHTS Auswahl AUSWAHL Menü MENÜ Spezial SPEZIAL Print PRINT Break BREAK Return RETURN Insert INSERT Home HOME PageUp PAGE UP Delete DELETE End END PageDown PAGE DOWN Up UP Down DOWN Left LEFT Right RIGHT Select SELECT Menu MENU Adjust ADJUST
+OK:OK
+Continue:Weiter
+Quit:Beenden
+OSUnits: OS-Einheiten
+CentSec: * 1/10 Sekunde
+WSP:Sprite-Bereich
+
+#{DictTokens}
+NoClaim:Das WIMP konnte sich keinen Arbeitsbereich reservieren.
+BadSprite:Sprite existiert nicht
+BadSprites:Die Sprite-Datei ist entweder –gequetscht” oder nicht vorhanden.
+BadOp:Diese WIMP-Operation ist in diesem Kontext nicht erlaubt.
+RectFull:Der Rechteck-Bereich ist voll.
+TooBig:Es ist nicht genug freier Speicher für die Fenster- oder Menü-Definition vorhanden.
+GetRect:–Get_Rectangle• wurde nicht korrekt aufgerufen.
+Focus:Das Fenster mit dem Eingabefokus konnte nicht gefunden werden.
+BadHandle:Eine Fenster-Referenz ist ungültig.
+TooMenus:Es sind zu viele Menüs offen.
+BadExtent:Die Größe des Arbeitsbereichs ist ungültig.
+BadPointer:Syntax: *Pointer [0|1]
+NoTemplateFile:Die Template-Datei konnte nicht gefunden werden.
+BadTemplate:Der Template-Eintrag ist ungültig.
+BadFonts:Eine Schriftreferenz konnte nicht zugeordnet werden.
+BadSyntax:Die Validations-Zeichenkette enthält einen Syntaxfehler.
+NoTasks:Es laufen zu viele Aufgaben.
+BadConfFont:Der Wert der WimpFont-Variable muß im Bereich 0-15 liegen.
+NoTemplate:Der Template-Eintrag konnte nicht gefunden werden.
+InUse:Der Fenster-Manager wird noch benutzt.
+BadPalFile:Die Palettendatei ist fehlerhaft.
+BadPalFile2:Der Fenster-Manager kann mit dieser Art der Palettendatei nichts anfangen.
+BadVersion:Die an –Wimp_Initialise• übergebene Versionsnummer ist ungültig.
+BadMessageSize:Der Mitteilungsblock ist zu groß ™ kein Vielfaches von vier.
+BadReasonCode:Der an –SendMessage• übergebene Reason-Code ist ungültig.
+BadTaskHandle:Die Aufgabenreferenz ist ungültig.
+CantTask:Die Aufgabe kann von hier aus nicht gestartet werden.
+BadSubMenu:Untermenüs benötigen eine Elternmenü-Struktur.
+OwnerWindow:Der Zugriff auf das Fenster wurde verweigert.
+BadMode:Dieser Bildschirmmodus ist nicht zur Darstellung des RISC-OS-Schreibtischs geeignet.
+BadTransfer:Die Wimp-Übertragung ist zu groß.
+BadSlot:Einer Aufgabe wurde ein falscher Speicherbereich zugewiesen!
+BadSysInfo:Der an das WIMP in R0 übergebene Parameter ist ungültig.
+BadPtrInR1:Der an das WIMP in R1 übergebene Zeiger ist ungültig.
+BadEscapeState:–Wimp_Poll• wurde mit angeschaltetem –Escape• aufgerufen!
+BadIconHandle:Die Symbolreferenz ist ungültig.
+BadR3:Der Wimp_Poll-Zeiger in R3 ist ungültig.
+BadParent:Das Elternfenster ist ungültig.
+NoSprites:Es ist nicht genug Speicher frei, um alle verfügbaren Sprites zu laden. Das kann das Aussehen von Dateien von Anwendungen beeinflussen.
+TemplateEOF:Während des Lesens der Template-Datei wurde das Dateiende erreicht.
+CantKill:Der Fenster-Manager ist gerade aktiv.
+MF:Meldung von %0
+ID:Bitte legen Sie %0 –%1” ein.
+Space:Um weiterzumachen, drücken Sie die Leer- oder eine Maustaste.
+ErrorF:Meldung von –%0”
+ErrorP:–%0” ist vielleicht gescheitert. Klicken Sie auf Fortfahren, um den Fehler zu ignorieren, oder auf Beenden zum Beenden von –%0”.
+ErrMemS:Es ist nicht genug freier Speicher für die Andwendung Starten.
+ErrMem:Die Anwendung benötigt zum Starten mindestens %0K freien Speicher. Beenden Sie alle nicht benötigten Anwendungen oder lesen Sie im RISC-OS-Benutzerhandbuch nach, wie Sie den freien Speicher maximieren.
+ErrNoMv:Speicherverschiebung unmöglich
+KillApp:Drücken Sie Stopp, um –%0” zu beenden.
+KillProg:Drücken Sie die Eingabetaste, um das Programm zu beenden.

Resources/UK/Messages

@@ -22,7 +22,7 @@ Focus:Input focus window not found
 BadHandle:Illegal window handle
 TooMenus:Too many menus
 BadExtent:Bad work area extent
-BadPointer:Syntax: *POINTER <0|1>
+BadPointer:Syntax: *Pointer [0|1]
 NoTemplateFile:Template file not found
 BadTemplate:Template entry invalid
 BadFonts:Unable to bind font handle

Version

@@ -4,8 +4,8 @@
         GBLS    VString
         GBLS    Date
 
-Version SETA    397
-VString SETS    "3.97"
-Date    SETS    "28 Oct 1997"
+Version SETA    398
+VString SETS    "3.98"
+Date    SETS    "15 Jan 1998"
 
         END

s/Watchdog

@@ -101,10 +101,8 @@ kill_labels
         DCB     "Watchdog:Stop,Cancel,Next Task"
         DCB     0
 
-
+	ALIGN
 watchdogcallback
-
-
         Push    "R0-R7,R14"
 
         LDR     R0,watchdogtask                 ; R0 = task handle

s/Wimp01

@@ -676,6 +676,13 @@ setmode_from_specifier
         Push    "R12"
         MOV     R12,SP                  ; R12 not required yet
         Push    "R0"                    ; end of params
+        [ DoubleHeightVDU4
+	MOV	R3, #VduExt_ModeFlags
+	MOV	R4, #1			; get back to this  (it's [R12, #-16])
+	MOV	R5, #VduExt_ScrBRow
+	MOV	R6, #-1			; get back to this too... ([R12, #-8])
+	Push	"R3-R6"
+        ]
 ; use R4-R6 for xres,yres,bpp, R3 frame rate
         MOV     R4,#-1
         MOV     R5,#-1
@@ -719,10 +726,10 @@ get_eig_factors
         LDRB    R0,[R1],#1
         UpperCase       R0,R14
         CMP     R0,#"X"                  ; only EX EY allowed
-        MOVEQ   R0,#4
+        MOVEQ   R0,#VduExt_XEigFactor
         CMP     R0,#"Y"
-        MOVEQ   R0,#5
-        CMPNE   R0,#4
+        MOVEQ   R0,#VduExt_YEigFactor
+        CMPNE   R0,#VduExt_XEigFactor
         BNE     bad_param_exit
         Push    "R0"
         MOV     R0,#&2000000a           ; base 10
@@ -731,6 +738,11 @@ get_eig_factors
         BVS     bad_param_exit
         Pull    "R0"
         Push    "R0,R2"
+	[ DoubleHeightVDU4
+	TEQ	R0,#VduExt_XEigFactor	; squirrel this away...
+	STREQ	R2,[R12,#-16]
+	STRNE	R2,[R12,#-8]
+	]
         B       scan_for_param
 
 get_xres
@@ -834,6 +846,26 @@ scan_ended
         MOVEQ   R6,#0
         MOV     R0,#1                   ; mode selector flags
         Push    "R0"
+
+	[ DoubleHeightVDU4
+	; Need to establish what XEigFactor and YEigFactor are
+	LDR	R0,[R12,#-8]
+	CMP	R0,#-1
+	BNE	%FT01
+	CMP	R5, R4, LSR #1		; is yres >= xres/2?
+	MOVHS	R0,#1
+	MOVLO	R0,#2
+01	LDR	R14,[R12,#-16]
+	; is yeig(R0) > xeig(R14), don't double height
+	CMP	R0,R14
+	MOVHI	R0,#0
+	MOVHI	R14,R5,LSR #3
+	MOVLS	R0,#Flag_DoubleVertical
+	MOVLS	R14,R5,LSR #4
+	SUB	R14,R14,#1
+	STR	R0,[R12,#-16]		; store the mode flags
+	STR	R14,[R12,#-8]		; store the text height
+	]
         MOV     R0,SP
         Push    R12
         LDR     R12,[R12]               ; the R12 that was saved on the stack
@@ -1269,7 +1301,7 @@ Init
 
 ; open debugging file
 
-      [ debug :LAND: :LNOT: hostvdu
+      [ debug :LAND: :LNOT: hostvdu :LAND: :LNOT: pdebug_module
         Debug_Open "<Wimp$Debug>1"
       ]
 
@@ -4233,6 +4265,8 @@ restorekeys_withescape
 ;
         Pull    "PC"
 
+execcom2 DCB	"Exec",0
+	ALIGN
 
 releasewrch
         Debug   co," - Turn off command window"
@@ -4245,7 +4279,7 @@ releasewrch
 ;
         MOV     R14,#cf_dormant         ; not in a command window any more!
         STR     R14,commandflag
-        ADRL    R0,execcom              ; cancel exec file (just in case)
+        ADR     R0,execcom2             ; cancel exec file (just in case)
         SWI     XOS_CLI                 ; cf. Wimp_ReportError
         ADRL    R3,tempiconblk
         BL      resetkeycodes           ; back to normal

s/Wimp02

@@ -4662,7 +4662,11 @@ int_flush_opens ROUT
 04
       ; Debug   opn,"**** copy_new_links_to_old for activewinds"
         ADRL    R0,activewinds
+      [ STB
+        ADRL    R1,oldactivewinds
+      |
         ADR     R1,oldactivewinds
+      ]
         BL      copy_new_links_to_old
 
 ; correct child window stacks (use allwinds for this, since children can be moved while the parent is closed)

s/Wimp04

@@ -1112,7 +1112,11 @@ icontext TraceL font
         SUB     cx1,cx1,#16
 
         Push    "R1"
+      [ BlendedFonts
+        ADRL    R0,writedirreverse
+      |
         ADR     R0,writedirreverse
+      ]
         MOV     R1,#writedirreverse_len
         SWI     OS_WriteN               ; poke the write direction for the cursor
         Pull    "R1"
@@ -1909,7 +1913,7 @@ textwidth_current_font_known
         ]
 
 ; R3 = font handle to use for text
-        Push    R3
+        Push    "R3"
         STR     R1,tempworkspace+28
         BL      pushfontstring
         LDR     R0,[SP,R7]              ; stack has moved!!!
@@ -1927,6 +1931,7 @@ textwidth_current_font_known
         BL      my_StringBBox           ; correct screen BBox
                                         ; unlike Font_StringBBox!!
         ADD     SP, SP, R7              ; balance the stack for a happy life
+	ADD	SP, SP, #4
 
         Pull    "R1-R3,R5-R7,PC",VS
 ;        SUB     R1,R3,R1
@@ -1937,7 +1942,6 @@ textwidth_current_font_known
         STRVC   R2,temp_text_height
         TraceK  font, "textwidth done"
         TraceNL font
-        ADD     SP,SP,#4                ; more ballancing acts!
         Pull    "R1-R3,R5-R7,PC"
 
 ;;===================================================================
@@ -5140,6 +5144,10 @@ State_SymbolFont        *       2
 pushfontstring TraceL font
         Push    "R0, R2-R6, R8-R10, LR"
 
+	Debug	err, "pushfontstring: flags=",R1
+	DebugS  err, "                string=",R2
+	Debug	err, "                handle=",R3
+
 ; R1 = flags for icon
 ; R2 -> string to paint
 ; R3 = handle for icon font

s/Wimp07

@@ -1386,6 +1386,8 @@ setbuttonx
 ;         R1 = 3,4... ==> additional button pressed
 ;
 
+
+
 errorprefix     DCB     "NoError",0
 errorprefix1    DCB     "Error",0
 errorprefix2    DCB     "ErrorF",0
@@ -1770,6 +1772,8 @@ notoveryet
         NOP
         B       pollit
 
+	LTORG
+
         MACRO
 $lab    MakeInvisible   $num
 
@@ -2027,6 +2031,8 @@ starterrorbox_reenter
 
 starterrorbox_draw
 
+	Debug	err,"starterrorbox_draw"
+
         Push    "R4-R7"
       [ NewErrorSystem
 ; make sure we have default pointer
@@ -2079,6 +2085,8 @@ starterrorbox_draw
 ;
         ADR     R2,errortitle
 ;
+	DebugS	err,"errortitle=",R2
+
         Pull    "R2-R5"
 
         [ NewErrorSystem
@@ -2207,6 +2215,7 @@ oldapploop
         Pull    "R1,R2"
 doneappsprite
 
+	Debug	err,"doneappsprite"
         MOV     R0,#-1
         Push    "R0"
 ; we use the stack to keep track of displayed icons
@@ -2375,6 +2384,9 @@ marktoomanyicons
         Push    "R0"
 
 alignicons
+
+	Debug	err,"alignicons"
+
 ; stack now has at most 4 icons, R2-8 -> icon to appear on far right.
 
         SUB     R2,R2,#8
@@ -2410,8 +2422,12 @@ alignanddisplayicon
       [ StretchErrorButtons
         Push    "R0,R1,R2,R4,R14"
         LDR     R1,[R3,#i_flags]
-        LDR     R2,[R3,#i_data]
+	ADD	R2,R3,#i_data
+	BL	seticonptrs
+	LDR	R2,[R3,#i_data]
+	Debug	err,">textwidth"
         BL      textwidth
+	Debug	err,"<textwidth"
         ADD     R5,R4,#36                       ; allow 18 OS-units each side, in case it's a default button
         Pull    "R0,R1,R2,R4,R14"
         max     R4,R5
@@ -2508,6 +2524,8 @@ clearstack
 ;
         ADD     R1,handle,#w_wax0
         ASSERT  cx0=R2
+
+	Debug	err, "working out window coords"
 ;
         Push    "R1"                    ; centre the dialogue
         LDMIA   R1,{cx0,cy0,cx1,cy1}
@@ -2553,6 +2571,7 @@ clearstack
         LDR     R0,errorhandle
         Push    "R0,cx0,cy0,cx1,cy1,x0,y0,x1,R9-R12" ; 12 words needed on stack
         MOV     userblk,sp
+	Debug	err,"int_open_window"
         BL      int_open_window
 ;
         BLVC    visibleouterportion     ; handle --> window definition already

s/Wimp10

@@ -2840,6 +2840,7 @@ trace_nl ROUT
         BL      trace_char
 
         Pull    "R0, PC",, ^
+
         ]
 
 Tool_SpriteOp