Глюк в ЧЯ: Не хотит импортировать DX7 for VB type library.
Точнее импортируется только константы и простые типы. Интерфейсы отсутствуют совсем, и в конце модуля стоят вот такие строки:

wireHFONT* = POINTER TO _RemotableHandle;
wireHDC* = POINTER TO _RemotableHandle;

которые не дают откомпилировать модуль т.к. _RemotableHandle нигде не обьявлен.
В Delphi в этом месте:

  wireHFONT = ^TGUID;
  wireHDC = ^TGUID;

З.Ы. для DX8 тотже глюк. Похоже на ограничение ЧЯ на количество импортируемых обьектов (константы, типы, процедуры..).

Ответ на »сообщение 2347« (Иван Горячев)
___________________________
Вопросы по limbo показывают, насколько распухла тема. ...
Да, когда мы обгноваривали с Королевой планы на счёт этой темы, были высказаны мысли, что это не только Оберонам посвящённая тема, в частности, но и проектированию и "подходам" вообще... Тем, при этом образе существования ("подход-отход") затрагивается масса... Вот уже info21 сделал отдельную тему - и правильно сделал. Если ещё возникнет "откол" - так тому и быть! -  никаких возражений!... :о)

... Точно помню, тогда ещё малость пообсуждали.
В смысле - поперебрасывались помидорками... :о)))))))

Ответ на »сообщение 2344« (Сергей Губанов)
___________________________
А можно попросить дать ссылку на статью?
Да всегда - пжалста!
http://www.cs.bell-labs.com/sys/doc/acme/acme.pdf
Автор - Пайк, А не К или Р. Что не умаляет... :о)

Ответ на »сообщение 2346« (Иван Горячев)
___________________________
"DevBrowser.ShowInterface('&c')"
показывает и SetHook

Ответ на »сообщение 2344« (Сергей Губанов)
___________________________

Вопросы по limbo показывают, насколько распухла тема. Ссылку на статью, равно как и на прочие ресурсы limbo, давал Владимир, где-то между первым и двухтысячным сообщением :) Точно помню, тогда ещё малость пообсуждали.

Ответ на »сообщение 2345« (O.Nick)
___________________________
А на Info->Extension interface показывает

TYPE
  Hook = POINTER TO ABSTRACT RECORD (Kernel.Hook)
    (h: Hook) DateToString (d: Date; format: INTEGER; OUT str: ARRAY OF CHAR), NEW, ABSTRACT;
    (h: Hook) GetTime (OUT d: Date; OUT t: Time), NEW, ABSTRACT;
    (h: Hook) GetUTCBias (OUT bias: INTEGER), NEW, ABSTRACT;
    (h: Hook) GetUTCTime (OUT d: Date; OUT t: Time), NEW, ABSTRACT;
    (h: Hook) TimeToString (t: Time; OUT str: ARRAY OF CHAR), NEW, ABSTRACT
  END;

но SetHook всё равно прячет.

Ответ на »сообщение 2342« (Trurl)
___________________________

В упор не вижу.

DEFINITION Dates;

CONST
abbreviated = 2;
friday = 4;
long = 1;
monday = 0;
plainAbbreviated = 4;
plainLong = 3;
saturday = 5;
short = 0;
sunday = 6;
thursday = 3;
tuesday = 1;
wednesday = 2;

TYPE
Date = RECORD
year, month, day: INTEGER
END;

Time = RECORD
hour, minute, second: INTEGER
END;

PROCEDURE DateToString (IN d: Date; format: INTEGER; OUT str: ARRAY OF CHAR);
PROCEDURE Day (IN d: Date): INTEGER;
PROCEDURE DayOfWeek (IN d: Date): INTEGER;
PROCEDURE DayToDate (n: INTEGER; OUT d: Date);
PROCEDURE GetDate (OUT d: Date);
PROCEDURE GetEasterDate (year: INTEGER; OUT d: Date);
PROCEDURE GetTime (OUT t: Time);
PROCEDURE GetUTCBias (OUT bias: INTEGER);
PROCEDURE GetUTCDate (OUT d: Date);
PROCEDURE GetUTCTime (OUT t: Time);
PROCEDURE TimeToString (IN t: Time; OUT str: ARRAY OF CHAR);
PROCEDURE ValidDate (IN d: Date): BOOLEAN;
PROCEDURE ValidTime (IN t: Time): BOOLEAN;

END Dates.

Хотя hex-редактором их откопал.

Ответ на »сообщение 2340« ()
...пока в статье Кернигана(чи Ричи?) не прочитал...

А можно попросить дать ссылку на статью?

Прикольно. Пишем так:

PROCEDURE Test*;
BEGIN
END Test;

В интерфейсе Test показывается. А стоит написать так:

PROCEDURE Test* (h: Hook);
BEGIN
END Test;

Test из показа в интерфейсе исключается. Реагирует на волшебный "Kernel.Hook".

Ответ на »сообщение 2341« (O.Nick)
___________________________
В символьном файле они как раз присутствуют.
Просто интерфейс может показываеться по-разному.