I used to use the following code to get access to the files:
Code: Select all
PROCEDURE CheckFile (loc: Files.Locator; fInfo: Files.FileInfo);
VAR
st: Stores.Store;
conv: Converters.Converter;
text: TextModels.Model;
BEGIN
conv := Converters.list;
WHILE conv.imp # 'DevBrowser.ImportSymFile' DO conv := conv.next END;
Converters.Import (loc, fInfo.name, conv, st);
text := st(Documents.Document).ThisView ().ThisModel ()(TextModels.Model);
Code: Select all
text := st(Views.View).ThisModel ()(TextModels.Model)