BlackBox Framework Center

Code: Select all

VAR cmdString:POINTER TO ARRAY OF CHAR;

Code: Select all

	BEGIN(*HandleCtrlMsg*)
		WITH msg: Controllers.PollCursorMsg DO
			msg.cursor := Ports.refCursor;
		| msg: TextControllers.FilterPollCursorMsg DO
			IF isHot(msg.controller, msg.x, msg.y, {}) THEN
				msg.cursor := Ports.refCursor; msg.done := TRUE;
				(*>>*)
				IF (v.leftSide)&(v.cmd # cmdString) THEN  
					Dialog.ShowStatus(v.cmd);cmdString:=v.cmd; 
				END;
			ELSE 
				IF cmdString # NIL THEN 
					Dialog.ShowStatus("");cmdString:=NIL;
				END;  
				(*>>*)
			END
		| msg: Controllers.TrackMsg DO
			Track(v, f, NIL, msg.x, msg.y, msg.modifiers)
		| msg: TextControllers.FilterTrackMsg DO
			IF isHot(msg.controller, msg.x, msg.y, msg.modifiers) THEN
				Track(v, f,  msg.controller, msg.x, msg.y, msg.modifiers);
				msg.done := TRUE
			END
		ELSE
		END
	END HandleCtrlMsg;

Code: Select all

	PROCEDURE FindFilter  (c: StdCtrl; f: Views.Frame; x, y: INTEGER; OUT filter : Views.View);
		CONST catchRange = 1000;
		VAR rd: TextModels.Reader; pos, beg, end: INTEGER; isF: BOOLEAN;
	BEGIN
		c.view.GetRange(f, beg, end); DEC(beg, catchRange);
		pos := c.view.ThisPos(f, x, y);
		IF pos < c.text.Length() THEN INC(pos) END;	(* let filter handle itself *)
		rd := CachedReader(c); rd.SetPos(pos);
		REPEAT
			rd.ReadPrevView(filter);
			isF := (filter # NIL) & IsFilterView(filter, c, f, x, y);
		UNTIL isF OR rd.eot OR (rd.Pos() < beg);
		IF ~isF THEN filter := NIL END;
		(*<<*)
		IF filter=NIL THEN (*right*)
			rd.SetPos(pos);
			REPEAT
				rd.ReadView(filter);
				isF := (filter # NIL) & IsFilter (filter, c, f, x, y);
			UNTIL isF OR rd.eot OR (rd.Pos() >=end );
		END;
		(*>>*)
		CacheReader(c, rd)
	END FindFilter ;