BlackBox Framework Center

Code: Select all

MODULE ToolsLinks;

	IMPORT TextMappers, TextModels, TextControllers, Fonts, StdLinks;

	PROCEDURE RemoveUnderline*;
	VAR c: TextControllers.Controller; beg: INTEGER; ch: CHAR;
		s: TextMappers.Scanner;
		atr, new: TextModels.Attributes;
		rd: TextModels.Reader;
		left: BOOLEAN;
	BEGIN
		c := TextControllers.Focus();
		IF c # NIL THEN
			rd := c.text.NewReader(NIL);
			s.ConnectTo(c.text);
			s.SetOpts({TextMappers.returnViews});
			s.SetPos(0);
			s.Scan;
			left := FALSE;
			WHILE s.type # TextMappers.eot DO
				IF s.type = TextMappers.view THEN
					IF s.view IS StdLinks.Link THEN
						IF s.view(StdLinks.Link).leftSide THEN
							beg := s.start + 1;
							rd.SetPos(s.start + 1);
							rd.ReadChar(ch);
							atr := rd.attr;
							new := TextModels.NewStyle(atr, atr.font.style - {Fonts.underline});
							left := TRUE
						ELSIF left THEN
							c.text.SetAttr(beg, s.start, new);
							left := FALSE
						END
					END
				END;
				s.Scan
			END
		END
	END RemoveUnderline;

END ToolsLinks.