[squeak-dev] The Trunk: Monticello-fbs.567.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Sep 12 08:42:36 UTC 2013


Frank Shearar uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-fbs.567.mcz

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

Name: Monticello-fbs.567
Author: fbs
Time: 12 September 2013, 8:50:02.568 am
UUID: 40344740-b482-c648-bbd9-08aa7705fb1f
Ancestors: Monticello-bf.566

Let "alt-B" work on class definitions. These open a Browser on the class definition.

=============== Diff against Monticello-bf.566 ===============

Item was changed:
  ----- Method: MCCodeTool>>browseMethodFull (in category 'menus') -----
  browseMethodFull
+ 	"Create and schedule a full Browser and then select the current class and message, or just the current class if viewing a class definition."
+ 	^ self selectedClassOrMetaClass ifNotNil: [ :cls |
+ 		self selectedMessageName
+ 			ifNil: [Browser fullOnClass: cls]
+ 			ifNotNil: [:sel | Browser fullOnClass: cls selector: sel]]!
- 	"Create and schedule a full Browser and then select the current class and message."
- 
- 	| myClass |
- 	(myClass := self selectedClassOrMetaClass) ifNotNil:
- 		[Browser fullOnClass: myClass selector: self selectedMessageName]!

Item was changed:
  ----- Method: MCPatchBrowser>>selectedClassOrMetaClass (in category 'subclassResponsibility') -----
  selectedClassOrMetaClass
  	| definition |
  	selection ifNil: [ ^nil ].
  	(definition := selection definition) ifNil: [ ^nil ].
+ 	(definition isMethodDefinition or: [definition isClassDefinition]) ifFalse: [ ^nil ].
- 	definition isMethodDefinition ifFalse: [ ^nil ].
  	^definition actualClass!



More information about the Squeak-dev mailing list