Class new title: SystemOrganizer
	subclassof: ClassOrganizer
	fields: ''
	declare: ''

filoutCategory: t1 | t2 t3  
	[user displayoffwhile 
		[t2 _ self superclassOrder: t1.
		(dp0 file: (t1 + '.st.') asFileName) filoutclass: t2.
		for t3 from: t2 do
			[(Smalltalk  t3) noChanges].
		nil]]

printAll | t1  
	[for t1 from: commentVector do
		[self printCategory: t1]]

printCategory: t1 
	[user displayoffwhile [(dp0 file: (t1 + '.press') asFileName) printoutclass: (self superclassOrder: t1)]]

superclassOrder: t1 | t2 t3 t4 t5 t6 t7 
	[t3 _ (self category: t1) copy.
	t2 _ (Vector new: t3 length) asStream.
	while t3 length > 0 do
		[t5 _ 1.
		while [t4 _ t3  t5.
		t6 _ Smalltalk  t4.
		t7 _ t6.
		while [t7 _ t7 superclass.
		(t7  nil or (t3 has: t7 title unique))  false] do
			[].
		t7  nil  false] do
			[t5 _ t5 + 1].
		t2 next_ t4.
		t3 _ t3 delete: t4].
	t2 contents]