[Pkg] The Trunk: Protocols-fbs.29.mcz

[commits at source.squeak.org]

Chris Muller uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-fbs.29.mcz

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

Name: Protocols-fbs.29
Author: fbs
Time: 13 April 2010, 4:48:47.303 pm
UUID: 149a1928-ef9d-de4b-b696-e1fe6ff52890
Ancestors: Protocols-bp.28

This commit adds the menu, "only through..." and method home buttons back to the Lexicon. It's a minimal commit that neglects any attempt at cleanup: Lexicon>>buildCustomButtonsWith: could be deleted, for instance.

One weird thing happens to me: when I file in the changeset version of this commit. hitting Cmd-P blows up with an MNU. Recompiling Lexicon>>customButtonSpec (by, say, deleting and then readding a character) fixes the problem though!

=============== Diff against Protocols-bp.28 ===============

Item was changed:
  ----- Method: Lexicon>>customButtonSpecs (in category 'control buttons') -----
  customButtonSpecs
  	"Answer a triplet defining buttons, in the format:
  
  			button label
  			selector to send
  			help message"
  	| aa |
  	aa := contentsSymbol == #tiles ifTrue: [{   "Consult Ted Kaehler regarding this bit"
  	{'tiles'.				#tilesMenu.					'tiles for assignment and constants'. 	true}.
  	{'vars'.				#varTilesMenu.	'tiles for instance variables and a new temporary'. 	true}
  		}] ifFalse: [#()].	"true in 4th place means act on mouseDown"
  
+ 	^ aa,
+ 	{{(ScriptingSystem formAtKey: #TinyMenu) asMorph. #offerMenu. 'click here to get a menu with further options'}.
+ 	{self limitClassString. #chooseLimitClass. 'Governs which classes'' methods should be shown.  If this is the same as the viewed class, then only methods implemented in that class will be shown.  If it is ProtoObject, then methods of all classes in the vocabulary will be shown.'.}.},
+ 	#(
- 	^ aa, #(
  	('follow'			seeAlso							'view a method I implement that is called by this method')
  	('find'				obtainNewSearchString			'find methods by name search')
  	('sent...'			setSendersSearch				'view the methods I implement that send a given message')
  
  	('<'					navigateToPreviousMethod 		'view the previous active method')
  	('>'					navigateToNextMethod 			'view the next active method')
+ 	('-'					removeFromSelectorsVisited		'remove this method from my active list')),
+ 	{{(ScriptingSystem formAtKey: #Cat) asMorph. #showHomeCategory. 'show this method''s home category'}}.!
- 	('-'					removeFromSelectorsVisited		'remove this method from my active list'))!

Item was added:
+ ----- Method: Lexicon>>optionalButtonPairs (in category 'as yet unclassified') -----
+ optionalButtonPairs
+ 	"Actually, return triples.  Only the custom lexicon-specific buttons are shown"
+ 	^ self customButtonSpecs!