Ereigniszustellung und Hostgrenzen korrigieren und Change archivieren

tests/compat/eingabe-maus-taste.frm

@@ -0,0 +1,32 @@
+VERSION 1.00
+Begin Form Form1
+   Width = 40
+   Height = 12
+   Begin TextBox Text1
+      Left = 5
+      Top = 5
+      Width = 10
+      Height = 1
+   End
+End
+
+' tb-screen: 80x25
+' tb-events: time:0ms | mouse:down,1,0,2,2 | key:K
+' Erwartete Handlerwirkungen in Hostreihenfolge; keine Snapshot-Neuaufnahme.
+Text1.SetFocus
+DIM SHARED s$
+DOEVENTS
+DOEVENTS
+DOEVENTS
+Form1.Hide
+CLS
+PRINT s$
+END
+SUB Text1_KeyPress(KeyAscii AS INTEGER)
+SHARED s$
+s$ = s$ + CHR$(KeyAscii)
+END SUB
+SUB Form_MouseDown(Button AS INTEGER, Shift AS INTEGER, X AS SINGLE, Y AS SINGLE)
+SHARED s$
+s$ = s$ + "M"
+END SUB