{Form|_containing_controls}

CLASS {Form|_containing_controls} , UNTESTED, DESTRUCTORS :

Класс формы. Предназначен для создания ваших наследников, в которых определяется состав компонентов формы и переопределяются методы для организации обработки событий формы и её компонентов. В визуальной библиотеке AL-IV, все визуальные компоненты размещаются в колонках, а колонки - на форме. Более вложенные иерархии не допускаются, исключая слишком сложные конфигурации формы, которые не могут быть нормально отображены на маленьких экранах.

----------------------------------------------------- 'создание / закрытие'

STR Alias|_form

Строковое "прозвище" формы. Может быть полезно для различения форм оператором CASE.

{Control} Child|ren|_controls[] , READ

Список дочерних контролов формы (не колонок, а именно всех контролов на всех колонках).

INT Handle|_native , READ

Дескриптор формы, связывающий ее с неативным объектом, представляющим форму в целевой системе.

{Screen} Screen_|object_ , INIT

Ссылка на объект класса {Screen} (который должен быть единственным в приложении).

BOOL in_construct|_LOCAL

------------------------------------------------ 'нативный дескриптор окна'

INT local_window_handle

------------------------------------------------------ 'заголовок, границы'

STR local_caption|_set_last

BOOL No_frame|_was_set , READ

Установка (или снятие) для формы режима "без рамки". Эта опция зависит от целевой платформы и может быть просто проигнорирована.

BOOL No_borders , READ

Установка (или снятие) для формы режима "без границы". Эта опция зависит от целевой платформы и может быть просто проигнорирована.

BOOL Custom_colors , READ

Установка цветов формы.

INT Custom_foreground|_color , READ

INT Custom_background|_color , READ

-------------------------------------------------------- 'позиция и размер'

{rect} local_form_bounds

REAL want_width|_to_set

REAL want_height|_to_set

------------------------------------------ 'store monitors local (for C&S)'

{rect} local_monitors[]

------------------------------------------------------- 'клиентский размер'

METHOD Client_width ==> REAL	Ширины клиентской области формы.
METHOD Client_height ==> REAL	Высота клиентской области формы.
METHOD Client_pos|ition ==> {point}	Верхняя левая координата клиентской области формы относительно всей формы.
METHOD Set_client_size (      REAL W|idth_points ,      REAL H|eight_pointts ,      {sizing} Options|_sizing )	Установка размера формы на основе желаемого размера клиентской области формы.

------------- 'перетаскивание файлов, запуск другого экземпляра приложения'

METHOD command|_handling_see_parameters , CALLBACK

Событие для переопределения в главной форие приложения дл обработки параметров командной строки либо в момент запуска приложения, либо при получении параметров от другого экземпляра приложения, которое передает свои параметры первому (т.е. этому) экземпляру вместо того, чтобы обрабатывать их самому. А также, в случае, если выполняется перетаскивание файлов на форму и переопределенный метод accept возвратил TRUE.

METHOD accept|_files_drop ==> BOOL , CALLBACK

Событие для переопределения в частной реализации формы для ответа на событие перетаскивания на форму файла (файлов). До принятия решения о том, возвращать ли TRUE, в переопределенном методе можно изучить список брошенных файлов, перечисленных в списке параметров (по одному файлу на параметр).

----------------------------------------------------------- 'события формы'

Переопределение метода 'command' позволяет обрабатывать события запуска других экземпляров приложения. При этом список параметров запущенного экземпляра становится доступен через функции Count_param, Parameter из {System_functions}. Стобы событие command работало, и обеспечивался единственный экземпляр приложения, следует вместо класса {Screen} в функции Main визуального приложения использовать класс {Single_instance}.

Переопределение метода 'accept' позволяет обрабатывать события бросания файлов на форму (в результате перетаскивания мышью). Если ваш 'accept' возвращает TRUE, набор файлов считается допустимым и последующее отпускание клавиши мыши модет приводить к срабатыванию события 'command' для обработки собственно бросания списка файловс на форму. Сам список файлов доступен через функции Count_param и Parameter класса {System_functions} (при этом параметр с индексом 0 не используется).

{Control} sender_|for_event_or_NONE_if_sender_is_a_column_or_a_form_

--------------------------------------------------- 'activate / deactivate'

