Mercurial Mercurial > hg > stx-libtool / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
AbstractSettingsApplication.st
changeset 9814 9cbbd1c58821
parent 9811 6ac0aaf84f1e
child 9833 0ef5a7088355 
--- a/AbstractSettingsApplication.st	Sat Apr 09 10:47:18 2011 +0200
+++ b/AbstractSettingsApplication.st	Sat Apr 09 17:04:19 2011 +0200
@@ -4908,7 +4908,7 @@
     ].
     ^ self createServerForClass:self serverClass.
 
-    "Modified: / 25-01-2007 / 16:41:38 / cg"
+    "Modified: / 09-04-2011 / 11:15:52 / cg"
 !
 
 createServerApplicationFor:aServerInstance
@@ -4919,20 +4919,25 @@
         " already have an Item for this application "
         ^ self 
     ].
-    HTTPServerSettingsAppl notNil ifTrue:[
-        settingsApp := HTTPServerSettingsAppl basicNew.
-        settingsApp settingsDialog:self settingsDialog.
-        settingsApp httpServerInstance:aServerInstance.
-        settingsApp defaultSettingsApplication:false.
-        settingsApp basicInitialize.
-        itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
-        newItem := self settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
-        newItem application:settingsApp.
-        self createdServerChanged.
-        self settingsDialog expandItemForApplication:self.
-        settingsApp readSettings.
-        settingsApp initialize.
-    ].
+    HTTPServerSettingsAppl isNil ifTrue:[
+        self warn:'Missing settings application: HTTPServerSettingsAppl'.
+        ^ self.
+    ].
+
+    settingsApp := HTTPServerSettingsAppl basicNew.
+    settingsApp settingsDialog:self settingsDialog.
+    settingsApp httpServerInstance:aServerInstance.
+    settingsApp defaultSettingsApplication:false.
+    settingsApp basicInitialize.
+    itemPathName := self itemPathName , '/', settingsApp nameInSettingsDialog.
+    newItem := self settingsDialog addApplClass:#'HTTPServerSettingsAppl' withName:itemPathName.
+    newItem application:settingsApp.
+    self createdServerChanged.
+    self settingsDialog expandItemForApplication:self.
+    settingsApp readSettings.
+    settingsApp initialize.
+
+    "Modified: / 09-04-2011 / 11:17:44 / cg"
 !
 
 createServerForClass:serverClass
@@ -16660,9 +16665,9 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.385 2011-04-08 10:32:44 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.386 2011-04-09 15:04:19 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.385 2011-04-08 10:32:44 stefan Exp $'
-! !
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.386 2011-04-09 15:04:19 cg Exp $'
+! !
hg/stx-libtool