--- a/TopView.st	Thu Mar 03 19:32:18 2011 +0100
+++ b/TopView.st	Thu Mar 03 19:32:32 2011 +0100
@@ -662,6 +662,18 @@
     CurrentWindowMoveState := nil.
 
     "Created: / 03-03-2011 / 19:09:39 / cg"
+!
+
+startWindowMoveOnButtonPress
+    "this allows undecorated windows (i.e. modeless popups) to be moved by
+     drag-moving in their window area 
+     (similar to how mac windows and realplayer are moved).
+     Return true here, if a window move should be initiated"
+
+    ^ self windowGroup isModal not
+    and:[  self topView isPopUpView ]
+
+    "Created: / 03-03-2011 / 19:30:59 / cg"
 ! !
 
 !TopView methodsFor:'help'!
@@ -1460,11 +1472,11 @@
 !TopView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.139 2011-03-03 18:28:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.140 2011-03-03 18:32:32 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.139 2011-03-03 18:28:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/TopView.st,v 1.140 2011-03-03 18:32:32 cg Exp $'
 ! !
 
 TopView initialize!