To be clear change

classList
	"Answer an array of the class names of the selected category. Answer an 
	empty array if no selection exists."

	^ self hasSystemCategorySelected 
		ifFalse:
			[self packageClasses]
		ifTrue: [systemOrganizer listAtCategoryNumber:
			(systemOrganizer categories indexOf: self /selectedSystemCategory/
asSymbol)]

to

classList
	"Answer an array of the class names of the selected category. Answer an 
	empty array if no selection exists."

	^ self hasSystemCategorySelected 
		ifFalse:
			[self packageClasses]
		ifTrue: [systemOrganizer listAtCategoryNumber:
			(systemOrganizer categories indexOf: self /selectedPackageAndCategory/
asSymbol)]


where selectedSystemCategoryName renamed as: 

selectedPackageAndCategory

	"Answer the name of the selected system category or nil."

	self hasSystemCategorySelected
		ifFalse: [^nil].
	packageListIndex = 0
		ifTrue: [^ self selectedSystemCategory ].
	^ self package , '-' , self selectedSystemCategory

--
View this message in context: http://forum.world.st/Package-Pane-Browser-Broken-tp4178019p4190844.html
Sent from the Squeak - Dev mailing list archive at Nabble.com.