OberonCore

Пожалуйста, подскажите на примере, как можно писать текст в документ, сменяя программно шрифты.

Во-первых не хватает красной строки

MODULE x;
IMPORT T := TextModels, F := Fonts, Views, TextViews;

PROCEDURE МеняемШрифт;
VAR
t: T.Model; (* текст *)
f, f1: F.Font;
a, a1: T.Attributes; (* это будут новые атрибуты текста *)
BEGIN
t := T.dir.NewFromString('Волгоград Сталинград Царицын'); (* новый текстовый объект (модель), шрифт по умолчанию *)

f := F.dir.Default(); (* можно взять шрифт по умолчанию, а можно указать в лоб: *)
f1 := F.dir.This( 'Verdana', 20*F.point, {F.italic, F.underline}, F.bold );
NEW(a);
a := T.dir.attr; (* берем атрибуты по умолчанию *)
a := T.NewFont( a, f1 ); (* правим атрибуты, меняя там шрифт на новый *)
t.SetAttr( 10, 20, a); (* меняем шрифт в позициях с 10 по 20-1 *)

(* смотрим, что получилось: *)
Views.OpenView( TextViews.dir.New( t ) );
END МеняемШрифт;


BEGIN МеняемШрифт
END x.


А кроме того еще чего-то не хватает, потому что в синей строке вылазит ТРАП 22 (нарушено предусловие)

Красная строка не нужна тут в принципе.

Перед выкладыванием нажимал Ctrl+F9 -- всё работало.
Проверил еще раз копию из браузера, см. картинку.

Я тоже не дурака валяю: Если копирую текст из форума один к одному, получаю ошибки (см. screenshot). Очень хотелось бы разобраться, в чем дело.
Что вы думаете по этому поводу?

Какой Вы используете Блэкбокс?

использовал школьный, сказал сейчас заново скачал
теперь пример работает без НОВЫЙ (a);, но все равно вылетает трапом на строке
t.SetAttr( 10, 20, a);
ТРАП 22 (нарушено предусловие)

P.S.
И возникает ощущение, что в некоторых ситуациях модуль не выгружается из памяти пока не перезапущу КП. Даже если может и должен. Какие-то мистические ощущения.

Всяко бывает.
Начинающие такие вещи иногда делают, что и вообразить невозможно.


Думать особо пока не нужно: не узнается идентификатор МеняемШрифт.
То есть парсер не узнает буковки как допустимые в идентификаторе буковки.

Попытался вставить Правка, Вставка специальная... , Текст юникод -- воспроизвелись в точности две ошибки с картинки.
И впрямь -- определение языка разрешает в идентификаторах только буквы из диапазона Latin-1 (где-то до 255; в сборках от И-21 с учетом русификации). А юникодовская кириллица сидит на бес знает каких кодах выше 255.

Там еще есть опция Простой текст. Должна работать.

Но по умолчанию (Ctrl+V) у меня вставляется не юникод, и сразу компилируется без ошибок.

Такое бывает, когда к модулю привязана форма и открыта на экране. Тогда модуль, выгрузившись, сразу же загружается в память (правда, последняя версия из кодового файла).

В качестве уточнения: все литеры с кодами выше 255 компилятор вчистую игнорирует. И те идентификаторы он не видит, в прямом смысле.

Спасибо, все заработало, как Вы и сказали.
А можно наводку? Где надо исправить настройки по умолчанию, чтобы и у меня по (Ctrl+V) вставлялся не юникод?
(Распаковал из скачаного дистрибутива школьную версию сегодня в обед в отдельную папку и ничего нигде не менял, но ведь вставляло-то юникод?)

Ну, слава богу.

Установка, на том компе, где я проверял, -- скачанная школьная версия, такая же, как Ваша.

Ctrl+V задаются в меню: Инфо, Меню, откроется окошечко, там кликнуть по гиперссылке System, откроется еще окошко (документ System/Rsrc/Menus.odc).
В нём описана структура всех меню -- или команды включения (INCLUDE) дополнительных описаний из файлов ***/Rsrc/Menus.odc указываемых после INCLUDE подсистем).
Найти (в нижней половине экрана) описание меню Правка, там строку, где в первой колонке "Вставить".
После белого символа табуляции стоит "V" -- оно и задаёт для этой команды Ctrl+V.
Подробней см. Справка для учителя, первая гиперссылка (Меню...), и там найти гиперссылку Настройка меню мелким шрифтом; открыть и читать.

Почему у Вас вставляется юникодов -- не знаю.
Возможно, зависит от конфигурации ОС-браузер: в буфере обмена копируемые данные могут храниться в нескольких форматах. Возможно, система их просто не сортирует, а ББ берет первый боле-мене подходящий. Гипотеза такая.