Phase 6: Kompatibilitaetsabnahme abschliessen und archivieren

tests/compat/release-formular.frm

@@ -0,0 +1,60 @@
+VERSION 1.00
+Begin Form Formular
+   Height = 10
+   Width = 40
+   Begin Menu mnuDatei
+      Caption = "&Datei"
+      Begin Menu mnuOpen
+         Caption = "&Open"
+      End
+   End
+   Begin TextBox Text1
+      Left = 2
+      Top = 2
+      Width = 18
+      Height = 1
+      TabIndex = 0
+   End
+   Begin CommandButton Ok
+      Caption = "&OK"
+      Left = 23
+      Top = 3
+      Width = 10
+      Height = 1
+      TabIndex = 1
+   End
+End
+' tb-screen: 80x25
+' tb-events: time:0ms | key:<TAB> | resize:100x30 | mouse:down,1,0,4,25 | mouse:up,1,0,4,25 | key:%d | key:o
+' Soll: LostFocus vor GotFocus, ein Click, dann Menue. COLOR e1;
+' nach Resize passt die Ausgabe ab Spalte 90. Unicode belegt Doppelzellen.
+' Quellen: Specs forms-objektmodell, textbildschirm, release-kompatibilitaet.
+DIM SHARED trace$
+Formular.Show
+Text1.SetFocus
+FOR i% = 1 TO 20
+DOEVENTS
+NEXT
+Formular.Hide
+COLOR 14, 1
+CLS
+PRINT trace$; "中"
+LOCATE 2, 90
+PRINT "界Z";
+END
+SUB Text1_LostFocus()
+SHARED trace$
+trace$ = trace$ + "Lost;"
+END SUB
+SUB Ok_GotFocus()
+SHARED trace$
+trace$ = trace$ + "Got;"
+END SUB
+SUB Ok_Click()
+SHARED trace$
+trace$ = trace$ + "Click;"
+END SUB
+SUB mnuOpen_Click()
+SHARED trace$
+trace$ = trace$ + "Menu;"
+END SUB