MethodCategoryRenameChange.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 12 Jun 2013 11:54:30 +0100
branchjv
changeset 3303 7ed5d48e3756
parent 3158 f8c56a311307
child 3838 474d8ec95b33
permissions -rw-r--r--
Refactoring of class names and namespaces in ClassChange (part 1). The meaning of instvars in ClassChange was changed (well, actually it was defined), so: - className is the name of the class without any namespace prefix but including all owning classes. - nameSpaceName is the name of the original namespace of the class - nameSpaceOverride is client-enforced namespace namew - ownerClassName is the name of the owning class but without any namespace prefix. This commit actually fixes remaining RegressionTests::ChangeSetTests. CAUTION: currently, class names and namespace names are wrong when reading system changefile. This is due to a conceptual problem because there's no way how distinguish between namespace and owning class solely on the information in the changeset file. Next part of the refactoring should fix this, but at the cost of changing the changefile format. The impact to old tools not using ChangeSet but rather their own implementation must be investigated (tools like ChangesBrowser).

"
 COPYRIGHT (c) 1998 by eXept Software AG
              All Rights Reserved

 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
"
"{ Package: 'stx:libbasic3' }"

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

!MethodCategoryRenameChange class methodsFor:'documentation'!

copyright
"
 COPYRIGHT (c) 1998 by eXept Software AG
              All Rights Reserved

 This software is furnished under a license and may be used
 only in accordance with the terms of that license and with the
 inclusion of the above copyright notice.   This software may not
 be provided or otherwise made available to, or used by, any
 other person.  No title to or ownership of the software is
 hereby transferred.
"

!

documentation
"
    instances represent method-category-was-renamed changes (as done in the browser). 
"
! !

!MethodCategoryRenameChange methodsFor:'accessing'!

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

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

source
    ^ className , ' renameCategory:'  
                , oldCategoryName storeString , ' to:'
                , newCategoryName storeString

    "Modified: / 6.2.2000 / 02:34:25 / cg"
! !

!MethodCategoryRenameChange methodsFor:'printing & storing'!

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 methodsFor:'queries'!

isMethodCategoryRenameChange
    ^ true
! !

!MethodCategoryRenameChange class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/libbasic3/MethodCategoryRenameChange.st,v 1.6 2013-01-18 12:55:18 cg Exp $'
!

version_HG

    ^ '$Changeset: <not expanded> $'
!

version_SVN
    ^ '§Id: MethodCategoryRenameChange.st 1909 2012-03-31 00:14:49Z vranyj1 §'
! !