TonelParser>>#newClassDefinitionFrom: doesn't create variable subclasses during import

[eMaringolo]

This issue, together with the fix, was reported by Adriaan van Os.

!TonelParser privateMethods !

newClassDefinitionFrom: anArray

	| metadata typeName classComment |

	metadata := anArray at: 6.
	classComment := (anArray at: 2) isEmptyOrNil ifTrue: [String new] ifFalse: [anArray at: 2].

	typeName := (metadata at: #type ifAbsent: ['']) asString.
	(#('pointers' 'bytes' 'words' 'longs') indexOf: typeName) = 0 ifTrue: [typeName := 'pointers'].

	^((((metadata at: #superclass) asSymbol = #SharedPool
		ifTrue: [TonelReaderSharedPoolDefinition]
		ifFalse: [TonelReaderClassDefinition])
			name: (metadata at: #name)
			superclass: (metadata at: #superclass)
			variable: ((metadata at: #type ifAbsent: ['']) = 'variable')
			fieldType: typeName
			instanceVariables: (metadata at: #instVars ifAbsent: [#()])
			classVariables: (metadata at: #classVars ifAbsent: [#()])
			poolDictionaries: (metadata at: #pools ifAbsent: [#()]))
				category: (metadata at: #category);
				classInstanceVariables: (metadata at: #classInstVars ifAbsent: [#()]);
				classComment: classComment;
				yourself)

! !