--- 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].