--- a/ApplicationModel.st	Sun Jul 07 14:28:09 2013 +0200
+++ b/ApplicationModel.st	Mon Jul 08 11:49:38 2013 +0200
@@ -1270,6 +1270,10 @@
     ^ nil
 
     "Modified: / 7.9.1998 / 23:37:00 / cg"
+!
+
+windowTitle:aString
+    builder window label:aString
 ! !
 
 !ApplicationModel methodsFor:'binding access'!
@@ -4006,11 +4010,11 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.340 2013-07-06 17:22:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.341 2013-07-08 09:49:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.340 2013-07-06 17:22:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.341 2013-07-08 09:49:38 cg Exp $'
 ! !