MODULE ToolRecolor;

   IMPORT DevCommanders, TextMappers, TextModels, Ports, Stores, Models;

   PROCEDURE Recolor*;
      VAR s: TextMappers.Scanner; ch: CHAR; script: Stores.Operation;
         colorToReplace, newColor: Ports.Color;
   BEGIN
      s.ConnectTo(DevCommanders.par.text);
      s.SetPos(DevCommanders.par.beg);
      s.rider.ReadChar(ch);
      IF ch = 0DX THEN RETURN END;
      WHILE ~ s.rider.eot & (ch = " ") DO
         s.rider.ReadChar(ch);
         IF ch = 0DX THEN RETURN END;
      END;
      colorToReplace := s.rider.attr.color;
      WHILE ~ s.rider.eot & (ch # " ") & (ch # 0DX) DO
         s.rider.ReadChar(ch);
         IF ch = 0DX THEN RETURN END;
      END;
      WHILE ~ s.rider.eot & (ch = " ") & (ch # 0DX) DO
         s.rider.ReadChar(ch);
         IF ch = 0DX THEN RETURN END;
      END;
      newColor := s.rider.attr.color;
      WHILE ~ s.rider.eot & (ch # 0DX) DO
         s.rider.ReadChar(ch);
      END;
      
      Models.BeginScript(DevCommanders.par.text, "Reaplace color", script);
      WHILE ~ s.rider.eot DO
         s.rider.ReadChar(ch);
         IF (s.rider # NIL) & (s.rider.attr # NIL) THEN
            IF s.rider.attr.color = colorToReplace THEN
               DevCommanders.par.text.SetAttr(s.rider.Pos()-1, s.rider.Pos(),
                  TextModels.NewColor(s.rider.attr, newColor))
            END
         END
      END;
      Models.EndScript(DevCommanders.par.text, script)
      
   END Recolor;

END ToolRecolor.