[squeak-dev] The Trunk: Tools-mt.707.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Jul 21 09:43:23 UTC 2016


Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.707.mcz

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

Name: Tools-mt.707
Author: mt
Time: 21 July 2016, 11:43:02.277126 am
UUID: 0630c0a4-da1c-114b-be39-e5120a3a0e63
Ancestors: Tools-eem.706

When adding a message category in the browser, invoke choose-or-add dialog via the UI manager.

=============== Diff against Tools-eem.706 ===============

Item was changed:
  ----- Method: Browser>>addCategory (in category 'message category functions') -----
  addCategory
  	"Present a choice of categories or prompt for a new category name and add it before the current selection, or at the end if no current selection"
+ 	| labels reject lines newName oldCategory |
- 	| labels reject lines menuIndex newName oldCategory |
  	self okToChange ifFalse: [^ self].
  	self hasClassSelected ifFalse: [^ self].
+ 	labels := OrderedCollection new.
- 	labels := OrderedCollection with: 'new...'.
  	reject := Set new.
  	reject
  		addAll: self selectedClassOrMetaClass organization categories;
  		add: ClassOrganizer nullCategory;
  		add: ClassOrganizer default.
  	lines := OrderedCollection new.
  	self selectedClassOrMetaClass allSuperclasses do: [:cls | | cats |
  		cls = Object ifFalse: [
  			cats := cls organization categories reject:
  				 [:cat | reject includes: cat].
  			cats isEmpty ifFalse: [
  				lines add: labels size.
  				labels addAll: cats asSortedCollection.
  				reject addAll: cats]]].
+ 	(newName := UIManager default
+ 		chooseFromOrAddTo: labels
+ 		lines: lines
+ 		title: 'Add Category') ifNil: [^ self].
- 	newName := (labels size = 1 or: [
- 		menuIndex := (UIManager default chooseFrom: labels lines: lines title: 'Add Category').
- 		menuIndex = 0 ifTrue: [^ self].
- 		menuIndex = 1])
- 			ifTrue: [
- 				self request: 'Please type new category name'
- 					initialAnswer: 'category name']
- 			ifFalse: [
- 				labels at: menuIndex].
  	oldCategory := self selectedMessageCategoryName.
  	newName isEmpty
  		ifTrue: [^ self]
  		ifFalse: [newName := newName asSymbol].
  	self classOrMetaClassOrganizer
  		addCategory: newName
  		before: (self hasMessageCategorySelected
  				ifFalse: [nil]
  				ifTrue: [self selectedMessageCategoryName]).
  	self changed: #messageCategoryList.
  	self selectMessageCategoryNamed:
  		(oldCategory isNil
  			ifTrue: [self classOrMetaClassOrganizer categories last]
  			ifFalse: [oldCategory]).
  	self changed: #messageCategoryList.
  !



More information about the Squeak-dev mailing list