--- a/AbstractSettingsApplication.st	Wed Sep 15 16:33:04 2004 +0200
+++ b/AbstractSettingsApplication.st	Wed Sep 15 16:46:25 2004 +0200
@@ -1336,7 +1336,7 @@
           label: 'Display Screen Settings'
           name: 'Display Screen Settings'
           min: (Point 10 10)
-          bounds: (Rectangle 14 46 614 424)
+          bounds: (Rectangle 0 0 600 378)
         )
         component: 
        (SpecCollection
@@ -1351,14 +1351,14 @@
            (LabelSpec
               label: 'Common Sizes:'
               name: 'CommonSizesLabel'
-              layout: (LayoutFrame 0 0 39 0 205 0 61 0)
+              layout: (LayoutFrame 0 0 39 0 163 0 61 0)
               translateLabel: true
               adjust: right
             )
            (PopUpListSpec
               label: 'monitor size'
               name: 'MonitorSelectionPopUpList'
-              layout: (LayoutFrame 205 0 39 0 -5 1 61 0)
+              layout: (LayoutFrame 170 0 39 0 -5 1 61 0)
               tabable: true
               model: monitorSelection
               menu: monitorList
@@ -1367,13 +1367,13 @@
            (LabelSpec
               label: 'Screen Size:'
               name: 'ScreenSizeLabel'
-              layout: (LayoutFrame 0 0 72 0 205 0 94 0)
+              layout: (LayoutFrame 0 0 72 0 163 0 94 0)
               translateLabel: true
               adjust: right
             )
            (InputFieldSpec
               name: 'SizeXEntryField'
-              layout: (LayoutFrame 205 0 72 0 300 0 94 0)
+              layout: (LayoutFrame 170 0 72 0 237 0 94 0)
               model: sizeX
               type: number
               immediateAccept: true
@@ -1385,13 +1385,12 @@
            (LabelSpec
               label: ' x '
               name: 'xLabel'
-              layout: (LayoutFrame 314 0 72 0 360 0 94 0)
+              layout: (LayoutFrame 238 0 72 0 271 0 94 0)
               translateLabel: true
-              adjust: right
             )
            (InputFieldSpec
               name: 'SizeYEntryField'
-              layout: (LayoutFrame 379 0 72 0 474 0 94 0)
+              layout: (LayoutFrame 272 0 72 0 339 0 94 0)
               model: sizeY
               type: number
               immediateAccept: true
@@ -1403,9 +1402,9 @@
            (LabelSpec
               label: '(mm)'
               name: 'mmLabel'
-              layout: (LayoutFrame 491 0 72 0 537 0 94 0)
+              layout: (LayoutFrame 351 0 72 0 397 0 94 0)
               translateLabel: true
-              adjust: right
+              adjust: left
             )
            (DividerSpec
               name: 'Separator1'
@@ -3422,11 +3421,11 @@
     ^ resources 
         string:'HTTPSTARTINFO'
         default:
-'This dialog allows to create (possibly multiple) HTTP Server processes. 
+'This dialog enables you to create (possibly multiple) HTTP Server processes. 
 (i.e. it is possible to serve multiple ports)
 
-Once created, select the individual in the left tree, configure it,
-and finally start it up.'
+Once created, select the individual server in the left tree, 
+configure its services, and finally start it up.'
 !
 
 portNumberChannel
@@ -3870,13 +3869,17 @@
         component: 
        (SpecCollection
           collection: (
-           (LabelSpec
-              label: 'Notice:'
-              name: 'Notice'
+           (TextEditorSpec
+              name: 'TextEditor1'
               layout: (LayoutFrame 0 0 24 0 0 1.0 161 0)
-              translateLabel: true
-              labelChannel: noticeLabelHolder
-              adjust: left
+              style: (FontDescription helvetica medium roman 9)
+              model: noticeLabelHolder
+              hasHorizontalScrollBar: true
+              hasVerticalScrollBar: true
+              miniScrollerHorizontal: true
+              autoHideScrollBars: true
+              isReadOnly: true
+              postBuildCallback: postBuildHelpLabel:
             )
            (LabelSpec
               label: 'Current Language:'
@@ -4173,7 +4176,8 @@
 !
 
 setNoticeLabel
-    noticeLabelHolder value: ((resources at:'LANG_MSG' default:'Select a Language') withCRs).
+    noticeLabelHolder 
+        value: ((resources at:'LANG_MSG' default:'Select a Language') withCRs).
 ! !
 
 !AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'initialization & release'!
@@ -4312,6 +4316,11 @@
     languageList := translatedLanguages 
                         with:flags 
                         collect:[:lang :flag | LabelAndIcon icon:flag string:lang.].
+!
+
+postBuildHelpLabel:aWidget
+    aWidget level:0.
+    aWidget scrolledView backgroundColor:self window viewBackground.
 ! !
 
 !AbstractSettingsApplication::LanguageSettingsAppl methodsFor:'queries'!
@@ -5006,9 +5015,10 @@
 initialize
     super initialize.
     self warningLabelHolder 
-        value:((resources string:'Warning - invalid settings may result in failures or poor performance.')
-                ,
-               (resources string:'You have been warned.') allBold).
+        value:(StringCollection
+                with:(resources string:'Warning - invalid settings may result in failures or poor performance.')
+                with:(resources string:'You have been warned.') allBold
+               ).
 ! !
 
 !AbstractSettingsApplication::MemorySettingsAppl methodsFor:'queries'!
@@ -9681,7 +9691,7 @@
                        (TextEditorSpec
                           name: 'TextEditor1'
                           layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
-                          style: (FontDescription arial medium roman 10)
+                          style: (FontDescription arial medium roman 9)
                           model: noticeLabelHolder
                           hasHorizontalScrollBar: true
                           hasVerticalScrollBar: true
@@ -11241,5 +11251,5 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.172 2004-09-15 12:43:46 ca Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.173 2004-09-15 14:46:25 ca Exp $'
+! !