Оберон / Компонентный Паскаль / Вики

Эта страница только для чтения. Вы можете посмотреть её исходный текст, но не можете его изменить. Сообщите администратору, если считаете, что это неправильно.

====== Как добавить опциональные команды при запуске среды? ======

Процесс загрузки [[:blackbox|системы Блэкбокс]] на третьем шаге запуска пробует вызвать команду Startup.Setup. Обычно модуль Startup не существует. Он может быть использован для установки некоторых служб до того, как откроется главное окно и загрузятся текстовая и другие подсистемы. В том числе в этом модуле возможно запрограммировать отложенный вызов команд для открытия документов и т.п. после запуска среды. Однако важно, что этот модуль может импортировать только самые базовые модули (из подсистемы System). Импорт модулей из других подсистем может нарушить порядок запуска среды. Если ваши эксперименты привели к тому, что среда перестала корректно запускаться, достаточно удалить файл ''System/Code/Startup.ocf''

<code>
MODULE Startup;

	IMPORT Kernel, Log, Dialog, Services;

	TYPE		
		Action = POINTER TO RECORD (Services.Action) END;

	PROCEDURE (a: Action) Do;
		VAR res: INTEGER;
	BEGIN
		Dialog.Call("StdCmds.OpenDoc('System/Mod/Startup.odc')", "", res)
	END Do;
	
	PROCEDURE Setup*;
	VAR a: Action;
	BEGIN
		Dialog.appName := "BlackBox / my personal edition";
		NEW(a);
		Services.DoLater(a, Services.now)
	END Setup;

END Startup.
</code>