#REFACTORING by stefan
class: Tools::ProjectBuilderAssistantApplication
changed: #updateListOfStartupClassesInProject
eliminate #ifError: (Squeak compatibility)
--- 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