--- a/ResourceSpecEditor.st	Thu May 17 11:03:29 2001 +0200
+++ b/ResourceSpecEditor.st	Thu May 17 13:11:11 2001 +0200
@@ -217,42 +217,37 @@
 !
 
 valueOfCanPaste
-    "returns whether the application can paste as value holder"
+    "returns whether the application can paste; as value holder"
 
     |holder|
     holder := super valueOfCanPaste.
     holder value: self class clipboard notNil.
     ^ holder
-
-
 !
 
 valueOfEnableMovingIn
-    "returns whether the selected item can move into next item as child as value holder"
+    "returns whether the selected item can move into next item as child; as value holder"
 
     ^builder booleanValueAspectFor: #valueOfEnableMovingIn
-
+!
 
+valueOfEnableMovingInAbove
+    "returns whether the selected item can move into the previous item as child;
+     as a value holder"
 
+    ^builder booleanValueAspectFor: #valueOfEnableMovingInAbove
 !
 
 valueOfEnableMovingOut
-    "returns whether the selected item can move out from its parent item as value holder"
+    "returns whether the selected item can move out from its parent item; as value holder"
 
     ^builder booleanValueAspectFor: #valueOfEnableMovingOut
-
-
-
 !
 
 valueOfEnableMovingUpOrDown
-    "returns whether the selected item can move up or down as value holder"
+    "returns whether the selected item can move up or down; as value holder"
 
     ^builder booleanValueAspectFor: #valueOfEnableMovingUpOrDown
-
-
-
-
 ! !
 
 !ResourceSpecEditor methodsFor:'building'!
@@ -680,5 +675,5 @@
 !ResourceSpecEditor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ResourceSpecEditor.st,v 1.18 2000-11-15 12:35:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ResourceSpecEditor.st,v 1.19 2001-05-17 11:11:11 cg Exp $'
 ! !