METHOD activated|_form_event , CALLBACK	Событие активации формы. Переопределите для реакции на активацию в результате действий пользователя.
METHOD deactivated|_form_event , CALLBACK , UNCOOKED	Событие деактивации формы. Переопределите для реакции на деактивацию в результате действий пользователя (активации других форм этого же или другого приложения).

--------------------------------------------------- 'отображение / скрытие'

BOOL local_form_visible

{reason_closing} reason_closing|_LOCAL

BOOL Do_not_close|_even_on_shutdown|_preventing_system_to_restart_or_shutdown

BOOL is_closed

TRUE если форма видимая.

BOOL Closed|_do_not_try_show_it_again , READ

TRUE если форма закрыта. После закрытия формы ее нельзя больше отобразить.

------------------------------------------------------ 'сообщения / вопрос'

METHOD message|_show ( STR Text|_show ) , PUBLIC	Метод для отображения некоторого текстового сообщения, обычно в отдельном диалоговом окне.
METHOD ask|_question_yes_no ( STR A|nswer_text ) ==> BOOL , PUBLIC	Метод для задания вопроса, имеющего 2 возможных ответа (Да / Нет) и ожидания ответа от пользователя.

--------------------------------------------- 'child modal dialog (single)'

{Form} current_modal_dialog_|child_to_this_form_

-------------------------------------------------------------------- 'меню'

Для создания и вызова всплывающего меню используется метод Popup_menu. Его единственный параметр - это строка, состоящая из определний пунктов меню, разделённых символами конца строки. Удобно использовать задание многострочной строчной константы с перфиксным символом @. В этом случае символ возврата каретки добавляется автоматически, если строка завершается строчным литералом. Для организации вложенных меню, следом за пунктом, являющимся родительским, должна быть отдельно расположена строка, содержащая только символ "(". Аналогично, строка ")" завершает уровень. Каждая строка, соответствующая пункту меню, может (и должна) начинаться с префикса вида "ИДЕНТИФИКАТОР:" (двоеточие отделяет назначенный пункту меню синоним от текста пункта меню, следующего за двоеточием). Так же, возможно указание вместе с синонимом дополнительных атрибутов через запятую: disabled, checked. Например:

  Popup_menu(@
  "COPY,disabled:	&Copy	[Ctrl-C]"
  "CUT,disabled:	C&ut	[Ctrl-X]"
  "PASTE:		&Paste	[Ctrl-V]"
  "-"
  "Mode..."
  "("
    "AUTO,checked:	&Auto"
    "Manual:		&Manual"
  ")"
  "EXIT:		&Exit")

Отдельная строка "-" создаёт визуальный разделитель групп (обычно отображается как горизонтальная линия в меню). Одиночный символ "&" в определении пункта меню задаёт символ-ускоритель для быстрого выбора элемента (нажатием ALt+следующий символ). Но в некоторых средах этот символ просто игнорируется (Java). Для использования самого символа '&' в тексте меню, его следует удвоить. Для обработки пунктов меню следует переопределить обработчик menu:
OVERRIDE menu(STR Alias) : ...

STR menu_alias|_or_column_alias_returned_as_sender_alias

Текстовая метка пункта меню, который активирован (в методе menu_item). Когда меню определяется в виде набора строк текста, часть строки до символа ':' определяет его метку (но если строка, соответсвующая пункту меню, не содержит символ ':', то вся строка пункта меню считается одновременно и его "меткой").

BOOL tracking_menu_sel|ection

---------------------------------------------------- 'управление колонками'

INT columns|_handles[]

STR aliases|_columns[]

BOOL aligns|_labels_in_columns[]

STR Current_column|_alias , READ

Текущая колонка (используется как неявный параметр в некоторых операциях с колонками).

-------------------------------- 'align TOP/BOTTOM aligned column controls'

         

ENUMERATION {controls_layout|_mainly_for_horizontal_columns} :         'CONTROLS_LEFT||CONTROLS_DEFAULT' ,         'CONTROLS_RIGHT|_ALIGNED' ,         'CONTROLS_CENTER|_ALIGNED' ,         'CONTROLS_JUSTIFY||CONTROLS_JUSTIFIED' ,         'CONTROLS_LEFT_LAST_RIGHT' ,         'CONTROLS_TOP_TO_BOTTOM' ,         'CONTROLS_VERTICAL_2|_COLUMNS' ,         'CONTROLS_LEFT_LABELS_ABOVE' .
METHOD Current_column_layout ==> {controls_layout}
METHOD Column_controls_layout (      STR Alias|_of_column ) ==> {controls_layout}
METHOD Set_column_controls_layout ( {controls_layout} CL|ayout_set )
METHOD Column_uses_margins ( STR Alias|_of_column ) ==> BOOL
METHOD Set_column_margins ( STR Alias|_column , BOOL Use_margins )
METHOD column_hidden|_dummy (      STR Alias|_of_column_dummy ) ==> BOOL , CALLBACK	Метод для переопределения, используется как обработчик события, которое вызыввается для каждой колонки, чтобы определить, является ли она скрытой на фориме. В отличие от контролов, нет необходимости предварительно задавать список колонок, которые могут становиться скрытыми: опрос происходит последовательно для каждой колонки на форме, в обработчике события Any_change. Если событие не переопределено, или не прописан ответ для какой-либо колонки, то такая колонка остается видимой всегда.
METHOD Column_width|_by_alias ( STR Col|umn_alias ) ==> REAL	Ширина колонки.
METHOD Set_column_width|_use_only_for_LEFT_RIGHT_aligned (      REAL New_width )	Установка ширина колонки. Эта операция применима только для колонок, выровненных влево ('LEFT'), вправо ('RIGHT') или по центру ('CENTER'), и не применима к колонкам, выровненных по верхнему ('TOP') или нижнему ('BOTTOM') краю.
METHOD Set_column_width_by_alias|_use_only_for_LEFT_RIGHT_aligned (      STR Col|umn_alias ,      REAL New_width )
METHOD Set_column_label_width ( REAL L|abel_widht )	Установка ширина метки текущей колонки. В каждой строке колонки (кроме выровненных вверх - 'TOP' или вниз - 'BOTTOM') может размещаться контрол и его метка (где метка также является контролом класса {Label}). Но контрол-метка, размещаемая слева от контрола, должна по размеру вписываться в заданную этим методом ширину метки колонки, иначе она размещается в отдельной строке, выше контрола, к которому она относится. Контрол, расширенный вниз (Set_anchor_bottom(TRUE)) всегда размещается в отдельной строке. Всегда возможно форсировать размещение метки в отдеьной строке (например, добавив после метки еще одноу - пустую - метку). Если ширина метки колонки задана равной -1, то в колонке метки всегда размещаются в отдельных строках.
METHOD Column_height|_by_alias ( STR Col|umn_alias ) ==> REAL	Высота текущей колонки.
METHOD Set_column_height|_use_only_for_BOTTOM_TOP_aligned (      REAL New_height )	Установка высоты колонки. Эта операция применима только к колонкам, выровненным вверх ('TOP') или вниз ('BOTTOM').
METHOD Set_column_height_by_alias|_use_only_for_BOTTOM_TOP_aligned (      STR Col|umn_alias ,      REAL New_height )
METHOD Set_column_auto_arrange|_controls (      BOOL Enable|_auto_arrange_TRUE_is_default )	Установка для текущей колонки его свойства "автоматическое размещение контролов". По умолчанию, для всех создаваемых на форме колонок, это свойство устанавливается в TRUE. При установке значения FALSE, контролы в колонке более не перемещаются и не измененяют свой размер автоматически, без того, чтобы это делалось вашим кодом. Но, на некоторых платформах такой механизм "ручного" размещения контролов в колонках не поддерживается, и вызов данного метода просто игнорируется.
FUN Set_default_font|_for_all_forms_created_later (      {Screen} Screen|_holder ,      STR Face|_font ,      REAL Size|_font )
METHOD Set_column_font|_default_for_controls (      STR Face|_font ,      REAL Size|_font ,      STR Styles|_font )	Установка для текущей колонки атрибутов шрифта по умолчанию. Позволяет настроить шрифт для всех контролов, создаваемых на данной колонке, созданных после этого вызова.

---------------------------------------- 'configuration for mobile devices'

