The Russian Electronic Developer Magazine
	Русский электронный журнал разработчика

Исследование модели SOM. Часть 3

(С) СК Пресс 5/96
PC Magazine, January 9, 1995, стр. 279 Габриель Ганьон - менеджер в области информационных технологий (г. Бостон)

Создайте специализированные объекты SOM для своего "рабочего стола".

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

Если вы исследовали OS/2 Workplace Shell, то, возможно, знаете о неисчислимых параметрах настройки, предусмотренных в Блокноте установки (Settings Notebook) WPS-объектов. Каждый из этих параметров в свою очередь может быть сконфигурирован с помощью управляющих последовательностей начальной установки функций SysCreateObject и SysSetObjectData библиотеки RexxUtil. Таким образом, в дополнение к конфигурирированию объектов через "Блокнот установки" или с помощью техники drag-and-drop вы можете использовать для их настройки REXX. Во многих случаях оказывается быстрее воспользоваться методом непосредственных манипуляций вместо того, чтобы написать REXX-программы, но функции REXX незаменимы, когда вам требуется провести настройку большого числа рабочих станций. Настройка "рабочего стола" с помощью REXX также представляет собой эффективный способ обеспечения безопасности, так как вы можете восстановить утерянные или испорченные объекты, просто заново выполнив REXX-программу.

Создание специализированной инструментальной панели Launchpad

Предположим, что вы - сетевой администратор и вам нужно создать специализированные "Инструментальные панели" для каждого пользователя. Каждый подразделение хочет, чтобы наиболее часто используемые программы находились на линейке, отделенной от стандартной "Инструментальной панели" Launchpad, - плановый отдел, например, пользуется в основном инструментами дл планирования деятельности предприятия, а отдел маркетинга чаще использует электронные таблицы и текстовые процессоры.

К сожалению, OS/2 не имеет шаблона дл "Инструментальных панелей"; если вы хотите создать новую "Инструментальную панель" с помощью "Блокнота установки", вам нужно сделать копию стандартной "Инструментальной панели" и удалить все ее объекты (перетащить их в мусорную корзину или выбрать пункт Delete (удалить) из всплывающего меню объекта). Затем вы должны заполнить "Инструментальную панель", перетаскивая на нее новые программные объекты. Поскольку параметры "Инструментальной панели" не сохраняются в отдельном файле на диске (класс WPLaunchPad - потомок класса WPAbstract), вы не можете скопировать их на дискету для последующего распространения. Следовательно, вы должны повторять процедуру заново для каждого "рабочего стола". Создание специальной "Инструментальной панели" поначалу кажетс простым, но к моменту, когда вы закончите ее установку на десятой рабочей станции, у вас, возможно, появитс желание сменить место работы.

Идентификаторы объектов

Однако эту же задачу можно решить с использованием REXX. Во-первых, вам надо выяснить, какую прикладную программу хочет загрузить каждый отдел. Допустим, плановый отдел хочет поместить на новую "Инструментальную панель" несколько настольных инструментов OS/2: "Калькулятор", "Календарь", "Ежедневник" и "Ежемесячник", "Часы" и "Список неотложных дел". Отдел высказал пожелание, чтобы "Ежемесячник" был помещен в выдвижной ящик, расположенный над "Ежедневником", а "Часы" - над "Списком неотложных дел".

Чтобы получить доступ к каждому из этих объектов в среде REXX, вам нужно знать их идентификаторы или их маршрута доступа и имена файлов - если таковые имеются. Идентификаторы объектов предпочтительны, так как объекты могут быть перемещены. Идентификаторы объектов уникальны для каждого объекта и заключаются в угловые скобки:

   <objectname>

Врезка "Используемые по умолчанию объекты Workplace Shell" показывает применяемые по умолчанию идентификаторы для большинства WPS-объектов, используемых в OS/2 Warp. Мы более подробно объясним механизм ссылок на идентификаторы ниже, а сейчас приведем идентификаторы, нужные для нашего примера:

• Калькулятор: <WP_DCALC>
• Календарь: <WP_DCALEM>
• Ежедневник: <WP_DDIARY>
• Ежемесячник: <WP_DMNTH>
• Список неотложных дел:<WP_TODO>
• Часы: <WP_CLOCK>

Функция SYSCREATEOBJECT

Теперь, когда мы располагаем нужными идентификаторами объектов, мы можем создать новую "Инструментальную панель" с помощью функции SysCreateObject библиотеки RexxUtil, которая позволяет создавать новые объекты и конфигурировать их. Она принимает пять параметров, в том числе несущие информацию о классе (Class), имени (Title) и местонахождении (Location) объекта, а также необязательные параметры Setup String (управляюща последовательность начальной установки) и Option Code (Код варианта). В случае если нужный вам объект уже существует, "Код варианта" обеспечивает выбор одного из вариантов: завершить выполнение функции неудачей (F) - это действие предпринимается по умолчанию, если вы не укажете конкретный Option Code; заменить существующий объект (R); или изменить существующий объект (U). В варианте изменения объект приобретает новые свойства, предоставленные управляющей последовательностью начальной установки.

