[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