OberonCore

Библиотека  Wiki  Форум  BlackBox  Компоненты  Проекты
Текущее время: Четверг, 14 Декабрь, 2017 13:08

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




Начать новую тему Ответить на тему  [ 1 сообщение ] 
Автор Сообщение
 Заголовок сообщения: DevSubTool
СообщениеДобавлено: Суббота, 10 Ноябрь, 2007 01:04 
Модератор
Аватара пользователя

Зарегистрирован: Среда, 16 Ноябрь, 2005 00:53
Сообщения: 4468
Откуда: Россия, Орёл
Код:
   CONST
      textCmds* = 0; formCmds* = 1; otherCmds = 2;
      noModelView* = 3; modelView* = 4; complexView* = 5;
      wrapper = 6; specialContainer = 7; generalContainer = 8;
...

   PROCEDURE TranslateSubsystem (kind: INTEGER; string: ARRAY OF CHAR);
...
   BEGIN
...
      IF kind = textCmds THEN
...
      ELSIF kind = otherCmds THEN
         TranslateFile(loc, "Cmds2", new, "Cmds", string, res);
         Message(string, "Cmds", "Cmds2")
      ELSIF kind = noModelView THEN
...
      ELSIF kind = wrapper THEN
         TranslateFile(loc, "Views6", new, "Views", string, res);
         Message(string, "Views", "Views6");
         f.WriteLn;
         f.WriteView(DevCommanders.dir.New());
         f.WriteString(' "'); f.WriteString(string); f.WriteString('Views.Deposit; StdCmds.Open"'); f.WriteLn
      ELSIF kind = specialContainer THEN
         TranslateFile(loc, "Views7", new, "Views", string, res);
         Message(string, "Views", "Views7");
         f.WriteLn;
         f.WriteView(DevCommanders.dir.New());
         f.WriteString(' "'); f.WriteString(string); f.WriteString('Views.Deposit; StdCmds.Open"'); f.WriteLn
      ELSIF kind = generalContainer THEN
         TranslateFile(loc, "Models8", new, "Models", string, res);
         Message(string, "Models", "Models8");
         TranslateFile(loc, "Views8", new, "Views", string, res);
         Message(string, "Views", "Views8");
         TranslateFile(loc, "Controllers8", new, "Controllers", string, res);
         Message(string, "Controllers", "Controllers8");
         TranslateFile(loc, "Cmds8", new, "Cmds", string, res);
         Message(string, "Cmds", "Cmds8");
...
      END;
...
   END TranslateSubsystem;

Интересно, почему OM убрали эти заготовки: otherCmds = 2; wrapper = 6; specialContainer = 7; generalContainer = 8? Потому что есть соотв-е примеры (, ObxWrappers, ObxTwins, Form...)? А может у кого энти заготовки завалялись где с предыдущих версий :?: :roll:


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 

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


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

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


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

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