--- a/UIPainter.st Wed Jul 30 14:28:17 2008 +0200
+++ b/UIPainter.st Fri Aug 01 14:26:33 2008 +0200
@@ -6032,11 +6032,11 @@
^ true
!
-doChangeHierarchyOf:anItem
+doChangeParentOfSelectedItemTo:newParentItem
|canvas|
- anItem isNil ifTrue:[
+ newParentItem isNil ifTrue:[
^ self
].
self askForSelectionChangeAllowed ifFalse:[^ self].
@@ -6044,7 +6044,7 @@
canvas := self canvas.
canvas deleteSelection.
- canvas setSelection:(anItem contents view) withRedraw:false.
+ canvas setSelection:(newParentItem contents view) withRedraw:false.
canvas pasteWithLayout.
!
@@ -6101,7 +6101,7 @@
eachChild contents spec class supportsSubComponents
] startingAt:idx ifNone:nil.
newParentItem notNil ifTrue:[
- self doChangeHierarchyOf:newParentItem
+ self doChangeParentOfSelectedItemTo:newParentItem
].
]
!
@@ -6109,8 +6109,9 @@
doStepOut
|item|
- ((item := self selectedNode) notNil and:[(item := item parent) notNil]) ifTrue:[
- self doChangeHierarchyOf:(item parent)
+ item := self selectedNode.
+ (item notNil and:[(item := item parent) notNil]) ifTrue:[
+ self doChangeParentOfSelectedItemTo:(item parent)
].
!