[Pkg] The Trunk: Monticello-kb.370.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Feb 24 18:57:03 UTC 2010


Andreas Raab uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-kb.370.mcz

==================== Summary ====================

Name: Monticello-kb.370
Author: kb
Time: 24 February 2010, 7:46:39.876 pm
UUID: 71e11e7c-cf38-4e34-a6c0-ae342347e2a5
Ancestors: Monticello-kb.369

- Shout styling for the MCSnapshotBrowser using ToolBuilder

=============== Diff against Monticello-cmm.367 ===============

Item was added:
+ ----- Method: MCSnapshotBrowser>>aboutToStyle: (in category 'morphic ui') -----
+ aboutToStyle: aStyler
+ 
+ 	aStyler classOrMetaClass: (
+ 		(methodSelection isNil and: [
+ 			protocolSelection isNil and: [ 
+ 				classSelection notNil ] ]) 
+ 					ifFalse: [ self selectedClassOrMetaClass ]
+ 					ifTrue: [ nil ]).
+ 	^true	
+ !

Item was changed:
  ----- Method: MCVersion>>browse (in category 'actions') -----
  browse
  	(MCSnapshotBrowser forSnapshot: self snapshot)
+ 		label: 'Snapshot of ', self fileName;
+ 		show!
- 		showLabelled: 'Snapshot of ', self fileName!

Item was changed:
  ----- Method: MCSnapshotBrowser>>widgetSpecs (in category 'morphic ui') -----
  widgetSpecs
  
  	Preferences annotationPanes ifFalse: [ ^#(
  		((listMorph: category) (0 0 0.25 0.4))
  		((listMorph: class) (0.25 0 0.50 0.4) (0 0 0 -30))
  		((listMorph: protocol) (0.50 0 0.75 0.4))
  		((listMorph:selection:menu:keystroke:  methodList methodSelection methodListMenu: methodListKey:from:) (0.75 0 1 0.4))
  		((buttonRow) (0.25 0.4 0.5 0.4) (0 -30 0 0))
+ 		((codePane: text) (0 0.4 1 1))
- 		((textMorph: text) (0 0.4 1 1))
  		) ].
  
  	^#(
  		((listMorph: category) (0 0 0.25 0.4))
  		((listMorph: class) (0.25 0 0.50 0.4) (0 0 0 -30))
  		((listMorph: protocol) (0.50 0 0.75 0.4))
  		((listMorph:selection:menu:keystroke:  methodList methodSelection methodListMenu: methodListKey:from:) (0.75 0 1 0.4))
  
  		((buttonRow) (0.25 0.4 0.5 0.4) (0 -30 0 0))
  
  		((textMorph: annotations) (0 0.4 1 0.4) (0 0 0 30))
  		((textMorph: text) (0 0.4 1 1) (0 30 0 0))
  		)!

Item was added:
+ ----- Method: MCToolWindowBuilder>>codePane: (in category 'as yet unclassified') -----
+ codePane: aSymbol
+ 	| text |
+ 	text := builder pluggableCodePaneSpec new.
+ 	text 
+ 		model: tool;
+ 		getText: aSymbol; 
+ 		setText: (aSymbol, ':') asSymbol;
+ 		frame: currentFrame.
+ 	window children add: text!

Item was changed:
  SystemOrganization addCategory: #'Monticello-Base'!
  SystemOrganization addCategory: #'Monticello-Chunk Format'!
  SystemOrganization addCategory: #'Monticello-Loading'!
  SystemOrganization addCategory: #'Monticello-Merging'!
  SystemOrganization addCategory: #'Monticello-Modeling'!
  SystemOrganization addCategory: #'Monticello-Patching'!
  SystemOrganization addCategory: #'Monticello-Repositories'!
  SystemOrganization addCategory: #'Monticello-Storing'!
  SystemOrganization addCategory: #'Monticello-UI'!
  SystemOrganization addCategory: #'Monticello-Versioning'!
- SystemOrganization addCategory: #'Monticello-Mocks'!



More information about the Packages mailing list