equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1990 by Claus Gittinger |
2 COPYRIGHT (c) 1990 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
3091 ! |
3089 ! |
3092 |
3090 |
3093 setEnforcedPackage |
3091 setEnforcedPackage |
3094 |pkg listOfKnownPackages| |
3092 |pkg listOfKnownPackages| |
3095 |
3093 |
3096 listOfKnownPackages := Smalltalk allProjectIDs. |
3094 listOfKnownPackages := Smalltalk allPackageIDs. |
3097 "/ Smalltalk allClassesDo:[:eachClass | |
3095 "/ Smalltalk allClassesDo:[:eachClass | |
3098 "/ |package| |
3096 "/ |package| |
3099 "/ |
3097 "/ |
3100 "/ package := eachClass package. |
3098 "/ package := eachClass package. |
3101 "/ package size > 0 ifTrue:[ |
3099 "/ package size > 0 ifTrue:[ |