equal
deleted
inserted
replaced
1897 "/ |
1897 "/ |
1898 hasHTTPServer := httpServerRunning := false. |
1898 hasHTTPServer := httpServerRunning := false. |
1899 (hasHTTPServer := HTTPServer notNil) ifTrue:[ |
1899 (hasHTTPServer := HTTPServer notNil) ifTrue:[ |
1900 HTTPServer isLoaded ifTrue:[ |
1900 HTTPServer isLoaded ifTrue:[ |
1901 httpServerRunning := HTTPServer isRunning. |
1901 httpServerRunning := HTTPServer isRunning. |
1902 httpServerFileRoot := HTTPServer fileRoot. |
1902 "/ httpServerFileRoot := HTTPServer fileRoot. |
1903 httpServerHomeURL := HTTPServer homeURL. |
1903 httpServerHomeURL := HTTPServer homeURL. |
1904 httpServerPort := HTTPServer port. |
1904 httpServerPort := HTTPServer port. |
1905 httpServerLogFile := HTTPServer logFile. |
1905 httpServerLogFile := HTTPServer logFile. |
1906 ]. |
1906 ]. |
1907 ]. |
1907 ]. |
1916 org_httpServerLogFile := httpServerLogFile. |
1916 org_httpServerLogFile := httpServerLogFile. |
1917 httpServerLogFile := httpServerLogFile asValue. |
1917 httpServerLogFile := httpServerLogFile asValue. |
1918 |
1918 |
1919 httpServerRunning |
1919 httpServerRunning |
1920 onChangeEvaluate:[ |
1920 onChangeEvaluate:[ |
1921 httpServerFileRoot value:(HTTPServer fileRoot). |
1921 "/ httpServerFileRoot value:(HTTPServer fileRoot). |
1922 httpServerHomeURL value:(HTTPServer homeURL). |
1922 httpServerHomeURL value:(HTTPServer homeURL). |
1923 httpServerPort value:(HTTPServer port). |
1923 httpServerPort value:(HTTPServer port). |
1924 httpServerLogFile value:(HTTPServer logFile) |
1924 httpServerLogFile value:(HTTPServer logFile) |
1925 ]. |
1925 ]. |
1926 |
1926 |
2097 tabable:true |
2097 tabable:true |
2098 separateAtX:0.3. |
2098 separateAtX:0.3. |
2099 in acceptChannel:acceptChannel. |
2099 in acceptChannel:acceptChannel. |
2100 in enableChannel:httpServerRunning. |
2100 in enableChannel:httpServerRunning. |
2101 |
2101 |
2102 in := box |
2102 "/ in := box |
2103 addLabelledInputField:(resources string:'File Root:') |
2103 "/ addLabelledInputField:(resources string:'File Root:') |
2104 adjust:#right |
2104 "/ adjust:#right |
2105 on:httpServerFileRoot |
2105 "/ on:httpServerFileRoot |
2106 tabable:true |
2106 "/ tabable:true |
2107 separateAtX:0.3. |
2107 "/ separateAtX:0.3. |
2108 in acceptChannel:acceptChannel. |
2108 "/ in acceptChannel:acceptChannel. |
2109 in enableChannel:httpServerRunning. |
2109 "/ in enableChannel:httpServerRunning. |
2110 |
2110 |
2111 in := box |
2111 in := box |
2112 addLabelledInputField:(resources string:'Home URL:') |
2112 addLabelledInputField:(resources string:'Home URL:') |
2113 adjust:#right |
2113 adjust:#right |
2114 on:httpServerHomeURL |
2114 on:httpServerHomeURL |
6388 ! ! |
6388 ! ! |
6389 |
6389 |
6390 !AbstractLauncherApplication class methodsFor:'documentation'! |
6390 !AbstractLauncherApplication class methodsFor:'documentation'! |
6391 |
6391 |
6392 version |
6392 version |
6393 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.289 2003-09-04 19:02:36 stefan Exp $' |
6393 ^ '$Header: /cvs/stx/stx/libtool/AbstractLauncherApplication.st,v 1.290 2003-09-11 12:53:22 cg Exp $' |
6394 ! ! |
6394 ! ! |