OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Четверг, 28 Март, 2024 11:46

Часовой пояс: UTC + 3 часа




Форум закрыт Эта тема закрыта, вы не можете редактировать и оставлять сообщения в ней.  [ Сообщений: 6 ] 
Автор Сообщение
СообщениеДобавлено: Четверг, 04 Март, 2010 10:49 
Модератор
Аватара пользователя

Зарегистрирован: Среда, 16 Ноябрь, 2005 00:53
Сообщения: 4625
Откуда: Россия, Орёл
StdStamps.Restore
Код:
c := v.context;
      IF (c # NIL) & (c IS TextModels.Context) THEN
         a := v.context(TextModels.Context).Attr();
         ...
Заменить соотв. строку на
Код:
         a := c(TextModels.Context).Attr();


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Мелкое улучшение StdStamps.Restore
СообщениеДобавлено: Четверг, 04 Март, 2010 11:45 

Зарегистрирован: Четверг, 17 Ноябрь, 2005 11:51
Сообщения: 2935
Откуда: г. Ярославль
А что это даст?


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Мелкое улучшение StdStamps.Restore
СообщениеДобавлено: Четверг, 04 Март, 2010 12:11 
Модератор
Аватара пользователя

Зарегистрирован: Среда, 16 Ноябрь, 2005 00:53
Сообщения: 4625
Откуда: Россия, Орёл
Исправление опечатки, так сказать. В StdLinks.RestoreView так и записано.

Кстати: там оформление хромает:
Код:
      ...
      IF coloredBackg THEN
      f.DrawRect(f.l, f.t, f.r, f.b, Ports.fill, Ports.grey25) END;
      ...


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: "Опечатки" в модулях
СообщениеДобавлено: Пятница, 16 Июль, 2010 19:33 
Модератор
Аватара пользователя

Зарегистрирован: Среда, 16 Ноябрь, 2005 00:53
Сообщения: 4625
Откуда: Россия, Орёл
HostFiles

PROCEDURE (r: Reader) SetPos (pos: INTEGER);
PROCEDURE (r: Reader) ReadBytes (VAR x: ARRAY OF BYTE; beg, len: INTEGER);
PROCEDURE (w: Writer) SetPos (pos: INTEGER);
PROCEDURE (w: Writer) WriteBytes (IN x: ARRAY OF BYTE; beg, len: INTEGER);
Коды предусловий не соотв. документации.

PROCEDURE (d: Directory) SameFile* (loc0: Files.Locator; name0: Files.Name; loc1: Files.Locator; name1: Files.Name): BOOLEAN;
Не проверяются предусловия 22, 23.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: "Опечатки" в модулях
СообщениеДобавлено: Пятница, 16 Июль, 2010 23:44 
Модератор
Аватара пользователя

Зарегистрирован: Среда, 16 Ноябрь, 2005 00:53
Сообщения: 4625
Откуда: Россия, Орёл
HostFiles

Old: отстуствует ветка ELSE в WITH (трэп на неродном локаторе)
в прочих процедурах, напр. New, Delete, на неродной Locator выставляется res = 1 (invalid name or locator)


Вернуться к началу
 Профиль  
 
СообщениеДобавлено: Понедельник, 13 Июнь, 2011 11:40 
Модератор
Аватара пользователя

Зарегистрирован: Среда, 16 Ноябрь, 2005 00:53
Сообщения: 4625
Откуда: Россия, Орёл
Код:
   PROCEDURE StdFolds.InsertionAttr (text: TextModels.Model; pos: INTEGER): TextModels.Attributes;
      VAR rd: TextModels.Reader; ch: CHAR;
   BEGIN
      rd := text.NewReader(NIL);
      rd.SetPos(pos); rd.ReadChar(ch);
      RETURN rd.attr
   END InsertionAttr;
Достаточно rd.Read. ch: CHAR не нужен.


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Форум закрыт Эта тема закрыта, вы не можете редактировать и оставлять сообщения в ней.  [ Сообщений: 6 ] 

Часовой пояс: UTC + 3 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 2


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Вся информация, размещаемая участниками на конференции (тексты сообщений, вложения и пр.) © 2005-2024, участники конференции «OberonCore», если специально не оговорено иное.
Администрация не несет ответственности за мнения, стиль и достоверность высказываний участников, равно как и за безопасность материалов, предоставляемых участниками во вложениях.
Без разрешения участников и ссылки на конференцию «OberonCore» любое воспроизведение и/или копирование высказываний полностью и/или по частям запрещено.
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB