equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1993 by Claus Gittinger |
4 COPYRIGHT (c) 1993 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
2941 ]. |
2943 ]. |
2942 ]. |
2944 ]. |
2943 change className:(nm ,'::',change classNameWithoutNamespace). |
2945 change className:(nm ,'::',change classNameWithoutNamespace). |
2944 change owningClassName:nm. |
2946 change owningClassName:nm. |
2945 change private:true. |
2947 change private:true. |
|
2948 ]. |
|
2949 "/ treat squeak package as category |
|
2950 kw = #'package:' ifTrue:[ |
|
2951 change category:arg evaluate. |
2946 ]. |
2952 ]. |
2947 ]. |
2953 ]. |
2948 |
2954 |
2949 change package:(Class packageQuerySignal query). |
2955 change package:(Class packageQuerySignal query). |
2950 "/ nameSpace ~~ Smalltalk ifTrue:[ |
2956 "/ nameSpace ~~ Smalltalk ifTrue:[ |