Object subclass: #LLElement
	instanceVariableNames: 'name'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'LLPackage'!

!LLElement methodsFor: 'testing' stamp: 'PeterUhnak 4/14/2017 14:39'!
isCompositeElement
	^ false! !

!LLElement methodsFor: 'testing' stamp: 'PeterUhnak 4/14/2017 14:39'!
isReferenceElement
	^ false! !


!LLElement methodsFor: 'accessing' stamp: 'PeterUhnak 4/14/2017 14:41'!
name
	^ name! !

!LLElement methodsFor: 'accessing' stamp: 'PeterUhnak 4/14/2017 14:41'!
name: anObject
	name := anObject! !


LLElement subclass: #LLCompositeElement
	instanceVariableNames: 'items'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'LLPackage'!

!LLCompositeElement methodsFor: 'as yet unclassified' stamp: 'PeterUhnak 4/14/2017 14:41'!
gtInspectorTreeIn: aComposite
	<gtInspectorPresentationOrder: 5>
	aComposite tree
		title: 'Tree';
		display: [ {self} ];
		children: [ :each | 
			each isCompositeElement
				ifTrue: [ each items ]
				ifFalse: [ each isReferenceElement
						ifTrue: [ each references ]
						ifFalse: [ #() ] ] ];
		format: [ :each | each name ];
		rootsExpanded! !


!LLCompositeElement methodsFor: 'testing' stamp: 'PeterUhnak 4/14/2017 14:39'!
isCompositeElement
	^ true! !


!LLCompositeElement methodsFor: 'accessing' stamp: 'PeterUhnak 4/14/2017 14:39'!
items
	^ items! !

!LLCompositeElement methodsFor: 'accessing' stamp: 'PeterUhnak 4/14/2017 14:39'!
items: anObject
	items := anObject! !


!LLCompositeElement methodsFor: 'initialization' stamp: 'PeterUhnak 4/14/2017 14:37'!
initialize
	super initialize.
	items := #()! !


LLElement subclass: #LLReferenceElement
	instanceVariableNames: 'references'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'LLPackage'!

!LLReferenceElement methodsFor: 'accessing' stamp: 'PeterUhnak 4/14/2017 14:38'!
references: anObject
	references := anObject! !

!LLReferenceElement methodsFor: 'accessing' stamp: 'PeterUhnak 4/14/2017 14:38'!
references
	^ references! !


!LLReferenceElement methodsFor: 'initialization' stamp: 'PeterUhnak 4/14/2017 14:38'!
initialize
	super initialize.
	references := #()! !


!LLReferenceElement methodsFor: 'testing' stamp: 'PeterUhnak 4/14/2017 14:39'!
isReferenceElement
	^ true! !