MODULE RehearseCodeBundle;
Generated by m3bundle; see its manpage.
IMPORT Bundle, BundleRep, Text;
TYPE T = Bundle.T OBJECT OVERRIDES
get := LookUp;
getNames := GetNames;
END;
TYPE Texts = REF ARRAY OF TEXT;
VAR
bundle: T := NIL;
names : Texts := NIL;
PROCEDURE Get(): Bundle.T =
BEGIN
IF (bundle = NIL) THEN bundle := NEW (T) END;
RETURN bundle;
END Get;
PROCEDURE GetNames (<*UNUSED*> self: T): Texts =
BEGIN
IF names = NIL THEN
names := NEW (Texts, NUMBER (Names));
names^ := Names;
END;
RETURN names;
END GetNames;
PROCEDURE LookUp (<*UNUSED*> self: T; element: TEXT): TEXT =
BEGIN
FOR i := 0 TO LAST (Names)-1 DO
IF Text.Equal (Names[i], element) THEN
RETURN Elements[i];
END;
END;
RETURN NIL;
END LookUp;
CONST Names = ARRAY [0..1] OF TEXT {
"RehearseCode.fv",
NIL
};
CONST Elements = ARRAY [0..1] OF TEXT {
E0,
NIL
};
CONST E0 =
"; Copyright (C) 1994, Digital Equipment Corporation "
& " \n; All rights reserved. "
& " \n; See the file COPYRIGHT for a full description. "
& " \n\n(Rim\n (Pen 2)\n (VBox\n (HBox\n (Butt"
& "on %reparse \"Reparse\")\n (Glue 4)\n (Button %step \"Step\")"
& "\n (Glue 4)\n (Button %run \"Run\")\n (Glue 4)\n (B"
& "utton %exit \"Exit\")\n Fill)\n (Glue 2)\n (VTile\n (Sh"
& "ape\n (Height 35 + Infinity)\n (Width 450 + Infinity)\n "
& " (Frame Lowered (Browser %procedures Quick)))\n (Shape\n "
& " (Height 35 + Infinity)\n (Width 450 + Infinity)\n (Fra"
& "me Ridged (TextEdit %typescript ReadOnly))))))\n";
BEGIN
END RehearseCodeBundle.