--- a/ApplicationModel.st	Thu Mar 26 11:07:18 2015 +0100
+++ b/ApplicationModel.st	Thu Mar 26 18:48:06 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1995 by Claus Gittinger
 	      All Rights Reserved
@@ -1207,6 +1205,12 @@
 "/    ^ self subclassResponsibility
 ! !
 
+!ApplicationModel methodsFor:'Compatibility-VW'!
+
+mainWindow
+    ^ self window topView.
+! !
+
 !ApplicationModel methodsFor:'accessing'!
 
 application
@@ -4131,11 +4135,11 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.363 2015-03-03 10:39:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.364 2015-03-26 17:48:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.363 2015-03-03 10:39:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.364 2015-03-26 17:48:06 cg Exp $'
 ! !