Управляющая последовательность начальной установки - набор комбинаций "ключевое слово=значение", разделенных точками с запятой:

EXENAME=C:\MDOS\BASIC.COM;
STARTUPDIR=C:\MDOS;
PROGTYPE=VDM;

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

Значительное число доступных параметров установки само по себе может привести в замешательство новичка, что, вероятно, и служит причиной того, что обща документация по языку REXX содержит лишь несколько примеров. Они слишком длинны, чтобы привести их здесь, но мы поместили в оперативную информационную службу PC Magazine Online файл, содержащий большинство параметров начальной установки, которые, по нашему мнению, могут пригодиться системному администратору. Они сгруппированы в таблицы по классам, начиная с WPObject. Поскольку свойства и поведение наследуются, установки WPObject передаются всем его подклассам. Для подклассов мы показываем только те установки, которые замещают или расширяют установки родительского класса. Иерархи классов WPS приведена в частях 1 и 2 нашей серии статей о SOM.

Создание инструментальной панели с помощью REXX

На лист. 5 показана программа REXX, служащая дл создания новой Инструментальной панели и размещения на ней перечисленных ранее прикладных программ. Заметьте, что мы назначаем переменную для управляющей последовательности начальной установки и связываем комбинации "ключевое слово=значение" с помощью символа ||. Это сделано главным образом для удобства чтения; вы можете вводить управляющую последовательность буквально такой, как она есть. Обратите также внимание на запятые, расставленные в конце некоторых строк. В языке REXX запятая в конце строки означает, что текст программы продолжается на следующей строке. Если вы разобьете программу на строки иначе, нежели в нашем примере, проверьте, что вы правильно рассставили запятые.

Лист.5. В этой части программы REXX делается попытка создания новой "Инструментальной панели" и показано, что из этого получилось

/* Создание новой "Инструментальной панели" на рабочем
столе и вывод результатов на экран */

/* загрузка функции RexxUtil */
call RXFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject';

setupString = ,
  'OBJECTID=<OpsLaunchPad>;' ||,
  'FPOBJECTS=<WP_DCALC>,<WP_DCALEM>,<WP_DDIARY>,<WP_TODO>;' ||,
  'DRAWEROBJECTS=3,<WP_DMNTH,>;'

rc = SysCreateObject('WPLaunchPad', 'Operations LaunchPad',,
  '<WP_DESKTOP>', setupString );
  if rc = 1 then
    say 'Launchpad object created w/Rexx'
  else say 'Could not create Launchpad w/Rexx'

Ключевое слово FPOBJECTS добавляет новые объекты в правый конец горизонтально сконфигурированной палитры или на самый верх размещенной по вертикали палитры. В техническом отношении эта программа добавляет к "Инструментальной панели" команды быстрого вызова объектов, а не подлинные объекты. Но вам не нужно явно создавать команду быстрого вызова, так как "Инструментальная панель" делает это за вас. Синтаксис таков:

   FPOBJECTS=objectID1, objectID2, objectID3...;

Посредством DRAWEROBJECTS добавляются объекты в выдвижной ящик над одним из элементов палитры. Выдвижной ящик изображается маленькой полоской; если в ящике содержатся какие-либо объекты, в середине полоски появляется метка. Принят следующий синтаксис:

   DRAWEROBJECTS=drawer_number, objectID1, objectID2...;

Следовательно, лист. 5 не имеет элемента, который помещал бы "Часы" в ящик, находящийся над "Списком неотложных дел". Чтобы поместить объекты в дополнительные ящики, вам следует воспользоватьс функцией SysSetObjectData, изменив вновь созданные "Инструментальные панели".

Функция SYSSETOBJECTDATA

SysSetObjectData позволяет вам изменять параметры существующих объектов. Использовать ее намного проще, чем SysCreateObject, которая, будучи применена с параметром модификации (U) может служить для тех же целей. Синтаксис функции SysSetObjectData следующий:

   result=SysSetObjectData('NameofObject', 'Setup')

Для настройки "рабочего стола" нам нужно еще добавить "Часы" в выдвижной ящик, расположенный выше "Списка неотложных дел" и, кроме того, внести некоторые другие изменения. Создав операционную "Инструментальную панель", мы обнаруживаем, что пиктограммы объектов почти неразличимы, и пользователи могут предпочесть иметь перед глазами описание каждого элемента, вместо одной лишь пиктограммы. На лист. 6 показано, как добиться этого с помощью функции SysSetObjectData. Обратите внимание, что свойствам LPTEXT и LPDRAWERTEXT присвоено значение YES (ДА), чтобы выводить под пиктограммами имена объектов. LPTEXT используется дл объектов палитры, а LPDRAWERTEXT - для объектов выдвижных ящиков.

