-
Notifications
You must be signed in to change notification settings - Fork 6
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Merge pull request #78 from autumn-library/feature/bfpp
BFPP
- Loading branch information
Showing
9 changed files
with
188 additions
and
98 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,44 @@ | ||
Перем _Поделка; | ||
|
||
Перем _ИнтерфейсПриемка; | ||
|
||
Процедура ПриДобавленииОпределенияЖелудя(Знач ОпределениеЖелудя) Экспорт | ||
|
||
ЭтоПриемка = ОпределениеЖелудя.Прозвища().Найти("Приемка") <> Неопределено; | ||
Если НЕ ЭтоПриемка Тогда | ||
Возврат; | ||
КонецЕсли; | ||
|
||
Если НЕ _ИнтерфейсПриемка.Реализован(ОпределениеЖелудя.Методы()) Тогда | ||
ТекстСообщения = СтрШаблон( | ||
"Определение желудя %1 не реализует методы интерфейса &Приемка", | ||
ОпределениеЖелудя.Имя() | ||
); | ||
ВызватьИсключение ТекстСообщения; | ||
КонецЕсли; | ||
|
||
Приемка = _Поделка.НайтиЖелудь(ОпределениеЖелудя.Имя()); | ||
|
||
ВсеОпределенияЖелудей = _Поделка.ПолучитьОпределенияЖелудей(); | ||
Для Каждого КлючИЗначение Из ВсеОпределенияЖелудей Цикл | ||
|
||
ИмяЖелудя = КлючИЗначение.Ключ; | ||
|
||
Если ИмяЖелудя = ОпределениеЖелудя.Имя() Тогда | ||
Продолжить; | ||
КонецЕсли; | ||
|
||
Приемка.ПриДобавленииОпределенияЖелудя(ОпределениеЖелудя); | ||
|
||
КонецЦикла; | ||
|
||
КонецПроцедуры | ||
|
||
&Приемка("ПриемкаПриемка") | ||
Процедура ПриСозданииОбъекта(&Пластилин Поделка) | ||
_Поделка = Поделка; | ||
|
||
_ИнтерфейсПриемка = Новый ИнтерфейсОбъекта() | ||
.ПроцедураИнтерфейса("ПриДобавленииОпределенияЖелудя", 1); | ||
|
||
КонецПроцедуры |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,6 @@ | ||
&Аннотация("Приемка") | ||
&Прозвище("Приемка") | ||
&Характер("Компанейский") | ||
&Спецификация("Инициализация") | ||
Процедура ПриСозданииОбъекта(Значение = "") | ||
КонецПроцедуры |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,24 @@ | ||
#Использовать reflector | ||
|
||
Процедура ПриДобавленииОпределенияЖелудя(Знач ОпределениеЖелудя) Экспорт | ||
|
||
ЭтоЗаготовка = ОпределениеЖелудя.Прозвища().Найти("Заготовка") <> Неопределено; | ||
Если НЕ ЭтоЗаготовка Тогда | ||
Возврат; | ||
КонецЕсли; | ||
|
||
РефлекторОбъекта = Новый РефлекторОбъекта(ОпределениеЖелудя.ТипЖелудя()); | ||
|
||
Ожидаем | ||
.Что( | ||
РефлекторОбъекта.ЕстьПроцедура("ПриИнициализацииПоделки", 1), | ||
"Заготовка должна иметь процедуру ПриИнициализацииПоделки(Поделка)" | ||
) | ||
.ЭтоИстина(); | ||
|
||
КонецПроцедуры | ||
|
||
&Приемка | ||
Процедура ПриСозданииОбъекта() | ||
|
||
КонецПроцедуры |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,24 @@ | ||
#Использовать reflector | ||
|
||
Процедура ПриДобавленииОпределенияЖелудя(Знач ОпределениеЖелудя) Экспорт | ||
|
||
ЭтоРогатка = ОпределениеЖелудя.Прозвища().Найти("Рогатка") <> Неопределено; | ||
Если НЕ ЭтоРогатка Тогда | ||
Возврат; | ||
КонецЕсли; | ||
|
||
РефлекторОбъекта = Новый РефлекторОбъекта(ОпределениеЖелудя.ТипЖелудя()); | ||
|
||
Ожидаем | ||
.Что( | ||
РефлекторОбъекта.ЕстьПроцедура("ПриЗапускеПриложения", 0), | ||
"Рогатка должна иметь процедуру ПриЗапускеПриложения()" | ||
) | ||
.ЭтоИстина(); | ||
|
||
КонецПроцедуры | ||
|
||
&Приемка | ||
Процедура ПриСозданииОбъекта() | ||
|
||
КонецПроцедуры |
Oops, something went wrong.