accessing
fromDictionary: aDictionary

	name := aDictionary
		        at: 'Name'
		        ifAbsent: [ name := aDictionary at: 'Display name' ].
	intro := aDictionary at: 'Description'.
	self optionsFromDictionary: (aDictionary at: 'Table')