equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/monticello' }" |
1 "{ Package: 'stx:goodies/monticello' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 Object subclass:#MCPackage |
5 Object subclass:#MCPackage |
4 instanceVariableNames:'name' |
6 instanceVariableNames:'name' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
96 ^ MCWorkingCopy registry includesKey: self |
98 ^ MCWorkingCopy registry includesKey: self |
97 ! |
99 ! |
98 |
100 |
99 packageInfo |
101 packageInfo |
100 |
102 |
101 (Smalltalk allProjectIDs includes: name) ifTrue:[ |
103 (Smalltalk allPackageIDs includes: name) ifTrue:[ |
102 ^ MCStXPackageInfo named: name |
104 ^ MCStXPackageInfo named: name |
103 ] ifFalse:[ |
105 ] ifFalse:[ |
104 ^ PackageInfo named: name |
106 ^ PackageInfo named: name |
105 ] |
107 ] |
106 |
108 |
124 ! ! |
126 ! ! |
125 |
127 |
126 !MCPackage class methodsFor:'documentation'! |
128 !MCPackage class methodsFor:'documentation'! |
127 |
129 |
128 version |
130 version |
129 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.17 2014-03-27 20:44:08 cg Exp $' |
131 ^ '$Header$' |
130 ! |
132 ! |
131 |
133 |
132 version_CVS |
134 version_CVS |
133 ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.17 2014-03-27 20:44:08 cg Exp $' |
135 ^ '$Header$' |
134 ! |
136 ! |
135 |
137 |
136 version_SVN |
138 version_SVN |
137 ^ '$Id: MCPackage.st,v 1.17 2014-03-27 20:44:08 cg Exp $' |
139 ^ '$Id$' |
138 ! ! |
140 ! ! |
139 |
141 |