Спрятал экспортные служебные обработчики в невидимый модуль

Author: nixel2007

src/Модули/Потоки.os

@@ -1,5 +1,7 @@
 #Использовать notify
 
+Перем ПотокиСлужебный;
+
 Функция ИзКоллекции(Коллекция) Экспорт
 	Стрим = Новый Стрим();
 	Стрим.УстановитьКоллекцию(Коллекция);
@@ -12,29 +14,14 @@
 	ДополнительныеПараметры.Вставить("Элемент1");
 	ДополнительныеПараметры.Вставить("Элемент2");
 
-	ФункцияСравнения = ОписанияОповещений.Создать("ОбработчикСравнения", ЭтотОбъект, ДополнительныеПараметры);
+	ФункцияСравнения = ОписанияОповещений.Создать("ОбработчикСравнения", ПотокиСлужебный, ДополнительныеПараметры);
 	Возврат ФункцияСравнения;
 КонецФункции
 
 Функция СтандартныйОбработчик_Сообщить() Экспорт
-	ФункцияОбработки = ОписанияОповещений.Создать("Обработка_Сообщить", ЭтотОбъект);
+	ФункцияОбработки = ОписанияОповещений.Создать("Обработка_Сообщить", ПотокиСлужебный);
 	Возврат ФункцияОбработки;
 КонецФункции
 
-Процедура ОбработчикСравнения(РезультатСортировки, ДополнительныеПараметры) Экспорт
-	Элемент1 = ДополнительныеПараметры.Элемент1;
-	Элемент2 = ДополнительныеПараметры.Элемент2;
-	
-	Если Элемент1 = Элемент2 Тогда
-		РезультатСортировки = 0;
-	ИначеЕсли Элемент1 > Элемент2 Тогда
-		РезультатСортировки = 1;
-	Иначе
-		РезультатСортировки = -1;
-	КонецЕсли;
-КонецПроцедуры
-
-Процедура Обработка_Сообщить(Результат, ДополнительныеПараметры) Экспорт
-	Элемент = ДополнительныеПараметры.Элемент;
-	Сообщить(Элемент);
-КонецПроцедуры
+ПутьКСценарию_ПотокиСлужебный = ОбъединитьПути(ТекущийСценарий().Каталог, "ПотокиСлужебный.os");
+ПотокиСлужебный = ЗагрузитьСценарий(ПутьКСценарию_ПотокиСлужебный);

src/Модули/ПотокиСлужебный.os

@@ -0,0 +1,17 @@
+Процедура ОбработчикСравнения(РезультатСортировки, ДополнительныеПараметры) Экспорт
+	Элемент1 = ДополнительныеПараметры.Элемент1;
+	Элемент2 = ДополнительныеПараметры.Элемент2;
+	
+	Если Элемент1 = Элемент2 Тогда
+		РезультатСортировки = 0;
+	ИначеЕсли Элемент1 > Элемент2 Тогда
+		РезультатСортировки = 1;
+	Иначе
+		РезультатСортировки = -1;
+	КонецЕсли;
+КонецПроцедуры
+
+Процедура Обработка_Сообщить(Результат, ДополнительныеПараметры) Экспорт
+	Элемент = ДополнительныеПараметры.Элемент;
+	Сообщить(Элемент);
+КонецПроцедуры