���'From Pharo6.0 of 13 May 2016 [Latest update: #60520] on 6 December 2017 at 2:44:57.188493 pm'!
Trait named: #TALMagritteOptionDescription
	uses: {}
	category: 'Albus-Magritte'!

!TALMagritteOptionDescription methodsFor: 'as yet unclassified' stamp: 'AndreasBrodbeck 4/11/2017 08:49'!
options
	| optionCollection isCachingOptions |
	"So, dass wir auch einen Block als Options angeben k��nnen, besser f��r Performance"
	
	optionCollection := super options.
	
	isCachingOptions := self propertyAt: #isCachingOptions ifAbsent: [true].
	
	"Einmaliges umwandeln von Block in Collection"
	optionCollection isBlock ifTrue: [
		| evaluatedBlock |
		evaluatedBlock := optionCollection value.
		isCachingOptions
			ifTrue: [
				optionCollection := evaluatedBlock.
				self options: optionCollection]
			ifFalse: [
				^evaluatedBlock]
	].
	
	^optionCollection! !

!TALMagritteOptionDescription methodsFor: 'as yet unclassified' stamp: 'AndreasBrodbeck 4/18/2017 12:20'!
favorites
	^self propertyAt: #favorites! !

!TALMagritteOptionDescription methodsFor: 'as yet unclassified' stamp: 'AndreasBrodbeck 4/11/2017 08:50'!
beNotCachingOptions
	self propertyAt: #isCachingOptions put: false! !

!TALMagritteOptionDescription methodsFor: 'as yet unclassified' stamp: 'AndreasBrodbeck 4/11/2017 08:57'!
optionsBlock: aBlock
	self options: aBlock.
	self beNotCachingOptions.! !

!TALMagritteOptionDescription methodsFor: 'as yet unclassified' stamp: 'AndreasBrodbeck 4/18/2017 12:21'!
hasFavorites
	^self favorites notBlank! !

!TALMagritteOptionDescription methodsFor: 'as yet unclassified' stamp: 'AndreasBrodbeck 4/18/2017 12:20'!
favorites: aCollection
	self propertyAt: #favorites put: aCollection! !

"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

TALMagritteOptionDescription classTrait
	uses: {}!