ClassChange subclass:#MethodCategoryRenameChange
	instanceVariableNames:'oldCategoryName newCategoryName'
	classVariableNames:''
	poolDictionaries:''
	category:'System-Changes'
!

!MethodCategoryRenameChange class methodsFor:'documentation'!

history

    "Created: / 16.2.1998 / 13:09:33 / cg"
    "Created: #oldCategoryName:newCategoryName: / 16.2.1998 / 13:10:20 / cg"
    "Created: #printOn: / 16.2.1998 / 13:36:08 / cg"
    "Modified: #printOn: / 16.2.1998 / 13:36:28 / cg"
! !

!MethodCategoryRenameChange methodsFor:'accessing'!

oldCategoryName:oldCatString newCategoryName:newCatString
    oldCategoryName := oldCatString.
    newCategoryName := newCatString.

    "Created: / 16.2.1998 / 13:10:20 / cg"
! !

!MethodCategoryRenameChange methodsFor:'printing'!

printOn:aStream
    aStream 
        nextPutAll:className; 
        nextPutAll:' renameCategory:'; 
        nextPutAll:oldCategoryName asString storeString; 
        nextPutAll:' to:'; 
        nextPutAll:newCategoryName asString storeString

    "Modified: / 16.2.1998 / 13:36:28 / cg"
! !

!MethodCategoryRenameChange class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryRenameChange.st,v 1.1 1998-02-16 13:58:57 cg Exp $'
! !