Первый подход к выносу стандартных обработчиков из класса

Author: nixel2007

src/Классы/Поток.os

@@ -38,7 +38,7 @@
 Функция Различные(ОбработчикСравнения = Неопределено) Экспорт
 
 	Если ОбработчикСравнения = Неопределено Тогда
-		ОбработчикСравнения = СтандартныйОбработчикСравнения();
+		ОбработчикСравнения = Потоки.СтандартныйОбработчикСравнения();
 	КонецЕсли;
 
 	ПоложитьЯчейкуВКонвейер("Различные", ОбработчикСравнения);
@@ -63,7 +63,7 @@
 Функция Сортировать(Знач ОбработчикСравнения = Неопределено) Экспорт
 
 	Если ОбработчикСравнения = Неопределено Тогда
-		ОбработчикСравнения = СтандартныйОбработчикСравнения();
+		ОбработчикСравнения = Потоки.СтандартныйОбработчикСравнения();
 	КонецЕсли;
 
 	ПоложитьЯчейкуВКонвейер("Сортировать", ОбработчикСравнения);
@@ -85,7 +85,7 @@
 	КонецЦикла;
 
 	Возврат Результат;
-	
+
 КонецФункции
 
 Функция ВМассив() Экспорт
@@ -136,7 +136,7 @@
 	Лог.Отладка("Минимум");
 
 	Если ОбработчикСравнения = Неопределено Тогда
-		ОбработчикСравнения = СтандартныйОбработчикСравнения();
+		ОбработчикСравнения = Потоки.СтандартныйОбработчикСравнения();
 	КонецЕсли;
 
 	ПройтиКонвейер();
@@ -160,7 +160,7 @@
 	Лог.Отладка("Максимум");
 
 	Если ОбработчикСравнения = Неопределено Тогда
-		ОбработчикСравнения = СтандартныйОбработчикСравнения();
+		ОбработчикСравнения = Потоки.СтандартныйОбработчикСравнения();
 	КонецЕсли;
 
 	ПройтиКонвейер();
@@ -344,28 +344,6 @@
 
 КонецПроцедуры
 
-Процедура ОбработчикСравнения(РезультатСортировки, ДополнительныеПараметры) Экспорт
-	Элемент1 = ДополнительныеПараметры.Элемент1;
-	Элемент2 = ДополнительныеПараметры.Элемент2;
-	
-	Если Элемент1 = Элемент2 Тогда
-		РезультатСортировки = 0;
-	ИначеЕсли Элемент1 > Элемент2 Тогда
-		РезультатСортировки = 1;
-	Иначе
-		РезультатСортировки = -1;
-	КонецЕсли;
-КонецПроцедуры
-
-Функция СтандартныйОбработчикСравнения()
-	ДополнительныеПараметры = Новый Структура;
-	ДополнительныеПараметры.Вставить("Элемент1");
-	ДополнительныеПараметры.Вставить("Элемент2");
-
-	ФункцияСравнения = ОписанияОповещений.Создать("ОбработчикСравнения", ЭтотОбъект, ДополнительныеПараметры);
-	Возврат ФункцияСравнения;
-КонецФункции
-
 Процедура ПоложитьЯчейкуВКонвейер(ИмяОперации, 
 								  ВходящееОписаниеОповещения = Неопределено, 
 								  ДополнительныеПараметры = Неопределено)

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

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