The Inbox: Monticello-bf.513.mcz

> Bert Freudenberg uploaded a new version of Monticello to project The Inbox:
> http://source.squeak.org/inbox/Monticello-bf.513.mcz
>
> ==================== Summary ====================
>
> Name: Monticello-bf.513
> Author: bf
> Time: 28 July 2012, 2:22:30.22 pm
> UUID: 7520e6a4-d43b-4aa0-8f8c-59b4a94b21bc
> Ancestors: Monticello-eem.512
>
> Add per-package comments (if you have PackageInfo-Base-bf.65).
>
> =============== Diff against Monticello-eem.512 ===============
>
> Item was changed:
>   ----- Method: MCPackage>>snapshot (in category 'input/output') -----
>   snapshot
>         | packageInfo definitions categories |
>         packageInfo := self packageInfo.
>         definitions := OrderedCollection new.
>         categories := packageInfo systemCategories.
>         categories isEmpty ifFalse: [ definitions add: (MCOrganizationDefinition categories: categories) ].
>         CurrentReadOnlySourceFiles cacheDuring: [
>                 packageInfo methods do: [:ea | definitions add: ea asMethodDefinition] displayingProgress: 'Snapshotting methods...'.
>                 (packageInfo respondsTo: #overriddenMethods) ifTrue:
>                         [packageInfo overriddenMethods
>                                 do: [:ea | definitions add:
>                                                 (packageInfo changeRecordForOverriddenMethod: ea) asMethodDefinition]
>                                 displayingProgress: 'Searching for overrides...'].
>                 packageInfo classes do: [:ea | definitions addAll: ea classDefinitions] displayingProgress: 'Snapshotting classes...' ].
>         (packageInfo respondsTo: #hasPreamble) ifTrue: [
>                 packageInfo hasPreamble ifTrue: [definitions add: (MCPreambleDefinition from: packageInfo)].
>                 packageInfo hasPostscript ifTrue: [definitions add: (MCPostscriptDefinition from: packageInfo)].
>                 packageInfo hasPreambleOfRemoval ifTrue: [definitions add: (MCRemovalPreambleDefinition from: packageInfo)].
>                 packageInfo hasPostscriptOfRemoval ifTrue: [definitions add: (MCRemovalPostscriptDefinition from: packageInfo)]].
> +       (packageInfo respondsTo: #hasComment) ifTrue: [
> +               packageInfo hasComment ifTrue: [definitions add: (MCPackageCommentDefinition from: packageInfo)]].
>         ^ MCSnapshot fromDefinitions: definitions
>   !
>
> Item was added:
> + MCScriptDefinition subclass: #MCPackageCommentDefinition
> +       instanceVariableNames: ''
> +       classVariableNames: ''
> +       poolDictionaries: ''
> +       category: 'Monticello-Modeling'!
>
> Item was added:
> + ----- Method: MCPackageCommentDefinition class>>scriptSelector (in category 'as yet unclassified') -----
> + scriptSelector
> +       ^ #comment!
>
> Item was changed:
>   ----- Method: MCWorkingCopyBrowser>>buttonSpecs (in category 'morphic ui') -----
>   buttonSpecs
>          ^ #(
>                  ('+Package' addWorkingCopy 'Add a new package and make it the working copy')
>                  (Browse browseWorkingCopy 'Browse the working copy of the selected package' hasWorkingCopy)
> +                (Scripts editLoadScripts 'Edit the comment or load/unload scripts of this package' hasWorkingCopy)
> -                (Scripts editLoadScripts 'Edit the load/unload scripts of this package' hasWorkingCopy)
>                  (History viewHistory 'View the working copy''s history' hasWorkingCopy)
>                  (Changes viewChanges 'View the working copy''s changes relative to the installed version from the repository' canSave)
>                  (Backport backportChanges 'Backport the working copy''s changes to an ancestor' canBackport)
>                  (Save saveVersion 'Save the working copy as a new version to the selected repository' canSave)
>                ('+Repository' addRepository 'Add an existing repository to the list of those visible')
>                  (Open openRepository 'Open a browser on the selected repository' hasRepository)
>                  )!
>
> Item was changed:
>   ----- Method: MCWorkingCopyBrowser>>editLoadScripts (in category 'morphic ui') -----
>   editLoadScripts
>
>         | menu |
>         self hasWorkingCopy ifFalse: [^self].
>         menu := MenuMorph new defaultTarget: self.
> +       menu add: 'edit comment' selector: #editScript: argument: #comment.
> +       menu addLine.
>         menu add: 'edit preamble' selector: #editScript: argument: #preamble.
>         menu add: 'edit postscript' selector: #editScript: argument: #postscript.
>         menu add: 'edit preambleOfRemoval' selector: #editScript: argument: #preambleOfRemoval.
>         menu add: 'edit postscriptOfRemoval' selector: #editScript: argument: #postscriptOfRemoval.
>         menu popUpInWorld.!
>
> Item was removed:
> - (PackageInfo named: 'Monticello') postscript: 'nil'!
>
>