ENUMERATION {mobile_config|uration} :         'SINGLE_TOP_BOTTOM' ,         'ALL_TOP_BOTTOM|_VISIBLE_SWIPE_IF_NEEDED' .	Доступные опции видимости колонок для случая мобильных устройств. 'SINGLE_TOP_BOTTOM' означает, что одновременно может быть отображаена только одна выровненная по верхнему и / или нижнему краю "колонка", и свайпом по такой колонке вниз/вверх пользователь может выбрать, какие именно колонки следует отображить. Опция 'ALL_TOP_BOTTOM' означает, что отображаются все выровненные вверх/вниз колонки, но если при этом форма не вмиещается по вертикали, то свайпингом вверх-вниз форму можно скроллировать, чтобы увидеть невидимые в данный момент ее участки (паннинг).
METHOD Mobile_configuration|_of_form ==> {mobile_config}	Возвращается для формы мобильная конфигурация для колонок, выровненных вверх ('TOP') или вниз ('BOTTOM').
METHOD Set_mobile_configuration|_of_form (      {mobile_config} MC|onfiguration_to_set )	Установка для формы мобильной конфигурация для колонок, выровненных вверх ('TOP') или вниз ('BOTTOM').

------------------------------------------- 'активный визуальный компонент'

METHOD Get_active|_control ==> {Control}	Возвращает активный контрол формы (находящийся в фокусе ввода).
METHOD Set_active|_control (      {Control} C|ontrol_to_activate ) , SETTER FOR Get_active	Устанавливает активный контрол формы (переводит его в фокус ввода с клавиатуры).

----------------------------------------------------- 'события компонентов'

 

METHOD click|_by_mouse_or_finger , CALLBACK	Метод для переопределения в программируемом классе формы. Позволяет обработать событие "клика" по контролу (выполненного кнопкой мыши, клавиатуры, человеческим голосом или другим устройством или методом). Как и для большинства событий, относящихся к контролам, используейте sender и sender_alias для определения того, какой именно контрол инициировал это событие.
METHOD mouse_move|d , CALLBACK	Метод для переопределения с целью обработки событий перемещения мыши (или других указывающих устройств), которые не были обработаны ранее на более глубоком уровне - наподобие скроллинга в контролах или паннинга формы.
METHOD mouse_down , CALLBACK	Метод для переопределения с целью обработки событий нажатия мыши (или других указывающих устройств). Для получения координат курсора мыши используйте метод mouse, для уточнения того, какая кнопка "мыши" была нажата - метод mouse_button.
METHOD mouse_up|pered , CALLBACK	Подобно предыдущему, но для обработки событий отпускания кнопки мыши.
METHOD mouse_double_click|ed , CALLBACK	Подобно предыдущим, но для обработки событий двойного щелчка кнопкой мыши. Двойной клик мыши фиксируется после двух нажатий одной и той же кнопки "мыши" в течение достаточно короткого отрезка времени (определяемого обычно пользовательскими настройками операционной системы). Разумеется, не только мышь может использоваться для формирования двойнеых кликов, но любые позиционирующие устройства, такие как перо, палец и т.п.
METHOD mouse_wheel|_rotated ==> BOOL	Подобно предыдущим, но для обработки событий вращения колеса мыши. На сенсорных экранах, событие вращения колеса мыши вверх/вниз может генерироваться жестом скольжения двух пальцев по экрану вверх/вниз.
METHOD enter|_to_control , CALLBACK	Подобно предыдущим, но для обработки событий фокусировки контролов (в результате действий пользователя).
METHOD leave|_control , CALLBACK	Подобно предыдущему но для обработки событий расфокусировки контролов (в результате фокусировки другого контрола, или переключения пользователя на работу с другим приложением).
METHOD paint|_picture , CALLBACK	Подобно предыдущим, но для обработки событий рисования контролов (актуально только при наличии контролов класса {Paintbox} или его наследников на форме). Используйте метод отправителя Canvas для получения компонента для рисования в процессе обработки этого события.
METHOD paint_item|_or_subitem , CALLBACK

------------------------------------------------ 'default / cancel buttons'

{Button} Default_button , READ

