what is demote?

demoteToRPackageNamed: aString
    | newRPackage |

    self unregister.
    newRPackage := self class organizer
              packageNamed: aString
              ifAbsent:  [ (self class named: aString) register ].
    newRPackage importPackage: self.
    newRPackage classes do: [ :each |
             SystemAnnouncer uniqueInstance
               classRepackaged: each
               from: self
               to: newRPackage ].

of course no comment because everything is obvious in Pharo, isn't?

--

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… #demoteToTagInPackageNamed:?
Also, maybe there should be a guard if `aString = self name`?

https://github.com/pharo-project/pharo/pull/1240

I don't want to be accused of talking without action ;-)



-----
Cheers,
Sean
--
Sent from: http://forum.world.st/Pharo-Smalltalk-Developers-f1294837.html

Excellent! Thanks!
:)

On Sat, Apr 21, 2018 at 7:57 PM, Sean P. DeNigris <[hidden email]> wrote: