--- a/StandardSystemView.st	Sun Sep 10 16:50:55 1995 +0200
+++ b/StandardSystemView.st	Sun Sep 10 21:36:25 1995 +0200
@@ -23,7 +23,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.32 1995-09-09 02:28:20 claus Exp $
+$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.33 1995-09-10 19:35:53 claus Exp $
 '!
 
 !StandardSystemView class methodsFor:'documentation'!
@@ -44,7 +44,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.32 1995-09-09 02:28:20 claus Exp $
+$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.33 1995-09-10 19:35:53 claus Exp $
 "
 !
 
@@ -58,6 +58,17 @@
 
 !StandardSystemView class methodsFor:'defaults'!
 
+includeHostNameInLabel
+    "return the flag which controls if a views label should
+     include the hostname.
+     This flag is usually set/cleared in your private.rc file;
+     the default is false."
+
+    ^ IncludeHostNameInLabel
+
+    "Created: 10.9.1995 / 19:21:16 / claus"
+!
+
 includeHostNameInLabel:aBoolean
     "set/clear the flag which controls if a views label should
      include the hostname - this is highly useful if you have 
@@ -460,6 +471,14 @@
 physicalCreate
     "common code for create & recreate"
 
+    |l|
+
+    IncludeHostNameInLabel == true ifTrue:[
+	l := OperatingSystem getHostName , ': ' , label.
+    ] ifFalse:[
+	l := label
+    ].
+
     drawableId := device 
 		      createWindowFor:self 
 		      origin:(left @ top)
@@ -470,7 +489,7 @@
 		      subViewOf:nil 
 		      onTop:(self isPopUpView)
 		      inputOnly:(self inputOnly)
-		      label:label
+		      label:l
 		      cursor:cursor
 		      icon:icon
 		      iconView:iconView.