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

commits at source.squeak.org commits at source.squeak.org
Thu Feb 25 12:06:39 UTC 2010


A new version of Monticello was added to project The Trunk:
http://source.squeak.org/trunk/Monticello-kb.371.mcz

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

Name: Monticello-kb.371
Author: kb
Time: 24 February 2010, 10:25:20.812 pm
UUID: 32697701-61b8-44cc-a601-3596fc9032ca
Ancestors: Monticello-kb.370

 - fix: don't style class comments, and other things that we shouldn't style.
 - fix: use codePane: in widgetSpecs if annotationPanes are enabled
 - fix: add codePane: to MCTool for the case if we don't have ToolBuilder 

=============== Diff against Monticello-kb.370 ===============

Item was added:
+ ----- Method: MCTool>>codePane: (in category 'morphic ui') -----
+ codePane: aSymbol
+ 
+ 	| textMorph |
+ 	textMorph := PluggableTextMorphPlus 
+ 		on: self 
+ 		text: aSymbol 
+ 		accept: (aSymbol, ':') asSymbol.
+ 	textMorph useDefaultStyler.
+ 	^textMorph!

Item was changed:
  ----- Method: MCSnapshotBrowser>>aboutToStyle: (in category 'morphic ui') -----
  aboutToStyle: aStyler
  
+ 	| classOrMetaClass shouldStyle |
+ 	classSelection ifNil: [ ^false ].
+ 	switch = #comment ifTrue: [ ^false ].
+ 	(protocolSelection notNil and: [
+ 		methodSelection notNil ]) 
+ 			ifTrue: [ 
+ 				classOrMetaClass := self selectedClassOrMetaClass.
+ 				shouldStyle := true ]
+ 			ifFalse: [ 
+ 				classOrMetaClass := nil.
+ 				shouldStyle := categorySelection ~= self extensionsCategory ].
+ 	aStyler classOrMetaClass: classOrMetaClass.
+ 	^shouldStyle!
- 	aStyler classOrMetaClass: (
- 		(methodSelection isNil and: [
- 			protocolSelection isNil and: [ 
- 				classSelection notNil ] ]) 
- 					ifFalse: [ self selectedClassOrMetaClass ]
- 					ifTrue: [ nil ]).
- 	^true	
- !

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))
  		) ].
  
  	^#(
  		((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))
+ 		((codePane: text) (0 0.4 1 1) (0 30 0 0))
- 		((textMorph: text) (0 0.4 1 1) (0 30 0 0))
  		)!

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