[squeak-dev] The Trunk: Tools-cmm.429.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Nov 25 00:20:16 UTC 2012

Chris Muller uploaded a new version of Tools to project The Trunk:

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

Name: Tools-cmm.429
Author: cmm
Time: 24 November 2012, 6:19:36.512 pm
UUID: 50cb8cd0-5220-4ca3-96c1-0812ae6d0da8
Ancestors: Tools-eem.428

- Fix hot-key for removing a method from a MessageSet even if that method has already been deleted.

=============== Diff against Tools-eem.428 ===============

Item was changed:
  ----- Method: CodeHolder>>messageListKey:from: (in category 'message list menu') -----
  messageListKey: aChar from: view
  	"Respond to a Command key.  I am a model with a code pane, and I also
  	have a listView that has a list of methods.  The view knows how to get
  	the list and selection."
  	| sel class |
  	aChar == $D ifTrue: [^ self toggleDiffing].
  	sel := self selectedMessageName.
  	aChar == $m ifTrue:  "These next two put up a type in if no message selected"
  		[^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllImplementorsOf: to: self ].
  	aChar == $n ifTrue: 
  		[^ self useSelector: sel orGetSelectorAndSendQuery: #browseAllCallsOn: to: self ].
+ 	aChar == $d ifTrue: [^ self removeMessageFromBrowser].
  	"The following require a class selection"
  	(class := self selectedClassOrMetaClass) ifNil: [^ self arrowKey: aChar from: view].
  	aChar == $b ifTrue: [^ Browser fullOnClass: class selector: sel].
  	aChar == $N ifTrue: [^ self browseClassRefs].
  	aChar == $i ifTrue: [^ self methodHierarchy].
  	aChar == $h ifTrue: [^ self classHierarchy].
  	aChar == $p ifTrue: [^ self browseFullProtocol].
  	aChar == $r ifTrue: [^ self browseVariableReferences].
  	aChar == $a ifTrue: [^ self browseVariableAssignments].
  	"The following require a method selection"
  	sel ifNotNil: 
  		[aChar == $o ifTrue: [^ self fileOutMessage].
  		aChar == $c ifTrue: [^ self copySelector].
  		aChar == $v ifTrue: [^ self browseVersions].
  		aChar == $O ifTrue: [^ self openSingleMessageBrowser].
  		aChar == $x ifTrue: [^ self removeMessage].
- 		aChar == $d ifTrue: [^ self removeMessageFromBrowser].
  		(aChar == $C and: [self canShowMultipleMessageCategories])
  			ifTrue: [^ self showHomeCategory]].
  	^ self arrowKey: aChar from: view!

More information about the Squeak-dev mailing list