--- a/HierarchicalListEditor.st Thu Feb 05 22:08:34 1998 +0100
+++ b/HierarchicalListEditor.st Thu Feb 05 22:10:09 1998 +0100
@@ -1035,7 +1035,7 @@
|node newItem|
- (node := treeView selectedNode) notNil
+ ((node := treeView selectedNode) notNil and: [self checkMenuItemModified])
ifTrue:
[
treeView model add: (newItem := self newItem) afterIndex: node children size below:node.
@@ -1052,7 +1052,7 @@
"
|node newItem|
- (node := treeView selectedNode) notNil
+ ((node := treeView selectedNode) notNil and: [self checkMenuItemModified])
ifTrue:
[
newItem := self newItem.
@@ -1071,7 +1071,7 @@
"cut current selected nodes"
|selection|
- treeView hasSelection
+ (treeView hasSelection and: [self checkMenuItemModified])
ifTrue:
[
self doCopy.
@@ -1215,11 +1215,14 @@
doPaste
"paste after current selected item"
- treeView selectedNodeAdd:CopyBuffer.
- CopyBuffer isCollection ifFalse: [treeView selectNode: CopyBuffer] ifTrue: [treeView selection: (CopyBuffer collect: [:node| treeView indexOfNode: node])].
- self updateChannels.
- isModified := true
-
+ self checkMenuItemModified
+ ifTrue:
+ [
+ treeView selectedNodeAdd:CopyBuffer.
+ CopyBuffer isCollection ifFalse: [treeView selectNode: CopyBuffer] ifTrue: [treeView selection: (CopyBuffer collect: [:node| treeView indexOfNode: node])].
+ self updateChannels.
+ isModified := true
+ ]
!
doReload