--- a/StandardSystemView.st	Wed Aug 15 14:51:35 2001 +0200
+++ b/StandardSystemView.st	Wed Aug 15 16:46:23 2001 +0200
@@ -330,9 +330,7 @@
 
 initialize
     IncludeHostNameInLabel := false.
-    "/ WindowLabelFormat := '%2:%1'.    "/ the old format
-    "/ WindowLabelFormat := '%1 @ %2'.
-    WindowLabelFormat := '%1 [%2]'.
+    WindowLabelFormat := self defaultWindowLabelFormat.
 
     TakeFocusWhenMapped := (Display notNil and:[Display platformName = 'WIN32']).
 
@@ -395,6 +393,15 @@
     "Modified: / 27.9.1999 / 11:38:57 / cg"
 !
 
+defaultWindowLabelFormat
+    "%2 is the hostName;
+     %1 is the actual window label."
+
+    "/ ^ '%2:%1'.    "/ the old format
+    "/ ^ '%1 @ %2'.
+    ^ '%1 [%2]'.
+!
+
 includeHostNameInLabel
     "return the flag which controls if a views label should
      include the hostname.
@@ -452,6 +459,14 @@
     "Modified: 31.8.1995 / 03:01:14 / claus"
     "Created: 15.8.1997 / 01:34:37 / cg"
     "Modified: 20.10.1997 / 15:13:50 / cg"
+!
+
+windowLabelFormat
+    ^ WindowLabelFormat
+!
+
+windowLabelFormat:aFormatString
+    WindowLabelFormat := aFormatString
 ! !
 
 !StandardSystemView class methodsFor:'startup'!
@@ -1489,6 +1504,6 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.139 2001-05-17 22:40:34 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.140 2001-08-15 14:46:23 cg Exp $'
 ! !
 StandardSystemView initialize!