OberonCore https://forum.oberoncore.ru/ |
|
"Опечатки" в модулях (наведение красоты) https://forum.oberoncore.ru/viewtopic.php?f=131&t=2416 |
Страница 1 из 1 |
Автор: | Евгений Темиргалеев [ Четверг, 04 Март, 2010 10:49 ] |
Заголовок сообщения: | "Опечатки" в модулях (наведение красоты) |
StdStamps.Restore Код: c := v.context; Заменить соотв. строку на IF (c # NIL) & (c IS TextModels.Context) THEN a := v.context(TextModels.Context).Attr(); ... Код: a := c(TextModels.Context).Attr();
|
Автор: | Иван Кузьмицкий [ Четверг, 04 Март, 2010 11:45 ] |
Заголовок сообщения: | Re: Мелкое улучшение StdStamps.Restore |
А что это даст? |
Автор: | Евгений Темиргалеев [ Четверг, 04 Март, 2010 12:11 ] |
Заголовок сообщения: | Re: Мелкое улучшение StdStamps.Restore |
Исправление опечатки, так сказать. В StdLinks.RestoreView так и записано. Кстати: там оформление хромает: Код: ...
IF coloredBackg THEN f.DrawRect(f.l, f.t, f.r, f.b, Ports.fill, Ports.grey25) END; ... |
Автор: | Евгений Темиргалеев [ Пятница, 16 Июль, 2010 19:33 ] |
Заголовок сообщения: | Re: "Опечатки" в модулях |
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. |
Автор: | Евгений Темиргалеев [ Пятница, 16 Июль, 2010 23:44 ] |
Заголовок сообщения: | Re: "Опечатки" в модулях |
HostFiles Old: отстуствует ветка ELSE в WITH (трэп на неродном локаторе) в прочих процедурах, напр. New, Delete, на неродной Locator выставляется res = 1 (invalid name or locator) |
Автор: | Евгений Темиргалеев [ Понедельник, 13 Июнь, 2011 11:40 ] |
Заголовок сообщения: | Re: "Опечатки" в модулях (наведение красоты) |
Код: PROCEDURE StdFolds.InsertionAttr (text: TextModels.Model; pos: INTEGER): TextModels.Attributes; Достаточно rd.Read. ch: CHAR не нужен.
VAR rd: TextModels.Reader; ch: CHAR; BEGIN rd := text.NewReader(NIL); rd.SetPos(pos); rd.ReadChar(ch); RETURN rd.attr END InsertionAttr; |
Страница 1 из 1 | Часовой пояс: UTC + 3 часа |
Powered by phpBB® Forum Software © phpBB Group https://www.phpbb.com/ |