Excellent! Thanks!
:)
On Sat, Apr 21, 2018 at 7:57 PM, Sean P. DeNigris wrote:
> CyrilFerlicot wrote
>> It's probably to change a package of the form "MyPackage-Something" to a
>> package "MyPackage" with a "Something" tag.
>
> Yes, breakpoint triggered from Calypso
CyrilFerlicot wrote
> It's probably to change a package of the form "MyPackage-Something" to a
> package "MyPackage" with a "Something" tag.
Yes, breakpoint triggered from Calypso "Demote to package with tag" context
menu.
Maybe the message name could be improved too…
On sam. 21 avr. 2018 at 10:12, Stephane Ducasse
wrote:
> demoteToRPackageNamed: aString
> | newRPackage |
>
> self unregister.
> newRPackage := self class organizer
> packageNamed: aString
> ifAbsent: [ (self class named: aString)
demoteToRPackageNamed: aString
| newRPackage |
self unregister.
newRPackage := self class organizer
packageNamed: aString
ifAbsent: [ (self class named: aString) register ].
newRPackage importPackage: self.
newRPackage classes do: [ :each |