OberonCore

   PROCEDURE SortSelected*;
      VAR c: FormControllers.Controller; sel: FormControllers.List;
   BEGIN
      c := FormControllers.Focus();
      IF (c # NIL) & c.HasSelection() THEN
         sel := c.GetSelection();
         WHILE sel # NIL DO
            IF sel.next # NIL THEN c.form.PutAbove(sel.next.view, sel.view) END;
            sel := sel.next
         END
      END
   END SortSelected;

MODULE SternTimer2;

   IMPORT Dialog, Log := StdLog, Strings, Services, TextControllers, TextModels;

   TYPE
      Action = POINTER TO RECORD (Services.Action)
         period: INTEGER
      END;

   VAR
      a: Action;

   PROCEDURE (a: Action) Do;
   BEGIN
      Dialog.Beep;
      Services.DoLater(a, Services.Ticks()+a.period*Services.resolution);
   END Do;

   PROCEDURE Start (period: INTEGER);
   BEGIN
      ASSERT(period # 0, 20);
      Services.RemoveAction(a);
      NEW(a); a.period := period;
      Services.DoLater(a, Services.Ticks()+period*Services.resolution);
   END Start;

   PROCEDURE ReadPeriod*;
      VAR c: TextControllers.Controller; r: TextModels.Reader; period, res, i, beg, end: INTEGER; ch: CHAR; s: ARRAY 50 OF CHAR;
   BEGIN
      c := TextControllers.Focus();
      IF c # NIL THEN
         c.GetSelection(beg, end);
         IF end > beg THEN
            r := c.text.NewReader(NIL); r.SetPos(beg); s := ''; i := 0;
            r.ReadChar(ch);
            WHILE (r.Pos() <= end) & ~r.eot DO
               s[i] := ch; INC(i);
               r.ReadChar(ch);
            END;
            s[i] := 0X;
            IF s # '' THEN
               Strings.StringToInt(s, period, res);
               IF res = 0 THEN Start(period) END
            END
         END
      END;
   END ReadPeriod;

   PROCEDURE Stop*;
   BEGIN
      Services.RemoveAction(a); a := NIL
   END Stop;

   PROCEDURE StopGuard* (VAR par: Dialog.Par);
   BEGIN
      par.disabled := a = NIL
   END StopGuard;

END SternTimer2.

Меню

   "Запустить таймер"   ""   "SternTimer2.ReadPeriod"   "TextCmds.SelectionGuard"
   "Остановить таймер"   ""   "SternTimer2.Stop"   "SternTimer2.StopGuard"