[squeak-dev] The Inbox: Monticello-bf.513.mcz
Chris Muller
asqueaker at gmail.com
Sat Jul 28 23:04:43 UTC 2012
Ah, ok.
On Sat, Jul 28, 2012 at 4:31 PM, <commits at source.squeak.org> wrote:
> 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'!
>
>
More information about the Squeak-dev
mailing list
|