# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 901203190 -7200
# Node ID 931b23146b3d7c009da1d95edd2d98f11bcdcf54
# Parent  ec8db5b6235252dc917787592cfe5868af0ed67a
repeated message chains

diff -r ec8db5b62352 -r 931b23146b3d MenuEditor.st
--- a/MenuEditor.st	Wed Jul 22 21:12:11 1998 +0200
+++ b/MenuEditor.st	Thu Jul 23 16:13:10 1998 +0200
@@ -2773,10 +2773,11 @@
 !MenuEditor::TreeView methodsFor:'menus'!
 
 doCopy
+    |clip|
 
     self hasSelection ifTrue:[
-        self application clipboard: OrderedCollection new.
-        self selectionDo:[:i| self application clipboard add:((listOfNodes at:i) copy)].
+        self application clipboard:(clip := OrderedCollection new).
+        self selectionDo:[:i | clip add:((listOfNodes at:i) copy)].
         self topView application updateAllToolInstances.
     ]
 !
@@ -2814,8 +2815,10 @@
 !
 
 doCut
-
-    (self topView application hasValidSelection value and: [self askForItemModification])
+    |app|
+
+    app := self topView application.
+    (app hasValidSelection value and: [self askForItemModification])
     ifTrue:
     [
         |selectedNodes|
@@ -2824,7 +2827,7 @@
         self selectedNodesRemove.
         self selection: selectedNodes first - 1.
         self setModified.
-        self topView application updateAllToolInstances.
+        app updateAllToolInstances.
     ]
 
 !
@@ -2844,9 +2847,11 @@
 !
 
 doPaste
-
-    (self application clipboard notNil and:[self selectedNode notNil]) ifTrue:[
-        self addElement:(self application clipboard collect:[:el| el copy])
+    |clip|
+
+    clip := self application clipboard.
+    (clip notNil and:[self selectedNode notNil]) ifTrue:[
+        self addElement:(clip collect:[:el| el copy])
     ].
 ! !
 
@@ -2921,10 +2926,10 @@
 !
 
 setModified 
-
-    self topView application modified: true.
-
-    self topView application updateChannels
+    |app|
+
+    (app := self topView application) modified: true.
+    app updateChannels
 ! !
 
 !MenuEditor class methodsFor:'documentation'!