#REFACTORING by stefan draft
authorStefan Vogel <sv@exept.de>
Sat, 18 Mar 2017 19:05:37 +0100
changeset 3429 bda211bf56ec
parent 3428 2159fce56364
child 3430 9b5190f88556
#REFACTORING by stefan class: Tools::ProjectBuilderAssistantApplication changed: #updateListOfStartupClassesInProject eliminate #ifError: (Squeak compatibility)
Tools__ProjectBuilderAssistantApplication.st
--- a/Tools__ProjectBuilderAssistantApplication.st	Wed Mar 15 12:20:03 2017 +0100
+++ b/Tools__ProjectBuilderAssistantApplication.st	Sat Mar 18 19:05:37 2017 +0100
@@ -3740,7 +3740,7 @@
         startupClasses := startupClasses asOrderedCollection.
         startupClasses sort:[:a :b | a name < b name].
 
-        startUpClassName := [ selectedProjectDefinition startupClassName ] ifError:[ nil ].
+        startUpClassName := [ selectedProjectDefinition startupClassName ] on:Error do:nil.
         startUpClassName notNil ifTrue:[
             startUpClass := Smalltalk classNamed:startUpClassName.
             startUpClass notNil ifTrue:[
@@ -3752,6 +3752,8 @@
 
     self listOfStartupClassesInProject value:startupClasses.
     self selectedStartupClassIndexHolder value:startupClassIndex.
+
+    "Modified: / 18-03-2017 / 18:42:52 / stefan"
 !
 
 updateProjectAttributes