Текущая кнопка по умолчанию на форме (класса {Button}). Только одна кнопка может быть сделана "кнопкой по умолчанию" на форме. Такая кнопка может быть нажата клавишей ENTER (в случае, если клавиша ENTER не обрабатывается текушим активным контролм для других целей - например, в {Memo} клавиша ENTER может вставлять симолы #NL в текст).

{Button} Cancel_button , READ

Подобно кнопке по умолчанию на форме, но для храения текущей кнопки "отмены" операции. Нажимается на клавиатуре клавишей ESCAPE, также - если не обработано текущим контролом.

------------------------------------- 'данные о состоянии указателя (мыши)'

METHOD Get_popup_point ==> {Geometry}.{point}	Возвращает текущие координаты на форме для точки всплытия меню. В зависимости от обрабатываемого события, возвращаются либо точные координаты на форме (при событиях mouse_down, mouse_up, mouse_double_click), либо нижняя левая точка активированного контрола.
METHOD mouse_button|_clicked ==> {button}	Возвращает кнопку мыши, соответствующую обрабатываемому событию мыши.
METHOD mouse|_click_point ==> {point}	Возвращает координаты мыши на форме (в поинтах), при обрабатке событию мыши.
FUNCTION Mouse_cur|sor_position_current ==> {point}	Возвращает координаты мыши на форме (в поинтах), глобально (в том числе не только при обработке событий мыши, например, в событии тика таймера timer).
FUNCTION Set_mouse_cur|sor_position (      {point} New|_position ) , DEPRECATED('Platform dependent')	Возвращает координаты мыши на форме (в поинтах), глобально (в том числе не только при обработке событий мыши, например, в событии тика таймера timer).
FUNCTION Mouse_pressed|_button (      {button} Button|_to_check ) ==> BOOL	Возвращает TRUE, если нажата указанная кнопка мыши.
METHOD vertical_wheel|_pages ==> REAL	Возвращает значение вертикальной прокрутки колеса мыши (актуально при обработке события mouse_wheel). Это вещественное значение со знаком (знак определяет направление прокрутки), которое соответсвует количеству "прокруток", в Windows прокрутка имеет обычно значение 120 (градусов?), и соответствует в настройках колеса мышы обычно 3 строкам текста условно.
METHOD horizontal_wheel|_shift_DUMMY ==> REAL	Возвращает значение горизонтальной прокрутки колеса мыши.
ENUMERATION {button|_mouse} :         'NO_B|UTTON' ,         'LMB|_LEFT_MOUSE_BUTTON' ,         'RMB|_RIGHT_MOUSE_BUTTON' ,         'MMB|_MIDDLE_MOUSE_BUTTON' ,         'XB1|_MOUSE_BUTTON' ,         'XB2|_MOUSE_BUTTON' .	Доступные кнопки мыши.

-------------------------------------------------------------- 'клавиатура'

ENUMERATION {action|_accept_by_default} :         'ACCEPT|ED_KEY' ,         'DECLINE|D_KEY' .	Доступные кнопки мыши (используется в некоторых событиях, возвращающих действие).
STRUCTURE {key_info|rmation}       INT Special|_key_pressed       STR Char|_pressed       BOOL Right|_key_ctrl_alt       BOOL Caps|_lock_key_is_fixed_down||Capital|s       BOOL Shift|_pressed       BOOL Ctrl||Control|_pressed       BOOL Alt|_pressed       BOOL Win|_pressed       BOOL Ignore|_do_not_handle .	Данные о нажатии (или отпускании) клавиши на клавиатуре сохраняются в такой структуре, в поле объекта формы Key.

{key_info} Key|_information_LOCAL

Информацио о кнопке клавиатуры (нажатой или отпущенной). Актуальна в процессе обработки событий клавиатуры.

--------------------------------------- 'Keyboard (w\o events if possible)'

FUNCTION Global_key|_pressed ( INT Key|_of_state ) ==> BOOL

Возвращает TRUE, если указанная клавиша Key была нажата, но не была еще отпущена. Данный метод может быть вызван при обработке любых событий, а не только в обработчиках событий клавиатуры.

----------------------------------------------------------------- 'таймеры'

METHOD timer|_tick_dummy , CALLBACK

Метод для переопределения с целью обработки событий таймера. Как обычно для событий, используйте свойства формы sender или sender_alias для определения того, какой таймер сработал. События таймера обрабатываются вглавном потоке.

------------------------------------------------------- 'события изменений'

METHOD moved|_form_on_screen , CALLBACK	Метод для переопределения с целью обработки событий перемещения формы (пользователем или по какой-либо другой причине) на экране.
METHOD resize|d_control_or_form , CALLBACK	Метод для переопределения с целью обработки событий изменения размеров формы (пользователем или еще по какой-либо причине).
METHOD value_change|d_edit_memo_checkbox_datepicker , CALLBACK	Метод для переопределения с целью обработки событий изменения каких-либо данных в контроле (текста, состояния "отмечен" и т.п.)
METHOD Notify_value_change (      {Control} C|ontrol_value_changed_of ) , CALLBACK	Метод для внутренней инициации события value_change (обеспечивает гарантию вызова Any_change по окончании обработки).

INT count_sel_change|_times_called

BOOL any_change_handling|_LOCAL

INT level_event|_handling_LOCAL

{event} level_inc_on_event_kind , DEBUG

BOOL need_any_change

INT suspended_count

BOOL any_change_while_suspended

BOOL adjust_horizontal_controls|_sizes

------------------------------- 'события для скрытия / запрета компонентов'

{Control} grayable|_controls_add_here_to_make_it_disabled_in_event_below[]

Массив для хранения списка контролов, которые могут становиться недоступными ("серыми"). Для контролов из этого списка регулярно (после любых и зменений на форме) вызывается метод disabled, запрашивая, должнен ли контрол быть недоступным. Следует переопределить метод disabled в своей форме, и для интересующих контролов прописать условия, при которых такой контрол становится "серым" и ненажимаемым.

{Control} can_hide|_controls_add_here_to_make_hidden_in_event_below[]

Массив для хранения списка контролов, которые могут становиться скрытыми. Для контролов из этого списка регулярно (после любых и зменений на форме) вызывается метод hidden, запрашивая, должнен ли контрол быть скрытым. Следует переопределить метод hidden в своей форме, и для интересующих контролов прописать условия, при которых такой контрол становится невидимым.

-------------------------------------------------- 'long operations dialog'

BOOL Can_stop_long_operation|_set_to_FALSE_to_prevent_dialog_show_and_stop_operation

INT In_long_operation|_level

{event} Current_event|_kind_to_use_in_long_operation_dialog_in_default_description

Текущее (последнее) обрабатываемое событие.

STR Alias_current_event

Текстовая метка контрола, вызывавшего последнее событие. Используется для отображения в диалоге о длинной операции.

{Control} stack_senders[]

Внутренний метод для организации работы с событиями формы.

{event} stack_kinds[]

--------------------------------------------------- 'save / restore bounds'

BOOL loaded_bounds|_LOCAL

{state} local_form_state

------------------------------------------------------- 'queue of messages'

INT in_process_count|er

Процессирует все очтавшиеся в очереди события.

------------------------------------------------ 'for {Dialog} inheritance'

{Form} parent_form_|local_used_with_modal_form_only_

Родительская форма для диалога.

BOOL Ready|_answered , READ

TRUE, если для диалога уже был получен ответ от пользователя.

STR Answer|_set_in_result , READ

Текстовая строка, представляеющая собой ответ, полученный от пользователя в процессе работы данного диалога. Когда вызывается метод ready диалога, эта строка передается в вашем коде в качестве ответа. После возвращения управления в точку, где обрабатывается ответ диалога, эта строка может быть проанализирована, чтобы опредить, что делать дальше.

--------------------------------------- 'adjusting columns size / position'

      

STRUCTURE {i_rect|angle}       INT Left|_position       INT Top|_position       INT W|idth_size_horizontal       INT H|eight_size_vertical .
FUN Do_adjust_columns (      {Form} F|orm_object ,      INT W|idth_client_in_pixels ,      INT H|eight_client_in_pixels ) , CALLBACK
STRUCTURE {c_rep|osition_control}       {Control} Control_|to_reposition_       {point} Loc|ation       REAL W|idth_control       REAL H|eight_control       BOOL Top_same|_with_next_control .
FUN Do_adjust_controls (      {Form} F|orm_object ,      INT CH|andle_column ) , CALLBACK
FUN do_adjust_controls (      {Form} F|orm_object ,      INT CH|andle_column ) ==> BOOL
METHOD Invalidate

---------------------- 'especially for Free Pascal to call from {AL4_form}'

  

FUN do_ask|_question (      {Form} Parent_f|orm ,      STR Text|_question ,      BOOL Ask|_y_n_otherwise_just_OK_button ) ==> BOOL , CALLBACK
METHOD Make_tool_window ( BOOL Yes|_make_tool_window )

END