OberonCore

MODULE Test;

   IMPORT HostClipboard, TextViews, TextModels, National;
   
   VAR
      text*: ARRAY 256 OF CHAR;
      
   PROCEDURE Do*;
      VAR utext: ARRAY 256 OF CHAR;   
            i: INTEGER;
   BEGIN
      FOR i := 0 TO LEN(text$)-1 DO
         utext[i] := National.ConvertToUnicode(text[i])
      END;
      utext[LEN(text$)] := 0X;
      HostClipboard.Register(TextViews.dir.New(TextModels.dir.NewFromString(utext)), 0, 0, TRUE)
   END Do;


END Test.