equal
deleted
inserted
replaced
904 def := self packageDefinitionClass. |
904 def := self packageDefinitionClass. |
905 def isNil ifTrue:[ ^ false ]. |
905 def isNil ifTrue:[ ^ false ]. |
906 cls := self klass. |
906 cls := self klass. |
907 cls isNil ifTrue:[ ^ false ]. |
907 cls isNil ifTrue:[ ^ false ]. |
908 def excludeClasses:{ cls } usingCompiler:nil. |
908 def excludeClasses:{ cls } usingCompiler:nil. |
909 UserNotification notify: ('Class removed from project. Do not forget to check in build support files!!' bindWith: className). |
909 UserNotification notify: ('Class removed from project. Do not forget to checkin build support files!!'). |
910 ^true |
910 ^true |
911 ! |
911 ! |
912 |
912 |
913 fixes |
913 fixes |
914 "return a list of description-actionBlock pairs for possible fixes" |
914 "return a list of description-actionBlock pairs for possible fixes" |
999 def := self packageDefinitionClass. |
999 def := self packageDefinitionClass. |
1000 def isNil ifTrue:[ ^ false ]. |
1000 def isNil ifTrue:[ ^ false ]. |
1001 cls := self klass. |
1001 cls := self klass. |
1002 cls isNil ifTrue:[ ^ false ]. |
1002 cls isNil ifTrue:[ ^ false ]. |
1003 def excludeClasses:{ cls } usingCompiler:nil. |
1003 def excludeClasses:{ cls } usingCompiler:nil. |
1004 UserNotification notify: ('Class removed from project. Do not forget to check in build support files!!' bindWith: className). |
1004 UserNotification notify: ('Class removed from project. Do not forget to checkin build support files!!'). |
1005 ^true |
1005 ^true |
1006 ! |
1006 ! |
1007 |
1007 |
1008 fixes |
1008 fixes |
1009 "return a list of description-actionBlock pairs for possible fixes" |
1009 "return a list of description-actionBlock pairs for possible fixes" |
1131 asAutoloaded ifTrue:[ |
1131 asAutoloaded ifTrue:[ |
1132 def makeClassesAutoloaded:(Array with: cls) usingCompiler: nil. |
1132 def makeClassesAutoloaded:(Array with: cls) usingCompiler: nil. |
1133 ] ifFalse:[ |
1133 ] ifFalse:[ |
1134 def includeClasses:(Array with: cls) usingCompiler: nil. |
1134 def includeClasses:(Array with: cls) usingCompiler: nil. |
1135 ]. |
1135 ]. |
1136 UserNotification notify: ('Class added. Do not forget to check in build support files!!' bindWith: className). |
1136 UserNotification notify: ('Class added. Do not forget to checkin build support files!!'). |
1137 ^true |
1137 ^true |
1138 |
1138 |
1139 "Created: / 26-07-2012 / 10:41:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1139 "Created: / 26-07-2012 / 10:41:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1140 ! |
1140 ! |
1141 |
1141 |
1213 asAutoloaded ifTrue:[ |
1213 asAutoloaded ifTrue:[ |
1214 def makeClassesAutoloaded:(Array with: cls) usingCompiler: nil. |
1214 def makeClassesAutoloaded:(Array with: cls) usingCompiler: nil. |
1215 ] ifFalse:[ |
1215 ] ifFalse:[ |
1216 def includeClasses:(Array with: cls) usingCompiler: nil. |
1216 def includeClasses:(Array with: cls) usingCompiler: nil. |
1217 ]. |
1217 ]. |
1218 UserNotification notify: ('Class added. Do not forget to check in build support files!!' bindWith: className). |
1218 UserNotification notify: ('Class added. Do not forget to checkin build support files!!'). |
1219 ^true |
1219 ^true |
1220 |
1220 |
1221 "Created: / 26-07-2012 / 10:41:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1221 "Created: / 26-07-2012 / 10:41:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1222 ! |
1222 ! |
1223 |
1223 |
1236 superclassDef := superclass projectDefinitionClass. |
1236 superclassDef := superclass projectDefinitionClass. |
1237 superclassDef isNil ifTrue:[^ false]. |
1237 superclassDef isNil ifTrue:[^ false]. |
1238 |
1238 |
1239 superclassDef includeClasses:(Array with: superclass) usingCompiler: nil. |
1239 superclassDef includeClasses:(Array with: superclass) usingCompiler: nil. |
1240 |
1240 |
1241 UserNotification notify: ('Superclass added/changed. Do not forget to check in build support files!!' bindWith: className). |
1241 UserNotification notify: ('Superclass added/changed. Do not forget to checkin build support files!!'). |
1242 ^true |
1242 ^true |
1243 ! |
1243 ! |
1244 |
1244 |
1245 fixes |
1245 fixes |
1246 "return a list of description-actionBlock pairs for possible fixes" |
1246 "return a list of description-actionBlock pairs for possible fixes" |
1350 asAutoloaded ifTrue:[ |
1350 asAutoloaded ifTrue:[ |
1351 def makeClassesAutoloaded:(Array with: cls) usingCompiler: nil. |
1351 def makeClassesAutoloaded:(Array with: cls) usingCompiler: nil. |
1352 ] ifFalse:[ |
1352 ] ifFalse:[ |
1353 def includeClasses:(Array with: cls) usingCompiler: nil. |
1353 def includeClasses:(Array with: cls) usingCompiler: nil. |
1354 ]. |
1354 ]. |
1355 UserNotification notify: ('Class added. Do not forget to check in build support files!!' bindWith: className). |
1355 UserNotification notify: ('Class added. Do not forget to checkin build support files!!'). |
1356 ^true |
1356 ^true |
1357 |
1357 |
1358 "Created: / 26-07-2012 / 10:41:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1358 "Created: / 26-07-2012 / 10:41:22 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1359 ! |
1359 ! |
1360 |
1360 |