Лист. 6. С помощью SysObjectData можно дополнить пиктограммы объектов описаниями каждого из элементов.

/* Внесение изменений в "Инструментальную панель" и
вывод результатов на экран */

/* Загрузка функции RexxUtil */
call RXFuncAdd 'SysObjectData', 'RexxUtil', 'SysObjectData';

setupString = ,
  'DRAWEROBJECTS=4,<WP_CLOCK>;' ||,
  'LPTEXT=YES;' ||,
  'LPDRAWERTEXT=YES;'

rc = SysObjectData('<OpsLaunchPad>', setupString );
  if rc = 1 then
    say 'Successfully added objects to LaunchPad'
  else say 'Could not added objects to LaunchPad'

Распознавание идентификаторов объектов

И наконец, отдел маркетинга хочет поместить на свои "Инструментальные панели" Microsoft Word и Excel, вместе с некоторыми другими, менее известными пакетами. До сих пор во всех наших примерах мы либо назначали идентификаторы новым объектам, либо использовали идентификаторы по умолчанию для объектов, поставляемых вместе с OS/2; мы не работали с прикладными программами, которые добавлялись позднее. Существует несколько способов, позволяющих определить, каким идентификатором объекта следует воспользоваться.

Во-первых, для прикладной программы можно создать программный ссылочный объект и назначить ему идентификатор объекта. Создать программный ссылочный объект - то же самое, что перетащить шаблон Program на "рабочий стол" и сконфигурировать его. Вам нужно по меньшей мере знать местоположение EXE-файла программы. Возможно, вы также захотите знать, принимает ли он какие-либо параметры и каков его рабочий каталог. Эти необязательные величины устанавливаются с помощью ключевых слов EXENAME, PARAMETERS и STARTUPDIR соответственно.

На лист. 7 показан процесс создания программной ссылки для системного редактора System Editor OS/2. Мы расположили новый программный объект в папке "рабочего стола", но вы можете поместить его в любую папку по вашему выбору. Эта программа уже имеет ссылочный объект, но вы можете не знать его принимаемого по умолчанию идентификатора. Основным моментом при этом является то, что при создании новой программной ссылки надо назначить ей идентификатор объекта, чтобы знать, как обратиться к нему, когда он будет использоваться в других функциях.

Лист. 7. Если вам не известен идентификатор объекта прикладной программы, вы можете создать новую программную ссылку и назначить новый идентификатор.

/* Создание программного объекта на рабочем столе и
вывод результатов на экран */

/* Загрузка функции RexxUtil */
call RXFuncAdd 'SysCreateObject', 'RexxUtil', 'SysCreateObject';

setupString = ,
  'OBJECTID=<MyEditor>;' ||,
  'EXENAME=\OS2\E.EXE';

rc = SysCreateObject('WPProgram', 'System Editor',,
  '<WP_DESKTOP>', setupString );
  if rc = 1 then
    say 'Program object created w/Rexx'
  else say 'Could not createProgram w/Rexx'

Образец программы, показанный на лист. 8, выводит на экран список активных идентификаторов объектов. Поскольку список будет длинным, вы, возможно, пожелаете сохранить результат в файле. В случае если вы не укажете идентификатор объекта, WPS назначает его самостоятельно, и некоторые из этих идентификаторов могут выглядеть весьма загадочно. Просматривая список, составленный нашей программой, мы обнаружили, что <WP_CWINWORDWINWORD> и <WP_CEXCELEXCELTAMICROSOF> - вероятные кандидаты для Microsoft Word и Excel. Попробовав их в подпрограмме REXX, мы обнаружили, что наши предположения были правильными.

Лист. 8. С помощью этой короткой REXX-программы вы можете вывести на экран список активных идентификаторов объектов.

/* Вывод на экран идентификатора объекта, известного
оболочке WPS */
call RXFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs';
call sysloadfuncs

result = SysIni( 'USER', 'PM_Workplace:Location', 'ALL:' 'ids')
if result \= 'ERROR:' then
  do i = 1 to ids.0
     say ids.i
  end

Исследование мира SOM

Мы надеемся, что этот цикл статей поможет вам составить представление о мощи и гибкости среды Workplace Shell, и побудит вас приступить к самостоятельному исследованию мира системной модели объектов SOM.

часть 1, часть 2

Интересные ссылки:

Комментариев к странице: 0 | Добавить комментарий

Редактор: Дмитрий Бан
Оформление: Евгений Кулешов