# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1201287549 -3600
# Node ID db98899b44d170be95627696069eccfa42e2c9d2
# Parent  badd429a2a2aecc93fb064f288b70f58e469de3b
*** empty log message ***

diff -r badd429a2a2a -r db98899b44d1 UIPainter.st
--- a/UIPainter.st	Fri Jan 25 19:32:48 2008 +0100
+++ b/UIPainter.st	Fri Jan 25 19:59:09 2008 +0100
@@ -975,15 +975,15 @@
      the UIPainter may not be able to read the specification."
 
     "
-     UIPainter new openOnClass:UIPainter andSelector:#dialogSpecForDefiningPortAndPagename
-     UIPainter new openInterface:#dialogSpecForDefiningPortAndPagename
+     UIPainter new openOnClass:UIPainter andSelector:#dialogSpecForDefiningPortAndPageName
+     UIPainter new openInterface:#dialogSpecForDefiningPortAndPageName
     "
 
     <resource: #canvas>
 
     ^ 
      #(FullSpec
-        name: dialogSpecForDefiningPortAndPagename
+        name: dialogSpecForDefiningPortAndPageName
         window: 
        (WindowSpec
           label: 'GUI Painter'
@@ -1012,13 +1012,12 @@
                     resizeForLabel: true
                     adjust: right
                   )
-                 (InputFieldSpec
-                    name: 'serviceOrPortName'
+                 (ComboBoxSpec
+                    name: 'ComboBox1'
                     layout: (LayoutFrame 70 0.11 18 0 4 1.0 40 0)
-                    tabable: true
                     model: serviceOrPortNameChannel
-                    group: inputGroup
                     acceptOnPointerLeave: false
+                    comboList: runningServerPorts
                   )
                  (LabelSpec
                     label: 'Pagename:'
@@ -1050,8 +1049,6 @@
          
         )
       )
-
-    "Created: / 14-01-2008 / 16:54:20 / cg"
 !
 
 windowSpec
@@ -4504,8 +4501,9 @@
 doInstallAsWebPage
     "lets user select a service, page-name and installs the page"
 
-    |again serviceOrPort pageName port serviceLinkName service server app|
-
+    |runningServerPorts again serviceOrPort pageName port serviceLinkName service server app|
+
+    runningServerPorts := (HTTPServer runningServers collect:[:s | s port printString]) asOrderedCollection sort.
     serviceOrPort := lastPort ? LastPort ? '8080'.
     pageName := lastPage ? LastPage ? 'myPage'.
 
@@ -4514,6 +4512,7 @@
 
         aspects at:#serviceOrPortNameChannel put:serviceOrPort printString  asValue.
         aspects at:#pageNameNameChannel      put:pageName printString asValue.
+        aspects at:#runningServerPorts       put:runningServerPorts.
 
         (self openDialogInterface:#dialogSpecForDefiningPortAndPageName) ifFalse:[^ nil].