MODULE; IMPORT VBT, Text, FormsVBT, StringSearchAlgClass, ZeusPanel; PROCEDURE AlgsBase GetData (alg: StringSearchAlgClass.T; VAR p, s: TEXT) = BEGIN p := ""; s := ""; LOCK VBT.mu DO TRY p := FormsVBT.GetText(alg.data, "pattern"); s := FormsVBT.GetText(alg.data, "text"); EXCEPT | FormsVBT.Error (msg) => ZeusPanel.ReportError(msg); RETURN; | FormsVBT.Unimplemented => ZeusPanel.ReportError("FormsVBT.Unimplemented in Get.Data"); RETURN; END; END; IF Text.Length(p) = 0 THEN ZeusPanel.ReportError("Error: Empty pattern"); END; END GetData; BEGIN END AlgsBase.