Package Annotation with MC1

Hello,

I dusted off a small extension to Monticello 1 that enables  
annotation of packages.
To annotate a package, just perform in a workspace:

(PackageInfo named: 'Monticello') annotation: (Dictionary new at:  
#author put: 'Wiresond team'; at: #website put: 'http://
www.wiresong.ca/Monticello'; yourself)

There is no graphical support, although easy to do.
I extended the Monticello meta model with a class  
MCPackageAnnotationDefinition.

Annotations are saved and are part of the source.st file. Packages  
that contains annotation can still be loaded in a non-annotation  
aware image. In the source.st, annotations are  saving using:

(PackageInfo canUnderstand: #annotation:)
        ifTrue:   [(PackageInfo named: 'Monticello')
                        annotation: ((Dictionary new) add: (#author->'Wiresond team');  
yourself)]!

Perhaps someone might find it interesting...

Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.cs.tcd.ie/Alexandre.Bergel
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.