ProjectChecker.st
changeset 4372 d54a65e0fd4e
parent 4371 a5d2ba58a4af
child 4455 af2a675e0f32
equal deleted inserted replaced
4371:a5d2ba58a4af 4372:d54a65e0fd4e
   118 
   118 
   119 methods:something
   119 methods:something
   120     methods := something.
   120     methods := something.
   121 !
   121 !
   122 
   122 
   123 package:packageId
   123 package:packageOrPackageId
   124     "Adds `packageId` to set of checked packages"
   124     "Adds `packageId` to set of checked packages"
   125 
   125 
       
   126     |packageId|
       
   127 
       
   128     packageOrPackageId isBehavior ifTrue:[
       
   129         packageId := packageOrPackageId package.
       
   130     ] ifFalse:[    
       
   131         packageId := packageOrPackageId.
       
   132     ].
   126     (packages includes: packageId) ifFalse:[ 
   133     (packages includes: packageId) ifFalse:[ 
   127         packages add: packageId 
   134         packages add: packageId 
   128     ].
   135     ].
   129 
   136 
   130     "Modified (comment): / 22-02-2014 / 22:03:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
   137     "Modified (comment): / 22-02-2014 / 22:03:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"