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