The Trunk: Tools-ul.687.mcz

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
+ !