PROCEDURE SearchCmd (call: BOOLEAN; OUT found: BOOLEAN);
		VAR p: Properties.Property; std: BOOLEAN; v: Views.View;  cmd: ARRAY 256 OF CHAR; pos, res: INTEGER;
	BEGIN
		Controllers.SetCurrentPath(Controllers.targetPath);
		v := Containers.FocusSingleton(); found := FALSE;
		IF v # NIL THEN
			Services.GetTypeName(v, cmd);
			GetCmd(cmd, cmd);
...

MODULE StdROAnaliz;
 
IMPORT Views, Controllers, Containers, Services, StdLog;
 
	PROCEDURE LogName*;
		VAR v: Views.View;  cmd: ARRAY 256 OF CHAR;
	BEGIN
		v := Containers.FocusSingleton();
		IF v # NIL THEN
			Services.GetTypeName(v, cmd);
			StdLog.String(cmd);
			StdLog.Ln;
		END;
	END LogName;
 
END StdROAnaliz.