"
 COPYRIGHT (c) 2003 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' }"

"{ NameSpace: Packages }"

Object subclass:#ChangeFaker
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Package-helpers'
!

ClassChange subclass:#ClassPackageChange
	instanceVariableNames:'oldPackageName'
	classVariableNames:''
	poolDictionaries:''
	privateIn:ChangeFaker
!

MethodChange subclass:#MethodPackageChange
	instanceVariableNames:'oldPackageName'
	classVariableNames:''
	poolDictionaries:''
	privateIn:ChangeFaker
!

!ChangeFaker class methodsFor:'documentation'!

copyright
"
 COPYRIGHT (c) 2003 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.
"
! !

!ChangeFaker class methodsFor:'initialization'!

initialize
"/    Smalltalk addDependent:self.
!

update:something with:aParameter from:changedObject
    | oldPackageName movedClass methodOwnedClass oldMethod|
    (something == #projectOrganization) ifTrue:[
        aParameter ifNil:[
            "no need to know about this. It has probably already been past here already!!"
            ^ self
        ].

        aParameter size == 1 ifTrue:[
            Transcript 
                    nextPutAll:'From PackageManager>>update:with:from:' ; 
                    cr;
                    nextPutAll:'When does this happen' ; 
                    cr.
                    "checking out changedObject = Smalltalk"

            ^ self.
        ].

        aParameter size == 2 ifTrue:[
               oldPackageName := aParameter second.
               movedClass := aParameter first.
               (oldPackageName isSymbol) ifTrue:[
               
               self classMovePackageChangeWithClass:movedClass
                    oldPackageName:oldPackageName.

            ^ self.
            ] ifFalse:[  
                "it is a method move but the change will be called again as 3 parameters
                 it is implemented in two ways. One by NewSystemBrowser>>moveMethods:toProject:
                 and  Method>>package i only care for the one implemented in method as it gives
                 me the previous package information"
                ^ self
            ].
        ].

        aParameter size == 3 ifTrue:[
                oldMethod := (aParameter second).
                methodOwnedClass := (aParameter first).
                oldPackageName :=  (aParameter third).
                self 
                    methodMovePackageChangeWithMethod:oldMethod      
                    class:methodOwnedClass 
                    oldPackageName:oldPackageName.
                ^ self.
        ].
        self breakPoint:''.
    ].
! !

!ChangeFaker class methodsFor:'accessing'!

changeSet
    ^ ChangeSet current
! !

!ChangeFaker class methodsFor:'faked - changes'!

classMovePackageChangeWithClass:class oldPackageName:oldPackageName 
    | fakedChange |
    fakedChange := ClassPackageChange className:class name oldPackageName:oldPackageName.
    self changeSet changed:#addChange: with:fakedChange.
!

methodMovePackageChangeWithMethod:movedMethod class:methodOwnedClass oldPackageName:oldPackageName
    | fakedChange |
    fakedChange := (MethodPackageChange new) 
            previousVersion:movedMethod;
            className:methodOwnedClass name;
            oldPackageName:oldPackageName.

    self changeSet changed:#addChange: with:fakedChange.
! !

!ChangeFaker::ClassPackageChange class methodsFor:'instance creation'!

className:className oldPackageName:oldPackageName 
    ^ (self basicNew) 
            className:className;
            oldPackageName:oldPackageName;
            package:(Smalltalk classNamed:className) package
! !

!ChangeFaker::ClassPackageChange methodsFor:'accessing'!

oldPackageName
    "return the value of the instance variable 'oldPackageName' (automatically generated)"

    ^ oldPackageName
!

oldPackageName:something
    "set the value of the instance variable 'oldPackageName' (automatically generated)"

    oldPackageName := something.
! !

!ChangeFaker::MethodPackageChange methodsFor:'accessing'!

oldPackageName
    "return the value of the instance variable 'oldPackageName' (automatically generated)"

    ^ oldPackageName
!

oldPackageName:something
    "set the value of the instance variable 'oldPackageName' (automatically generated)"

    oldPackageName := something.
! !

!ChangeFaker class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/libbasic3/packages/ChangeFaker.st,v 1.3 2006-01-10 09:29:32 cg Exp $'
! !

ChangeFaker initialize!