[squeak-dev] The Inbox: Monticello-bf.513.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Jul 28 21:32:08 UTC 2012

Bert Freudenberg uploaded a new version of Monticello to project The Inbox:

==================== 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') -----
  	| 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') -----
         ^ #(
                 ('+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') -----
  	| 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