--- a/AbstractSettingsApplication.st	Thu Sep 17 14:03:13 2009 +0200
+++ b/AbstractSettingsApplication.st	Fri Sep 18 10:49:46 2009 +0200
@@ -150,7 +150,8 @@
 		shadows opaqueVariablePanelResize formatHostNameinWindowLabels
 		opaqueTableColumnResize hostNameInLabelHolder showAccelerators
 		newWindowLabelFormat formatHostNameWindowLabel selectOnRightClick
-		popUpMenuOnRelease showRightButtonMenuOnRelease'
+		popUpMenuOnRelease showRightButtonMenuOnRelease
+		formatHostNameWindowLabel1 formatHostNameWindowLabel2'
 	classVariableNames:''
 	poolDictionaries:''
 	privateIn:AbstractSettingsApplication
@@ -6844,14 +6845,14 @@
           label: 'Display settings'
           name: 'Display settings'
           min: (Point 10 10)
-          bounds: (Rectangle 0 0 445 483)
+          bounds: (Rectangle 0 0 445 497)
         )
         component: 
        (SpecCollection
           collection: (
            (VerticalPanelViewSpec
               name: 'VerticalPanel1'
-              layout: (LayoutFrame 0 0 0 0 0 1 434 0)
+              layout: (LayoutFrame 0 0 0 0 0 1 0 1)
               horizontalLayout: fitSpace
               verticalLayout: topSpace
               horizontalSpace: 5
@@ -7008,13 +7009,40 @@
                     name: 'SeparatingSpace6'
                     extent: (Point 435 4)
                   )
-                 (LabelSpec
-                    label: 'Label'
-                    name: 'Label1'
-                    translateLabel: true
-                    labelChannel: formatHostNameWindowLabel
-                    adjust: right
-                    useDefaultExtent: true
+                 (ViewSpec
+                    name: 'Box1'
+                    component: 
+                   (SpecCollection
+                      collection: (
+                       (LabelSpec
+                          label: 'Label'
+                          name: 'Label1'
+                          layout: (LayoutFrame 0 0.0 0 0 0 1.0 18 0)
+                          translateLabel: true
+                          labelChannel: formatHostNameWindowLabel
+                          adjust: right
+                          useDefaultExtent: true
+                        )
+                       (LabelSpec
+                          label: 'Label'
+                          name: 'Label2'
+                          layout: (LayoutFrame 0 0.3 30 0 0 0.6 0 1)
+                          translateLabel: true
+                          labelChannel: formatHostNameWindowLabel1
+                          adjust: left
+                        )
+                       (LabelSpec
+                          label: 'Label'
+                          name: 'Label3'
+                          layout: (LayoutFrame 0 0.6 30 0 0 1 0 1)
+                          translateLabel: true
+                          labelChannel: formatHostNameWindowLabel2
+                          adjust: left
+                        )
+                       )
+                     
+                    )
+                    extent: (Point 435 92)
                   )
                  (ViewSpec
                     name: 'WindowLabelBox'
@@ -7193,8 +7221,7 @@
 formatHostNameWindowLabel
     formatHostNameWindowLabel isNil ifTrue:[
         formatHostNameWindowLabel := 
-            (resources string:
-'Window Label Format:\  %1 - Label\  %2 - Hostname\  %3 - Username\  %4 - ProcessId\  %5 - TOP-Directory\  %6 - TOP-Path') withCRs.
+            (resources string:'Window Label Format:').
     ].
     ^ formatHostNameWindowLabel.
 
@@ -7202,6 +7229,34 @@
     "Modified: / 22-08-2006 / 11:43:41 / cg"
 !
 
+formatHostNameWindowLabel1
+    formatHostNameWindowLabel1 isNil ifTrue:[
+        formatHostNameWindowLabel1 := 
+            (resources string:
+'%1 - Label
+%2 - Hostname 
+%3 - Username')  
+    ].
+    ^ formatHostNameWindowLabel1.
+
+    "Created: / 16-12-2002 / 17:50:49 / penk"
+    "Modified: / 22-08-2006 / 11:43:41 / cg"
+!
+
+formatHostNameWindowLabel2
+    formatHostNameWindowLabel2 isNil ifTrue:[
+        formatHostNameWindowLabel2 := 
+            (resources string:
+'%4 - ProcessId
+%5 - TOP-Directory
+%6 - TOP-Path').
+    ].
+    ^ formatHostNameWindowLabel2.
+
+    "Created: / 16-12-2002 / 17:50:49 / penk"
+    "Modified: / 22-08-2006 / 11:43:41 / cg"
+!
+
 hostNameInLabelHolder
     hostNameInLabelHolder isNil ifTrue:[
         hostNameInLabelHolder := true asValue.
@@ -15225,5 +15280,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.324 2009-09-16 13:35:18 cg Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.325 2009-09-18 08:49:46 cg Exp $'
+! !