--- a/SimpleView.st	Thu Mar 03 19:28:16 2011 +0100
+++ b/SimpleView.st	Thu Mar 03 19:32:18 2011 +0100
@@ -5473,6 +5473,17 @@
     "Modified: / 17-10-2006 / 18:00:46 / cg"
 !
 
+buttonMotion:state x:x y:y
+    "button was moved"
+
+    self topView == TopView currentWindowBeingMoved ifTrue:[
+        self topView doWindowMove.
+        ^ self.
+    ].
+
+    "Created: / 03-03-2011 / 19:11:11 / cg"
+!
+
 buttonMultiPress:button x:x y:y
     "button was pressed quickly again - check my components for a hit."
 
@@ -5493,31 +5504,42 @@
     "button was pressed - check my components for a hit."
 
     components notNil ifTrue:[
-	self componentsContainingX:x y:y do:[:comp :cx :cy |
-	    comp buttonPress:button x:cx y:cy.
-	    ^ self
-	]
+        self componentsContainingX:x y:y do:[:comp :cx :cy |
+            comp buttonPress:button x:cx y:cy.
+            ^ self
+        ]
+    ].
+
+    "/ an undecorated (but modeless) topView -> do a window move
+    self topView startWindowMoveOnButtonPress ifTrue:[
+        self topView startWindowMove.
+        ^ self.
     ].
 
     super buttonPress:button x:x y:y
 
-    "Modified: 8.5.1996 / 23:43:41 / cg"
+    "Modified: / 03-03-2011 / 19:31:37 / cg"
 !
 
 buttonRelease:button x:x y:y
     "button was released - check my components for a hit."
 
     components notNil ifTrue:[
-	self componentsContainingX:x y:y do:[:comp :cx :cy |
-	    comp buttonRelease:button x:cx y:cy.
-	    ^ self
-	]
+        self componentsContainingX:x y:y do:[:comp :cx :cy |
+            comp buttonRelease:button x:cx y:cy.
+            ^ self
+        ]
+    ].
+
+    self topView == TopView currentWindowBeingMoved ifTrue:[
+        self topView endWindowMove.
+        ^ self.
     ].
 
     super buttonRelease:button x:x y:y
 
-    "Modified: 8.5.1996 / 23:41:58 / cg"
-    "Created: 8.5.1996 / 23:43:25 / cg"
+    "Created: / 08-05-1996 / 23:43:25 / cg"
+    "Modified: / 03-03-2011 / 19:23:48 / cg"
 !
 
 changeScaleForMouseWheelZoom:amount
@@ -10826,11 +10848,11 @@
 !SimpleView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.691 2011-02-07 13:33:31 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.692 2011-03-03 18:32:18 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.691 2011-02-07 13:33:31 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/SimpleView.st,v 1.692 2011-03-03 18:32:18 cg Exp $'
 ! !
 
 SimpleView initialize!