I use the code fragments:
Code: Select all
IMPORT Sequencers, TextModels, TextViews
VAR seq: ANYPTR; text : TextModels.Model; view : TextViews.View;
text := ...; (* sets up my Text *)
view := TextViews.dir.New (text);
Views.OpenView (view);
... Write to text ...
seq := text ().Domain ().GetSequencer ();
WITH seq : Sequencers.Sequencer DO seq.SetDirty (FALSE) END