--- a/ObjView.st	Sun Jul 04 18:58:57 1999 +0200
+++ b/ObjView.st	Sun Jul 04 19:01:56 1999 +0200
@@ -311,6 +311,17 @@
     ^ gridShown
 ! !
 
+!ObjectView methodsFor:'accessing - behavior'!
+
+setDefaultActions
+    "setup actions for default behavior (do - nothing)"
+
+    motionAction := [:movePoint | nil].
+    releaseAction := [nil]
+
+    "Modified: / 4.7.1999 / 18:55:01 / cg"
+! !
+
 !ObjectView methodsFor:'adding / removing'!
 
 add:something
@@ -2363,11 +2374,6 @@
     ^ Rectangle left:left right:right top:top bottom:bottom
 !
 
-setDefaultActions
-    motionAction := [:movePoint | nil].
-    releaseAction := [nil]
-!
-
 visibleObjectsDo:aBlock
     "do something to every visible object"
 
@@ -3213,5 +3219,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.72 1999-07-04 16:58:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Attic/ObjView.st,v 1.73 1999-07-04 17:01:56 cg Exp $'
 ! !

--- a/ObjectView.st	Sun Jul 04 18:58:57 1999 +0200
+++ b/ObjectView.st	Sun Jul 04 19:01:56 1999 +0200
@@ -311,6 +311,17 @@
     ^ gridShown
 ! !
 
+!ObjectView methodsFor:'accessing - behavior'!
+
+setDefaultActions
+    "setup actions for default behavior (do - nothing)"
+
+    motionAction := [:movePoint | nil].
+    releaseAction := [nil]
+
+    "Modified: / 4.7.1999 / 18:55:01 / cg"
+! !
+
 !ObjectView methodsFor:'adding / removing'!
 
 add:something
@@ -2363,11 +2374,6 @@
     ^ Rectangle left:left right:right top:top bottom:bottom
 !
 
-setDefaultActions
-    motionAction := [:movePoint | nil].
-    releaseAction := [nil]
-!
-
 visibleObjectsDo:aBlock
     "do something to every visible object"
 
@@ -3213,5 +3219,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.72 1999-07-04 16:58:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.73 1999-07-04 17:01:56 cg Exp $'
 ! !