equal
deleted
inserted
replaced
6030 ^ selectConditionBlock value:nil |
6030 ^ selectConditionBlock value:nil |
6031 ]. |
6031 ]. |
6032 ^ true |
6032 ^ true |
6033 ! |
6033 ! |
6034 |
6034 |
6035 doChangeHierarchyOf:anItem |
6035 doChangeParentOfSelectedItemTo:newParentItem |
6036 |
6036 |
6037 |canvas| |
6037 |canvas| |
6038 |
6038 |
6039 anItem isNil ifTrue:[ |
6039 newParentItem isNil ifTrue:[ |
6040 ^ self |
6040 ^ self |
6041 ]. |
6041 ]. |
6042 self askForSelectionChangeAllowed ifFalse:[^ self]. |
6042 self askForSelectionChangeAllowed ifFalse:[^ self]. |
6043 self setSelection:nil. |
6043 self setSelection:nil. |
6044 |
6044 |
6045 canvas := self canvas. |
6045 canvas := self canvas. |
6046 canvas deleteSelection. |
6046 canvas deleteSelection. |
6047 canvas setSelection:(anItem contents view) withRedraw:false. |
6047 canvas setSelection:(newParentItem contents view) withRedraw:false. |
6048 canvas pasteWithLayout. |
6048 canvas pasteWithLayout. |
6049 ! |
6049 ! |
6050 |
6050 |
6051 doSortItems |
6051 doSortItems |
6052 "moves child 'anOffset' forward or backward in list of children" |
6052 "moves child 'anOffset' forward or backward in list of children" |
6099 idx := (oldParentItem indexOfChild:item) + 1. |
6099 idx := (oldParentItem indexOfChild:item) + 1. |
6100 newParentItem := oldParentItem children detect:[:eachChild| |
6100 newParentItem := oldParentItem children detect:[:eachChild| |
6101 eachChild contents spec class supportsSubComponents |
6101 eachChild contents spec class supportsSubComponents |
6102 ] startingAt:idx ifNone:nil. |
6102 ] startingAt:idx ifNone:nil. |
6103 newParentItem notNil ifTrue:[ |
6103 newParentItem notNil ifTrue:[ |
6104 self doChangeHierarchyOf:newParentItem |
6104 self doChangeParentOfSelectedItemTo:newParentItem |
6105 ]. |
6105 ]. |
6106 ] |
6106 ] |
6107 ! |
6107 ! |
6108 |
6108 |
6109 doStepOut |
6109 doStepOut |
6110 |item| |
6110 |item| |
6111 |
6111 |
6112 ((item := self selectedNode) notNil and:[(item := item parent) notNil]) ifTrue:[ |
6112 item := self selectedNode. |
6113 self doChangeHierarchyOf:(item parent) |
6113 (item notNil and:[(item := item parent) notNil]) ifTrue:[ |
|
6114 self doChangeParentOfSelectedItemTo:(item parent) |
6114 ]. |
6115 ]. |
6115 ! |
6116 ! |
6116 |
6117 |
6117 doStepOver:anIndex |
6118 doStepOver:anIndex |
6118 "moves child 'anOffset' forward or backward in list of children" |
6119 "moves child 'anOffset' forward or backward in list of children" |