[squeak-dev] The Trunk: Tools-ul.687.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Apr 7 21:04:26 UTC 2016


Levente Uzonyi uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ul.687.mcz

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

Name: Tools-ul.687
Author: ul
Time: 7 April 2016, 11:04:02.506276 pm
UUID: 2d6efa2b-2716-439f-8c7e-e351e2e37883
Ancestors: Tools-ul.686

- removed the hard dependency on HelpBrowser
- all browser panels respond to Cmd+x with the same behavior: remove

=============== Diff against Tools-ul.686 ===============

Item was changed:
  ----- Method: Browser>>browseAllCommentsForClass (in category 'message functions') -----
  browseAllCommentsForClass
  	"Opens a HelpBrowser on the class"
  
  	| myClass |
+ 	myClass := self selectedClassOrMetaClass ifNil: [ ^self ].
+ 	myClass isTrait ifTrue: [ ^self ].
+ 	(Smalltalk classNamed: #HelpBrowser)
+ 		ifNil: [ ^self inform: 'HelpBrowser is not available.' ]
+ 		ifNotNil: [ :HelpBrowser |
+ 			HelpBrowser openOn: myClass theNonMetaClass ]
- 	((myClass := self selectedClassOrMetaClass) isNil or: [myClass isTrait])
- 		ifFalse: [HelpBrowser openOn: myClass theNonMetaClass]
  !

Item was changed:
  ----- Method: Browser>>buildMessageCategoryListWith: (in category 'toolbuilder') -----
  buildMessageCategoryListWith: builder
  	| listSpec |
  	listSpec := builder pluggableListSpec new.
  	listSpec 
  		model: self;
  		list: #messageCategoryList; 
  		getIndex: #messageCategoryListIndex; 
  		setIndex: #messageCategoryListIndex:; 
  		menu: #messageCategoryMenu:; 
+ 		keyPress: #messageCategoryListKey:from:.
- 		keyPress: #arrowKey:from:.
  	SystemBrowser browseWithDragNDrop ifTrue:[
  		listSpec
  			dropAccept: #wantsMessageCategoriesDrop:;
  			dropItem: #dropOnMessageCategories:at:].
  	^listSpec
  !

Item was changed:
  ----- Method: Browser>>mainMessageCategoryMenu: (in category 'message category functions') -----
  mainMessageCategoryMenu: aMenu
  	<messageCategoryMenu>
  	^ aMenu addList: #(
  			('browse'						buildMessageCategoryBrowser)
  			('print out'						printOutMessageCategories)
  			('file out'						fileOutMessageCategories)
  			-
  			('reorganize'					editMessageCategories)
  			('alphabetize'					alphabetizeMessageCategories)
  			('remove empty categories'	removeEmptyCategories)
  			('categorize all uncategorized'	categorizeAllUncategorizedMethods)
  			('new category...'				addCategory)
  			-
  			('rename...'						renameCategory)
+ 			('remove (x)'					removeMessageCategory));
- 			('remove'						removeMessageCategory));
  		yourself
  !

Item was changed:
  ----- Method: Browser>>mainSystemCategoryMenu: (in category 'system category functions') -----
  mainSystemCategoryMenu: aMenu
  	<systemCategoryMenu>
  	^ aMenu addList: #(
  			('find class... (f)'			findClass)
  			('back... (b)'				recent)
  			-
  			('browse all'			browseAllClasses)
  			('browse'				buildSystemCategoryBrowser)
  			-
  			('printOut'				printOutSystemCategory)
  			('fileOut'				fileOutSystemCategory)
  			-
  			('reorganize'			editSystemCategories)
  			('alphabetize'			alphabetizeSystemCategories)
  			-
  			('update'				updateSystemCategories)
  			('add item...'				addSystemCategory)
  			('rename...'				renameSystemCategory)
+ 			('remove (x)'			removeSystemCategory));
- 			('remove'				removeSystemCategory));
  		yourself
  !

Item was added:
+ ----- Method: Browser>>messageCategoryListKey:from: (in category 'message category list') -----
+ messageCategoryListKey: aCharacter from: view
+ 
+ 	aCharacter == $x ifTrue: [ ^self removeMessageCategory ].
+ 	^self arrowKey: aCharacter from: view
+ 	!



More information about the Squeak-dev mailing list