The Trunk: Monticello-fbs.567.mcz

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!