MODULE ObxTrap;
(**
project = "BlackBox"
organization = "www.oberon.ch"
contributors = "Oberon microsystems"
version = "System/Rsrc/About"
copyright = "System/Rsrc/About"
license = "Docu/BB-License"
changes = ""
issues = ""
**)
IMPORT Dialog, Views, Controllers;
VAR global: INTEGER;
PROCEDURE Do*;
VAR i: INTEGER; str: Dialog.String; v: Views.View;
BEGIN
str := "String";
global := 13;
v := Controllers.FocusView();
i := 777;
str[i] := "*" (* index out of range, since the Dialog.String array only contains 256 elements *)
END Do;
PROCEDURE Hang*;
BEGIN
LOOP END
END Hang;
END ObxTrap.