[squeak-dev] The Inbox: Tools-lrnp.1140.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Mar 4 23:45:25 UTC 2022
A new version of Tools was added to project The Inbox:
http://source.squeak.org/inbox/Tools-lrnp.1140.mcz
==================== Summary ====================
Name: Tools-lrnp.1140
Author: lrnp
Time: 4 March 2022, 4:45:22.218603 pm
UUID: 6a02772e-f08b-471f-8a09-052ccc2c9055
Ancestors: Tools-mt.1139
build system category menu in browser when no category selected
=============== Diff against Tools-mt.1139 ===============
Item was changed:
----- Method: Browser>>mainSystemCategoryMenu: (in category 'system category functions') -----
mainSystemCategoryMenu: aMenu
<systemCategoryMenu>
aMenu addTranslatedList: #(
('find class... (f)' findClass)
('back... (b)' recent)
-
('browse all' browseAllClasses)
('browse' buildSystemCategoryBrowser)).
+ (Smalltalk isMorphic and: [self selectedSystemCategory notNil] and: [self selectedPackage notNil]) ifTrue: [
- (Smalltalk isMorphic and: [self selectedPackage notNil]) ifTrue: [
aMenu
add: ('browse package ''{1}''' translated format: {self selectedPackage name})
subMenu: (self packageMenu: ((Smalltalk isMorphic
ifTrue: [MenuMorph new defaultTarget: self; yourself]
ifFalse: [CustomMenu new])
yourself))
target: self
selector: #yourself
argumentList: #()].
aMenu addTranslatedList: #(
-
('printOut' printOutSystemCategory)
('fileOut' fileOutSystemCategory)
-
('reorganize' editSystemCategories)
('alphabetize' alphabetizeSystemCategories)
-
('update' updateSystemCategories)
('add item...' addSystemCategory)
('rename...' renameSystemCategory)
('remove (x)' removeSystemCategory)).
^ aMenu!
More information about the Squeak-dev
mailing list
|