[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
|