Category change to 'unclassified ' if none

pharo-project · Apr 2, 2019 · 58c91e3 · 58c91e3
1 parent 317b254
commit 58c91e3
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/ClassParser/ShiftClassBuilder.extension.st b/src/ClassParser/ShiftClassBuilder.extension.st
@@ -19,7 +19,7 @@ ShiftClassBuilder >> buildFromAST: aCDClassDefinitionNode [
 
 	self slots: (aCDClassDefinitionNode slots collect: [:e| e asSlot]).
 	self sharedVariables:(aCDClassDefinitionNode sharedSlots collect: [:e| e]).
-	aCDClassDefinitionNode packageName ifNotNil:[:cat | package:= cat] ifNil:[package:= self category].
+	aCDClassDefinitionNode packageName ifNotNil:[:cat | package:= cat] ifNil:[package:= 'Unclassified'].
 	self category: package.
 	self layoutDefinition sharedPools: (aCDClassDefinitionNode sharedPools collect: [:e | e name]).