[VW 7.7 NC] Exception when renaming a Namespace

>I loaded the Registry (version 25) and RegistryTests (version 8) packages
>and renamed the Registry namespace to RegistryAccess using the "Rename" menu
>item in the Refactoring Browser. This resulted in the Exception below. A
>reference to the Registry namespace in the method Registry.ValueTest>>setUp
>was collected as an AddMethodChange. The objectName instance variable of
>this change contains the name 'Registry.ValueTest'. This name can't be
>resolved anymore, resulting in "self changeObject" being nil in
>asUndoOperation.
>
>Is this a known issue? If not, could someone from Cincom create an AR for
>this?
>
>Thanks,
>Joachim Geidel
>
>--------
>
>Unhandled exception: Message not understood: #includesSelector:
>Refactory.Browser.AddMethodChange(Refactory.Browser.RefactoryObjectChange)>>
>changeObject
>Refactory.Browser.AddMethodChange>>asUndoOperation
>Refactory.Browser.AddMethodChange>>executeNotifying:
>optimized [] in [] in
>Refactory.Browser.RenameObjectChange>>executeNotifying:
>optimized [] in OrderedCollection>>collect:
>OrderedCollection>>do:
>OrderedCollection>>collect:
>[] in Refactory.Browser.RenameObjectChange>>executeNotifying:
>BlockClosure>>on:do:
>Refactory.Browser.RenameObjectChange>>executeNotifying:
>optimized [] in [] in
>Refactory.Browser.CompositeRefactoryChange>>executeNotifying:
>BlockClosure>>on:do:
>optimized [] in
>Refactory.Browser.CompositeRefactoryChange>>executeNotifying:
>optimized [] in OrderedCollection>>collect:
>OrderedCollection>>do:
>OrderedCollection>>collect:
>Refactory.Browser.CompositeRefactoryChange>>executeNotifying:
>Refactory.Browser.CompositeRefactoryChange(Refactory.Browser.RefactoryChange
>)>>execute
>optimized [] in [] in
>Refactory.Browser.RefactoryChangeManager>>performChange:
>BlockClosure>>on:do:
>optimized [] in Refactory.Browser.RefactoryChangeManager>>performChange:
>BlockClosure>>ensure:
>Refactory.Browser.RefactoryChangeManager>>ignoreChangesWhile:
>Refactory.Browser.RefactoryChangeManager>>performChange:
>Refactory.Browser.RefactoringManager>>addRefactoring:
>Refactory.Browser.BrowserNavigator(Refactory.Browser.BrowserApplicationModel
>)>>performRefactoring:
>optimized [] in Refactory.Browser.BrowserNavigator>>renameObjectNamed:
>BlockClosure>>ensure:
>Refactory.Browser.BrowserNavigator(Refactory.Browser.BrowserApplicationModel
>)>>showWaitCursorWhile:
>optimized [] in Refactory.Browser.BrowserApplicationModel>>handleError:
>BlockClosure>>on:do:
>Refactory.Browser.BrowserNavigator(Refactory.Browser.BrowserApplicationModel
>)>>handleError:
>Refactory.Browser.BrowserNavigator>>renameObjectNamed:
>Refactory.Browser.BrowserNavigator>>renameObject
>optimized [] in [] in [] in
>Refactory.Browser.BrowserApplicationModel>>buildMenuFrom:
>EmulatedSequenceController(SequenceController)>>dispatchBlockClosure:
>EmulatedSequenceController(SequenceController)>>dispatchMenuSelection:
>EmulatedSequenceController(ControllerWithMenu)>>processMenu:at:centered:
>EmulatedSequenceController(ControllerWithMenu)>>processMenuAt:centered:
>EmulatedSequenceController(ControllerWithMenu)>>yellowButtonPressedEvent:
>EmulatedSequenceController(SequenceController)>>yellowButtonPressedEvent:
>YellowButtonPressedEvent>>dispatchTo:
>EmulatedSequenceController(ControllerWithMenu)>>handleEvent:
>EventDispatcher>>dispatch:to:
>EventDispatcher>>dispatchEvent:
>YellowButtonPressedEvent(Event)>>dispatch
>YellowButtonPressedEvent(Event)>>dispatchForWindowManager:
>optimized [] in WindowManager>>safelyDispatchForWindowManager:
>BlockClosure>>on:do:
>WindowManager>>safelyDispatchForWindowManager:
>WindowManager>>processNextEvent
>optimized [] in [] in WindowManager>>newProcess
>BlockClosure>>on:do:
>optimized [] in WindowManager>>newProcess
>BlockClosure>>on:do:
>optimized [] in Process class>>forBlock:priority:
>
>----------------------------------------------------------------------
>Refactory.Browser.AddMethodChange(Refactory.Browser.RefactoryObjectChange)>>
>changeObject
>Receiver:
>    an Refactory.Browser.AddMethodChange
>Instance Variables:
>    name = nil
>    objectName = 'Registry.ValueTest'
>    isMeta = false
>    source = 'setUp
>    value := RegistryAcces...estLevel2\STTestLevel3\Brag'''
>    selector = #setUp
>    protocols = an Array[1]
>    controller = nil
>    definedSelector = nil
>    package = [RegistryTests]
>Temporaries:
>    class = nil
>Context PC = 6
>
>----------------------------------------------------------------------
>Refactory.Browser.AddMethodChange>>asUndoOperation
>Receiver:
>    an Refactory.Browser.AddMethodChange
>Instance Variables:
>    name = nil
>    objectName = 'Registry.ValueTest'
>    isMeta = false
>    source = 'setUp
>    value := RegistryAcces...estLevel2\STTestLevel3\Brag'''
>    selector = #setUp
>    protocols = an Array[1]
>    controller = nil
>    definedSelector = nil
>    package = [RegistryTests]
>Temporaries:
>    change = nil
>    oldProtocol = nil
>Context PC = 4
>
>----------------------------------------------------------------------
>Refactory.Browser.AddMethodChange>>executeNotifying:
>Receiver:
>    an Refactory.Browser.AddMethodChange
>Instance Variables:
>    name = nil
>    objectName = 'Registry.ValueTest'
>    isMeta = false
>    source = 'setUp
>    value := RegistryAcces...estLevel2\STTestLevel3\Brag'''
>    selector = #setUp
>    protocols = an Array[1]
>    controller = nil
>    definedSelector = nil
>    package = [RegistryTests]
>Arguments:
>    aBlock = BlockClosure [] in Refactory.Browser.RefactoryChange>>execute
>Temporaries:
>    undo = nil
>    oldMethod = nil
>    tool = nil
>Context PC = 4
>
>----------------------------------------------------------------------
>optimized [] in [] in
>Refactory.Browser.RenameObjectChange>>executeNotifying:
>Receiver:
>    an UndefinedObject
>Arguments:
>    each = setUp
>    value := RegistryAccess.Value
>                path:
>'HKey_Current_User\STTestLevel1\STTestLevel2\STTestLevel3\Brag'
>Temporaries:
>    .self = Rename Smalltalk.Registry to RegistryAccess
>    .aBlock = BlockClosure [] in Refactory.Browser.RefactoryChange>>execute
>Context PC = 14
>
>----------------------------------------------------------------------
>optimized [] in OrderedCollection>>collect:
>Receiver:
>    an UndefinedObject
>Arguments:
>    each = setUp
>    value := RegistryAccess.Value
>                path:
>'HKey_Current_User\STTestLevel1\STTestLevel2\STTestLevel3\Brag'
>Temporaries:
>    .newCollection = an OrderedCollection[0]
>    .aBlock = BlockClosure [] in [] in
>Refactory.Browser.RenameObjectChange>>executeNotifying:
>Context PC = 7
>
>----------------------------------------------------------------------
>OrderedCollection>>do:
>Receiver:
>    an OrderedCollection
>Instance Variables:
>    firstIndex = 1
>    lastIndex = 7
>Arguments:
>    aBlock = BlockClosure [] in OrderedCollection>>collect:
>Temporaries:
>    index = 1
>Context PC = 17
>
>----------------------------------------------------------------------
>OrderedCollection>>collect:
>Receiver:
>    an OrderedCollection
>Instance Variables:
>    firstIndex = 1
>    lastIndex = 7
>Arguments:
>    aBlock = BlockClosure [] in [] in
>Refactory.Browser.RenameObjectChange>>executeNotifying:
>Temporaries:
>    newCollection = an OrderedCollection[0]
>Context PC = 16
>
>----------------------------------------------------------------------
>[] in Refactory.Browser.RenameObjectChange>>executeNotifying:
>Receiver:
>    a Refactory.Browser.RenameObjectChange
>Instance Variables:
>    name = 'Rename Smalltalk.Registry to RegistryAccess'
>    changes = an OrderedCollection[7]
>    oldName = 'Smalltalk.Registry'
>    newName = #RegistryAccess
>Temporaries:
>    undos = nil
>    .self = Rename Smalltalk.Registry to RegistryAccess
>    .aBlock = BlockClosure [] in Refactory.Browser.RefactoryChange>>execute
>Context PC = 19
>
>----------------------------------------------------------------------
>BlockClosure>>on:do:
>Receiver:
>    a BlockClosure
>Instance Variables:
>    method = CompiledBlock [] in
>Refactory.Browser.RenameObjectChange>>executeNotifying:
>    outerContext = Refactory.Browser.RenameObjectChange>>executeNotifying:
>    copiedValues = an Array[2]
>Arguments:
>    anExceptionSelector =
>Refactory.Browser.RefactoryChangeFailureNotification
>    handlerBlock = BlockClosure [] in
>Refactory.Browser.RenameObjectChange>>executeNotifying:
>Context PC = 18
>
>----------------------------------------------------------------------
>Refactory.Browser.RenameObjectChange>>executeNotifying:
>Receiver:
>    a Refactory.Browser.RenameObjectChange
>Instance Variables:
>    name = 'Rename Smalltalk.Registry to RegistryAccess'
>    changes = an OrderedCollection[7]
>    oldName = 'Smalltalk.Registry'
>    newName = #RegistryAccess
>Arguments:
>    aBlock = BlockClosure [] in Refactory.Browser.RefactoryChange>>execute
>Context PC = 10
>
>----------------------------------------------------------------------
>optimized [] in [] in
>Refactory.Browser.CompositeRefactoryChange>>executeNotifying:
>Receiver:
>    an UndefinedObject
>Temporaries:
>    .each = Rename Smalltalk.Registry to RegistryAccess
>    .aBlock = BlockClosure [] in Refactory.Browser.RefactoryChange>>execute
>Context PC = 6
>
>----------------------------------------------------------------------
>BlockClosure>>on:do:
>Receiver:
>    a BlockClosure
>Instance Variables:
>    method = CompiledBlock [] in [] in
>Refactory.Browser.CompositeRefactoryChange>>executeNotifying:
>    outerContext = nil
>    copiedValues = an Array[2]
>Arguments:
>    anExceptionSelector =
>Refactory.Browser.RefactoryChangeFailureNotification
>    handlerBlock = BlockClosure [] in [] in
>Refactory.Browser.CompositeRefactoryChange>>executeNotifying:
>Context PC = 18
>
>----------------------------------------------------------------------
>optimized [] in
>Refactory.Browser.CompositeRefactoryChange>>executeNotifying:
>Receiver:
>    an UndefinedObject
>Arguments:
>    each = Rename Smalltalk.Registry to RegistryAccess
>Temporaries:
>    .aBlock = BlockClosure [] in Refactory.Browser.RefactoryChange>>execute
>    .self = Rename object
>Context PC = 16
>
>----------------------------------------------------------------------
>optimized [] in OrderedCollection>>collect:
>Receiver:
>    an UndefinedObject
>Arguments:
>    each = Rename Smalltalk.Registry to RegistryAccess
>Temporaries:
>    .newCollection = an OrderedCollection[0]
>    .aBlock = BlockClosure [] in
>Refactory.Browser.CompositeRefactoryChange>>executeNotifying:
>Context PC = 7
>
>----------------------------------------------------------------------
>OrderedCollection>>do:
>Receiver:
>    an OrderedCollection
>Instance Variables:
>    firstIndex = 1
>    lastIndex = 1
>Arguments:
>    aBlock = BlockClosure [] in OrderedCollection>>collect:
>Temporaries:
>    index = 1
>Context PC = 17
>
>----------------------------------------------------------------------
>OrderedCollection>>collect:
>Receiver:
>    an OrderedCollection
>Instance Variables:
>    firstIndex = 1
>    lastIndex = 1
>Arguments:
>    aBlock = BlockClosure [] in
>Refactory.Browser.CompositeRefactoryChange>>executeNotifying:
>Temporaries:
>    newCollection = an OrderedCollection[0]
>Context PC = 16
>
>----------------------------------------------------------------------
>Refactory.Browser.CompositeRefactoryChange>>executeNotifying:
>Receiver:
>    a Refactory.Browser.CompositeRefactoryChange
>Instance Variables:
>    name = 'Rename object'
>    changes = an OrderedCollection[1]
>Arguments:
>    aBlock = BlockClosure [] in Refactory.Browser.RefactoryChange>>execute
>Temporaries:
>    undos = nil
>    undo = nil
>Context PC = 9
>
>----------------------------------------------------------------------
>Refactory.Browser.CompositeRefactoryChange(Refactory.Browser.RefactoryChange
>)>>execute
>Receiver:
>    a Refactory.Browser.CompositeRefactoryChange
>Instance Variables:
>    name = 'Rename object'
>    changes = an OrderedCollection[1]
>Context PC = 5
>
>----------------------------------------------------------------------
>optimized [] in [] in
>Refactory.Browser.RefactoryChangeManager>>performChange:
>Receiver:
>    an UndefinedObject
>Temporaries:
>    .self = a Refactory.Browser.RefactoryChangeManager
>    .aRefactoringChange = Rename object
>Context PC = 6
>
>----------------------------------------------------------------------
>BlockClosure>>on:do:
>Receiver:
>    a BlockClosure
>Instance Variables:
>    method = CompiledBlock [] in [] in
>Refactory.Browser.RefactoryChangeManager>>performChange:
>    outerContext = nil
>    copiedValues = an Array[2]
>Arguments:
>    anExceptionSelector =
>Refactory.Browser.RefactoryChangeFailureNotification
>    handlerBlock = BlockClosure [] in [] in
>Refactory.Browser.RefactoryChangeManager>>performChange:
>Context PC = 18
>
>----------------------------------------------------------------------
>optimized [] in Refactory.Browser.RefactoryChangeManager>>performChange:
>Receiver:
>    an UndefinedObject
>Temporaries:
>    .self = a Refactory.Browser.RefactoryChangeManager
>    .aRefactoringChange = Rename object
>Context PC = 12
>
>----------------------------------------------------------------------
>BlockClosure>>ensure:
>Receiver:
>    a BlockClosure
>Instance Variables:
>    method = CompiledBlock [] in
>Refactory.Browser.RefactoryChangeManager>>performChange:
>    outerContext = nil
>    copiedValues = an Array[2]
>Arguments:
>    aBlock = BlockClosure [] in
>Refactory.Browser.RefactoryChangeManager>>ignoreChangesWhile:
>Temporaries:
>    result = nil
>Context PC = 4
>
>----------------------------------------------------------------------
>Refactory.Browser.RefactoryChangeManager>>ignoreChangesWhile:
>Receiver:
>    a Refactory.Browser.RefactoryChangeManager
>Instance Variables:
>    undo = an OrderedCollection[5]
>    redo = an OrderedCollection[0]
>    isPerformingRefactoring = true
>Arguments:
>    aBlock = BlockClosure [] in
>Refactory.Browser.RefactoryChangeManager>>performChange:
>Context PC = 14
>
>----------------------------------------------------------------------
>Refactory.Browser.RefactoryChangeManager>>performChange:
>Receiver:
>    a Refactory.Browser.RefactoryChangeManager
>Instance Variables:
>    undo = an OrderedCollection[5]
>    redo = an OrderedCollection[0]
>    isPerformingRefactoring = true
>Arguments:
>    aRefactoringChange = Rename object
>Context PC = 9
>
>----------------------------------------------------------------------
>Refactory.Browser.RefactoringManager>>addRefactoring:
>Receiver:
>    a Refactory.Browser.RefactoringManager
>Instance Variables:
>    refactorings = a Bag[0]
>Arguments:
>    aRefactoring = Rename object
>Context PC = 6
>
>----------------------------------------------------------------------
>Refactory.Browser.BrowserNavigator(Refactory.Browser.BrowserApplicationModel
>)>>performRefactoring:
>Receiver:
>    a Refactory.Browser.BrowserNavigator
>Instance Variables:
>    dependents = Registry
>    builder = an UIBuilder
>    uiSession = nil
>    eventHandlers = nil
>    environment =
>    state = Registry
>    dispatcher = a Refactory.Browser.RBActionDispatcher
>    parts = an OrderedCollection[2]
>    partsDictionary = a Dictionary[2]
>    menus = a Dictionary[4]
>    showOnlyFiltered = true
>    navigatorType = nil
>    cachedSelectors = ExternalMethod RegistryAccess.Win32API>>regCloseKey:
>-> SortedCollection (#externalAccessFailed)
>    windowLabel = 'Registry'
>Arguments:
>    aRefactoring = Rename object
>Context PC = 17
>
>----------------------------------------------------------------------
>optimized [] in Refactory.Browser.BrowserNavigator>>renameObjectNamed:
>Receiver:
>    an UndefinedObject
>Temporaries:
>    .self = a Refactory.Browser.BrowserNavigator
>    .aString = 'Root.Smalltalk.Registry'
>    .newName = 'RegistryAccess'
>    .binding = (VariableBinding key: #RegistryAccess)
>Context PC = 12
>
>----------------------------------------------------------------------
>BlockClosure>>ensure:
>Receiver:
>    a BlockClosure
>Instance Variables:
>    method = CompiledBlock [] in
>Refactory.Browser.BrowserNavigator>>renameObjectNamed:
>    outerContext = nil
>    copiedValues = an Array[4]
>Arguments:
>    aBlock = BlockClosure [] in
>Refactory.Browser.BrowserApplicationModel>>showWaitCursorWhile:
>Temporaries:
>    result = nil
>Context PC = 4
>
>----------------------------------------------------------------------
>Refactory.Browser.BrowserNavigator(Refactory.Browser.BrowserApplicationModel
>)>>showWaitCursorWhile:
>Receiver:
>    a Refactory.Browser.BrowserNavigator
>Instance Variables:
>    dependents = Registry
>    builder = an UIBuilder
>    uiSession = nil
>    eventHandlers = nil
>    environment =
>    state = Registry
>    dispatcher = a Refactory.Browser.RBActionDispatcher
>    parts = an OrderedCollection[2]
>    partsDictionary = a Dictionary[2]
>    menus = a Dictionary[4]
>    showOnlyFiltered = true
>    navigatorType = nil
>    cachedSelectors = ExternalMethod RegistryAccess.Win32API>>regCloseKey:
>-> SortedCollection (#externalAccessFailed)
>    windowLabel = 'Registry'
>Arguments:
>    aBlock = BlockClosure [] in
>Refactory.Browser.BrowserNavigator>>renameObjectNamed:
>Temporaries:
>    originalCursor = Cursor normal
>    done = false
>Context PC = 40
>
>----------------------------------------------------------------------
>optimized [] in Refactory.Browser.BrowserApplicationModel>>handleError:
>Receiver:
>    an UndefinedObject
>Temporaries:
>    .self = a Refactory.Browser.BrowserNavigator
>    .aBlock = BlockClosure [] in
>Refactory.Browser.BrowserNavigator>>renameObjectNamed:
>Context PC = 7
>
>----------------------------------------------------------------------
>BlockClosure>>on:do:
>Receiver:
>    a BlockClosure
>Instance Variables:
>    method = CompiledBlock [] in
>Refactory.Browser.BrowserApplicationModel>>handleError:
>    outerContext = nil
>    copiedValues = an Array[2]
>Arguments:
>    anExceptionSelector = an ExceptionSet[2]
>    handlerBlock = BlockClosure [] in
>Refactory.Browser.BrowserApplicationModel>>handleError:
>Context PC = 18
>
>----------------------------------------------------------------------
>Refactory.Browser.BrowserNavigator(Refactory.Browser.BrowserApplicationModel
>)>>handleError:
>Receiver:
>    a Refactory.Browser.BrowserNavigator
>Instance Variables:
>    dependents = Registry
>    builder = an UIBuilder
>    uiSession = nil
>    eventHandlers = nil
>    environment =
>    state = Registry
>    dispatcher = a Refactory.Browser.RBActionDispatcher
>    parts = an OrderedCollection[2]
>    partsDictionary = a Dictionary[2]
>    menus = a Dictionary[4]
>    showOnlyFiltered = true
>    navigatorType = nil
>    cachedSelectors = ExternalMethod RegistryAccess.Win32API>>regCloseKey:
>-> SortedCollection (#externalAccessFailed)
>    windowLabel = 'Registry'
>Arguments:
>    aBlock = BlockClosure [] in
>Refactory.Browser.BrowserNavigator>>renameObjectNamed:
>Context PC = 14
>
>----------------------------------------------------------------------
>Refactory.Browser.BrowserNavigator>>renameObjectNamed:
>Receiver:
>    a Refactory.Browser.BrowserNavigator
>Instance Variables:
>    dependents = Registry
>    builder = an UIBuilder
>    uiSession = nil
>    eventHandlers = nil
>    environment =
>    state = Registry
>    dispatcher = a Refactory.Browser.RBActionDispatcher
>    parts = an OrderedCollection[2]
>    partsDictionary = a Dictionary[2]
>    menus = a Dictionary[4]
>    showOnlyFiltered = true
>    navigatorType = nil
>    cachedSelectors = ExternalMethod RegistryAccess.Win32API>>regCloseKey:
>-> SortedCollection (#externalAccessFailed)
>    windowLabel = 'Registry'
>Arguments:
>    aString = 'Root.Smalltalk.Registry'
>Temporaries:
>    newName = 'RegistryAccess'
>    binding = (VariableBinding key: #RegistryAccess)
>Context PC = 43
>
>----------------------------------------------------------------------
>Refactory.Browser.BrowserNavigator>>renameObject
>Receiver:
>    a Refactory.Browser.BrowserNavigator
>Instance Variables:
>    dependents = Registry
>    builder = an UIBuilder
>    uiSession = nil
>    eventHandlers = nil
>    environment =
>    state = Registry
>    dispatcher = a Refactory.Browser.RBActionDispatcher
>    parts = an OrderedCollection[2]
>    partsDictionary = a Dictionary[2]
>    menus = a Dictionary[4]
>    showOnlyFiltered = true
>    navigatorType = nil
>    cachedSelectors = ExternalMethod RegistryAccess.Win32API>>regCloseKey:
>-> SortedCollection (#externalAccessFailed)
>    windowLabel = 'Registry'
>Context PC = 7
>
>
>
>_______________________________________________
>vwnc mailing list
>[hidden email]
>http://lists.cs.uiuc.edu/mailman/listinfo/vwnc
>
>
>  
>