This is not the best way to implement this but I find it useful
when I want to file out just one class from a change set. The menu
selection is there but it's not implemented. There must be
a better way to do this but this was fast to do ;-)

Karl
-------------- next part --------------
'From Squeak2.9alpha of 13 June 2000 [latest update: #2407] on 16 June 2000 at 4:39:48 pm'!

!ChangeSorter methodsFor: 'class list' stamp: 'kfr 6/16/2000 16:27'!
fileOutClass
	"this is a hack!!!! makes a new change set, called the class name, adds author initials to try to make a unique change set name, files it out and removes it. kfr 16 june 2000" 
	| aSet |
	"File out the selected class set."
     aSet _ self class newChangeSet: currentClassName.
	aSet absorbClass: self selectedClassOrMetaClass name from: myChangeSet.
	aSet fileOut.
	self class removeChangeSet: aSet.
	parent modelWakeUp.	"notice object conversion methods created"

! !


!ChangeSorter class methodsFor: 'as yet unclassified' stamp: 'kfr 6/16/2000 16:30'!
newChangeSet: aName
	"makes a new change set called aName, adds author initials to try to ensure a unique change set name"

	| newName newSet |
	newName _ aName,FileDirectory dot, Utilities authorInitials.
	(self changeSetNamed: newName) ifNotNil:
			[self inform: 'Sorry that name is already used'.
			^ nil].

	newSet _ ChangeSet new initialize name: newName.
	AllChangeSets add: newSet.
	
	^ newSet
 ! !