--- a/TopView.st	Wed Jul 20 16:38:41 2016 +0200
+++ b/TopView.st	Wed Jul 20 17:07:18 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -705,8 +707,7 @@
      (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 ]
+    ^ self isModal not and:[self topView isPopUpView]
 
     "Created: / 03-03-2011 / 19:30:59 / cg"
 ! !