[squeak-dev] The Trunk: ToolBuilder-Kernel-jr.109.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Mar 5 15:58:46 UTC 2017


David T. Lewis uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-jr.109.mcz

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

Name: ToolBuilder-Kernel-jr.109
Author: jr
Time: 28 February 2017, 1:37:47.610081 am
UUID: edda3c34-f8df-fc4f-b6a5-6404053750f1
Ancestors: ToolBuilder-Kernel-tfel.108

offer a class selection from another environment

=============== Diff against ToolBuilder-Kernel-tfel.108 ===============

Item was changed:
  ----- Method: UIManager>>chooseClassOrTrait (in category 'ui requests') -----
  chooseClassOrTrait
  	"Let the user choose a Class or Trait"
  	
+ 	^self chooseClassOrTraitFrom: Smalltalk globals!
- 	^self chooseClassOrTrait: 'Class name or fragment?'!

Item was added:
+ ----- Method: UIManager>>chooseClassOrTraitFrom: (in category 'ui requests') -----
+ chooseClassOrTraitFrom: anEnvironment
+ 	"Let the user choose a Class or Trait from the given environment"
+ 	
+ 	^self chooseClassOrTrait: 'Class name or fragment?' from: anEnvironment!

Item was changed:
  ----- Method: UIManager>>classFromPattern:withCaption: (in category 'system introspecting') -----
  classFromPattern: pattern withCaption: aCaption
+ 	^self classFromPattern: pattern withCaption: aCaption in: Smalltalk environment
- 	"If there is a class or trait whose name exactly given by pattern, return it.
- 	If there is only one class or trait in the system whose name matches pattern, return it.
- 	Otherwise, put up a menu offering the names of all classes that match pattern, and return the class chosen, else nil if nothing chosen.
- 	This method ignores separator characters in the pattern"
- 
- 	^self classOrTraitFrom: Smalltalk environment pattern: pattern label: aCaption
  "
  	self classFromPattern: 'CharRecog' withCaption: ''
  	self classFromPattern: 'rRecog' withCaption: ''
  	self classFromPattern: 'znak' withCaption: ''
  	self classFromPattern: 'orph' withCaption: ''
  	self classFromPattern: 'TCompil' withCaption: ''
  "
  !

Item was added:
+ ----- Method: UIManager>>classFromPattern:withCaption:in: (in category 'system introspecting') -----
+ classFromPattern: pattern withCaption: aCaption in: anEnvironment
+ 	"If there is a class or trait whose name exactly given by pattern, return it.
+ 	If there is only one class or trait in the system whose name matches pattern, return it.
+ 	Otherwise, put up a menu offering the names of all classes that match pattern, and return the class chosen, else nil if nothing chosen.
+ 	This method ignores separator characters in the pattern"
+ 
+ 	^self classOrTraitFrom: anEnvironment pattern: pattern label: aCaption
+ "
+ 	for examples, see #classFromPattern:withCaption:
+ "
+ !



More information about the Squeak-dev mailing list