Spezifikationsabgleich und Regressionsnachweise abschließen

tests/compat/formular-access-backtab.frm

@@ -0,0 +1,37 @@
+VERSION 1.00
+Begin Form Formular
+   Height = 10
+   Width = 40
+   Begin TextBox Text1
+      TabIndex = 0
+   End
+   Begin CommandButton Ok
+      Caption = "&OK"
+      TabIndex = 1
+      Top = 3
+   End
+End
+' tb-screen: 80x25
+' tb-events: key:%o | key:+<TAB>
+DIM SHARED trace$
+Formular.Show
+Ok.SetFocus
+DOEVENTS
+DOEVENTS
+DOEVENTS
+Formular.Hide
+CLS
+PRINT trace$
+END
+SUB Ok_Click()
+SHARED trace$
+trace$ = trace$ + "Click;"
+END SUB
+SUB Ok_LostFocus()
+SHARED trace$
+trace$ = trace$ + "LostFocus;"
+END SUB
+SUB Text1_GotFocus()
+SHARED trace$
+trace$ = trace$ + "GotFocus;"
+END SUB

tests/compat/formular-access-backtab.out

@@ -0,0 +1 @@
+Click;LostFocus;GotFocus;

tests/compat/formular.out

@@ -18,7 +18,7 @@
 70707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070
 70707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070
 70700707070707070707070707070707070707077070707070707070707070707070707070707070707070707070
-70700707070707070707070707070707070707077070700707070707070707070770707070707070707070707070
+7070070707070707070707070707070707070707707070f1f1f1f1f1f1f1f1f1f170707070707070707070707070
 70700707070707070707070707070707070707077070707070707070707070707070707070707070707070707070
 70707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070
 70700707070707070707070707070707070707077070707070707070707070707070707070707070707070707070

tests/compat/trap-masken.bas

@@ -0,0 +1,62 @@
+' tb-screen: 80x25
+' tb-keys: <F3><F2><F1>
+' F3 ist ON, F2 OFF, F1 STOP; EVENT OFF verwirft UEVENT.
+ON KEY(1) GOSUB K1
+ON KEY(2) GOSUB K2
+ON KEY(3) GOSUB K3
+KEY(1) STOP
+KEY(2) OFF
+KEY(3) ON
+DOEVENTS
+IF k1% = 0 AND k2% = 0 AND k3% = 1 THEN PRINT "KEY ON/OFF/STOP: genau F3"
+a$ = INKEY$
+b$ = INKEY$
+IF a$ = CHR$(0) + CHR$(60) THEN PRINT "KEY OFF: F2 lesbar"
+IF b$ = CHR$(0) + CHR$(59) THEN PRINT "KEY STOP: F1 lesbar"
+IF INKEY$ = "" THEN PRINT "KEY ON: F3 konsumiert"
+KEY(1) ON
+DOEVENTS
+DOEVENTS
+IF k1% = 1 THEN PRINT "KEY STOP -> ON: genau einmal"
+ON UEVENT GOSUB U
+UEVENT OFF
+CALL SetUEvent
+DOEVENTS
+UEVENT ON
+DOEVENTS
+IF u% = 0 THEN PRINT "UEVENT OFF: verworfen"
+CALL SetUEvent
+DOEVENTS
+IF u% = 1 THEN PRINT "UEVENT ON: zugestellt"
+UEVENT STOP
+CALL SetUEvent
+CALL SetUEvent
+DOEVENTS
+IF u% = 1 THEN PRINT "UEVENT STOP: gesperrt"
+UEVENT ON
+DOEVENTS
+DOEVENTS
+IF u% = 2 THEN PRINT "UEVENT STOP -> ON: genau einmal"
+EVENT OFF
+CALL SetUEvent
+DOEVENTS
+IF u% = 2 THEN PRINT "UEVENT EVENT OFF: gesperrt"
+EVENT ON
+DOEVENTS
+IF u% = 2 THEN PRINT "UEVENT EVENT OFF: verworfen"
+CALL SetUEvent
+DOEVENTS
+IF u% = 3 THEN PRINT "UEVENT EVENT ON: wieder aktiv"
+END
+K1:
+k1% = k1% + 1
+RETURN
+K2:
+k2% = k2% + 1
+RETURN
+K3:
+k3% = k3% + 1
+RETURN
+U:
+u% = u% + 1
+RETURN

tests/compat/trap-masken.out

@@ -0,0 +1,12 @@
+KEY ON/OFF/STOP: genau F3
+KEY OFF: F2 lesbar
+KEY STOP: F1 lesbar
+KEY ON: F3 konsumiert
+KEY STOP -> ON: genau einmal
+UEVENT OFF: verworfen
+UEVENT ON: zugestellt
+UEVENT STOP: gesperrt
+UEVENT STOP -> ON: genau einmal
+UEVENT EVENT OFF: gesperrt
+UEVENT EVENT OFF: verworfen
+UEVENT EVENT ON: wieder aktiv