Программирование в X Window средствами Free Pascal

1.5.1 Механизм свойств

Как мы уже упоминали ранее, свойство есть набор данных, ассоциированных с окном. Они хранятся в специальных таблицах в памяти компьютера, на котором работает сервер. Каждое свойство имеет имя. Разные окна могут иметь свойства с одинаковыми именами.

Поскольку передача имен - строк произвольной длины - от клиента к серверу может увеличить нагрузку на сеть, X идентифицирует свойства с помощью целых чисел - атомов. Процедура XInternAtom включает свойство с указанным именем в таблицу сервера и возвращает соответствующий атом. Полный список реализуемых X протоколом атомов можно найти в файле /usr/include/X11/Xatom.h.

Данные свойства рассматриваются сервером как массив единиц длиной 8, 16 или 32 бита. Их конкретная интерпретация осуществляется программами-клиентами.

Каждое свойство имеет тип, который, в свою очередь, также задается тем или иным свойством. Например, свойство, соответствующее атому XA_STRING, задает тип "строка".

Для работы со свойствами кроме XInternAtom используются следующие процедуры: XChangeProperty - меняет данные свойства: XGetWindowProperty - позволяет получить данные свойства.

Особую роль играют свойства, данные которых содержат строки текста. Они так и называются текстовыми и имеют тип "TEXT". Таковыми являются, например, имена (заголовки) окно, имена пиктограмм и т.д. Данные текстового свойства описываются структурой TXTextProperty. Процедура XStringListToTextProperty переводит список строк в набор данных типа TXTextProperty:

(* Эта переменная будет хранить созданное свойство. *)
var
 window_title_property: TXTextProperty;
 rc: TStatus;

(* Строка, преобразуемая в свойство. *)
const
 window_title: PChar = 'hello, world';

(* перевод строки в свойство X. *)

 rc:= XStringListToTextProperty(@window_title, 1, @window_title_property);

(* проверка успешности преобразования. *)
 if (rc = 0) then begin
 writeln('XStringListToTextProperty - нет памяти');
 halt(1);
 end;

XTextPropertyToString выполняет обратное преобразование.

1.5.2 Общение с менеджером окон

Менеджер окон - это специальный клиент, в задачи которого входит интерактивное перемещение окон по экрану, изменение их размеров, минимизация (превращение в пиктограмму) и многое другое. Чтобы облегчить менеджеру его нелегкую жизнь, программам рекомендуется при инициализации сообщить о себе определенную информацию. Передается она через предопределенные свойства, которые известны менеджеру и могут быть им прочитаны. Некоторые из свойств (так называемые стандартные) задавать обязательно. Все остальное определяется по усмотрению программы. Наиболее простой способ задать стандартные свойства - обратиться к процедурам XSetStandardProperties или XSetWMProperties.

Ниже перечисляются свойства, создаваемые для менеджера окон программами, а также процедуры для работы с ними.

Имя (заголовок) окна. Идентифицируется атомом XA_WM_NAME и имеет тип "TEXT". Данные свойства - структура TXTextProperty. Для задания свойства используется процедура XStoreName (XSetWMName). Получить его можно с помощью XFetchName (XGetWMName).

Имя пиктограммы. Идентифицируется атомом XA_WM_ICONNAME и имеет тип "TEXT". Данные свойства - структура TXTextProperty. Для задания свойства используется процедура XSetIconName (XSetWMIconName). Получить его можно с помощью XGetIconName (XGetWMIconName).

Рекомендации (hints) о геометрии окна. Идентифицируется атомом XA_WM_NORMAL_HINTS и имеет тип XA_WM_SIZE_HINTS. Данные свойства - структура типа TXSizeHints. Для задания свойства используется процедура XSetNormalHints.

В ряде случаев стоит сообщить оконному менеджеру о том, какой размер окна мы хотим получить, и в каких пределах будут изменяться его размеры. Например, для терминальной программы (такой, как xterm), хотелось бы, чтобы окно всегда содержало полное количество строк и столбцов. В других случаях нежелательно давать возможность менять размер окна (например, в диалоговых окнах). Эти пожелания можно передать оконному менеджеру, хотя ничто не помешает ему их проигнорировать. Для этого необходимо создать структуру данных, заполнить ее необходимыми данными и затем использовать функцию XSetWMNormalHints:

(* указатель на структуру рекомендаций о размерах. *)
var
 win_size_hints: PXSizeHints;
 win_size_hints:= XAllocSizeHints;

 if (win_size_hints=nil) then begin
 writeln('XAllocSizeHints - нет памяти');
 halt(1);
 end;

 (* Инициализация структуры *)

 (* Вначале укажем, что передаются пожелания о размерах: установим минимальный и начальный размеры. *)

 win_size_hints^.flags:= PSize OR PMinSize;

 (* Затем указываем требуемые границы. В нашем случае - создаем окно минимальным размером 300x200 пикселей и устанавливаем начальный размер в 400x250. *)

 win_size_hints^.min_width:= 300;
 win_size_hints^.min_height:= 200;
 win_size_hints^.base_width:= 400;
 win_size_hints^.base_height:= 250;

 (* Передаем пожелания о размерах оконному менеджеру. *)
 XSetWMNormalHints(display, win, win_size_hints);

 (* В конце необходимо освободить память из-под структуры. *)
 XFree(win_size_hints);

Дополнительные параметры окна: способ работы с клавиатурой, вид и положение пиктограммы. Идентифицируется атомом XA_WM_HINTS и имеет тип XA_WM_HINTS. Данные свойства - структура типа TXWMHints. Для задания свойства используется процедура XSetWMHints. Структура типа XWMHints, передаваемая функции XSetWMHints, должна быть подготовлена с помощью XAllocWMHints:

var
 win_hints: PXWMHints;
 icon_pixmap: TPixmap;